Toolboxの全銀手順ログは下記で検索できます
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
PGM PARM(&KEY &ESTS) DCLF FILE(EVXDBLIB/JFZGNP30) DCL VAR(&ESTS) TYPE(*CHAR) LEN(3) DCL VAR(&KEY) TYPE(*CHAR) LEN(10) LOOP: RCVF MONMSG MSGID(CPF0864) EXEC(DO) CHGVAR VAR(&ESTS) VALUE('ERR') GOTO END ENDDO IF COND(&L3KEY *EQ &KEY) THEN(DO) IF COND(&L3ESTS *NE '00') THEN(DO) CHGVAR VAR(&ESTS) VALUE('ERR') GOTO END ENDDO CHGVAR VAR(&ESTS) VALUE(' ') GOTO END ENDDO GOTO LOOP END: ENDPGM |