Sample Source Code
5761WDS V7R1M0 100416 SEU SOURCE LISTING
09/23/11 11:34:47 MRC PAGE
SOURCE FILE . . . . . . . MRCWORKLIB/QRPGLESRC
MEMBER . . . . . . . . . DELDETAILC
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
100 LOOKUP1: PGM PARM(&ORDNO)
300
1200 DCL VAR(&ORDNO) TYPE(*DEC) LEN(6 0)
1201
2500 OVRDBF FILE(ORDDET) TOFILE(MRCWORKLIB/ORDDET) +
2600 SHARE(*YES)
3000 CALL PGM(MRCWORKLIB/DELDETAIL) PARM(&ORDNO)
3200
3400 ENDPGM: ENDPGM
* * * * E N D O F S O U R C E * * * *