MONMSG für Diagnostic

[BenderD]

schick deinen RUNSQLSTM über qcmdexc weg, der müsste das gegen eine Escape Message tauschen.

D*B

Hallo Leute,

ich versuche gerade vergeblich eine Nachricht vom Typ *Diagnostic per MONMSG abzufangen. Mittlerweile habe ich auch verstanden, dass dies nicht geht.

Dennoch muss ich den Fehler dieser Meldung in meinem Programm entsprechend behandeln.

Hier mal die betroffene Stelle:

RUNSQLSTM SRCFILE(HAMMIWMG/QSQLSRC) SRCMBR(WDGVIEW) COMMIT(*NONE) NAMING(*SQL) DFTRDBCOL(&LIBAD)

MONMSG MSGID(SQL9010) EXEC(DO)
RCVMSG MSGTYPE(*DIAG) MSG(&MSG) MSGDTA(&MSGDTA) +
MSGID(&MSGID)
ENDDO

MONMSG MSGID(CPF0000 SQL0000) EXEC(SNDBRKMSG +
MSG('Creation of SQL View WDGVIEW failed! +
Check setup in KNFW107882') TOMSGQ(&MSGQ))

Hoffe, es hat jemand eine Idee, wie ich das lösen kann.

Vielen Dank und Gruß
Matthias

[Fuerchau]

QCMDEXC hilft da auch nicht weiter, da der auch nicht mehr kann als das CLP in diesem Fall.
QCMDEXC routet auch nur die Nachrichten weiter, die er erhält.

[BenderD]

ich habe die Quelle meines Irrtums gefunden: warum ist bei dir die SQL9010 überhaupt Info? habt ihr da an der Severity geschraubt, bei mir hat die 30 und kommt als Escape Message!

D*B

QCMDEXC hilft da auch nicht weiter, da der auch nicht mehr kann als das CLP in diesem Fall.
QCMDEXC routet auch nur die Nachrichten weiter, die er erhält.

[Matthias182]

Die SQL9010 kommt als *Escape, aber die SQL0601 nicht. Die ist *Diagnostic.

[BenderD]

auch die ist 30 und Escape, was willst du denn wirklich wissen????

D*B

Die SQL9010 kommt als *Escape, aber die SQL0601 nicht. Die ist *Diagnostic.

[Fuerchau]

Schau dir die Hilfe von RUNSQLSTM an, da gibts halt nur die SQL9010.