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