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