MONITOR / ENDMON

[Bratmaxxe]

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

[Frank Hildebrandt]

Mit der Build-In Funktion %status kannst Du den Fehlercode ermitteln. Das funktioniert ebenfalls über eine Programmstatusdatenstruktur bzw. über eine Dateiinformationsdatenstruktur. Weitere Informationen entnimmst Du dann den RPG Handbüchern.

[B.Hauser]

Hi,

du brauchst lediglich eine Programm-Status-Datenstruktur in Deine Quelle einzubinden.

Der Fehlertext, zumindest die ersten 80 Stellen, steht auf der Position 91-170.

Beispiel:

D PGMSTS         SDS                                     
D  SDSMsgId              40     46                       
D  SDSMsgTextK           91    140      
D  SDSMsgText            91    170  
 /Free
   Monitor;
      Read MyFileF;
      //was auch immer
   On-Error *File;
      //Datei-Fehler
      Dsply SDSMsgTextK;
   On-Error *PGM;
      //Programm-Fehler
      Dsply SDSMsgTextK;
   On-Error;
      Dsply SDSMsgTextK;
   EndMon;
 /End-Free 

Birgitta

[Bratmaxxe]

vielen dank Birgitta !