|
midrange.com
On Monday, 4/21/97, Neil Palmer wrote:
> Bob - can you post the relevant section of code (including at least severl
>statements prior to the DLYJOB command) ?
Here is the relevant section of the CL program. I have not been successful
in locating much in the way of documentation on DLYJOB. I did notice though
that in an article that you wrote way back when in Midrange Computing (May,
1992) that the format for the RSMTIME parm was different in your CL
(01000000) than in mine. Could that have anything to do with it - I didn't
get any errors? And the job executes up to and including that statement, it
just doesn't go any further. Online help does not give the format.
A little update. We had another situation last night that required me to
try to run this again. This time we made sure someone would take a look at
it at 4:00am. Once again, the job was still sitting at the DLYJOB
statement. This time however, hitting enter had no affect - it still just
sat there. Now I tend to doubt that the operator had any affect the first
time when (or if) he hit enter. But now I'm at a loss as to why the job
just took off (resumed) the first time at 9:08am. And I didn't wait around
this time to see what would happen - I had them end the job.
partial CL follows (added code is line 0073.00) ...
0054.00
0055.00 MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERR)) /* if
+
0056.00 error occurs, goto error recovery */
0057.00
0058.00 CHGVAR VAR(&STRPGM) VALUE(%SST(&STRPLIB 1 10))
0059.00 CHGVAR VAR(&STRLIB) VALUE(%SST(&STRPLIB 11 10))
0060.00 CHGVAR VAR(&ENDPGM) VALUE(%SST(&ENDPLIB 1 10))
0061.00 CHGVAR VAR(&ENDLIB) VALUE(%SST(&ENDPLIB 11 10))
0062.00
0063.00 /* F10: SET SAVE ENVIRONMENT: CHGMSGQ QSYSOPR, ENDSBS */
0064.00 F10:
0065.00 RTVJOBA JOB(&JOB) USER(&USER) NBR(&JOBNBR)
DATE(&DATE)
0066.00 CHGJOB LOG(4 00 *SECLVL) LOGCLPGM(*YES) +
0067.00 INQMSGRPY(*SYSRPYL)
0068.00 CHGMSGQ MSGQ(QSYSOPR) DLVRY(*HOLD)
0069.00 MONMSG MSGID(CPF0000)
0070.00 /* HLDJOBSCDE JOB(*ALL) ENTRYNBR(*ALL) */
0071.00 /* MONMSG MSGID(CPF0000) */
0072.00
0073.00 DLYJOB RSMTIME('01:30:00') /* Delay backup till +
0074.00 1:30am */
0075.00
0076.00 ENDSBS SBS(QPGMR) OPTION(*IMMED)
0077.00 MONMSG MSGID(CPF0000)
0078.00 ENDSBS SBS(QBATCH) OPTION(*IMMED)
0079.00 MONMSG MSGID(CPF0000)
0080.00 ENDSBS SBS(QINTER) OPTION(*IMMED)
0081.00 MONMSG MSGID(CPF0000)
0082.00 ENDSBS SBS(SUPERT400) OPTION(*IMMED)
0083.00 MONMSG MSGID(CPF0000)
0084.00 ENDSBS SBS(QSPL) OPTION(*IMMED)
0085.00 MONMSG MSGID(CPF0000)
0086.00 ENDSBS SBS(APPCSBS) OPTION(*IMMED)
0087.00 MONMSG MSGID(CPF0000)
0088.00 ENDSBS SBS(QCMN) OPTION(*IMMED)
0089.00 MONMSG MSGID(CPF0000)
0090.00 ENDSBS SBS(QSNADS) OPTION(*IMMED)
0091.00 MONMSG MSGID(CPF0000)
0092.00
0093.00 DLYJOB DLY(600) /* wait for sbs to end */
0094.00
Thanks for looking at this! I appreciate the help.
Regards,
Bob Clarke
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List! To submit a new message, *
* send your mail to "MIDRANGE-L@midrange.com". To unsubscribe from *
* this list send email to MAJORDOMO@midrange.com and specify *
* 'unsubscribe MIDRANGE-L' in the body of your message. Questions *
* should be directed to the list owner / operator: david@midrange.com *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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.
