An approach I have taken the past several years ...
/* REXX */
/* DELETE ALL MEMBERS OF A GIVEN LIBRARY DSN */
/* TRACE 'R' */
/* TRACE 'O' */
DSNAME = 'dataset name'
DSN = STRIP(DSNAME, 'BOTH', '''') /* IN CASE IT'S IN QUOTES */
QUOTE = "'"
QDSN = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */
ADDRESS ISPEXEC
"LMINIT DATAID( MYDATAID) DATASET(" QDSN ") ENQ(SHRW)"
"LMOPEN DATAID("MYDATAID") OPTION(OUTPUT)"
"LMMDEL DATAID("MYDATAID") MEMBER(*)"
"LMCLOSE DATAID("MYDATAID")"
"LMFREE DATAID("MYDATAID")"
SAY DSN " IS NOW EMPTY"
Chris hoelscher
Technology Architect
Database Infrastructure Services
Technology Solution Services
123 East Main Street
Louisville, KY 40202
[email protected]
Humana.com
(502) 714-8615
(502) 476-2538
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of John Eells
Sent: Wednesday, July 22, 2015 3:45 PM
To: [email protected]
Subject: [IBM-MAIN] "Cleaning Out a PDS" (Was Re: Library out of space issue
while APPLY RSU)
[email protected]<mailto:[email protected]> (John Eells) wrote:
> [email protected]<mailto:[email protected]> (Thomas Conley)
> wrote:
<snip>
>> I would recommend FIXPDS RESET, from the PDS package, file 182 on
>> your cbttape dial, www.cbttape.org<http://www.cbttape.org>. It zeroes out
>> the directory and
>> makes it look like an empty PDS.
>>
>
> So does IDCAMS DELETE these days (I forget when we added this). Both
> likely use STOW INIT.
The guy who wrote the code (thanks, Steve!) tells me we did this in z/OS V1.12,
so all releases that are still in service include this function, and there is
no need to get FIXPDS or write your own code.
(STOW INIT [actually, STOW ... ,I] leaves behind an empty partitioned data set
that need not be compressed.)
--
John Eells
z/OS Technical Marketing
IBM Poughkeepsie
[email protected]<mailto:[email protected]>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected]<mailto:[email protected]> with the message:
INFO IBM-MAIN
The information transmitted is intended only for the person or entity to which
it is addressed
and may contain CONFIDENTIAL material. If you receive this
material/information in error,
please contact the sender and delete or destroy the material/information.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
