Here is some code we have.
/* Rexx */
parse arg DEVADR
"CONSPROF SOLDISPLAY(NO) SOLNUM(100)"
CONSOLE ACTIVATE
"CONSOLE SYSCMD(D U,,,"DEVADR",1)"
msg = GETMSG('conmsg.','sol')
CONSOLE DEACTIVATE
"CONSPROF SOLDISPLAY(YES) SOLNUM(1000)"
parse var conmsg.3 one two three four rest
say 'The volume ====' four
EXIT
You may need to play with it a bit.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Bruce Hewson
Sent: Wednesday, July 18, 2007 1:44 AM
To: [email protected]
Subject: Re: How can I give the volume unit address and return the volume
name from REXX
Hi guys,
update, the exec does work at z/OS 1.6 on our systems.
Just tried on z/OS 1.7 and getting an error.
I will debug and get back to you all with changes if required.
Thanks
Bruce Hewson
----------------------------------------------------------------------
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
