RE: V5R1M0 QSTRUP

>From my v5r1 development 720:

/********************************************************************/

/*                                                                  */

/* 5722SS1 V5R1M0 010525     RTVCLSRC Output     08/16/01 12:39:56  */

/*                                                                  */

/* Program name . . . . . . . . . . . . . . :   QSTRUP            PN*/

/* Library name . . . . . . . . . . . . . . :   QSYS              PL*/

/* Original source file . . . . . . . . . . :   S000034074        SN*/

/* Library name . . . . . . . . . . . . . . :   $BLDSS1           SL*/

/* Original source member . . . . . . . . . :   S000034074        SM*/

/* Source file change                                               */

/*   date/time  . . . . . . . . . . . . . . :   12/04/00 10:47:48 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('5722-SS1 (C) COPYRIGHT-

 IBM CORP 1980, 2000. 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



-----Original Message-----
From: Scott R. Arntsen [mailto:sarntsen@itol.com]
Sent: Thursday, August 16, 2001 12:27 PM
To: MIDRANGE-L@midrange.com
Subject: V5R1M0 QSTRUP


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