Page 2 of 2

Re: REXX Query

PostPosted: Tue Jul 21, 2009 9:08 am
by arya_s
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.

Re: REXX Query

PostPosted: Tue Jul 21, 2009 6:15 pm
by MrSpock
For your purposes, I think you'd be better off using the POS function. Something like this:

/* 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

Re: REXX Query

PostPosted: Thu Jul 23, 2009 4:12 pm
by arya_s
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...

Re: REXX Query

PostPosted: Fri Jul 24, 2009 6:48 pm
by MrSpock
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.