ADSM-L

Mounting VMTAPE Managed Tapes For ADSM's Use

1996-05-14 11:06:51
Subject: Mounting VMTAPE Managed Tapes For ADSM's Use
From: "Mark A. Stevens" <xmas AT UXA.ECN.BGU DOT EDU>
Date: Tue, 14 May 1996 10:06:51 -0500
I'm lost (again). I've been able to get VMTAPE and ADSM to play when
mounting a scratch tape for use, but mounting a used tape escapes me.
This is what I've been using:

/***********************************************************************
* ADSTAR Distributed Storage Manager                                   *
*                                                                      *
* Licensed Materials - Property of IBM                                 *
*                                                                      *
* 5648-020 (C) Copyright IBM Corporation 1990, 1993.                   *
* All rights reserved.                                                 *
*                                                                      *
* Refer to Copyright Instructions.                                     *
***********************************************************************/
Trace Off
Address Command

/* ---------------------------------------- */
/* Get parameter list.                      */
/* ---------------------------------------- */
Arg serverName mountWait requestNum devType volName ,
    serverVaddr mountMode format stgPoolName .

  myVaddr = 181
  rc = 0
  /* ---------------------------------------- */
  /* Setup mount options.                     */
  /* ---------------------------------------- */
  If devType = 'CARTRIDGE' Then Do
     den = '18TR'
     If mountMode = 'R/W' Then
        ring = 'WRITE'
     Else
        ring = 'READ'
     End
  Else Do
     den = 'DEN 6250'
     If mountMode = 'R/W' Then
        ring = 'RING'
     Else
        ring = 'NORING'
     End

  /* ---------------------------------------- */
  /* Issue appropriate command to give the    */
  /* server the drive at the correct address. */
  /* ---------------------------------------- */
  'VMTAPE MOUNT' volName myVaddr '(WAIT LABEL SL' ring den

  /* ---------------------------------------- */
  /* Cancel mount if return code not zero.    */
  /* (Logging off will cancel the mount.)     */
  /* ---------------------------------------- */
  If rc ,= 0 Then Do
    'CP MSG OPERATOR VMTAPE MOUNT' VOLNAME MYVADDR '(WAIT LABEL SL',
     ring den 'FAILED ON ADSM MOUNT MACHINE'
    'CP LOGOFF'
    End

  /* ---------------------------------------- */
  /* Find the real address of the tape drive. */
  /* ---------------------------------------- */
  'EXECIO 1 CP ( LIFO STRING QUERY VIRTUAL' myVaddr
  If rc ,= 0 Then Do
    'CP MSG OPERATOR ERROR FINDING REAL ADDRESS ON TAPE MOUNT MACHINE'
    'CP LOGOFF'
    End
  Pull . . . . raddr .

  'CP DETACH' raddr '* LEAVE'
  'CP ATTACH' raddr serverName serverVaddr


/* ---------------------------------------- */
/* Stack a Logoff command and exit.         */
/* ---------------------------------------- */
Push 'CP LOGOFF'
Exit 0

When DSMSERV calls for a tape, DSMTAPE is started, but never generates
a mount request for an existing tape.  Does anyone have a clue what I
should read/do to get this fixed?

Mark A. Stevens                           Phone:    708-235-2204
Systems Programmer                        Internet: xmas AT uxa.ecn.bgu DOT edu
Educational Computing Network             BITNET:   [email protected]
Board of Governors Universities           VMSHARE:  ECE/MARK
<Prev in Thread] Current Thread [Next in Thread>