It has been a long time since I did this but I never get complaints about it
not working.
MOUNT: PROCEDURE EXPOSE CSLRC CSLRS FCTRC FCTRS REQTOKEN MOUNTYPE,
VLABEL RDEV LIBNAME LEN1 USERID VDEV SOURCECAT,
LEN3 OPTIONS LEN4 RWMODE
/* SET PROGRAM PARAMETERS FOR MOUNT */
CSLRC = 0 /* CSL RETURN CODE */
CSLRS = 0 /* CSL REASON CODE */
FCTRC = 0 /* FUNCTION RETURN CODE */
FCTRS = 0 /* FUNCTION REASON CODE */
REQTOKEN = 0 /* 0=WAIT,1=NOWAIT,OTHER=CHECK-BACK */
MOUNTTYPE = 'CAT' /* VOLUME MOUNT=VOL,CATEGORY..=CAT */
VLABEL = ' ' /* VOLUME EXTERNAL LABEL */
RDEV = RDEV /* REAL DEVICE ADDRESS */
LIBNAME = ' ' /* LIBRARY NAME */
LEN1 = LENGTH(LIBNAME) /* LIBRARY NAME LEN */
USERID = USERID /* "ATTACH-TO" USERID */
VDEV = '0181' /* VIRTUAL DEVICE ADDRESS */
SOURCECAT = 'SCRATCH0' /* SOURCE CATEGORY */
LEN2 = LENGTH(SOURCECAT) /* LEN OF SOURCE CATEGORY */
TARGETCAT = 'VOLSPECIFIC' /* TARGET CATEGORY */
LEN3 = LENGTH(TARGETCAT) /* LEN OF SOURCE CATEGORY */
OPTIONS = 'ATTACH' /* READONLY|READWRITE */
/* IDRC|NOIDRC */
/* ASSIGN|NOASSIGN */
/* ATTACH|NOATTACH */
LEN4 = LENGTH(OPTIONS) /* LEN OF OPTIONS */
/* CALL CSL TO PERFORM THE MOUNT REQUEST */
CALL CSL 'FSMRMMNT',
'CSLRC CSLRS FCTRC FCTRS REQTOKEN',
'MOUNTTYPE VLABEL RDEV LIBNAME LEN1',
'USERID VDEV SOURCECAT LEN2',
'TARGETCAT LEN3 OPTIONS LEN4'
/* CHECK FOR ERRORS FROM MOUNT REQUEST */
IF CSLRC ¬= 0 | CSLRS ¬= 0 | FCTRC ¬= 0 | FCTRS ¬= 0,
THEN SIGNAL BADMOUNT
RETURN
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED]
Behalf Of Imler, Steven J
Sent: Wednesday, January 23, 2008 10:44 AM
To: [email protected]
Subject: Re: how to wait for dfsmsrm command
Yes ... I think that's what Jeff G. suggested.
JR (Steven) Imler
CA
Senior Software Engineer
Tel: +1 703 708 3479
Fax: +1 703 708 3267
[EMAIL PROTECTED]
> -----Original Message-----
> From: The IBM z/VM Operating System
> [mailto:[EMAIL PROTECTED] On Behalf Of Rich Greenberg
> Sent: Wednesday, January 23, 2008 11:38 AM
> To: [email protected]
> Subject: Re: how to wait for dfsmsrm command
>
> On: Wed, Jan 23, 2008 at 11:26:13AM -0500,Imler, Steven J Wrote:
>
> } The only problem with using a tool like this is that while
> DFSMS/VM is
> } mounting the tape for you, the tape drive is attached to
> the RMSMASTR
> } virtual machine, not the requestor's virtual machine. The
> tape drive is
> } not attached to the requestor until the requested tape is
> loaded and the
> } drive is ready ...
>
> Yes JR, that would preclude the use of RXTAPINFO. But
> couldn't you just
> loop on having the drive attached then?
>
> --
> Rich Greenberg N Ft Myers, FL, USA richgr atsign panix.com
> + 1 239 543 1353
> Eastern time. N6LRT I speak for myself & my dogs only.
> VM'er since CP-67
> Canines:Val, Red, Shasta & Casey (RIP), Red & Zero, Siberians
> Owner:Chinook-L
> Retired at the beach Asst
> Owner:Sibernet-L
>
>
