Thanks C. Todd. I'll put this in my back pocket. I ended up using the solution from GoHabsGo, which must have been posted straight to the listserver, as I didn't get an email copy of it. (I saw it because I was browsing the list via Google Groups on my work machine.)
Anyway, his solution was to simply attempt to allocate a small dataset to the volume, and if it worked, I was golden. This worked great for my needs and was a simple fix. I looked into IEHLIST for getting the VTOC, but that looked like more work. Call me lazy. Thanks to all. Todd > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Burrell, C. Todd (CDC/OCOO/ITSO) (CTR) > Sent: Friday, April 17, 2009 9:52 AM > To: [email protected] > Subject: Re: Validating existance of a Volume from REXX > > I don't believe there is a VVDS on a volume if there is no VSAM, and if > the volume is non-SMS. So a sysres volume probably might not have a > VVDS on it, and most non-SMS volumes would not as well, unless there is > VSAM. > > You could probably check for a VTOCIX if you make all of your volumes > have an index? > > I do these checks in the following REXX code using the console command: > > "CONSOLE DEACTIVATE" > "CONSPROF SOLDISPLAY(NO) UNSOLNUM("NM") SOLNUM("NM") UNSOLDISPLAY(NO)" > "CONSOLE ACTIVATE CART("TOKEN") NAME("NAME")" > VOLA=GDGX > ADDRESS CONSOLE 'D U,VOL='VOLA'' > ER = GETMSG(DMSG.,"SOL",TOKEN,MASK,5) > MSGCHECK=SUBSTR(DMSG.1,2,7) > IF MSGCHECK='IEE455I' THEN > DO > LINE.J= 'THE VOLSER FOR GDG: 'GDGX' DOES NOT EXIST' > J=J+1 > END > > > If you look into the CONSOLE command you can do the D U,VOL=xxxxxx > command and interogate the output. This works for a weekly job where I > check for the existence of all of our dump datasets for actual online > volumes. > > Hope this helps. > > C. Todd Burrell, PMP, MCP > ---------------------------------------------------------------------- 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
