Record sequence numbers in QTP

[Robert Mills]

Greetings to the -L,
 
Environment: QTP 8.49.D1 on MPE/iX 6.5
 
I have a program (see extract below) where for each record read I write
two records (a customer and a customer address) to a subfile. When it
has processed the last input record it writes a trailer record to the
subfile. Each record written to the subfile needs a sequence number.
 
My problem is that each cust/addr record pair has the same sequence
number. The tlr record has the same sequence number as the last
cust/addr pair.
 
Any suggestions on how to correct this?
 
 
access custmstr
 
temporary t-seq
item t-seq count
 
define d-seq character *6 = ascii(t-seq,6)
define d-cust character *512 = "CUST" + d-seq + ...
define d-addr character *512 = "ADDR" + d-seq + ...
define d-tlr character *512 = "TLR" + d-seq + ...
 
subfile odscust alias cust keep include d-cust
subfile odscust alias addr keep include d-addr
subfile odscust alias tlr at final keep include d-tlr

regards, 
  
Robert W.Mills 
Systems Development Manager 
Pinnacle Arvato 
(020) 8309 3604 

 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20070608/a75fea17/attachment-0001.htm