RE: Returning message from queue

["Morgan, Paul" <Paul.Morgan@xxxxxxxxxxx>]

Rogers,

If you can test it interactively use STRDBG before running the process.  If it's running in batch start up the batch process then use STRSRVJOB followed by STRDBG.  Set a breakpoint right after the RCVMSG command.  It's best to have the program compiled with CRTCLPGM OPTION(*SRCDBG) or CRTBNDCL/CRTCLMOD DGBVIEW(*SOURCE) so you can visually set the breakpoint.  When the breakpoint is reached use EVAL &MSGTXT or EVAL &MSGTXT :X to see the character or hexadecimal value in &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:58 PM
To: Midrange Systems Technical Discussion
Subject: 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.