REXX to extract member names in PDS
REXX to get the membernames in PDS
The following Rexx code can be used to extract member names inside a PDS. This may prove very useful if you want to perform a repeated action on all the members of a PDS, just for example you may want to replace a string with a new value in all the members, then this REXX code will help you to get the list of all members in a PDS and you can write other steps in the macro to perform the steps on these members.
/* REXX PDS */
THEPDS = "'USERID.ABC.XYZ'"
X = OUTTRAP('ML.')
"LISTDS "THEPDS" MEMBERS"
X = OUTTRAP('OFF')
DO N = 7 TO ML.0
PARSE VAR ML.N MEMBER
SAY "MEMBER NAME IS ==>" MEMBER