RCVMSG aus einer ILE RPG Prozedur

[tarkusch]

D  MsgText               91    170    
D  MsgTextKurz           91    140    

Monitor;                                 
  CHAIN(NE) (PENR:ARTN) FILE;     
ON-Error *ALL;                           
  EXSR SubChain;                  
EndMon;    

BEGSR SubChain;                                 
  If %status = 1218; // Satz gelockt                   
     //Window  MsgTextKurz;                              
     Par_RtnCode = 'L';                                
  ElseIf %error; // sonstiger Fehler                   
     Par_RtnCode = 'E';                                
  ElseIf Not %Found(FILE); //Nicht gefunden         
     Par_RtnCode  = 'N';                               
  Else; // Satz vorhanden + frei                       
     Par_RtnCode = ' ';                                
  endIf;                                               
EndSr;

Also ich habe leider wie immer nicht ganz den Durchblick, aber bekomme ich die Satzsperre so angezeigt wie im Code oberhalb?

[B.Hauser]

Dadurch, dass Du den Fehler über die Erweiterung (E) abgefangen hast, kommst Du nie in den ON-ERROR-Zweig.

Monitor ist außerdem eine Stufe über dem %ERROR, d.h. eine die Fehlermeldung "Satzsperre" kann mit %ERROR abgefangen werden. Bei der Monitor-Group wird der Fehler intern um ein Level weitergereicht und eine andere Meldung ausgegeben.

  Monitor;
    Chain MyKey MyFileF;
  On-Error 1218  // Record Lock
     Unlock MyFile;   //entspricht (N)
     //Mach was immer Du willst
  On-Error *ALL;
     //Alle anderen Fehler
  EndMon;

Birgitta

[Fuerchau]

Allerdings muss dann "CHAIN(E)" ausgeführt werden da CHAIN(N) keine Sperre verlangt und somit der Satz gelesen wird.