.ENABLE QUIET
.ENABLE SUBSTITUTION
.ENABLE GLOBAL
PAGE
.WAIT SYS
.WAIT TCF
.SETF DIE
.SETS $UIC <UIC>
.SETS $SYDSK <SYDISK>
.SETN $UNIT <SYUNIT>
.SETF DIE
SET /UIC=[1,7]
.SETN VERSN 99.
.SETN NVERSN 99.
.SETF NEW
.SETS DK0 "DK0"
.SETS DK1 "DK1"
.SETS DK2 "DK2"
.SETS DK3 "DK3"
.SETS DK4 "DK4"
.SETS DK5 "DK5"
.SETS CR ""
.5:.ASKS DSK ENTER THE DISK DRIVE WITH THE FILES TO BE BACKED UP(DDU)
.SETS $D DSK[1:3]
.IF $D EQ DK0 .GOTO 7
.IF $D EQ DK1 .GOTO 7
.IF $D EQ DK2 .GOTO 7
.IF $D EQ DK3 .GOTO 7
.IF $D EQ DK4 .GOTO 7
.IF $D EQ DK5 .GOTO 7
.GOTO 5
.7:
.ASKS $DNAME WHAT IS THE NAME OF THE DISK
.ASKS $NAME ENTER THE NAME OF THE TSR MAG TAPE
.ASK NEW START A NEW TSR TAPE
.IFT NEW .SETN VERSN 1.
ALL MM0:
.IF <EXSTAT> NE 1 .SETT DIE
.IFT DIE .DISABLE QUIET
.IFT DIE ; MAG TAPE ALREADY ALLOCATED TO ANOTHER USER -- EXITING
.IFT DIE .EXIT
.IFT NEW PIP DK1:'$NAME'.TSR;*/DE/NM
.IFF NEW PIP TI:=DK1:'$NAME'.TSR
.IFF NEW .IF <EXSTAT> NE 1 .SETT DIE
.IFT DIE .DISABLE QUIET
.IFT DIE ; NO RECORD EXISTS OF THE MAGTAPE REQUESTED.
.IFT DIE ; PERCHANCE, YOU IMPUT THE WRONG TAPE, -- EXITING.
.IFT DIE .EXIT
.10:.ASKS $DATE WHAT IS THE DATE TO BACKUP AFTER(DD-MMM-YY)
.8:.SETS $TDATE <DATE>
.TEST $DATE
.IF <STRLEN> EQ 0. .GOTO 20
.IF <STRLEN> LT 9. ;>>ERROR  DATE STRING TOO SHORT. CORRECT FORMAT  01-JUN-78
.IF <STRLEN> LT 9. .GOTO 10
.IFF NEW .ASKN[1.:99.] NVERSN WHAT IS THE NEXT VERSION NUMBER
.IFT NEW .SETN NVERSN 1.
.20:
.DISABLE SUBSTITUTION
.SETS MSG "'INCREMENTAL BACKUP OF "+$D+":"+$DNAME+"'"
.ENABLE SUBSTITUTION
.OPEN DK1:TSRBKP.CMD;1
.DATA /LIST:1/PRT:DK1:LP.LST;1
.DATA /DEN:800,MM0:/VOL:'$NAME'/VN:'VERSN'
.DATA /VM:'MSG'=
.DATA '$D':/VOL:'$DNAME'/HFNA:80/DATE:'$DATE'//
.CLOSE
INS DK5:[1,53]TSR
ERF
.WAIT ...ERF
.SETS STTIM <TIME>
TSR @DK1:TSRBKP.CMD
.SETS STPTIM <TIME>
.XQT RUN ERRLOG
REM TSR
.SETF FILEIS
.SETS FILNAM "DK1:"+$NAME+".TSR"
.IFEXI 'FILNAM' .SETT FILEIS
.IFF FILEIS .OPEN 'FILNAM'
.IFT FILEIS .OPENA 'FILNAM'
.IFT NEW .DATA TAPE      DISK    VERSN    BACKUP RANGE   (START, STOP TIME)
.DATA '$NAME'  '$D':'$DNAME'  'NVERSN'    '$DATE' - '$TDATE' ('STTIM' - 'STPTIM')
.CLOSE
PIP DK1:'$NAME'.TSR/TR
PIP DK1:LP.LST/SP
PIP DK1:TSRBKP.CMD;*/DE
.500:DEA MM0:
SET /UIC='$UIC'
ASN  '$SYDSK''$UNIT':=SY: