HP3000-L Archives

April 1998, Week 3

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Newton, Ernie" <[log in to unmask]>
Reply To:
Newton, Ernie
Date:
Thu, 16 Apr 1998 15:19:52 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (89 lines)
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

ATOM RSS1 RSS2