IBM Mainframe Forum

by **arya_s** » Tue Jul 21, 2009 9:08 am

Hello,
Points 1 and 2 are correct. after I get the list of PDS's that have the pattern "REXX" , i just want to display the names of these PDS's in my O/P file.
I was just trying to implement Point 3 and point 4 along with this piece of code.
My main objective is to check which PDS's have the pattern "REXX".
The list of PDS's having pattern "REXX" must be displayed in my Output file.
Since I dont know the names of PDS's that I need, I am using the SUBSTR function to compare the given pattern "REXX" with the PDS names.

by **MrSpock** » Tue Jul 21, 2009 6:15 pm

For your purposes, I think you'd be better off using the POS function. Something like this:

Select all

/* REXX */
Call Outtrap('list.')
"LISTA ST"
Call Outtrap(Off)
Do i = 1 To list.0
If Substr(list.i,1) = " " Then Iterate
fnd = Pos('REXX',list.i)
If fnd <> 0 Then Say Strip(list.i)
End
Exit

by **arya_s** » Thu Jul 23, 2009 4:12 pm

Hello,
How do I get a list of all the PDS's.
When I am using the attached code I am not getting the entire list of PDS's that are present. I am just getting System named PDS(around 5) names not the ones that are actually required(more than 100).
Also, once i get the list of PDS names I need to store these PDS names in an O/P file.
Thank you for all the help given...

by **MrSpock** » Fri Jul 24, 2009 6:48 pm

All of the PDS's that exist in all of the system catalogs? Honestly I have no idea. Maybe a storage expert will offer their opinion, but I think you'd have to get in touch with your local storage administrators and ask them how or where you would obtain this information. I know that performing a true wild-card search through all of the catalogs is a time and CPU-consuming process (like running a LISTCAT with full wildcards or ISPF 3.4 (DSLIST) with the same) and may actually impact the system performance.

IBM Mainframe Forum

REXX Query

Re: REXX Query

Re: REXX Query

Re: REXX Query

Re: REXX Query