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