On Wed, 20 Jan 2010 09:34:29 -0800, Edward Jaffe
<[email protected]> wrote:
>Paul Gilmartin wrote:
>> On Wed, 20 Jan 2010 10:47:58 -0600, Rick Fochtman wrote:
>>
>>> 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 this technique NOT work with PDSE?
>
I don't know about that program, but this REXX program doesn't work
with PDSE (013-EC abend):
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
Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[email protected]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.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
