PDP-10 Archive: tools/comten1/tmount.com from tops20tools_v6_9-jan-86

Trailing-Edge - PDP-10 Archives - tops20tools_v6_9-jan-86_dumper - tools/comten1/tmount.com
There are 5 other files named tmount.com in the archive. Click here to see a list.
$	verify = F$VERIFY("NO")
$! TMOUNT.COM - A procedure to ALLOCATE and MOUNT a tape drive.
$! -- From the Research VAX. Modified: Jul-82/RT, 13-Aug-82/SLP
$!	Last edit: 11-Jan-83/SLP
$!
$! Format:	(HELP TMOUNT for more info)
$!
$! @TMOUNT [vol_label [format [write_status [density]]]]
$!
$! where the four parameters are optional. If you don't specify them,
$! you are prompted to provide them. (Also prompted if you give an
$! invalid parameter). All parameters, except vol_label and density,
$! can be abbreviated to a single letter.
$!
$    vol_label = P1
$!	Volume label (reelid) - not validated, except to be sure you
$!	give one, and that it is 1-6 characters long.
$!
$!	You may include optional optional comments along with the
$!	volume label.  Add a "/" and the comment to the volume label.
$!	If the comment includes spaces, enclose the entire parameter in
$!	quotation marks.
$!
$    format = P2
$!	The type of tape you have. ANSI, FOREIGN, or DEC-10_BACKUP
$!	A, F, and D are valid abbreviations.
$!	A = ANSI (standard VAX tape with ANSI labels)
$!	F = FOREIGN (tape is mounted /FOREIGN)
$!	D = DEC-10 BACKUP tape.
$!
$!	A and F tapes are assigned a logical name of "TAPE".
$!	D tapes are assigned a logical name of "DUMPER". For D tapes,
$!	write_status is set to write locked and density is set to 800 BPI.
$!
$    write_status = P3
$!	Is the tape to be mounted WRITE ENABLED?
$!	Valid choices are YES and WRITE (Y or W) for write enable,
$!	NO and NOWRITE (N) for write-lock.
$!
$    density = P4
$!	BPI recording density. Valid choices are 800, 1600, and 6250.
$!	Only required for write-enabled tapes.
$!	800  =  800 BPI
$!	1600 = 1600 BPI
$!	6250 = 6250 BPI
$!
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT -
	   "TMOUNT procedure - allocates a tape drive and mounts a tape on it."
$	WRITE SYS$OUTPUT " "
$!********************* Is a tape drive available? *********************
$ top:
$	IF F$LOGICAL("sys$mag1") .NES. "" THEN -
 	  DEASSIGN sys$mag1
$	WRITE SYS$OUTPUT "$ ALLOCATE mt"
$	ON WARNING THEN GOTO nodrives
$	ALLOCATE mt sys$mag1
$	SET NOON			!cancel trap
$	ON CONTROL_Y THEN GOTO abend
$	tape_drive = F$LOGICAL("sys$mag1")
$	DEASSIGN sys$mag1	! Don't need this logical name anymore
$!
$!********************* Get volume label *******************************
$ get_vol_label:
$	IF vol_label .NES. "" THEN GOTO get_vol_label_1a
$	WRITE SYS$OUTPUT " "
$ get_vol_label_1:
$	INQUIRE/NOPUNCTUATION vol_label -
           "What is the volume label (reel id) of the tape to mount? "
$ get_vol_label_1a:
$	! Separate volume label and mount qualifiers.
$	i = F$LOCATE("/", vol_label)
$	mount_qualifiers = F$EXTRACT(i+1, F$LENGTH(vol_label)-i-1, vol_label)
$	vol_label = F$EXTRACT(0, i, vol_label)
$
$	IF vol_label .EQS. "" THEN GOTO get_vol_label_1
$	IF F$LENGTH(vol_label) .LE. 6 THEN GOTO get_vol_label_2
$	WRITE SYS$OUTPUT "%The volume label must not exceed 6 characters!"
$	GOTO get_vol_label_1
$ get_vol_label_2:
$	IF F$LOCATE(" ",vol_label) .EQ. F$LENGTH(vol_label) THEN GOTO get_format
$	WRITE SYS$OUTPUT -
	"%The volume label must not contain an embedded space or tab!"
$	GOTO get_vol_label_1
$!
$!********************* Get tape format ********************************
$ get_format:
$	IF format .NES. "" THEN GOTO get_format_2
$ get_format_1:
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT -
	   "Are you mounting an ANSI (VAX), FOREIGN (unlabelled),"
$	INQUIRE format "or DEC-10 BACKUP format tape? (A, F, D) [A]"
$	IF format .EQS. "" THEN format = "A"
$ get_format_2:
$	IF F$LENGTH(format) .GT. 1 THEN format = F$EXTRACT(0,1,format)
$	IF (format .NES. "A") .AND. (format .NES. "F") .AND. -
	   (format .NES. "D") THEN -
	   GOTO get_format_1
