Re: Cannot RCVMSG a SQL0204 *DIAG message

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hi David,

> A co-worker of mine is trying to receive a diagnostic message in a CL,
> but for some reason (that is totally escaping us) we cannot.
>
[SNIP]
> RCVMSG     MSGTYPE(*DIAG) RMV(*NO) MSGID(&MSGID)
[SNIP]
>   To module . . . . . . . . . :   QSQPROC
>   To procedure  . . . . . . . :   CLEANUP

Your RCVMSG statement is using the default value for the program queue
that you're receiving the message from.  The default value is *SAME.

The message, however, is being sent to procedure CLEANUP in module
QSQPROC, so unless that RCVMSG statement happens to be running in the
CLEANUP procedure of QSQPROC, it won't be able to find it.

You need to chnage the PGMQ parameter of RCVMSG to specify the message
queue for the particular callstack entry that the CLEANUP procedure runs
in.