ToolBox JCA手順ログ検索

2019.01.28

PGM       PARM(&KEY &ESTS)
           DCLF       FILE(EVXDBLIB/JFJCAP20)
           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(&LOGKEY *EQ &KEY) THEN(DO)
             IF         COND(&ENDSTS *NE '00') THEN(DO)
               CHGVAR     VAR(&ESTS) VALUE('ERR')
               GOTO END
             ENDDO
             CHGVAR     VAR(&ESTS) VALUE('   ')
             GOTO END
           ENDDO
           GOTO LOOP
END:
ENDPGM

PGM PARM(&KEY &ESTS)

DCLF FILE(EVXDBLIB/JFJCAP20)

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(&LOGKEY *EQ &KEY) THEN(DO)

IF COND(&ENDSTS *NE '00') THEN(DO)

CHGVAR VAR(&ESTS) VALUE('ERR')

GOTO END

ENDDO

CHGVAR VAR(&ESTS) VALUE(' ')

GOTO END

ENDDO

GOTO LOOP

END:

ENDPGM

古い記事へ新しい記事へ