$	IF format .NES. "D" THEN GOTO get_write_status
$	write_status = "LOCKED"		! We know the rest for
$	density = 800			! for BACKUP tapes
$	init = "N"
$	GOTO mount
$!
$!********************* Get write status *******************************
$ get_write_status:
$	IF write_status .NES. "" THEN GOTO get_write_status_2
$	WRITE SYS$OUTPUT " "
$ get_write_status_1:
$	INQUIRE write_status -
           "Do you want your tape WRITE ENABLED? (Y/W, N) [N]"
	IF write_status .EQS. "" THEN write_status = "N"
$ get_write_status_2:
$	IF F$LENGTH(write_status) .GT. 1 THEN -
	   write_status = F$EXTRACT(0,1,write_status)
$	IF (write_status .NES. "Y") .AND. (write_status .NES. "N") .AND. -
	   (write_status .NES. "W") THEN -
           GOTO get_write_status_1
$	IF write_status .EQS. "Y" THEN write_status = "ENABLED"
$	IF write_status .EQS. "W" THEN write_status = "ENABLED"
$	IF write_status .EQS. "N" THEN write_status = "LOCKED"
$!
$!********************* Get tape density *******************************
$ get_density:
$	IF density .NES. "" THEN GOTO get_density_2
$	IF write_status .EQS. "LOCKED" THEN GOTO get_density_exit
$	WRITE SYS$OUTPUT " "
$ get_density_1:
$	INQUIRE density "Your tape's BPI density (800, 1600, 6250) [1600]"
$	IF density .EQS. "" THEN density = 1600
$ get_density_2:
$	IF (density .NE. 800) .AND. (density .NE. 1600) .AND. -
           (density .NE. 6250) THEN -
           GOTO get_density_1
$ get_density_exit:
$!
$!********************* Initialize the tape? ***************************
$ initialize_check:
$	init = "N"
$	IF (write_status .EQS. "LOCKED") .OR. (format .NES. "A") THEN -
	   GOTO mount
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT -
	   "Does this tape need to be initialized? (probably not!)"
$	WRITE SYS$OUTPUT -
	   "In general, you only need to initialize a tape if it's blank."
$ initialize_check1:
$	INQUIRE init "Initialize? (Y, N) [N]"
$	IF init .EQS. "" THEN init = "N"
$	IF F$LENGTH(init) .GT. 1 THEN init = F$EXTRACT(0,1,init)
$	IF init .EQS. "N" THEN GOTO mount
$	IF init .NES. "Y" THEN GOTO initialize_check1
$	WRITE SYS$OUTPUT -
	   "WARNING: Initialization will effectively ERASE your tape!"
$ initialize_check2:
$	INQUIRE init -
	   "Confirm: Do you REALLY want this tape initialized? (Y, N) [N]"
$	IF F$LENGTH(init) .GT. 1 THEN init = F$EXTRACT(0,1,init)
$ initialize_check3:
$	IF init .EQS. "" THEN init = "N"
$	IF init .EQS. "N" THEN GOTO mount
$	IF init .NES. "Y" THEN GOTO initialize_check2
$!
$! Can't initialize at 800 BPI.
$!	IF (density .NE. 800) THEN GOTO okay_to_initialize
$!	WRITE SYS$OUTPUT " "
$!	WRITE SYS$OUTPUT "%Sorry, but due to hardware restrictions, you cannot"
$!	WRITE SYS$OUTPUT " initialize your tape to 800 BPI on this tape drive."
$!	WRITE SYS$OUTPUT " Please choose either 1600 or 6250 BPI.
$!	WRITE SYS$OUTPUT " "
$!	GOTO get_density_1
$! okay_to_initialize:
$!
$! Easy way to initialize the tape is to mount it /FOREIGN (since MOUNT
$! automatically cancels the operator request when the tape is mounted,
$! REQUEST/REPLY requires operator response).  Of course, this means the tape
$! is mounted when we don't want it to be, so we just DISMOUNT/NOUNLOAD.
$	orig_format = format
$	format = "F"
$	WRITE SYS$OUTPUT "*************************************************"
$	WRITE SYS$OUTPUT "*  Notice:  your tape will be mounted twice.    *"
$	WRITE SYS$OUTPUT "*  Don't let this confuse (or alarm) you!       *"
$	WRITE SYS$OUTPUT "*  The first mount is to initialize your tape.  *"
$	WRITE SYS$OUTPUT "*  The second mount is to ready it for use.     *"
$	WRITE SYS$OUTPUT "*************************************************"
$!
$!********************* Logical tape mount *****************************
$ mount:
$	command = "MOUNT"
$	IF density .NE. 0 THEN command = command + "/DENSITY=''density'"
$!	IF write_status .EQS. "LOCKED" THEN command = command + "/NOWRITE"
$	IF format .NES. "A" THEN command = command + "/FOREIGN"
$	command = command + " ''tape_drive' ''vol_label' "
$	IF format .NES. "D" THEN command = command + "TAPE"
$	IF format .EQS. "D" THEN command = command + "DUMPER"
$	command = command + "/COMMENT=""WRITE-''write_status'"
$!	IF density .NE. 0 THEN command = command + " at ''density' BPI"
$	IF F$LENGTH(mount_qualifiers) .GT. 0 THEN -
	   command = command + ".  " + mount_qualifiers
