Wir machen das seid gefühlten 20 Jahren so


CHGVAR VAR(&PFAD) VALUE(&PFAD *TCAT &IFSFILE)
CHGVAR VAR(&PFAD2) VALUE(&PFAD *TCAT '#')
CHGVAR VAR(&IFS2) VALUE(&IFSFILE *TCAT '#')


RNM OBJ(&PFAD) NEWOBJ(&IFS2)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FEHLER))
RNM OBJ(&PFAD2) NEWOBJ(&IFSFILE)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FEHLER))
GOTO CMDLBL(ENDE)

Robi
(der weis das es warsch. eleganter geht)