Tommy,
Before dynamic UCBs you could have written a fairly simple REXX exec to follow
the UCB chain and grab the UCBVOLI field for the known value of UCBCHAN -
however these days the only supported method of getting a copy of (or actual)
UCB is using the UCBSCAN service.
If you want to do this from REXX you will have to write an assembler external
REXX function that invokes the UCBSCAN service and returns the volser -
something like :
Volser = RXUCB(devnum)
The 'RXUCB' function will be a load module in your normal search sequence.
The method of coding the external functions is documented in the TSO/REXX User
Guide - 'Rexx Programming Services' - it is not too difficult and there are
some examples out there on various websites (www.cbttape.org, www.xephon.com
etc etc).
Rob Scott
Rocket Software, Inc
275 Grove Street
Newton, MA 02466
617-614-2305
[EMAIL PROTECTED]
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of
Tommy Tsui
Sent: 09 July 2007 09:50
To: [email protected]
Subject: How can I give the volume unit address and return the volume name from
REXX
Hi all,
Anyone try to write a rexx, give the volume address and return the volume name.
Thanks for sharing
Tommy
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at
http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
