Re: Returning message from queue

[CRPence <CRPbottle@xxxxxxxxx>]

On 1/31/11 10:01 AM, Laine, Rogers wrote:
> I have the below CL program that will not return the message text
> from &MSGTXT in the RCVMSG command.
>
> What am I missing here.
>
> PGM PARM(&MSGKEY  &TOMSGQ  &TOLIB)
> DCL  &MSGKEY *CHAR 4
> DCL  &TOMSGQ *CHAR 10
> DCL  &TOLIB  *CHAR 10
> DCL  &MSGTXT *CHAR 132
>   RCVMSG     MSGQ(&TOLIB/&TOMSGQ) MSGTYPE(*ANY) +
>                KEYVAR(&MSGKEY) MSG(&MSGTXT)
>   SNDMSG     MSG(&MSGTXT) TOUSR(MISRML1)

  The program [as coded] works fine for me, considering that...

  The MsgKey as a parameter is coded to function as a return value, not 
as a means to locate any particular message.  As Scott K suggests, use 
MSGKEY(&MSGKEY) instead of KEYVAR(&MSGKEY), if intending to perform 
selection of a message by its message key.

  If there are no messages in the named non-program message queue, then 
the value of &MSGTXT and &MSGKEY will be blanks, and the same effect for 
when there were only "old messages" available on the *MSGQ.  For 
testing, note that the CL request to CHGMSGQ TheLib/TheMsgQname 
RESET(*YES) may be valuable to reset any previously "received" messages 
[old messages] left on the queue from either an explicit or a defaulted 
RMV(*NO) on some prior RCVMSG [test] processing.  An "old message" can 
not be retrieved via MSGTYPE(*ANY) [nor via MSGTYPE(*INFO) noted in 
another message as having had provided desirable results]; a MSGKEY() 
must be utilized, or an "ordered" selection via MSGTYPE() such as 
*FIRST, *LAST must be requested.

Regards, Chuck