Kommando SNDRPY funktioniert nicht

[rafnin]

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

[Fuerchau]

Der CHGJOB sollte im eigenen Job durchgeführt werden, da (*) keine Duplikate bringt.
Was deinen DLT angeht, so stimmt das Muster in der Antwortliste nicht überein.

[rafnin]

Sorry, verstehe ich nicht.
Im CL-Programm setze ich folgende Befehl ab: CHGJOB JOB(SAVE_JRN) INQMSGRPY(*SYSRPYL)
SAV_JRN ist ein gegeplanter Job.
Lasse ich den Job im Batch laufen ist alles soweit ok.
Bei einem zweiten Start erhalte ich Fehler:
Nachricht . . . : (C D I R) CPF1332 von SAVE_JRN_Y bei 200
Fehler bei Anweisung 2000 festgestellt. Der Nachrichtentex
Ende der doppelten Jobnamen..
In der Spool stehen Einträge vom ersten Job:
Datei Benutzer Warteschl. Ben.-Daten
QPDSPJOB DOEKREIN BETRX
QPPGMDMP DOEKREIN QEZDEBUG
QPJOBLOG DOEKREIN QEZJOBLOG SAVE_JRN

Dewegen lösche ich im CL als erstes mit DLTSPLF FILE(*SELECT) SELECT(DOEKREIN) die Dateien.
Der löscht dann aber auch alles, was eigentlich auch nicht sein soll.

Wie wären denn die richtigen Parameter beim CHGJOb Befehl ?

[Pikachu]

CHGJOB INQMSGRPY(*SYSRPYL)

[rafnin]

Danke an beide, funktioniert nun.

[Fuerchau]

Wie ich sagte, JOB(*) => Default, ist immer der eigene!