AW: Original QSTRUP for V5R2

["Werner Noll, GEFIS" <werner.noll@xxxxxxxxx>]

Hi,

This is a retrival of an original object on a V5R2 box:

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

Werner Noll
-----Ursprüngliche Nachricht-----
Von: midrange-l-bounces+werner.noll=gefis.com@xxxxxxxxxxxx
[mailto:midrange-l-bounces+werner.noll=gefis.com@xxxxxxxxxxxx] Im Auftrag
von Scott Johnson
Gesendet: Freitag, 27. Mai 2005 15:47
An: MIDRANGE-L@xxxxxxxxxxxx
Betreff: Original QSTRUP for V5R2


Can someone forward to me off list an unchanged original QSTRUP for V5R2.  I
am getting into admining the iSeries where I work and want to make sure the
startup is doing what it needs to and in the 'proper' order.  Currently it
seems slightly out of order to me.