Hallo!

Danke für die Hilfe !Leider verlief der Test negativ
CHGVARVAR(&FNAME)VALUE(&PATH*TCAT&X00)
CHGVARVAR(&OMODE)VALUE('r, crln=y'*CAT&X00)
CALLPRC'_C_IFS_fopen'(&fname&omode)rtnval(&atfdi)