TMR - 'Tape Mount Request'
 
  Tape Mount utility for standard label or non-label tapes.
  Supports 3480/3490/3590 Compatible tape drives.
  Runs in a VM/ESA ESA or XC virtual machine with 31-bit addressing.
 
  Ideal front end to DDR backup exec's etc. Also handy to send tape
  mount requests to the system operator, and to verify the correct
  tape is mounted and ready before attempting other tape operations.
 
  This program sends a tape request to the system operator and loads
  the tape drive display with a blinking message indicating the type
  of tape mount (Write Protected or Read/Write) and the tape VOLSER
  to be mounted. This program waits until the tape drive is ready,
  then checks the write status of the tape. If the status is not as
  requested, or the tape VOLSER doesn't match the request (for SL
  tapes) the tape is unloaded and the request is repeated.
 
  If the SL option is specified, the VOLSER is verified against the
  request. If the request is for a SCRATCH tape, any VOLSER is
  accepted. The VOLSER read from the tape is loaded into the display.
 
  If the SL option is NOT specified, NON-LABEL tape processing is
  assumed. If the tape happens to be SL, the VOLSER is read and
  displayed. If a VOLSER is specified, the volume number is used
  but not verified. If the request is for a SCRATCH tape, "NOLABEL"
  is loaded into the display.
 
  To  CANCEL a  tape mount request,  press the ENTER key once to
  cause an interrupt, then reply 'C' to cancel your request.
 
  The format of the TMR command is:
  +------------+----------------------------------------+
  | TMR        |      (  options    |
  +------------+----------------------------------------+
 
  Where:
        vdev = the tape virtual address (eg: 181, 182, etc.)
               of the attached tape drive. If no tape is
               attached, an error is displayed. The default
               virtual tape address is 181.
 
      volser = any 6 digit alpha-numeric tape number or 'SCRATCH'.
               The default volser is 'SCRATCH'
 
        mode = 'U' Read/Write or 'F' Write Protected
               The default is either mode is accepted.
 
   Options:
           SL = Accept only Standard Label Tapes
 
        STACK = Return VOLSER LABTYPE RDEV STATUS OWNER  info via
                the program stack. These values can be retrieved
                from a Rexx EXEC using a "Parse Pull" function
                like the following:
 
                if rc = 0 then do
                 Parse Pull volser labtype rdev status owner .
                 end
 
         Where: VOLSER  = the tape volume serial number
                LABTYPE = The tape label type, either SL or NL
                RDEV    = the Real Device address of the Tape device
                STATUS  = Tape write status, either R/W or R/O
                OWNER   = Owner field from CMS TAPE WVOL1 command
 
   NOTIFY userid|*|OFF = userid to receive tape mount requests via
                         CP MSG. If OFF is specified, no CP MSGs
                         are sent. The default is NOTIFY OPERATOR.
                         If '*' is specified, the user issuing the
                         request receives the messages.
 
   Examples:
 
          TMR 181
                     Requests SCRATCH tape mounted on the real tape
                     drive you have attached as 181. Any write mode
                     and notifies the OPERATOR userid.
 
          TMR 181 ( STACK
                     Requests SCRATCH tape mounted on the real tape
                     drive you have attached as 181. Any write mode
                     and notifies the OPERATOR userid. The STACK
                     option will return the tape volser, label type,
                     real tape device, and write status (R/W or R/O).
 
          TMR 181 123456 F ( SL NOTIFY MAINT
                     Requests tape 123456 mounted on the real tape
                     drive you have attached as 181. Requires the
                     tape be write protected and sends the request
                     to the MAINT userid. If the VOLSER of the tape
                     mounted is other than 123456, the tape is
                     unloaded and the request is repeated.
 
 
          TMR 181 SCRATCH U ( NOTIFY *
                     Requests any SCRATCH tape (NL or SL) be
                     mounted on the drive you have attached as 181.
                     The tape must be in write mode and the user
                     issuing the request receives the messages.
 
 
          TMR 181 123456 U ( SL NOTIFY OFF
                     Requests standard label tape 123456  be
                     mounted on the drive you have attached as 181.
                     The tape must be in write mode and no CP MSGs
                     are sent. If the tape mounted does not
                     match the request, the tape is unloaded and
                     the request is issued again.
 
  MESSAGES:
 
  TMRM0001 Mount Tape (volser)(SL or NL) on (device)(R/W or R/O)
  TMRM0002 Tape on (device) not (R/W or R/O) - tape unloaded
  TMRM0003 Incorrect tape loaded on (device) - expected (volser)
  TMRM0004 Tape (volser)(SL or NL) Ready on (device)(R/W or R/O)
  TMRM0005 *** (error type) on tape (device) ***'
  TMRM0006 Tape mount request has been cancelled
  TMRM0007 Tape on (device) has no label - expected (volser) SL
  TMRM0008 Press ENTER to wait or type C to CANCEL your request
 
  RETURN  CODES:  0 - Request completed
                  3 - Request cancelled
                 10 - Device type not supported
                 13 - Permanent I/O error on tape (DIAG-A8)
                 24 - Invalid option specified
                 40 - Tape drive not attached
                 41 - Equipment Check
                 42 - Data Check
                 43 - Unit Check
                 44 - Unknown (or other) Hardware error
 
  Written  by: MIKE RYDBERG - 09/06/1988
  Revised  by: MIKE RYDBERG - 05/01/2003
 
  Send  any comments via email to: miker@attglobal.net