1. Home
  2. Knowledge Base
  3. Sample External Object (CL) Source Code

Sample External Object (CL) Source Code

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  * * * *

Updated on September 30, 2021

Was this article helpful?

Need Support?
Can’t find the answer you’re looking for? Don’t worry we’re here to help!
Contact Support