Re: CRTCLPGM default parameters

Alan,

You can still see the values of fields using dsppgmvar even if *SRCDBG is not used...


----- Original Message ----- From: "Alan Shore" <AlanShore@xxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Friday, July 11, 2008 9:39 AM
Subject: RE: CRTCLPGM default parameters



Thanks for your reply Terry. I ran your suggestion and compiled a CLP
program, then tried to use STRDBG against it. No go. I wasn't able to get
into the program.
Thanks anyway


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill



"Terry Anderson"
<terrya@citation.
net> To
Sent by: <midrange-l@xxxxxxxxxxxx>
midrange-l-bounce cc
s@xxxxxxxxxxxx
Subject
RE: CRTCLPGM default parameters
07/11/2008 09:30
AM


Please respond to
Midrange Systems
Technical
Discussion
<midrange-l@midra
nge.com>






Alan,
Try this:

CHGCMDDFT CMD(CRTBNDCL) NEWDFT('DBGVIEW(*ALL)


Terry Anderson
Programming Manager
Citation Corporation
Switchboard 1.251.867.5481 ext 212
Direct Line 1.251.809.2312
Fax 251.867.0525
Cell 1.251.363.4975

>------------------------------
>
>message: 6
>date: Fri, 11 Jul 2008 08:55:27 -0400
>from: Alan Shore <AlanShore@xxxxxxxx>
>subject: CRTCLPGM default parameters
>
>
>Good morning everyone
>again my beauty sleep was interrupted because of a
>production problem. This
>time it was a CLP program that the programmer had NOT compiled with
>OPTION(*SRCDBG) so I could not use STRSRVJOB with STRDBG to
>have a look at
>what values certain fields had. Needless to say, that
>certain programmer
>will feel my wrath when he gets back from vacation.
>So, to trying to be pro-active, I decided to change the
>default to the
>CRTCLPGM using the following command
>CHGCMDDFT CMD(QSYS/CRTCLPGM) NEWDFT('OPTION(*SRCDBG)')
>
>This does not work. The following error is returned
>No default value exists for keyword OPTION.
>
>Does anyone know of a way to change the OPTION parameter so
>that *SRCDBG
>will be used?
>
>Thanks in advance
>
>
>
>Alan Shore
>Programmer/Analyst, Direct Response
>E:AShore@xxxxxxxxxxx
>P:(631) 244-2000 ext. 5019
>C:(631) 880-8640
>"If you're going through Hell, keep going" - Winston Churchill
>
>------------------------------
>

--
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.