Nachricht in QSYSOPR löschen, nicht ausgeben

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