|
midrange.com
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
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
