※FMTOPTに「JOBI0600」の Active job informationをセットします。
&JOB_INFOで取得した情報に含まれています。
詳しくはインフォメーション・センターの情報でレイアウトをご確認ください。


    

0001.00　　　　　　PGM　　　　PARM(&NAME &USER &NBR &FMTOPT)
0002.00　　　　　　DCL　　　　VAR(&NAME)　 　　TYPE(*CHAR) LEN(10)
0003.00　　　　　　DCL　　　　VAR(&USER)　　　TYPE(*CHAR) LEN(10)
0004.00　　　　　　DCL　　　　VAR(&NBR)　　　　TYPE(*CHAR) LEN(06)
0005.00　　　　　　DCL　　　　VAR(&FMTOPT)　TYPE(*CHAR) LEN(08)
0006.00　　　　　　DCL　　　　VAR(&JOB_INFO) TYPE(*CHAR) LEN(1024)
0007.00　　　　　　DCL　　　　VAR(&RCVLEN)　TYPE(*INT)　VALUE(1024)
0008.00　　　　　　DCL　　　　VAR(&JOB)　　　　TYPE(*CHAR) LEN(26)
0009.00　　　　　　DCL　　　　VAR(&INTJOBID) TYPE(*CHAR) LEN(16) VALUE(' ')
0010.00
0011.00　　　　　　CHGVAR　VAR(&JOB) VALUE(&NAME *CAT &USER *CAT &NBR)
0012.00
0013.00　　　　　　CALL　　　PGM(QUSRJOBI) PARM(&JOB_INFO &RCVLEN &FMTOPT +
0014.00　　　　　　　　　　　　　&JOB &INTJOBID)

0015.00　　　　　　ENDPGM