Hallo,

es besteht auch die Möglichkeit die Funktion stat() zu benutzen.

Die Quellen-Art für das CL muss CLLE und nicht CLP sein.
(Nur in ILE ist CALLPRC möglich)
Anbei ein Beispiel für ein CL-Program.

RTCCDE '1': Objekt vorhanden
RTCCDE '0': Objekt nicht vorhanden

IFSOBJ: z.B. mydir/myfile.ext
qsys.lib/mylib.lib/myfile.file

PGM PARM(&IFSOBJ &RtnCde)

DCL VAR(&IFSOBJ) TYPE(*CHAR) LEN(256)
DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(4096)
DCL VAR(&RTNVALBIN) TYPE(*CHAR) LEN(4)
DCL VAR(&RTNVALDEC) TYPE(*DEC) LEN(5 0)
DCL VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')

DCL VAR(&RTNCDE) TYPE(*CHAR) LEN(1)

CHGVAR VAR(&RTNCDE) VALUE(' ')
CHGVAR VAR(&IFSOBJ) VALUE(&IFSOBJ *TCAT &NULL)

CALLPRC PRC('stat') PARM(&IFSOBJ &RECEIVER) +
RTNVAL(%BIN(&RTNVALBIN))

CHGVAR VAR(&RTNVALDEC) VALUE(%BIN(&RTNVALBIN))

IF COND(&RTNVALDEC *EQ 0) +
THEN(CHGVAR VAR(&RTNCDE) VALUE('1'))
ELSE CHGVAR VAR(&RTNCDE) VALUE('0')

END: ENDPGM
Birgitta