Code:
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?