PGM PARM(&PARM) DCLPRCOPT BNDSRVPGM((QLECWI)) DCL VAR(&PARM) TYPE(*CHAR) LEN(256) DCL VAR(&RTNVAL) TYPE(*int) LEN(4) DCL VAR(&PATH) TYPE(*CHAR) LEN(100) DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00') DCL VAR(&BUF) TYPE(*CHAR) LEN(4096) CHGVAR VAR(&PATH) VALUE(&PARM *TCAT &NULL) CALLPRC PRC('stat') PARM(&PATH &BUF) + RTNVAL(&RTNVAL) IF COND(&RTNVAL *NE 0) THEN(SNDPGMMSG + MSGID(CPF9898) MSGF(QCPFMSG) + MSGDTA('Objet ' !! &PARM !< ' non + trouvé.') MSGTYPE(*ESCAPE))
ENDPGM
|