Oder mit einer C-Funktion ...

Code:
PGM        PARM(&OBJ)                                    
                                                          
DCL        VAR(&OBJ)      TYPE(*CHAR) LEN(256)           
DCL        VAR(&RTNVALINT) TYPE(*CHAR) LEN(4)             
DCL        VAR(&RTNVAL)    TYPE(*CHAR) LEN(2)             
DCL        VAR(&PATH)      TYPE(*CHAR) LEN(100)           
DCL        VAR(&END)      TYPE(*CHAR) LEN(1) VALUE(X'00')
DCL        VAR(&BUF)       TYPE(*CHAR) LEN(4096)          
                                                          
CHGVAR     VAR(&PATH) VALUE(&OBJ *TCAT &END)            
                                                          
CALLPRC    PRC('stat') PARM(&PATH &BUF) +                 
             RTNVAL(%BIN(&RTNVALINT 1 4))                 
                                                          
CHGVAR     VAR(&RTNVAL) VALUE(%BIN(&RTNVALINT))   
                                                  
IF         COND(&RTNVAL *NE '00') THEN(SNDPGMMSG +
             MSGID(CPF9897) MSGF(QCPFMSG) +       
             MSGDTA('Object ' *TCAT &OBJ *BCAT ' not + 
             found.') MSGTYPE(*ESCAPE))           
                                                  
ENDPGM