MONITOR / ENDMON

[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