Chris Michael wrote:
> I have two remote sites where we've set up backups to run as jobs
> automatically--all the people there have to do is remember to put in
> a tape. Unfortunately, when they forget...
 
We have a similar situation. What we try to do is prevent the problem of
not having a tape loaded from occurring. Upon completion, our backup job
automatically streams the following job to launch 1/2 hour before the
office closes on the next business day. The job takes advantage of the
fact that if a DDS tape is loaded and online in the one and only
configured tape drive, the string "(nolabel)" will appear in the display
from SHOWDEV TAPE. If that string does not occur, the job notifies the
operator, and in our case another user who is almost always guaranteed
to be logged on, that a tape may not be loaded. It then streams itself
to launch again in five minutes and re-examine the situation. We've been
doing this for several years and have never had a backup fail because no
tape was loaded - the job has saved us from failed backups on numerous
occasions.
 
!JOB DDSWARN,MANAGER.SYS;HIPRI
!FILE TAPEDEV;MSG
!SHOWDEV TAPE > *TAPEDEV
!SETVAR MOUNTED,0
!WHILE (FINFO('TAPEDEV','EOF')) > 0 DO
!  INPUT MYVAR < TAPEDEV
!  IF POS('(Nolabel)',MYVAR) > 0
!    SETVAR MOUNTED,1
!  ENDIF
!ENDWHILE
!IF MOUNTED = 0
!  TELL user.acct;****************************************************
!  TELL user.acct;PLEASE MAKE SURE THE BACKUP DDS TAPE IS LOADED
!  TELL user.acct;****************************************************
!  TELLOP **********************************************************
!  TELLOP PLEASE MAKE SURE THE BACKUP DDS TAPE IS LOADED
!  TELLOP **********************************************************
!  STREAM DDSWARN.group.acct;IN=,,5
!ENDIF
!SET STDLIST=DELETE
!EOJ
 
John Burke
[log in to unmask]