IBM Mainframe Forum

We're trying to delete specific (not all) members of a PDS with a batch job, but can't get it to work.
They all want exclusive access to the PDS (disp=old), and we don't want that. =)

We've tried:
IKJEFT01,
the TSO procedure,
and we looked at the IEHMOVE, but since we're using SMS we discarded that one.

Does anybody have an idea, or are we totally lost?

Thanx.
/Jorgen

Hello Jorgen and welceom to the forums,

There are some examples here:
http://gsf-soft.com/Products/SCRATCH.shtml

Strongly suggest you make a copy of the pds before beginning. . .

Jorgen Amnestal wrote: They all want exclusive access to the PDS (disp=old), and we don't want that. =)

Yes you DO want that! More than one user should not update a PDS directory at the same time.

We wrote a program to do ISPF-like ENQ/DEQ on the PDS so the JCL can specify DISP=SHR but at the time of delete, the PDS (and directory) are protected from other changes. Any collision just looks like a one second delay to a TSO user.

The ISPF Edit Reference manual describes the ENQ resource names to use.

Hello Bill,

Yes, I know, normally you would want that, but not in this case.
When we move PGM/SRC/LOAD into production we keep members on a PDS,
and when they are successfully moved to PROD we would like to delete those members only.
Others, that are still waiting to be moved are not to be touched.
(This is a temporary storage kind of PDS, not the original source-libs, of course.)

We have tried a test version of SCRATCH from GSF Software and we are so far quite happy. =)

Thanks for your thoughts and support

best rgds
/Jorgen