Re: V5R1M0 QSTRUP

[barsa@xxxxxxxxxxxxxxxxxxx]

It just so happens that I have it in my System Values pitch from COMMON.

Al

   100
/********************************************************************/

   200 /*
*/
   300 /* 5722SS1 V5R1M0 010525     RTVCLSRC Output     05/16/01 09:50:51
*/
   400 /*
*/
   500 /* Program name . . . . . . . . . . . . . . :   QSTRUP
PN*/
   600 /* Library name . . . . . . . . . . . . . . :   QSYS
PL*/
   700 /* Original source file . . . . . . . . . . :   S000034074
SN*/
   800 /* Library name . . . . . . . . . . . . . . :   $BLDSS1
SL*/
   900 /* Original source member . . . . . . . . . :
SM*/
  1000 /* Source file change
*/
  1100 /*   date/time  . . . . . . . . . . . . . . :   12/04/00 10:47:48
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('5722-SS1 (C)
COPYRIGHT-
  2500  IBM CORP 1980, 2000. 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

Al Barsa, Jr.
Barsa Consulting Group, LLC

400>390

914-251-1234
914-251-9406 fax

http://www.barsaconsulting.com
http://www.taatool.com





                                                                                
                                        
                    "Scott R. Arntsen"                                          
                                        
                    <sarntsen@itol.com>       To:     <MIDRANGE-L@midrange.com> 
                                        
                    Sent by:                  cc:                               
                                        
                    midrange-l-admin@mi       Subject:     V5R1M0 QSTRUP        
                                        
                    drange.com                                                  
                                        
                                                                                
                                        
                                                                                
                                        
                    08/16/01 03:27 PM                                           
                                        
                    Please respond to                                           
                                        
                    midrange-l                                                  
                                        
                                                                                
                                        
                                                                                
                                        




I deleted the QSTRUP program from QSYS after I migrated by mistake.  Does
anybody have the source?

Thanks
Scott R. Arntsen
UltraServ Corporation
130 East Walnut Street, Suite 511
Green Bay, WI  54301-4233
Office: 920) 435-6088
Cell: 920) 246-6088
Fax: 208) 247-7349