CHKIFSOBJ





test existence fichier IFS



             CMD        PROMPT('Vérification fichier stream')


             PARM       KWD(OBJECT) TYPE(*PNAME) LEN(256) MIN(1) +
                          EXPR(*YES) PROMPT('fichier stream')

Cpp de la commande CHKIFSOBJ (type CLLE)



        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




©AF400