-----------------------------------------<snip>------------------------------------------
Even easier than you wrote...
/* rexx - "zero" a PDS Directory */
ARG dsn
"ALLOC F(PDSDIR) DA("dsn") SHR REUSE RECFM(F)", /* pds directory */
"DSORG(PS) LRECL(256) BLKSIZE(256)"
"EXECIO 1 DISKRU PDSDIR (STEM DIR." /* read pds directory */
/* for update */
DIR.1 = '000EFFFFFFFFFFFFFFFF'x /* End of Directory */
"EXECIO 1 DISKW PDSDIR (STEM DIR. FINIS" /* Rewrite Directory */
"FREE F(PDSDIR)"
Exit
Obviously it won't work with PDSE.
------------------------------------------<unsnip>-----------------------------------
What does it do about the keys? or DS1LSTAR? Or that other field showing
the usage of the last block of the directory?
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
