可取作业属性把它放在一个变量中来控制应用程序
采用的命令是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)