Nachricht in QSYSOPR löschen, nicht ausgeben

[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: