CPF4131 im CL beim Aufruf abfangen

[karela66]

Hallo Zusammen,

ich rufe in einem CL ein RPG-Programm auf und es kommt der Fehler CPF4131 , da ich (mal wieder) vergessen hatte das Programm nach einer Dateiänderung zu wandeln.
Das Problem lässt sich dann ja durch wandeln leicht beheben.

Würde dennoch gerne den Fehler so abfangen, dass z.B. bei Aufruf im Batch oder per Jobplanung keine Fehlernachricht beantwortet werden muss…

mein Versuch im CL

CALL PGM(MY_READ1)
MONMSG MSGID(CPF4131) EXEC(GOTO CMDLBL(ENDE))

funktioniert leider nicht:
Antwort auf Nachricht in Nachrichtenwarteschlange QSYSOPR erwartet.

Kann man diesen Fehler gar nicht abfangen?

[andreaspr@aon.at]

Schau mal ins Joblog.
Eventuell ist das nur ein Folgefehler und du musst den vorherigen Fehler abfangen.

lg Andreas

[Fuerchau]

Hierfür musst du einen CHGJOB INQMSGRPY() durchführen.
Der Default ist *RQD was eine Meldung in QSYSOPR erwartet.
*DFT erfasst die Defaultantwort, *SYSRPYL holt die Antwort aus der Systemliste.
Beim Abbruch gibt's dann eine RPGxxxx oder CPFxxxx Meldung.

[Fuerchau]

Die CPF4131 wird von der RPG-Runtime abgefangen und kann deshalb nicht überwacht werden.

[hgdieterle]

Hallo
eine Option wäre:
Im CL -Programm
CHGJOB INQMSGRPY(*SYSRPYL)
Dann mit dem Command WRKRPYLE

SEQNBR > 20
MSGID CPF4131
CMPDTA
*NONE

*SAME
RPY 'D'


Additonal Parameters

DUMP *YES
CCSID *SAME

eintragen. Das Programm wird dann automatisch gedumpt

[karela66]

Vielen Dank an alle für die ausführlichen Antworten.

[karela66]

Hallo,
die Lösung mit der automatischen Antwort wäre für mich passend.
Der Fehler CPF4131 ist laut Joblog auch tatsächlich der erste Fehler.
Aber irgendetwas klemmt da noch. Im Job und in der benutzten Jobbeschreibung wird
INQMSGRPY(*SYSRPYL) genutzt und der Antwortlisteneintrag sieht so aus:

Folgenummer . . . . . . . . . . > 20 1-9999
Nachrichten-ID . . . . . . . . . CPF4131 Zeichenwert, *SAME, *ANY
Vergleichsdaten:
Vergleichsdaten . . . . . . . *NONE
Startposition Nachrichtendaten *SAME 1-999, *SAME, *NONE
Nachrichtenantwort . . . . . . . 'D'

Ich hätte gedacht, dass dann im SYSOPR keine Nachricht mehr zu beantworten wäre, da ja automatisch geantwortet würde.

Hat noch jemand einen Hinweis für mich, was ich ändern müsste?

[Fuerchau]

Schau mal ins Joblog.
Wenn ein RPG-Programm mit Meldung abgebrochen wird, gibt's eine weitere RPGxxxx-Meldung die wohl auch wieder einer Antwort bedarf bis es dann zu einer CPF-Meldung kommt.
Ich denke mal, die CPF4131 wurde beantwortet.

[hel400]

1) Kommt im RPG Pgm laut Joblog noch ein weiterer Fehler?
Falls ja, dann müsste der auch in die RPYL.

2) Den CALL im CL Pgm musst Du (zB) mit CPF0000 abfangen, weil das RPG Pgm meldet natürlich einen Fehler an das aufrufende Pgm zurück.

EDIT: Hoppla, da war schon jemand schneller :-)

[karela66]

Hallo,

erst mal vielen Dank für die Unterstützung.

Konnte das Problem mit Hilfe des Forums lösen und die automatischen Antworten funktionieren jetzt.

Die Zustellung steht bei uns beim QSYSOPR auf *HOLD und dadurch funktionierte die automatischen Antworten nicht, was ich nicht wusste.

Nähere Infos dazu stehen hier:

http://www-01.ibm.com/support/docvie...d=nas8N1018052


Habe dazu im CL temporär auf *DFT geändert

CHGMSGQ MSGQ(QSYSOPR) DLVRY(*DFT)

und schon funktioniert es.

[Fuerchau]

Wenn diesen CHGMSGQ aber mehrere Programme parallel setzen und wieder zurücksetzen kann es zu sehr unerwünschten Nebeneffekten kommen.
Da solltest du dir was besseres überlegen.
Warum steht denn QSYSOPR auf *HOLD?
Dies ist eher unüblich und sollte besser auf *DFT bleiben.
Ggf. kann eine Konsole (o.ä.) sich die QSYSOPR auch per *BREAK zuordnen.

Alternativ schaue mal die Default-Antwort der jeweiligen Nachricht an.
Wenn diese OK für dich ist, ist es besser deinen Job (nach Möglichkeit nur bei Batch) auf INQMSGRPY(*DFT) zu ändern. Dann brauchst du auch keine Antwortliste an die ggf. bei Systemwechsel keiner denkt, die neuen Einträge dann nachzutragen.
Das ändert aber nichts am Status der QSYSOPR.

[karela66]

Perfekt :-)

Die Variante mit der Standardantwort ( bei CPF4131 ist es C ) reicht bei meinem Problem völlig aus und ist ja auch sehr flexibel anzuwenden.

Vielen Dank, das ist die Lösung