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

At 12:28 PM 01/04/2000 -0500, you wrote:

Here it is:

Al

   100 /********************************************************************/
   200 /*                                                                  */
   300 /* 5769SS1 V4R4M0 990521     RTVCLSRC Output     10/06/99 09:50:51 */
   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
5400      CHGVAR VAR(&CPYR) VALUE(&CPYR)
5500      ENDPGM

Tried that, I do not have a QSTRUP in QSYS. This is what I had done before before when I went to do that it was not there.

>>> "Al Barsa, Jr." <barsa2@ibm.net> 01/04/00 03:07PM >>>
At 10:16 AM 01/04/2000 -0500, you 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 ?
Re-retrieve it from QSYS.

Al

+--------------------------------------------------+
| Please do not send private mail to this address. |
| Private mail should go to barsa@ibm.net.         |
+--------------------------------------------------+

Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC.
400 > 390

Phone:          914-251-1234
Fax:            914-251-9406
http://www.barsaconsulting.com
http://www.taatool.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
+---

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

+--------------------------------------------------+

| Please do not send private mail to this address. |

| Private mail should go to barsa@ibm.net. |

+--------------------------------------------------+

Al Barsa, Jr. - Account for Midrange-L

Barsa Consulting, LLC.

400 > 390

Phone: 914-251-1234

Fax: 914-251-9406

http://www.barsaconsulting.com

http://www.taatool.com