[SPAM] - RE: Record sequence numbers in QTP - Sender is forged
(SPF Fail)
Pickering, John (NORBORD)
John.Pickering at norbord.com
Fri Jun 8 10:41:45 CDT 2007
There is no way to get the count function to increment by other than 1.
________________________________
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 Martin McDonough
Sent: Friday, June 08, 2007 11:35 AM
To: Robert Mills; powerh-l at lists.sowder.com
Subject: [SPAM] - RE: Record sequence numbers in QTP - Sender is forged
(SPF Fail)
Maybe two sequence numbers would be needed
T-SEQ2 would be the final one also
DEF A = 2
TEMP T-SEQ1
ITEM T-SEQ1 SUB A INITIAL -1
TEMP T-SEQ2
ITEM T-SEQ2 SUB A INITIAL 0
Regards
Martin
________________________________
From: powerh-l-bounces+martin.mcdonough=rosebys.com at lists.sowder.com
[mailto:powerh-l-bounces+martin.mcdonough=rosebys.com at lists.sowder.com]
On Behalf Of Robert Mills
Sent: 08 June 2007 16:20
To: powerh-l at lists.sowder.com
Subject: Record sequence numbers in QTP
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
________________________________
Disclaimer:
This message contains information that may be privileged or confidential
and is intended only for the person to whom it is addressed. If you are
not the intended recipient, you are not authorized to read, print,
retain, copy, disseminate, distribute, or use this message or any part
of this message. If you receive this message in error, please notify the
sender immediately by using the reply option and delete all copies of
this message.
ROSEBYS OPERATIONS LIMITED
Rosedale House
Bramley Way, Hellaby
Rotherham
South Yorkshire S66 8QB
Registered in England. No: 05047692
VAT Registration No: 886 8000 95
Tel: 01709 800800
Fax: 01709 532273
WWW.ROSEBYS.CO.UK
________________________________
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20070608/232118af/attachment.htm
More information about the powerh-l
mailing list