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


| 
PGM        PARM(&PARM)


DCL        VAR(&PARM)      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(&NULL)      TYPE(*CHAR) LEN(1) VALUE(X'00')
DCL        VAR(&BUF)       TYPE(*CHAR) LEN(4096)


CHGVAR     VAR(&PATH) VALUE(&PARM *TCAT &NULL)

/* Utilisation de l'API STAT retournant des infos sur un fichier stream */
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('Objet ' !! &PARM !< ' non +
             trouvé.') MSGTYPE(*ESCAPE))
endpgm




©AF400