I cobbled together two routines written by colleagues as "EMPTYPDS" on CBT file 172 to overwrite the directory and DS1LSTAR, then some kind gentleman improved upon it. Search for EMPTYPDS on the CBT tape. I don't believe it works on PDSE because it dos not use STOW but I cannot test it.
DC On Wed, 20 Jan 2010 12:42:28 -0600, Rick Fochtman <[email protected]> wrote: >--------------------------------<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 ---------------------------------------------------------------------- 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
