Source Code
5761WDS V7R1M0 100416 SEU SOURCE LISTING
09/23/11 11:34:47 MRC PAGE
SOURCE FILE . . . . . . . MRCWORKLIB/QRPGLESRC
MEMBER . . . . . . . . . DELDETAIL
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
1100 *Author: Rick Hurckes
1101 *Date: 2011-09-22
1102 *This program will accept an order number. Based on this order
1103 *number, this program 09/23/11
1104 *will delete all matching records from the order detail table.
1105 FORDDET UF E K DISK
1200 C *entry plist
1300 C parm KEY60 6 0
1400 *
1401 C KEY60 CHAIN ORDDET 90
1402 C *IN90 DOWEQ '0'
1403 C DELETE ORDDET
1404 C KEY60 READE ORDDET 90
1405 C END
1800 C
1900 C eval *inlr=*on
* * * * E N D O F S O U R C E * * * *