! ********************** BAKALL.IND ****************************** ! ! THIS CONTROL FILE WILL WORK WITH IND ONLY. It is designed to backup the ! following devices: SY DU1 . BACKUP/DEVICE Is used, so ! Approximately 80,000 blocks or more can be saved on one magnetic tape. ! Use one magnetic tape per device (2 tapes total). For each tape it will ! create a .LOG and a .DIR file. Example: CSG041.LOG, CSG041.DIR. ! ! Use BUPRES or BACKUP/RESTORE to restore either a file or a complete device. ! ! *************** How to customize to your sytem ********************** ! To customize this backup procedure you can make minor changes to the code. ! Look for comments in the code to help you customize this to your ! particular system. It will be worth a few minutes to do this and ! have your backups automated for easier logging and standardization. ! ! Version 1.2 ! ***** Created 1/17/86 by EDWARD L. HENDRICKSON ***** ! ***** Ames Lab, Iowa State University, Ames, Iowa ***** ! ***** Revised 3/31/86 by ELH (Mr. Backup) ***** ! ***** Revised 11/14/86 by ELH (Mr. Backup) ***** ! ************************************************************************ .ENABLE QUIET !.enable trace .DISABLE LOWERCASE SET ERROR NONE DISPLAY DISPLAY This is the CSG backup control file. DISPLAY .ENABLE GLOBAL .SETN INDEX 1 ; Initialize INDEX to 1. Keeps track of the number of backups .LOOP: .IFDF $SEL .GOTO DEVTRY: .ASKN $SEL WHAT BACKUP SET NUMBER IS THIS (1, 2, 3, 4, or 5)? DISPLAY DISPLAY SET NUMBER '$SEL' ... .ASK [] DCHK ARE YOU SURE .IFF DCHK .GOTO LOOP: .DEVTRY: .IFNDF $DEV .GOTO DEVASK: DISPLAY The last backup done on this run was on '$DEV' DISPLAY .DEVASK: .ASKS $DEV SELECT ONE PLEASE (SY, DU1, HELP, QUIT, PRINT) ? DISPLAY ! *************** Customize to your sytem ********************** ! To customize this procedure you will have to change devices to ! devices that you have on your system that you would like ! to back up, i.e. change DU1 to DL1 or add a line for DU2 etc. ! To add a device you will have to add to the code further ! down the line. Example: if you add DL2: then add DL2OK: with ! the appropriate device names ! ************************************************************** .IF $DEV EQ "SY" .GOTO SYOK: .IF $DEV EQ "DU1" .GOTO DU1OK: .IF $DEV EQ "HELP" .GOTO HELP: .IF $DEV EQ "PRINT" .GOTO PRINT: .IF $DEV EQ "QUIT" .EXIT DISPLAY NOT AN ACCEPTABLE DEVICE NAME TRY AGAIN .GOTO DEVASK: .HELP: ! Trace outputs to the screen faster than DISPLAY .DISABLE QUIET .ENABLE TRACE !----------------------------------------------------------------------------! ! If you get this error: ?BUP-F-Directory output error ! ! This probably indicates that you need a write ring in the magnetic tape. ! ! ! ! This control file backs up using BACKUP/DEVICE. At this time single files ! ! cannot be restored, only the entire device. 7/17/86 (you might need BUPRES)! ! ! ! Loading the magnetic tape: 1) Turn on tape drive. 2) Put tape in drive ! ! 3) Close door 4) Push LOAD 5) Push ON-LINE 6) Wait until lights stop ! ! blinking ! ! ! ! Unloading the magnetic tape: 1) Push ON-LINE (to off position) 2) Push ! ! UNLOAD 3) Open door and take out tape 4) Mark tape with backup info ! ! ! ! The magnetic tape will automatically be initialized every time the ! ! BACKUP/DEVICE command is used (every time the control file is used). You ! ! will get an error the first time the tape is used telling you that this ! ! this tape has not been used before for BACKUP. If you are sure this is the ! ! correct tape go ahead and override it on the next command. ! ! ! ! If you are using a new tape you might have to initialize it with BACKUP ! ! first before using the command file. ! ! ! ! Ed Hendrickson 7/17/86 ! !____________________________________________________________________________! .DISABLE TRACE .ENABLE QUIET DISPLAY .GOTO DEVASK: .SYOK: DISPLAY DEVICE IS '$DEV' ... .ASK [] DCHK ARE YOU SURE .IFF DCHK .GOTO DEVASK: .SETS $DEV "DU0" ; SY: = DU0 on our system so I can use DU0 ! *************** Customize to your sytem ********************** ! Each tape is has its own volume label which we mark on the tape ! and as a volume label. You should change these to whatever labels ! that you desire. You might have to do an initial backup manually ! just to get the proper volume name onto the tape. ! *************************************************************** ! These are the correct volume names to backup SY .IF $SEL EQ 1 .SETS VOLN "CSG053" .IF $SEL EQ 2 .SETS VOLN "CSG040" .IF $SEL EQ 3 .SETS VOLN "CSG032" .IF $SEL EQ 4 .SETS VOLN "CSG004" .IF $SEL EQ 5 .SETS VOLN "CSG033" .GOTO START: .DU1OK: DISPLAY DEVICE IS '$DEV' ... .ASK [] DCHK ARE YOU SURE .IFF DCHK .GOTO DEVASK: ! These are the correct volume names to backup DU1 .IF $SEL EQ 1 .SETS VOLN "CSGBIL" .IF $SEL EQ 2 .SETS VOLN "CSG065" .IF $SEL EQ 3 .SETS VOLN "CSG066" .IF $SEL EQ 4 .SETS VOLN "CSG012" .IF $SEL EQ 5 .SETS VOLN "CSG035" .GOTO START: .START: .IF $SEL EQ 1 .SETS NSET "Set1BU" .IF $SEL EQ 2 .SETS NSET "Set2BU" .IF $SEL EQ 3 .SETS NSET "Set3BU" .IF $SEL EQ 4 .SETS NSET "Set4BU" .IF $SEL EQ 5 .SETS NSET "Set5BU" ! One set that we use is designated as a permanent set up to one year ! or more old. DISPLAY .IF $SEL EQ 2 DISPLAY ***** THIS IS THE PERMANENT SET ***** .IF $SEL EQ 2 DISPLAY ***** ***** ***** **** ***** ! Now open a log file and put all of the needed info into the log ! file to be printed out later and put into a backup 3 ring binder. .DISABLE QUIET SET LOG FILE='VOLN'.log ! ***** ***** ***** ***** 'NSET' --- '$DEV' ***** ***** ***** ***** DATE .ENABLE QUIET DISPLAY Please load tape 'VOLN' to back up '$DEV': DISPLAY .DOOVER: .ASKS TEMP Type YES if tape 'VOLN' for 'NSET' is mounted and online .IF TEMP NE "YES" .GOTO DOOVER: DIR/BACKUP MS: .AGAIN: DISPLAY 'VOLN'.'$DEV' DISPLAY .ASKS TEMP Type YES if the FILENAME''S match .IF TEMP NE "YES" .GOTO AGAIN: .VOL TEVOLN MS: .SETS TEVOLN TEVOLN[1.:4.] ! the complete volume default is RT11A .IF TEVOLN EQ "RT11" .GOTO VOLOK: DISPLAY ******* ERROR ****** DISPLAY THIS IS THE WRONG TAPE, OR... DISPLAY IT HAS NOT BEEN USED FOR BACKUP BEFORE. DISPLAY PLEASE RECHECK SET NUMBER OR MOUNT 'VOLN' DISPLAY .ASKS TEMP THIS TAPE SHOULD BE 'VOLN', ARE YOU SURE THIS IS THE RIGHT TAPE! .IF TEMP NE "YES" .GOTO DOOVER: .VOLOK: ALLOCATE MS: DISPLAY DISPLAY The device has just been allocated. SEND,all Backup has just been started for '$DEV'. SEND,all Please try to minimize file changes on '$DEV' until backup is done. .DISABLE QUIET DIR/ALPHA/BLOCK/VOLUME/COL:4/OUT:'VOLN'.DIR '$DEV': .ENABLE QUIET DISPLAY DISPLAY If tape 'VOLN' is on MS: then answer Y to the following... DISPLAY .DISABLE QUIET Time BACKUP/DEVICE '$DEV': MS:'VOLN'.'$DEV' Time .ENABLE QUIET .OPEN WF:ONLINE.TMP .DATA DIR/BACKUP MS: ! This will rewind the tape and give you a backup dir .DATA TYPE 'VOLN'.DIR ! This will put a copy of the directory into the log .CLOSE $@WF:ONLINE.TMP SEND,all Backup has just been completed for '$DEV'. .DISABLE QUIET ! ! ***** ***** ***** ***** END OF 'VOLN'.LOG ***** ***** ***** ***** SET LOG CLOSE .ENABLE QUIET DEALLOCATE MS: SET ERROR SEVERE SET TT QUIET ! Now go back up to the top and ask again to back up another .INC INDEX .IF INDEX = 3 .GOTO PRINT: .GOTO LOOP: .PRINT: DELETE/NOQUERY WF:ONLINE.TMP .ASK [] DCHK Do you want to print ALL of the LOG files .IFT DCHK .GOTO PRALL: .ASK [] DCHK Do you want to print the TAPERF.DOC file. .IFF DCHK .GOTO PRONE: LPRINT TAPERF.DOC .PRONE: .ASK [] DCHK Do you want to print just the LAST LOG file - 'VOLN'.LOG. .IFF DCHK .EXIT LAND 'VOLN'.LOG .EXIT ! This next section of the control file will print all LOG files. .PRALL: !.ENABLE QUIET ! There is a file called TAPERF.DOC that you should update ! every time you do a backup, then print out and keep with ! your backup record book. .ASK [] DCHK Do you want to print the TAPERF.DOC file. .IFF DCHK .GOTO PRTWO: DISPLAY NOW PRINTING TAPERF.DOC LPRINT TAPERF.DOC .PRTWO: .IFDF $SEL .GOTO SKIP: .LOOP: .ASKN $SEL WHAT BACKUP SET NUMBER IS THIS (1, 2, 3, 4, or 5)? DISPLAY DISPLAY SET NUMBER '$SEL' ... .ASK [] DCHK ARE YOU SURE .IFF DCHK .GOTO LOOP: .SKIP: ! *************** Customize to your sytem ********************** ! If you changed the volume names at the first part of this IND file ! then you will have to change this volume names in this section to ! do automatic printing of your log files. ! ************************************************************** DISPLAY .IF $SEL EQ 1 .SETS VOLN "CSG053" .IF $SEL EQ 2 .SETS VOLN "CSG040" .IF $SEL EQ 3 .SETS VOLN "CSG032" .IF $SEL EQ 4 .SETS VOLN "CSG004" .IF $SEL EQ 5 .SETS VOLN "CSG033" DISPLAY NOW PRINTING 'VOLN'.LOG (SY:) ! we have a local UCL command called LAND to print in Landscape mode ! on a laser printer. Which fits better into a 3 ring binder LAND 'VOLN'.LOG DISPLAY .IF $SEL EQ 1 .SETS VOLN "CSGBIL" .IF $SEL EQ 2 .SETS VOLN "CSG065" .IF $SEL EQ 3 .SETS VOLN "CSG066" .IF $SEL EQ 4 .SETS VOLN "CSG012" .IF $SEL EQ 5 .SETS VOLN "CSG035" DISPLAY NOW PRINTING 'VOLN'.LOG (DU1:) ! we have a local UCL command called LAND to print in Landscape mode ! on a laser printer. Which fits better into a 3 ring binder LAND 'VOLN'.LOG DISPLAY DISPLAY ** DONE PRINTING ALL BACK UP LOG FILES ** DISPLAY DISPLAY ***** REMEMBER TO UPDATE SY:NEWS.TSX ***** DISPLAY .EXIT