REXX LISTD Command: Reading all member names from a PDS

When we have only handful of members in a PDS, it is easily to make a list of their names. Imagine if we have 1000 members in a PDS. Some may do it manually but some use REXX script to do this task quickly.

Lets see how to do this in REXX.

PDSNAME="Your-PDS Name"                                    
CALL OUTTRAP "MBRS."                                               
"LISTD" "'"PDSNAME"'" "MEMBERS"                                     
CALL OUTTRAP "OFF"                                                            
DO I=1 TO MBRS.0                                                    
    IF MBRS.I = "--MEMBERS--" THEN LEAVE                            
END                                                                          
I = I+1
DO MEM = I TO MBRS.0                                                
       Say "Member Name ;" MBRS.MEM
END

This code would display all the members in a PDS. Instead of displaying the member name you shall add your own logic to fulfill your requirement.