|
View previous topic :: View next topic
|
| Author |
Message |
prasannahcp
New User
Joined: 16 May 2005
Posts: 16
Location: Bangalore
|
|
|
|
Hi,
I want to get the list of PDS through REXX.
For example, If I give the DS value AAA.BBB.*.CCC. I should get the all the PDS with all possible values in the 3rd qualifier. Can somebody help me to achieve this through REXX. |
|
| Back to top |
|
 |
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
possibly from this quote by SUPERK:
| Quote: |
IGGCSIRX has been discussed many times before and I'm sure there are a bunch of topics here related to it. It IS written in REXX, so you can use it as-is or incorporate it as a function or procedure as you would in any other REXX exec. It's pretty well internally documented, so it shouldn't be too hard to figure out how to use it. Look for the source code in 'SYS1.SAMPLIB'.
|
|
|
| Back to top |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006
Posts: 1353
Location: Israel
|
|
|
|
You can try this too:
| Code: |
msgstat = MSG("OFF")
Z = OUTTRAP("Lst.")
Address TSO "LISTC LVL(AAA.BBB.*.CCC)"
Ret = RC
Z = OUTTRAP("OFF")
Say 'Return Code='Ret
Call MSG(msgstat)
Do I = 1 To Lst.0
Say Lst.I
End |
|
|
| Back to top |
|
|
|
|
