Nachricht in QSYSOPR löschen, nicht ausgeben

[Fuerchau]

Ja, das hast du korrekt erkannt.
Nur musst du mit MSGTYPE(*NEXT) zum Key weiterlesen.

[svit]

Habe geändert,
aber RCVMSG leifert kein MSGkey zurück.

ENDJOB JOB(&JOB) OPTION(*IMMED) +
SPLFILE(*NO) LOGLMT(0)
MONMSG MSGID(CPF0000)

RCVMSG MSGQ(QSYS/QSYSOPR) MSGTYPE(*NEXT) +
MSGKEY(&MSGKEY) RMV(*NO)
MONMSG MSGID(CPF0000)

RMVMSG MSGQ(QSYSOPR) MSGKEY(&MSGKEY)
MONMSG MSGID(CPF0000)

[svit]

Was ist ein MSGKEY ?
CPC1125

[Fuerchau]

Nun, &MSGKEY liefert eine 4-Byte-ID.
Beim 1. RCVMSG musst du *FIRST wählen, dann wird ein MSGKEY geliefert.
Bei allen weiteren mit *NEXT weiterlesen.
Wenn du allerdings den RMVMSG gemacht hast, kannst du mit diesem MSGKEY keinen *NEXT mehr machen. Dies müsstest du vorher tun.

[svit]

Kann ich nicht einfach,
die Meldung von dem letzten Befehl empfangen?

(ich habe im Programm ENDJOB... , dieses ENDjob gibt die Meldung CPC1125, und die möchte ich abfangen und löschen.)

[Fuerchau]

Leider nein.
ENDJOB beendet deinen Job, dies ist dann die letzte Anweisung deines Programmes.
Wenn du einen MONMSG danach machst, wird dieser nur ausgeführt, wenn der ENDJOB aus irgendwelchen Gründen scheitert (habe ich aber noch nie erlebt).
Das Löschen aus der QSYSOPR muss also ein anderer Job machen.

[svit]

habe mich falsch ausgedruckt.
ich habe ein Programm , dieses programm macht ENDJOB auf ein anderen Job.
D.h. Das Programm läuft ganz normal weiter.

[svit]

habe erst mal so gelösst:

ENDJOB JOB(&JOB) OPTION(*IMMED) SPLFILE(*NO) LOGLMT(0)
MONMSG MSGID(CPF0000)

RCVMSG MSGQ(QSYS/QSYSOPR) MSGTYPE(*LAST) RMV(*NO) +
KEYVAR(&MSGKEY) +
MSGID(&MSGID)
MONMSG MSGID(CPF0000)

IF COND(&MSGID *NE 'CPC1125') THEN(GOTO +
CMDLBL(ENDE1))

RMVMSG MSGQ(QSYSOPR) MSGKEY(&MSGKEY)
MONMSG MSGID(CPF0000)
ENDE1: