取作业属性

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

posted @ 2008-01-09 14:10  深渊野鱼  阅读(226)  评论(0编辑  收藏  举报