Technical data

Managing Storage Media
9.10 Using Command Procedures for Media Setup
Example 9–1 (Cont.) Command Procedure to Set Up Tape Volumes
$!
$ L2: INQUIRE/NOPUNC TO "Where do you want the file(s)? (
RET
for current directory)"
$ IF TO .EQS. "" THEN GOTO REPLACE
$ LINE := ’LINE’’TO’
$ GOTO L3
$ REPLACE: LINE := ’LINE’ []
$!
$ L3: INQUIRE/NOPUNC NEW "Create a new version if file already exists? "
$ IF .NOT. NEW THEN GOTO NOT
$ LINE := ’LINE’/NEW_VERSION
$!
$ NOT: LINE := ’LINE’/OWNER_UIC=ORIGINAL
$ LINE
$ GOTO COMMAND_LOOP
$!
$ LIST: INQUIRE SPEC "Filespec"
$ INQUIRE SAVESET "Save set name"
$ INQUIRE/NOPUNC OUTPUT "What do you want to call the list file? (
RET
for SYS$OUTPUT )"
$ IF OUTPUT .EQS. "" THEN GOTO NOOUT
$ LINE := BACKUP/LIST=’OUTPUT’’DRIVE’:’SAVESET’/SELECT=(’SPEC’)
$ GOTO L4
$ NOOUT: LINE := BACKUP/LIST ’DRIVE’:’SAVESET’/SELECT=(’SPEC’)
$!
$ L4: INQUIRE EXCLUDE "Enter any filespecs you want excluded"
$ IF EXCLUDE .EQS. "" THEN GOT L5
$ LINE := ’LINE’/EXCLUDE=(’EXCLUDE’)
$!
$ L5: LINE
$ GOTO COMMAND_LOOP
$!
$ EXIT:
$ DISMOUNT ’DRIVE’
$ DEALLOCATE ’DRIVE’
Assuming this command procedure is in a file named FETCH.COM, execute the
command procedure by entering the following command:
$ @FETCH
In addition to allocating and mounting functions, as in the previous example,
FETCH.COM prompts you for input. For example, it specifically asks you if
the tape is on the drive. Also note that FETCH.COM does a BACKUP restore
operation. It prompts you for specific options on the restore operation. Finally,
FETCH.COM explicitly dismounts your magnetic tape volume and deallocates the
drive after your task completes.
9.11 Managing Disk Space
Disk space available for files is finite. You share responsibility with your users
for making the best use of disk space.
The following sections explain disk quotas and describe some methods you can
use to conserve and monitor disk space:
Method Section
Establish disk quotas Section 9.11.2
9–62 Managing Storage Media