REXX: How to delete all members from a PDS

Normally it is easy to delete all members without REXX.

The command s * d would do this for you.

Incase, if you have a list of members to be deleted from a huge list, then it is better to automate with REXX.

/*REXX*/
 PDSNAME = "Your PDS Name" 
 CALL OUTTRAP "MEM."                                                
 "LISTD" "'"PDSNAME"'" "MEMBERS"                                    
 CALL OUTTRAP "OFF"                                                 
 DO I=1 TO MEM.0                                                    
    IF MEM.I = "--MEMBERS--" THEN LEAVE                             
 END                                                                
 I = I+1                                                    
 DO J = I TO MEM.0                                                  
    PARSE VALUE MEM.J WITH MEMNAME                                
    MEMNAME=STRIP(MEMNAME)   

/* You shall have your IF or WHEN condition to delete */                                       
    CALL OUTTRAP "DUMMY."                                           
    ADDRESS TSO "DELETE '"PDSNAME"("MEMNAME")'"                     
    CALL OUTTRAP "OFF"                                              
 END