程序使用 OPNQRYF 和 %SST (substring)

PGM PARM(&CALL)

DCL VAR(&CALL) TYPE(*CHAR) LEN(7)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(1)
DCL VAR(&SLT1) TYPE(*CHAR) LEN(250) +
VALUE('NOSALE *EQ %RANGE(" " " ")')

CHGVAR VAR(&TYPE) VALUE(%SST(&CALL 1 1))
CHGVAR VAR(%SST(&SLT1 20 3)) VALUE(%SST(&CALL 2 3))
CHGVAR VAR(%SST(&SLT1 26 3)) VALUE(%SST(&CALL 5 3))

OVRDBF FILE(RU1NOI) SHARE(*YES)

OPNQRYF FILE((RU1NOI)) QRYSLT(&SLT1) KEYFLD((NOSALE) +
(NONUM))

IF COND(&TYPE *EQ 'Y') THEN(CALL PGM(APWSLSITM) +
PARM(&CALL))

IF COND(&TYPE *NE 'Y') THEN(CALL PGM(APWSLSINV) +
PARM(&CALL))

CLOF OPNID(RU1NOI)

DLTOVR FILE(RU1NOI)

ENDPGM