RE: Returning message from queue

Paul,

How would I go about using debug?

Rogers

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Morgan, Paul
Sent: Monday, January 31, 2011 12:25 PM
To: Midrange Systems Technical Discussion
Subject: RE: Returning message from queue

Rogers,

Are you sure it's a problem with RCVMSG and not a problem with SNDMSG?
Have you tried to run the program under debug or use a DMPCLPGM command
to view &MSGTXT?

Paul

Principal Programmer Analyst
IT Supply Chain/Replenishment

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Laine, Rogers
Sent: Monday, January 31, 2011 1:01 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Returning message from queue

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)

/* MONMSG CPF0000 EXEC(RETURN) */



SNDMSG MSG(&MSGTXT) TOUSR(MISRML1)





Rogers

************************************************
This E-Mail transmission (and/or the documents accompanying it)
may contain information belonging to the sender which is confidential,
privileged and/or exempt from disclosure under applicable law. The
information is intended only for the use of the individual(s) or entity
named above. If you are not the intended recipient, you are hereby
notified that any disclosure, copying, distribution or the taking of any

action in reliance on the contents of this information is strictly
prohibited. If you have received this E-Mail transmission in error,
please immediately notify us by return E-Mail or telephone to arrange
for return of its contents including any documents.