|
midrange.com
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
