Moin zusammen !

Ich möchte gerne innerhalb einer Monitor-Gruppe


C MONITOR
C READ FILE1
C IF NOT %EOF
C EVAL Line = %SUBST(Line(i) :
C %SCAN('***': Line(i)) + 1)
C ENDIF

C ON-ERROR *FILE
C ... mache etwas

C ON-ERROR *PGM
C ... mache etwas

C ENDMON




Den aufgetretenen Programmfehler (EXCEPTION) auslesen,

(bsp. Datei gesperrt, Division durch 0, ...)

steht dieser in einem Datenbereich ?


Über Antworten wäre ich dankbar...

Gruß
Maxxe