Greetings,
In REXX with the correct security in place, the following can be used to issue
MVS commands and access the results of the command:
"CONSPROF SOLDISPLAY(NO) SOLNUM(999) UNSOLDISPLAY(NO) UNSOLNUM
(999)"
"CONSOLE ACTIVATE CART(CARTID)"
"CONSOLE SYSCMD("mvscmd" ) CART(CARTID)"
x = GETMSG('msg.','SOL','CARTID',,60)
"CONSOLE DEACTIVATE"
The results of the MVS command are now in the msg. stem
variable.
To get the storage group of a specific volume:
D SMS,VOL(xxxxxx)
To get all of the volumes in a specific storage group:
D SMS,SG(xxxxxxxx),LISTVOL
I hope that this helps.
Cheers...
Michael
----------------------------------------------------------------------
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
