Technical data

Managing Storage Media
9.10 Using Command Procedures for Media Setup
3. To execute the SETUP.COM command procedure, enter the following
command:
$ @SETUP
9.10.2 Sample Command Procedure for Setting Up Tape Volumes
The command procedure shown in Example 9–1, which is more complex and
detailed than the previous example, is designed to set up a magnetic tape for
processing. The ALLOCATE and MOUNT/FOREIGN commands are included in
this command procedure. Using a text editor, construct the command procedure
as shown in the example.
Example 9–1 Command Procedure to Set Up Tape Volumes
$ ! First mount the tape on the drive
$ ON CONTROL_Y THEN GOTO EXIT
$ ON ERROR THEN GOTO EXIT
$ WRITE SYS$OUTPUT "Welcome to FETCH."
$ WRITE SYS$OUTPUT " "
$ L1: INQUIRE/NOPUNC PHYS "Have you placed the volume in the drive? "
$ IF .NOT. PHYS THEN GOTO L1
$ INQUIRE/NOPUNC DRIVE "Which drive is the volume mounted on? "
$ DRIVE = DRIVE - ":"
$ ALLOCATE ’DRIVE’
$ MOUNT/FOREIGN ’DRIVE’
$ ON ERROR THEN GOTO COMMAND_LOOP
$!
$ COMMAND_LOOP: INQUIRE/NOPUNC OPTION "FETCH> "
$ IF OPTION .EQS. "DIR" THEN GOTO DIR
$ IF OPTION .EQS. "EXIT" THEN GOTO EXIT
$ IF OPTION .EQS. "FETCH" THEN GOTO FETCH
$ IF OPTION .EQS. "HELP" THEN GOTO HELP
$ IF OPTION .EQS. "LIST" THEN GOTO LIST
$ GOTO COMMAND_LOOP
$!
$ DIR: INQUIRE SPEC "Filespec"
$ DIR ’SPEC’
$ GOTO COMMAND_LOOP
$ HELP:
$ WRITE SYS$OUTPUT "Enter any of the following commands at the prompt:"
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "DIR (To search for a file)"
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "EXIT (To exit this program)"
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "FETCH (To perform a BACKUP RESTORE operation)"
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "HELP (To read this text)"
$ WRITE SYS$OUTPUT " "
$ WRITE SYS$OUTPUT "LIST (To perform a BACKUP LIST operation)"
$ GOTO COMMAND_LOOP
$!
$ FETCH: INQUIRE FILE "Filespec"
$ INQUIRE SAVESET "Save set name"
$ LINE := BACKUP/LOG ’DRIVE’:’SAVESET’/SELECT=’FILE’
$ INQUIRE EXCLUDE "Enter any filespecs you want excluded"
$ IF EXCLUDE .EQS. "" THEN GOTO L2
$ LINE := ’LINE’/EXCLUDE=(’EXCLUDE’)
(continued on next page)
Managing Storage Media 9–61