Fehlerhandling RPG

[alex61]

Hallo,

habe ein kleines Updateprogramm welches eigentlich immer tut, nur heute
diese Message ausgibt. Wie kann man das im Code handeln ?

Fehlercode: RNQ1218

Job 012750/USER01/QPADEV001F im Subsystem QINTER in QSYS am 23.05.23 um 09
Nachrichtenwarteschlange USER01 ist anderem Job zugeordnet.
Ein Satz in Datei COSLFA60 konnte nicht zugeordnet werden (R C G D F).

Grüße A.

[B.Hauser]

Das ist eine klassische Satz-Sperre ...
Abfangen kann man Satz-Sperren in dem man beim Lese-Befehl (E) angibt ... und dann nach dem Read/Chain entweder auf %ERROR (= allgemeiner Fehler) oder auf %STATUS = 1218 (für Satz-Sperre) abfragt.


ReadE(E) (Key) FileF;
If %EOF();
//Datei-Ende
ElseIF %STATUS = 1218 //Satz-Sperre
//Fehlerbehandlung Satz-Sperre
ElseIf %ERROR //wichtig! OHNE Klammern
//Fehlerbehandlung sonstige Fehler
EndIf;

Alternativ kann man um den Lese-Befehl eine Monitor-Group bauen. Im On-Error-Zweig kann man dann den Fehler behandeln.


Monitor;
READE (Key) FileF;
On-Error 1218;
//Fehlerbehandlung Satz-Sperre
On-Error;
//Fehlerbehandlung sonstige Fehler
EndMon;

Birgitta

[alex61]

vielen lieben Dank für die Hilfe. Dann baue ich das mal ein.

LG Alex