×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
At 12:28 PM 01/04/2000 -0500, you wrote:
Here it is:
Al
100
/********************************************************************/
200
/*
*/
300 /* 5769SS1 V4R4M0 990521
RTVCLSRC Output 10/06/99 09:50:51
*/
400
/*
*/
500 /* Program name . . . . . . . . . . . . . .
:
QSTRUP
PN*/
600 /* Library name . . . . . . . . . . . . . .
:
QSYS
PL*/
700 /* Original source file . . . . . . . . . .
:
SN*/
800 /* Library name . . . . . . . . . . . . . .
:
SL*/
900 /* Original source member . . . . . . . . .
:
SM*/
1000 /* Source file
change
*/
1100 /* date/time . . . . . . . . . . . . . .
:
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('5769-SS1 (C)
COPYRIGHT-
2500 IBM CORP 1980, 1999. 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
Tried that, I do not have a QSTRUP in
QSYS. This is what I had done before before when I went to do that
it was not there.
>>> "Al Barsa, Jr." <barsa2@ibm.net> 01/04/00
03:07PM >>>
At 10:16 AM 01/04/2000 -0500, you wrote:
>We just upgraded to 4.4 and modified our QSTRUP CL program before we
had a
>chance to retreive the original source that came from IBM. I am
having a
>problem where SMTP mail does not get processed after a powerup until
I
>ENDMSF, ENDSBS QSNADS, ENDTCPSVR *SMTP and start them all back up
>again. I also have some new messages at startup about some jobs
not
>running in subsystems and it all appears to be related to the
sequence I
>am starting things in my modified QSTRUP CL program. Does
anyone have the
>original CL source that IBM ships or can send me a copy of the one
your using ?
Re-retrieve it from QSYS.
Al
+--------------------------------------------------+
| Please do not send private mail to this address. |
| Private mail should go to
barsa@ibm.net. |
+--------------------------------------------------+
Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC.
400 > 390
Phone: 914-251-1234
Fax: 914-251-9406
http://www.barsaconsulting.com
http://www.taatool.com
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
+--------------------------------------------------+
| Please do not send private mail to this address. |
| Private mail should go to barsa@ibm.net. |
+--------------------------------------------------+
Al Barsa, Jr. - Account for Midrange-L
Barsa Consulting, LLC.
400 > 390
Phone: 914-251-1234
Fax: 914-251-9406
http://www.taatool.com
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.
midrange.com
