[SPAM] - Record sequence numbers in QTP - Sender is forged (SPF Fail)

[Pickering, John (NORBORD)]

Robert

 

One of the easiest things to do might be to create the subfile with an
empty sequence number in one pass and then update it in a subsequent
pass. 

It would be easier with a separate item for the sequence number but you
could manage without it.

As in:

>access *odscust

>temp t-seq

>item t-seq count

>define d-seq char*6 = ascii(t-seq,6)

>output odscust update

>item t-sequence final d-seq ; if you have an item for the sequence
number

Or

>item d-cust final d-cust[1:4] + d-seq + d-cust11:502]

 

The alternative is to not use count but to increment your own counter
explicitly.

 

Regards,

JWP

 

________________________________

From: powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com
[mailto:powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com] On
Behalf Of Robert Mills
Sent: Friday, June 08, 2007 11:20 AM
To: powerh-l at lists.sowder.com
Subject: [SPAM] - Record sequence numbers in QTP - Sender is forged (SPF
Fail)

 

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/26bfbaf5/attachment-0001.html