korrupte message queue

[Pikachu]

Ich möchte die message queue nicht generell löschen, sondern nur, wenn sie defekt ist. Und das will ich natürlich vorher prüfen.

Dann bleibt dir wohl nur der Weg mittels MI (Machine Interface), wobei eine Nachrichtenwarteschlange wie es aussieht in der Systemdomäne liegt und ab Sicherheitsstufe 40 nur von Programmen mit Systemstatus darauf zugegriffen werden kann. Und du brauchst noch eine detailierte Beschreibung von IBM, wie eine Nachrichtenwarteschlange (je nach Systemrelease) aufgebaut ist, um sie prüfen zu können.

[Fuerchau]

Im Endeffekt laboriert man hier an einem Problem das statistisch gesehen nie wieder vorkommen wird, aber was ist schon Statistik.

Da man nicht weiß wie CHKOBJ auf defekte Objekte reagiert bliebe ggf. eine andere Lösung:

Ein CLP, dass nur folgenden Befehl ausführt:
RCVMSG MSGQ(MYLIB/MYMSGQ)
WAIT(0)
RMV(*NO)

Dieses CLP wird submittet.
Der SBMJOB übergibt im Joblog die genaue Job-Id, die per RCVMSG ausgelesen werden kann.
Per JOBAPI wird geprüft, ob der Job beendet wurde. Ist dies der Fall, scheint die MSGQ ja i.O. zu sein, da der RCVMSG nicht hängen blieb.
Es muss natürlich sichergestellt werden, dass der Job auch sofort loslegt.
Zwischen SBMJOB und Job-API müsste ein DLYJOB(1) eigentlich reichen.