Phil asks...
> Does anyone have a way to have the backup job, using Store, abort
> itself if 5am rolls around and it is still running? Or some other
> solution? I also put a call into HP Pics today and they are
> researching for a solution, so let's see if you can find one first?
>
>
Hi Phil, our IS department uses the following job.
NIGHTJOB does the backup...
NIGHTCHK checks the backup...
NIGHTFIX resets the limits and streams appropriate jobs.
It's kind of cumbersome, but it works...
!JOB NIGHTCHK,OPERATOR.SYS;HIPRI;PRI=CS;OUTCLASS=LP,2,1
!
!
!COMMENT NIGHTCHK is streamed by NIGHTJOB.
!COMMENT NIGHTCHK will abort NIGHTJOB if it is still
!COMMENT executing after six hours and stream NIGHTFIX.
!
!COMMENT NIGHTJOB uses XEQ file NIGHTMSG to display Informational,
!COMMENT Warning, and Error messages on the $STDLIST.
!
!COMMENT 04/14/95 GAJ Initial coding.
!
!
!
!
!SETVAR ARRAY 0
!SETVAR BYTE 0
!
!PURGE NIGHTSHO,TEMP
!SHOWJOB JOB=NIGHTJOB,OPERATOR.SYS > NIGHTSHO
!RUN QEDIT.PUB.ROBELLE
T NIGHTSHO
DQ "NIGHTJOB" (45/72 NOMATCH)
SETJCW QEDITCOUNT 0
CQ "NIGHTJOB"NIGHTJOB" ALL
IF QEDITCOUNT = 1
SETJCW QEDITCOUNT 0
CQ "SCHED"SCHED" ALL
IF QEDITCOUNT = 1
SETVAR MESSAGE 201
XEQ NIGHTMSG.OPJCL.SYS
ELSE
SETJCW QEDITCOUNT 0
CQ "EXEC"EXEC" ALL
IF QEDITCOUNT = 1
SETVAR MESSAGE 202
XEQ NIGHTMSG.OPJCL.SYS
CQ 9/80 "" *
CQ 1 "ABORTJOB " *
USE *
STREAM NIGHTFIX.OPJCL.SYS;IN=0,0,5
ELSE
SETVAR MESSAGE 203
XEQ NIGHTMSG.OPJCL.SYS
CQ 9/80 "" *
CQ 1 "ABORTJOB " *
USE *
STREAM NIGHTFIX.OPJCL.SYS;IN=0,0,5
ENDIF
ENDIF
ELSE
IF QEDITCOUNT < 1
SETVAR MESSAGE 204
XEQ NIGHTMSG.OPJCL.SYS
STREAM NIGHTFIX.OPJCL.SYS;IN=0,0,5
ELSE
SETVAR MESSAGE 205
XEQ NIGHTMSG.OPJCL.SYS
CQ 9/80 "" ALL
CQ 1 "ABORTJOB " ALL
USE *
STREAM NIGHTFIX.OPJCL.SYS;IN=0,0,5
ENDIF
ENDIF
DES *
EXIT
!
!
!
!
!EOJ
|