$	command = command + """"
$!	command = command + "for user ''F$GETJPI("","USERNAME")'"""
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "$ ", command
$	ON CONTROL_Y THEN GOTO abend
$	ON WARNING THEN GOTO oper_aborted
$!	REQUEST/TO=TAPES "%Please insure ''tape_drive' in unloaded and off-line"
$	'command'
$	SET NOON			!Cancel traps
$	ON CONTROL_Y THEN GOTO mount_abort
$!
$!********************* Did operator mount the tape right? *************
$ check_write_status:
$!
$!	By default, the tape has been mounted software write enabled
$!	(/WRITE). After the mount, the software write status will
$!	reflect the hardware write status (ie, whether there is a write
$!	ring in the tape or not). So we compare the software write status
$!	with the requested write_status to see if the tape was mounted
$!	correctly (with reguard to write-enabled/locked status).
$!
$	IF F$GETDVI(tape_drive,"SWL") THEN GOTO write_lock_check
$!write_enable_check:
$	IF write_status .EQS. "ENABLED" THEN GOTO initialize_check4
$	GOTO incorrectly_mounted
$ write_lock_check:
$	IF write_status .EQS. "LOCKED" THEN GOTO initialize_check4
$ incorrectly_mounted:
$	command = "REQUEST/TO=TAPES "">>>>> Tape ''vol_label' on " + -
	   "''tape_drive' is supposed to be /WRITE-''write_status'!!"
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "$ ", command
$	'command'
$	command = "DISMOUNT ''tape_drive'"
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "$ ", command
$	'command'
$	GOTO mount
$!
$!********************* Need to dismount/initialize/remount? *********
$ initialize_check4:
$	IF init .EQS. "N" THEN GOTO complimentary_message
$	WRITE SYS$OUTPUT " "
$	command = "DISMOUNT/NOUNLOAD ''tape_drive'"
$	WRITE SYS$OUTPUT "$ ", command
$	'command'
$	command = "INITIALIZE/DENSITY=''density' ''tape_drive' ''vol_label'"
$	WRITE SYS$OUTPUT "$ ", command
$	'command'
$	format = orig_format
$	init = "N"
$	GOTO mount
$!
$!********************* Complimentary Message ************************
$ complimentary_message:
$	!
$	! First double check the volume name (useful when ANSI mounted FOREIGN)
$	!
$	vol_name = F$GETDVI(tape_drive,"VOLNAM")
$	IF vol_name .EQS. "" THEN GOTO messages_2
$	IF vol_name .EQS. vol_label THEN GOTO messages_2
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "%WARNING - The ACTUAL volume label on this tape is '",-
	vol_name, "'"
$ messages_2:
$	WRITE SYS$OUTPUT " "
$	GOTO format'format'
$ formatA:
$	WRITE SYS$OUTPUT -
        "You may use the COPY command to transfer files between this VAX format"
$	GOTO end_msg
$ formatF:
$	WRITE SYS$OUTPUT -
	"You may use the TAPE2DISK utility to transfer files between this foreign-label"
$ end_msg:
$	WRITE SYS$OUTPUT "tape and your disk area."
	GOTO end
$ formatD:
$	WRITE SYS$OUTPUT -
	"You may use the DUMPER utility to transfer files on this DEC-10 BACKUP"
$	WRITE SYS$OUTPUT "tape to your disk area."
$ end:
$ 	WRITE SYS$OUTPUT " "
$ 	WRITE SYS$OUTPUT "When you finish using your tape,"
$ 	WRITE SYS$OUTPUT "please type the TDISMOUNT command to dismount it."
$	GOTO exit
$!
$!********************* Error Handling *******************************
$ nodrives:
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "%All tape drives are in use.  Please try again later."
$	IF F$MODE() .EQS. "INTERACTIVE" THEN GOTO exit
$	WAIT 00:10
$	GOTO top
$ mount_abort:
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "%TMOUNT aborted after mounting your tape, dismounting it..."
$	WRITE SYS$OUTPUT "$ DISMOUNT ''tape_drive'"
$	DISMOUNT 'tape_drive'
$	GOTO abend
$ oper_aborted:
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "%Tape mount request could not be completed."
$ abend:
$	WRITE SYS$OUTPUT " "
$	WRITE SYS$OUTPUT "%TMOUNT aborted.  Deallocating your tape drive..."
$	WRITE SYS$OUTPUT "$ DEALLOCATE ''tape_drive'"
$	DEALLOCATE 'tape_drive'
$!
$!********************* Exit *******************************************
$ exit:
$	WRITE SYS$OUTPUT " "
$	IF verify THEN SET VERIFY
$	EXIT