|
midrange.com
Thanks
----- Original Message -----
From: "Westdorp, Tom" <Tom.Westdorp@StationCasinos.com>
To: <midrange-l@midrange.com>
Sent: Thursday, August 16, 2001 2:42 PM
Subject: 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
> _______________________________________________
> 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.
