On Wed, 20 Jan 2010 10:47:58 -0600, Rick Fochtman wrote: >-----------------------------------------<snip>------------------------------- >Some folks have asked about how to delete all members from a PDS without >deleting the PDS. I just stumbled across this while doing a receive from >ServerPac CPP. >-----------------------------------------<unsnip>------------------------------ >I used to have a simple little RYO utility that would do the job. It ran >quite quickly since it deleted the emmber names in descending order, >thus rewriting only 1-2 directory blocks at a time, instead of ascending >order, which requires rewriting the entire used portion of the directory >on each STOW. > >Then I came up with a little QSAM program that set the entire directory >to zeros and placed the x'ffffffff' in the key and first member name of >the first block. > Then IBM invented PDSE and spoiled all your fun.
(Does QSAM reset DS1LSTAR as needed? Is this the only reaon you need to write (zeroes or whatever) to the entire directory?) -- gil ---------------------------------------------------------------------- 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
