--------------------------------<snip>------------------------
-----------------------------------------<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?)
-------------------------------<unsnip>---------------------------------
Since I opened the directory in UPDAT mode, DS1LSTAR is unaffected.
Takes a IEBCOPY compress of the empty dataset to reset.
I wrote zeros purely for the sake of appearances. Rewriting the first
block would have sufficed.
Rick
----------------------------------------------------------------------
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
