QSTRUP Program

[jamief]

Re: QSTRUP Program

It does....

You could always put it as the first executable line of code in the CL program and
it would cover the entire program... then you wouldnt have to copy/re-key it every time.

But its important to know that if you add a line @ a later time and it happens b4 you start QINTER
you are going to have to have access to QCTL to get to system and start it the rest if the way UP!

jamie

[Kellyp]

Re: QSTRUP Program

Sorry I am probably being a pain lol but I want to error on the side of being overly cautious so I don't screw anything up I have spent days researching all of this I just want to make sure everything is at least not going to make my system hang when I IPL it. I will just post my startup program if you would just look at it and make sure from what you can tell I haven't seriously screwed anything up.

 PGM
     DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
     DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
     DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5722-SS1 (C) COPYRIGHT-
 IBM CORP 1980, 2000. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
     QSYS/STRSBS SBSD(QSERVER)
     MONMSG MSGID(CPF0000)
     QSYS/STRSBS SBSD(QUSRWRK)
     MONMSG MSGID(CPF0000)
     QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
     MONMSG MSGID(CPF0000)
     QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
     MONMSG MSGID(CPF0000)
     QSYS/STRCLNUP
     MONMSG MSGID(CPF0000)
     QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD)
     IF COND((&CTLSBSD *NE 'QCTL      QSYS      ') *AND (&CTLSBSD *NE-
 'QCTL      QGPL      ')) THEN(GOTO CMDLBL(DONE))
     QSYS/STRSBS SBSD(QINTER)
     MONMSG MSGID(CPF0000)
     QSYS/STRSBS SBSD(QBATCH)
     MONMSG MSGID(CPF0000)
     QSYS/STRSBS SBSD(QCMN)
     MONMSG     MSGID(CPF0000)
     QSYS/STRSBS SBSD(QUSRSYS/DSTACX)
     MONMSG     MSGID(CPF0000)
     QSYS/STRSBS SBSD(QSYS/WEBJOBS)
     MONMSG     MSGID(CPF0000)
     QSYS/CALL  PGM(DSTCUST/STRTURBOWD)
     MONMSG     MSGID(CPF0000)
     QSYS/STRFAXCOM
     MONMSG     MSGID(CPF0000)
DONE:
     QSYS/STRSBS SBSD(QSPL)
     MONMSG MSGID(CPF0000)
     QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)
     IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS))
     CALL PGM(QSYS/QWCSWTRS)
     MONMSG MSGID(CPF0000)
NOWTRS:
     RETURN
     CHGVAR VAR(&CPYR) VALUE(&CPYR)
     ENDPGM 

[jamief]

Re: QSTRUP Program

I'm really the wrong resource for CL as I never really liked it, but it looks fine to me...

If you renamed this program or changed its library remember to change the values in
system value QSTRUPPGM

to view
dspsysval QSTRUPPGM
to change
chgsysval QSTRUPPGM 

[Kellyp]

Re: QSTRUP Program

Ok I will give it a shot hopefully this weekend and cross my finger that it doesn't hang the system and if it actually does what I want it to that will just be a bonus Thank you guys so much for the help you will be hearing more from me as I am going to start learning how to really program for iSeries I will be taking the classes from IBM in the near future. Is RPG a good place to start or do you suggest something else? Also do you suggest IBM Rational Developer for development or do you recommend something else?