Re: rexx to get storgrp
Cool! Thanks for everyone help! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
Greetings, I didn't know about Gilbert's RXSMS - so I gave the 100 pound sledge hammer solution instead. I looked at RXSMS and it seems like a great lightweight and flexible tool. Thanks Gilbert for all of your contributions. Cheers... Michael -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
On Friday 13 February 2009 22:15, Jon Koenigs wrote: > Does anyone have a rexx for which you could input a dataset or volume > and it would spit out the sms storgrp it is in? The RXSMS routine available here: http://gsf-soft.com/Freeware/RXSMS.shtml I think that's what you're looking for. I use RXSMS in the SHOWDASD REXX which is described here : http://gsf-soft.com/Freeware/SHOWDASD.shtml I have an extended version of RXSMS called RXSMS2 which retrieves additional information. I don't distribute it for free, but if you're interested, let me know. -- Gilbert Saint-Flour GSF Software http://gsf-soft.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
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(xx)
To get all of the volumes in a specific storage group:
D SMS,SG(),LISTVOL
I hope that this helps.
Cheers...
Michael
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
Unfortunately, unlike storclas which is what I thought you wanted, storgrp is not maintained for the dataset. Once the dataset is allocated, that information is discarded. The storage group is maintained of the volume (D SMS,VOL(xx) displays it). You can get the volume using the CSI but I don't know how to get the storgrp from the volume using REXX. -Original Message- From: Schwarz, Barry A Sent: Friday, February 13, 2009 2:31 PM To: 'IBM-MAIN@bama.ua.edu' Subject: RE: rexx to get storgrp There is a REXX interface to the Catalog Search Interface described in the DFSMS Managing Catalogs manual (SC76-2409-05, Appendix C for my z/OS 1.8 system). A sample, IGGCSIRX, should be is SYS1.SAMPLIB. -Original Message- From: Jon Koenigs [mailto:koenigs@principal.com] Sent: Friday, February 13, 2009 1:13 PM To: IBM-MAIN@bama.ua.edu Subject: rexx to get storgrp Does anyone have a rexx for which you could input a dataset or volume and it would spit out the sms storgrp it is in? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
There is a REXX interface to the Catalog Search Interface described in the DFSMS Managing Catalogs manual (SC76-2409-05, Appendix C for my z/OS 1.8 system). A sample, IGGCSIRX, should be is SYS1.SAMPLIB. -Original Message- From: Jon Koenigs [mailto:koenigs@principal.com] Sent: Friday, February 13, 2009 1:13 PM To: IBM-MAIN@bama.ua.edu Subject: rexx to get storgrp Does anyone have a rexx for which you could input a dataset or volume and it would spit out the sms storgrp it is in? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
You need to add SMSINFO to get the SMS information returned (X =
"LISTDSI(DSN) SMSINFO"). But this doesn't give you the Storgrp.
Operator command D SMS,VOLUME(volser) will return the Storgrp name for
"volser", but I couldn't tell you how to get the response into a REXX.
Greg
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of Dave Kopischke
Sent: Friday, February 13, 2009 3:24 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: rexx to get storgrp
On Fri, 13 Feb 2009 15:13:14 -0600, Jon Koenigs wrote:
>Does anyone have a rexx for which you could input a dataset or volume
and it
>would spit out the sms storgrp it is in?
>
>Thanks!
>Jon
>
LISTDSI will return SMS information in:
SYSDSSMS
SYSDATACLASS
SYSSTORCLASS
SYSMGMTCLASS
I believe the syntax is:
LISTDSI('filename')
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx to get storgrp
On Fri, 13 Feb 2009 15:13:14 -0600, Jon Koenigs wrote:
>Does anyone have a rexx for which you could input a dataset or volume and it
>would spit out the sms storgrp it is in?
>
>Thanks!
>Jon
>
LISTDSI will return SMS information in:
SYSDSSMS
SYSDATACLASS
SYSSTORCLASS
SYSMGMTCLASS
I believe the syntax is:
LISTDSI('filename')
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
rexx to get storgrp
Does anyone have a rexx for which you could input a dataset or volume and it would spit out the sms storgrp it is in? Thanks! Jon -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
