Meinst du so

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

RCVMSG MSGQ(QSYSOPR) MSGTYPE(*FIRST) WAIT(1) +
RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
MONMSG MSGID(CPF0000)

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