Re: Sequence of starts in QSTRUP -- MIDRANGE-L

Mike,

Our machine is also at V4R4, so here's what IBM ships.

  5769PW1 V4R2M0  980228                  SEU SOURCE LISTING
01/04/00 11:27:05                 PAGE    1

  SOURCE FILE . . . . . . .  MRCWORKLIB/QCLSRC
  MEMBER  . . . . . . . . .  QSTRUP

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
    100
/********************************************************************/
    200 /*
*/
    300 /* 5769SS1 V4R4M0 990521     RTVCLSRC Output     01/04/00 11:26:38
*/
    400 /*
*/
    500 /* Program name . . . . . . . . . . . . . . :   QSTRUP
PN*/
    600 /* Library name . . . . . . . . . . . . . . :   QSYS
PL*/
    700 /* Original source file . . . . . . . . . . :
SN*/
    800 /* Library name . . . . . . . . . . . . . . :
SL*/
    900 /* Original source member . . . . . . . . . :
SM*/
   1000 /* Source file change
*/
   1100 /*   date/time  . . . . . . . . . . . . . . :
SC*/
   1200 /* Patch option . . . . . . . . . . . . . . :   *NOPATCH
PO*/
   1300 /* User profile . . . . . . . . . . . . . . :   *USER
UP*/
   1400 /* Text . . . :
TX*/
   1500 /* Owner  . . . . . . . . . . . . . . . . . :   QSYS
OW*/
   1600 /* Patch change ID  . . . . . . . . . . . . :
PC*/
   1700 /* Patch APAR ID  . . . . . . . . . . . . . :
PA*/
   1800 /* User mod flag  . . . . . . . . . . . . . :   *NO
UM*/
   1900 /*
ED*/
   2000
/********************************************************************/
   2100      PGM
   2200      DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
   2300      DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
   2400      DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5769-SS1 (C)
COPYRIGHT-
   2500  IBM CORP 1980, 1999. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
   2600      QSYS/STRSBS SBSD(QSPL)
   2700      MONMSG MSGID(CPF0000)
   2800      QSYS/STRSBS SBSD(QSERVER)
   2900      MONMSG MSGID(CPF0000)
   3000      QSYS/STRSBS SBSD(QUSRWRK)
   3100      MONMSG MSGID(CPF0000)
   3200      QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
   3300      MONMSG MSGID(CPF0000)
   3400      QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
   3500      MONMSG MSGID(CPF0000)
   3600      QSYS/STRCLNUP
   3700      MONMSG MSGID(CPF0000)
   3800      QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD)
   3900      IF COND((&CTLSBSD *NE 'QCTL      QSYS      ') *AND (&CTLSBSD
*NE-
   4000  'QCTL      QGPL      ')) THEN(GOTO CMDLBL(DONE))
   4100      QSYS/STRSBS SBSD(QINTER)
   4200      MONMSG MSGID(CPF0000)
   4300      QSYS/STRSBS SBSD(QBATCH)
   4400      MONMSG MSGID(CPF0000)
   4500      QSYS/STRSBS SBSD(QCMN)
   4600      MONMSG MSGID(CPF0000)
   4700 DONE:
   4800      QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)
   4900      IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS))
   5000      CALL PGM(QSYS/QWCSWTRS)
   5100      MONMSG MSGID(CPF0000)
   5200 NOWTRS:
   5300      RETURN
  5769PW1 V4R2M0  980228                  SEU SOURCE LISTING
01/04/00 11:27:05                 PAGE    2

  SOURCE FILE . . . . . . .  MRCWORKLIB/QCLSRC
  MEMBER  . . . . . . . . .  QSTRUP

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
   5400      CHGVAR VAR(&CPYR) VALUE(&CPYR)
   5500      ENDPGM


                                  * * * *  E N D  O F  S O U R C E  * * * *
Best Regards,

Sal Stangarone Jr.
michaels, ross & cole, ltd.

Phone: 630.916.0662
Fax: 630.916.0663

Web: www.mrc-productivity.com
----- Original Message -----
From: Jim Langston <jlangston@conexfreight.com>
To: <MIDRANGE-L@midrange.com>
Sent: Tuesday, January 04, 2000 9:50 AM
Subject: Re: Sequence of starts in QSTRUP


> Ouch.  I feel for you.  That is why I always RTVCLSRC from
> QSYS/QSTRUP into QSYS/QCLSRC, then I copy this source
> to QGPL/QCLSRC and make modifications there and compile
> it to QGPL.  Then I change the system value QSTRUPPGM to
> point to QGPL.  Then I can always go back and look at the
> original IBM supplied QSTRUP.
>
> Unfortunately, this doesn't help you now.  I hope someone finds
> it for you.
>
> Regards,
>
> Jim Langston
>
> Just trying to close the barn door after the cows escaped.
>
> Mike Cunningham wrote:
>
> > We just upgraded to 4.4 and modified our QSTRUP CL program before we had
a chance to retreive the original source that came from IBM.  I am having a
problem where SMTP mail does not get processed after a powerup until I
ENDMSF, ENDSBS QSNADS, ENDTCPSVR *SMTP and start them all back up again.  I
also have some new messages at startup about some jobs not running in
subsystems and it all appears to be related to the sequence I am starting
things in my modified QSTRUP CL program.  Does anyone have the original CL
source that IBM ships or can send me a copy of the one your using ?
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
>


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---