Here something I wrote up for our knowledge base
Using STRDBG against CLP & RPG programs
If you already know this, then my apologies.
Did you know - that you can use STRDBG against a CLP program?
That's right, NOT STRISDB, but STRDBG.
Use the following procedure to accomplish this.
Compile the program with the following option
CRTCLPGM OPTION(*SRCDBG)
or
CRTRPGPGM OPTION(*SRCDBG)
Then when you want to use STRDBG
STRDBG PGM(MYLIB/MYPROG) OPMSRC(*YES)
Where MYLIB/MYPROG is the program you wish to debug.
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
"Laine, Rogers"
<rlaine@whitneyba
nk.com> To
Sent by: "Midrange Systems Technical
midrange-l-bounce Discussion"
s@xxxxxxxxxxxx <midrange-l@xxxxxxxxxxxx>
cc
01/31/2011 02:15 Subject
PM RE: Returning message from queue
Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>
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.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
************************************************
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.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
midrange.com
