Re: RSE in WDSC does not recognize that the debug server is started.

There is already a spot in RSE to set up an initial library list.... look
in your connection and right click on iSeries Objects and to to Properties
-> Initial Library List. This allows you to setup the initial user
portion of the LIBL. I have 3 connections to the same box set up with
different library lists for each. This is so that I can work in a
Production environment, a Prototype environment, and then a special
environment for a big project we are working on. I would have to put the
call to the CL in all three connections, but no big deal.

Thanks
Bryce Martin
Programmer/Analyst I
570-546-4777



Buck <kc2hiz@xxxxxxxxx>
Sent by: wdsci-l-bounces@xxxxxxxxxxxx
02/11/2010 11:28 AM
Please respond to
Rational Developer for IBM i / Websphere Development Studio Client for
System i & iSeries <wdsci-l@xxxxxxxxxxxx>


To
wdsci-l@xxxxxxxxxxxx
cc

Subject
Re: [WDSCI-L] RSE in WDSC does not recognize that the debug server is
started.






Bryce Martin wrote:

I don't have an initial program for my profile, so couldn't I add that

to

the RSE properties for that connection? I just don't know if I can do a

monmsg? I know I can issue the strdbgsrv...

That's a neat idea! Write a CL program for each environemt / connexion
and put it in the Connection properties -> Subsystems, iSeries Commands,
Initial command box. You can do other things too, like setting up a
library list. One could use the same CL program to set up a 5250
environment too:

dcl &rtn *char 900
dcl &devd *char 10
dcl &ip *char 16
dcl &type *char 1

/* Start debug server */
strdbgsvr
monmsg CPFAC00 /* already active */

/* set *LIBL */
addlible xxxxx
monmsg cpf2103 /* already in list */

rtvjoba job(&devd) type(&type)

/* Following commands for interactive sessions only */
if (&type *eq '1') do
/* configure environment for 5799-PTL */
call qsys/qdcrdevd +
(&rtn +
x'0384' +
'DEVD0600' +
&devd +
x'00000000')
chgvar &ip %sst(&rtn 878 15)
strptl &ip
monmsg cpf9898 /* already ran once */

/* find disabled profiles */
dsplog qhst msgid(cpib682)


/* do other stuff for interactive jobs */
chgjob ccsid(037) /* I'm in the US */

/* get to a command line */
call qcmd
enddo