Re: Sequence of starts in QSTRUP

["Al Barsa, Jr." <barsa2@xxxxxxx>]

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