Also mit der Systemantwortliste funktioniert es.
Nur muss man dafür sorgen wenn zur Laufzeit CHGJOB INQMSQRPY abgesetzt wird die älteren Jobs
gelöscht sind ansonsten erhält man Meldung "doppelte Jobs....).


Bei SNDRPLY im CL habe ich folgendes probiert:

1) Message CPA7025 manuell erzeugt:
SNDPGMMSG MSGID(CPA7025) MSGF(QSYS/QCPFMSG) TOMSGQ(QSYS/QSYSOPR) MSGTYPE(*INQ)
DLYJOB DLY(5)
RCVMSG MSGQ(QSYS/QSYSOPR) MSGTYPE(*LAST) RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
IF COND(&MSGID *EQ 'CPA7025') THEN(DO)
SNDRPY MSGKEY(&MSGKEY) MSGQ(QSYS/QSYSOPR) RPY('C')

Hier funktioniert das Beantworten der Nachricht !


2) Lösch-Befehl ausgeführt der CPA7025 erzeugt:
DLTJRNRCV JRNRCV(SAPSJ1JRN/QSQJRN*) DLTOPT(*NONE)
DLYJOB DLY(5)
RCVMSG MSGQ(QSYS/QSYSOPR) MSGTYPE(*LAST) RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
IF COND(&MSGID *EQ 'CPA7025') THEN(DO)
SNDRPY MSGKEY(&MSGKEY) MSGQ(QSYS/QSYSOPR) RPY('C')

Hier klappt es nicht obwohl CAP7025 ebenfalls in der QSYSOPR steht.

Reinhard Doeker