ID #1093

ToolBox 全銀手順ログ検索

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

タグ: ToolBox

関連エントリー:

最終更新: 2011-10-08 07:38
製作者:
改訂: 1.3

Digg it! Share on Facebook このレコードを印刷する 友達に教える PDF ファイルで表示する
Propose a translation for Propose a translation for
この FAQ を評価してください:

評価点数: 0 (0 件の投票)

完全に役に立たない 1 2 3 4 5 最も価値がある

このエントリーにコメントできません。