Satzsperre im RPG-Pgm

[B.Hauser]

Kann ich über irgendeine API oder sonstwie im RPG-Programm feststellen, z. B. beim "UPDAT", welcher Job den upzudatenden Satz mit welcher rel. Satznummer sperrt, also die Info, die mir der Abbruch mit "D" oder das Joblog gibt?? Hintergrund ist eine Batchverarbeitung, die ewig schleift. Den sperenden Job könnte man dann ggbf. canceln.

Die Relative Satz-Nr. kann aus der Datei-Status-Datenstruktur Stelle 397 - 400 im Binär-Format ermittelt weden.

Die Job-Informationen stehen in der Programm-Status-Datenstruktur auf Stelle 91-170.

D PGMDS          SDS               
D  MsgText               91    170
D  MsgTextKurz           91    140
 /Free
     Monitor;
         Update MyFileF;
     On-Error 1218;  //Satz-Sperre
         Dsply MsgTextKurz;
     EndMon;

     Update(E) MyFileF;
     If %Status = 1218;     //Satz-Sperre
        Dsply MsgTextKurz;
     EndIf;
 /End-Free 

Birgitta