Tommy,
try this:
------------------------------------------------------------------------------------------------------------------------
/* REXX */
parse upper arg volser
address tso "CONSPROF SOLDISPLAY(NO)"
address tso "CONSOLE ACTIVATE NAME(DASD) CART(BRS"addr")"
address console "D U,VOL="volser
displ = GETMSG('resp.','SOL',,,1)
parse upper value resp.3 with voladdr type status volume .
volume = strip(volume)
if volser ^= volume then do
say '* Volume ' volser 'not found in system'
end
else do
say '* Volume ' volser 'found in system at address:' voladdr
end
address tso "CONSOLE DEACTIVATE"
exit
--------------------------------------------------------------------------------------------------------------------------------
execute the REXX clist giving your volume name as parameter.
Hope this helps.
_________________________________________________________________________
Paolo Cacciari
Business Continuity and Resiliency Services, IBM Global Services - South
Region, EMEA
Via Darwin 85, 20019 Settimo Milanese(MI) – Italy - MISET001
"The goal is to be prepared for a disaster not to continually plan for a
successful test"
* [EMAIL PROTECTED]
( + 39 051 41.36799 Mobile: + 39 335 6287584
7 + 39 02 596.23288 Fax BO: + 39 051 406052
----------------------------------------------------------------------
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
