Contrôle existence d’une OUTQ

PGM PARM(&OUTQ &CODERR)
DCL VAR(&OUTQ) TYPE(*CHAR) LEN(10)
DCL VAR(&CODERR) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&CODERR) VALUE('0')
IF COND(&OUTQ *NE '*DEV ' THEN(DO)
CHKOBJ OBJ(&OUTQ) OBJTYPE(*OUTQ)
MONMSG MSGID(CPF9801 CPF0001) EXEC(CHGVAR VAR(&CODERR) VALUE('1'))
ENDDO
ENDPGM

Print Friendly, PDF & Email