Re: HELP!! DLYJOB command -- MIDRANGE-L


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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *