Re: V5R1M0 QSTRUP

["Scott R. Arntsen" <sarntsen@xxxxxxxx>]

Thanks!
----- Original Message -----
From: <barsa@barsaconsulting.com>
To: <midrange-l@midrange.com>
Sent: Thursday, August 16, 2001 2:48 PM
Subject: Re: V5R1M0 QSTRUP


>
> 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
>
>
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
>