Contrôle existence d’un document OfficeVision400


PGM PARM(&DOC &DOS &CODERR)
DCL VAR(&DOC) TYPE(*CHAR) LEN(10)
DCL VAR(&DOS) TYPE(*CHAR) LEN(10)
DCL VAR(&CODERR) TYPE(*CHAR) LEN(1)
CHGVAR VAR(&CODERR) VALUE('0')
CHKDLO DLO(&DOC) FLR(&DOS) OBJTYPE(*DOC)
MONMSG MSGID(CPF8A77 CPF8A82) EXEC(CHGVAR VAR(&CODERR) VALUE('1'))
ENDPGM

Print Friendly, PDF & Email