| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 1976.1 | | CRONIC::LEMONS | And we thank you for your support. | Fri May 10 1996 11:45 | 7 |
| 1976.2 | | CRONIC::LEMONS | And we thank you for your support. | Wed May 15 1996 13:37 | 10 |
| 1976.3 | red in MDMS V2.7 release notes | PRSSOS::FONDI | | Fri May 17 1996 10:36 | 18 |
| 1976.4 | Hmm.. | NETRIX::"[email protected]" | Terry Lemons | Fri May 17 1996 11:31 | 10 |
| 1976.5 | | NETRIX::"[email protected]" | Terry Lemons | Fri May 17 1996 12:37 | 12 |
| 1976.6 | MDMS doesn't provide auto-clean support | COOKIE::MCCLELLAND | Marty, SLS/MDMS Engineering | Tue Jun 04 1996 13:01 | 42 |
| 1976.7 | | CRONIC::LEMONS | And we thank you for your support. | Thu Sep 05 1996 11:28 | 7 |
| 1976.8 | | COOKIE::MCCLELLAND | Marty, SLS/MDMS Engineering | Fri Sep 06 1996 12:59 | 29 |
| 1976.9 | | CRONIC::LEMONS | And we thank you for your support. | Mon Sep 09 1996 15:32 | 23 |
| 1976.10 | | COOKIE::MCCLELLAND | Marty, SLS/MDMS Engineering | Wed Sep 11 1996 08:31 | 5 |
| 1976.11 | | CRONIC::LEMONS | And we thank you for your support. | Wed Sep 11 1996 11:54 | 4 |
| 1976.12 | | COOKIE::MCCLELLAND | Marty, SLS/MDMS Engineering | Thu Sep 12 1996 09:17 | 8 |
| 1976.13 | Here's a command procedure to clean the drive | GALINA::SSMITH | Sheldon Smith@MPO, dtn 442-2254 | Wed May 07 1997 16:00 | 7 |
| I wrote a short command procedure at a recent customer site which
allows the system manager / operator to manually initiate a cleaning
for a specified drive slot. It uses the SLS Tape Library to keep track
of the usage of the cleaning tape, and uses the optional ROBOT commands
to control the drive.
I will (attempt) to post it as a reply....
|
| 1976.14 | Clean_Jukebox_Robot_Drive.com | GALINA::SSMITH | Sheldon Smith@MPO, dtn 442-2254 | Wed May 07 1997 16:01 | 70 |
| $! SLS$system:Clean_Jukebox_Robot_Drive.com X1.11 'f$verify(0)
$
$! Format:
$! @ SLS$system:Clean_Jukebox_Robot_Drive {p1}
$! p1 - robot drive to clean (0-5, bottom to top)
$! Example:
$! @ SLS$system:Clean_Jukebox_Robot_Drive 0
$! will clean the bottom tape drive.
$
$! NOTE: When adding a cleaning cart. to the jukebox, be sure to put it
in a
$! pool where it won't be subject to normal access, for example:
CLEANINGTAPE.
$
$
$ Host_Node := VVSLS1 !!! Edit to name of VMS system hosting jukebox
$ Cleaning_Cart := CLN594 !!! Edit to label of Cleaning Cart. in
jukebox
$
$
$ if p1 .eqs. "" then -
read sys$command: p1 /prompt="Which drive of the robot (0-5) to
clean: "
$ if (p1.lts."0") .or. (p1.gts."5") .or. (p1.lt.0) .or. (p1.gt.5)
$ then
$! (R2D2 is the name we gave the robot in the silo.)
$ write sys$output "%R2D2-F-BADDRIVE, invalid number of tape drive"
$ write sys$output "-Valid numbers are 0 (bottom drive) to 5 (top)."
$ exit
$ endif
$
$ drives =
"''Host_Node'$MKA100:''Host_Node'$MKA200:''Host_Node'$MKA300:" -
"''Host_Node'$MKA400:''Host_Node'$MKA500:''Host_Node'$MKA600:"
$
$!Convert drive number to VMS device name and allocate the drive.
$ DriveToClean = f$element( p1, ":", drives)
$ storage select tape /drive= 'DriveToClean'
$
$!Find out where the cleaning tape is stored.
$ storage show volume 'Cleaning_Cart' /symbols
$
$!Cycle the tape through the designated tape drive and release the
drive for
$!general use.
$ robot load slot 'SLS$INQ_JUKE_SLOT' drive 'p1'
$ wait 0:2:30 ! Typical time to load and clean drive.
$ robot unload slot 'SLS$INQ_JUKE_SLOT' drive 'p1'
$ deallocate 'DriveToClean'
$
$!Since SLS never tries to "mount" the tape, we need to bump the
counter
$!ourselves.
$ storage set volume 'Cleaning_Cart' -
/mount_count= 'f$integer( SLS$INQ_MOUNTS+1)
$!Cleaning tapes should only be used 20 times.
$ if SLS$INQ_MOUNTS .ge. 20
$ then
$ write sys$output "%R2D2-F-EXPIREDCART, Cleaning cartridge has been
used"
$ write sys$output "-the mex. number of uses (20). Load a fresh tape.
$ storage export cartridge 'Cleaning_Cart'
$ storage remove volume 'Cleaning_Cart'
$ endif
$ exit
Originally written by:
Sheldon Smith, Digital Equipment Corp, 1997
Provided "AS IS". No support is provided.
|