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

Here you go...

Ray

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

--
Ray Peterson
WITC - Shell Lake
505 Pine Ridge Drive
Shell Lake  WI  54871
www.witc.tec.wi.us
715 468-2815

/********************************************************************/
/*                                                                  */
/* 5769SS1 V4R4M0 990521     RTVCLSRC Output     01/04/00 10:24:17  */
/*                                                                  */
/* Program name . . . . . . . . . . . . . . :   QSTRUP            PN*/
/* Library name . . . . . . . . . . . . . . :   QSYS              PL*/
/* Original source file . . . . . . . . . . :                     SN*/
/* Library name . . . . . . . . . . . . . . :                     SL*/
/* Original source member . . . . . . . . . :                     SM*/
/* Source file change                                               */
/*   date/time  . . . . . . . . . . . . . . :                     SC*/
/* Patch option . . . . . . . . . . . . . . :   *NOPATCH          PO*/
/* User profile . . . . . . . . . . . . . . :   *USER             UP*/
/* Text . . . :                                                   TX*/
/* Owner  . . . . . . . . . . . . . . . . . :   QSYS              OW*/
/* Patch change ID  . . . . . . . . . . . . :                     PC*/
/* Patch APAR ID  . . . . . . . . . . . . . :                     PA*/
/* User mod flag  . . . . . . . . . . . . . :   *NO               UM*/
/*                                                                ED*/
/********************************************************************/
     PGM
     DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
     DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
     DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5769-SS1 (C) COPYRIGHT-
 IBM CORP 1980, 1999. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')
     QSYS/STRSBS SBSD(QSPL)
     MONMSG MSGID(CPF0000)
     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)
DONE:
     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