$       SET NOON
$       SET PROCESS/NAME=BCK$INCRE
$       SEVERE_ERROR = "FALSE"
$       DATE = F$CVTIME("","COMPARISON","DAY") + F$CVTIME("","ABSOLUTE","MONTH")
$       LABEL = "D''DATE'"
$       TAPE_DRIVE = "$1$MKA500"
$       THISNODE = F$GETSYI("NODENAME")
$       HEADER_MSG = "Message from BCK$INCRE on ''THISNODE'"
$       WEEKDAY = F$EDIT(F$CVTIME("",,"WEEKDAY"),"UPCASE")
$!
$!------Initialize tape on Wednesday after midnight
$!
$       IF WEEKDAY .EQS. "WEDNESDAY"
$       THEN INIT_TAPE = "TRUE"
$       ELSE INIT_TAPE = "FALSE"
$       ENDIF
$!
$!------Dismount tape after Tuesday backup
$!
$       IF WEEKDAY .EQS. "TUESDAY"
$       THEN UNLOAD_TAPE = "TRUE"
$       ELSE UNLOAD_TAPE = "FALSE"
$       ENDIF
$!
$!------Start RDB database backup
$!
$!!!    @SITE$BACKUP:RDB$BACKUP.COM
$!
$!------Allocate tape drive.
$!
$       SET ON
$       ON SEVERE_ERROR THEN GOTO L$ALLOCATE_ERROR
$       ALLOCATE 'TAPE_DRIVE'
$!
$!------Mount the tape drive.
$!
$       ON SEVERE_ERROR THEN GOTO L$MOUNT_ERROR
$       MOUNT/FOREIGN/NOASSIST/MEDIA_FORMAT=COMPACTION 'TAPE_DRIVE'
$       SET NOON
$!
$!------Check the tape label
$!
$       LABEL_ON_TAPE = F$GETDVI(TAPE_DRIVE,"VOLNAM")
$       LEADING_CHAR = F$EXTRACT(0,1,LABEL_ON_TAPE)
$       IF LEADING_CHAR .NES. "D" THEN GOTO L$WRONG_TAPE
$       IF LABEL_ON_TAPE .EQS. "DEMPTY" THEN INIT_TAPE = "TRUE"
$       DISMOUNT/NOUNLOAD 'TAPE_DRIVE'
$!
$!------Initialize and mount the tape cartridge.
$!
$       SET ON
$       ON SEVERE_ERROR THEN GOTO L$INIT_ERROR
$       IF INIT_TAPE THEN -
           INITIALIZE/MEDIA_FORMAT=COMPACTION 'TAPE_DRIVE' 'LABEL'
$!
$       ON SEVERE_ERROR THEN GOTO L$MOUNT_ERROR
$       MOUNT   /FOREIGN -
                /NOASSIST -
                /CACHE=TAPE_DATA -
                /MEDIA_FORMAT=COMPACTION -
                'TAPE_DRIVE'
$       SET NOON
$!
$!------Incremental backup of disk SYS00:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-S00 -
                DISK$SYS00:[*...] -
                'TAPE_DRIVE':'LABEL'-S00.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk SYS01:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-S01 -
                DISK$SYS01:[*...] -
                'TAPE_DRIVE':'LABEL'-S01.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk SYS02:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-S02 -
                DISK$SYS02:[*...] -
                'TAPE_DRIVE':'LABEL'-S02.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk USER00:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U00 -
                DISK$USER00:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U00.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk USER01:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U01 -
                DISK$USER01:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U01.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk USER02:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U02 -
                DISK$USER02:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U02.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk USER03:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U03 -
                DISK$USER03:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U03.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk USER04:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U04 -
                DISK$USER04:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U04.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!------Incremental backup of disk USER05:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U05 -
                DISK$USER05:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U05.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!
$!------Incremental backup of disk USER06:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U06 -
                DISK$USER06:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U06.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!
$!------Incremental backup of disk USER07:
$!
$       BACKUP  /NOASSIST -
                /NOCRC -
                /NOREWIND -
                /MEDIA_FORMAT=COMPACTION -
                /SINCE=BACKUP -
                /IGNORE=(INTERLOCK,LABEL_PROCESSING) -
                /BLOCK=40960 -
                /GROUP=0 -
                /RECORD -
                /JOURNAL=BACKUP$BJL:'LABEL'-U07 -
                DISK$USER07:[*...] -
                /EXCLUDE=([*...]*.RDB,*.SNP,*.AIJ,*.RDA) -
                'TAPE_DRIVE':'LABEL'-U07.BCK
$       IF $SEVERITY .EQ. 4 THEN SEVERE_ERROR = "TRUE"
$!
$!
$       IF SEVERE_ERROR THEN GOTO L$SEVERE_ERROR
$       TMPSTR = "BCK$INCRE on ''THISNODE' successfully completed."
$       MAIL/SUBJECT="''TMPSTR'" NL: BCK_MANAGERS
$!
$ L$END:
$       IF F$GETDVI(TAPE_DRIVE,"MNT")
$       THEN IF UNLOAD_TAPE
$            THEN DISMOUNT 'TAPE_DRIVE'
$            ELSE DISMOUNT/NOUNLOAD 'TAPE_DRIVE'
$            ENDIF
$       ENDIF
$       IF F$GETDVI(TAPE_DRIVE,"ALL") THEN DEALLOCATE 'TAPE_DRIVE'
$       PURGE/LOG/NOCONFIRM/KEEP=10 SITE$LOGFILES:BCK$INCRE.LOG
$       EXIT
$!
$!
$ L$ALLOCATE_ERROR:
$       MAIL/SUBJECT="''HEADER_MSG'" SYS$INPUT: BCK_MANAGERS

        Error allocating tape cartridge!
        Check logfile, SITE$LOGFILES:BCK$INCRE.LOG

$       REQUEST "Error allocating tape cartridge - check logfile"
$       GOTO L$END
$!
$ L$INIT_ERROR:
$       MAIL/SUBJECT="''HEADER_MSG'" SYS$INPUT: BCK_MANAGERS

        Error initializing tape cartridge!
        Check logfile, SITE$LOGFILES:BCK$INCRE.LOG

$       REQUEST "Error initializing tape cartridge - check logfile"
$       GOTO L$END
$!
$ L$MOUNT_ERROR:
$       MAIL/SUBJECT="''HEADER_MSG'" SYS$INPUT: BCK_MANAGERS

        Error mounting tape cartridge!
        Check logfile, SITE$LOGFILES:BCK$INCRE.LOG