取作业属性

可取作业属性把它放在一个变量中来控制应用程序
采用的命令是RTVJOBA 可取的所有作业的属性和他们的组合
PGM

DCL &CLKNAM TYPE(*CHAR) LEN(10)
DCL &NXTPGM tYPE(*CHAR) LEN(8)

RTVJOBA USER(&CLKNAM)

BEGIN:
CALL ORD41052 PAR(&NXTPGM &CLKNAM)
IF 9&NXTPGM *EQ 'END') THEN(RETURN)

你可能感兴趣的:(属性)