Ray, Using your basic REXX, open the PDS with LRECL 256, etc, and read in the directory entries into a stem. Then, once the directory is loaded, close the PDS. Now, with library management services, you should be able to walk thru your stem and for each member issue a LM call and delete the member.
I do something similar (not the delete) in some of my REXXs. Chuck <snip> Someone wrote "how can I delete all the members of a PDS" which got me thinking. Can I do this using Rexx? We have an Assembler program owned by IBM Global Services (we're outsourced) which will reset a PDS and optionally change the number of directory blocks as requested in the parm field. So far all that I have been to accomplish is to destroy my test PDS. I am opening my test PDS with OLD REUS and specifying a RECFM of F and LRECL and BLKSIZE of 256. I perform a Do Loop to initialize the stem variable to the number of directory blocks that I want and then write to the file. the test file is now trashed. Does anyone know what I am doing wrong? <\snip> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
