Discussion:
Deleting all members of a PDS
Add Reply
Jesse 1 Robinson
2018-07-11 17:16:36 UTC
Reply
Permalink
Raw Message
While installing a new version of the PDS command-one that works on z/OS 2.3 as previously discussed here-we need to empty existing libraries in order to refill them with new members. Without a working PDS command, we had to find a different way to accomplish FIXPDS RESETDIR.

I finally remembered the relatively new DELETE pds-dsn(*), which accomplishes the task nicely. However, like IDCAMS DELETE in general, my testing indicates that it wants exclusive enqueue on the PDS. Not a problem for most PDS data sets, but a link listed library must contend with XCFAS and LLA. I know that both of those can be handled fairly easily, but I'm curious if there's some additional keyword that will ignore the SHR enqueues. I have not found anything.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office <===== NEW
***@sce.com<mailto:***@sce.com>


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lizette Koehler
2018-07-11 17:21:09 UTC
Reply
Permalink
Raw Message
You might try using INFILE and specify a DD with DISP=SHR

Or got cbttape.org and download PDSCLEAN - works great for PDS and PDS/E
datasets

Lizette
-----Original Message-----
Jesse 1 Robinson
Sent: Wednesday, July 11, 2018 10:16 AM
Subject: Deleting all members of a PDS
While installing a new version of the PDS command-one that works on z/OS 2.3
as previously discussed here-we need to empty existing libraries in order to
refill them with new members. Without a working PDS command, we had to find a
different way to accomplish FIXPDS RESETDIR.
I finally remembered the relatively new DELETE pds-dsn(*), which accomplishes
the task nicely. However, like IDCAMS DELETE in general, my testing indicates
that it wants exclusive enqueue on the PDS. Not a problem for most PDS data
sets, but a link listed library must contend with XCFAS and LLA. I know that
both of those can be handled fairly easily, but I'm curious if there's some
additional keyword that will ignore the SHR enqueues. I have not found
anything.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office <===== NEW
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Sri h Kolusu
2018-07-11 17:44:03 UTC
Reply
Permalink
Raw Message
Post by Jesse 1 Robinson
but I'm curious if there's some additional keyword that will ignore the
SHR enqueues. I have not found anything.

Skip,

You need to use FILE keyword on IDCAMS delete like shown below

//DELALL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DISP=SHR,DSN=Your.PDS
//SYSIN DD *
DELETE 'Your.PDS(*)' FILE(PDS)
/*

Thanks,
Kolusu


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Scott Barry
2018-07-11 18:56:14 UTC
Reply
Permalink
Raw Message
Post by Jesse 1 Robinson
Post by Jesse 1 Robinson
but I'm curious if there's some additional keyword that will ignore the
SHR enqueues. I have not found anything.
Skip,
You need to use FILE keyword on IDCAMS delete like shown below
//DELALL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DISP=SHR,DSN=Your.PDS
//SYSIN DD *
DELETE 'Your.PDS(*)' FILE(PDS)
/*
Thanks,
Kolusu
With the use of "splat" and "delete all members" request, sadly the IDC0553I message doesn't provide a list of the members deleted, instead only mention "ALL MEMBERS IN DATA SET <name> DELETED".

Now no Auditor-type would go for that -- heck, I even would appreciate knowing what I just deleted !!

Still like the enhanced functionality permitting various DSN-mask specifications, similar to TSO/ISPF DSLIST (option 3.4).

Scott Barry
SBBWorks, Inc.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Dyck, Lionel B. , RavenTek
2018-07-11 18:58:04 UTC
Reply
Permalink
Raw Message
I don't know if this has been suggested but using StarTools or the PDS (cbt file 182) command:

FIXPDS RESET

Will both delete all members and reset the PDS so it doesn't need to be compressed.

--------------------------------------------------------------------------
Lionel B. Dyck (Contractor) <sdg><
Mainframe Systems Programmer – RavenTek Solution Partners

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Scott Barry
Sent: Wednesday, July 11, 2018 1:56 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Deleting all members of a PDS
Post by Jesse 1 Robinson
Post by Jesse 1 Robinson
but I'm curious if there's some additional keyword that will ignore the
SHR enqueues. I have not found anything.
Skip,
You need to use FILE keyword on IDCAMS delete like shown below
//DELALL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DISP=SHR,DSN=Your.PDS
//SYSIN DD *
DELETE 'Your.PDS(*)' FILE(PDS)
/*
Thanks,
Kolusu
With the use of "splat" and "delete all members" request, sadly the IDC0553I message doesn't provide a list of the members deleted, instead only mention "ALL MEMBERS IN DATA SET <name> DELETED".

Now no Auditor-type would go for that -- heck, I even would appreciate knowing what I just deleted !!

Still like the enhanced functionality permitting various DSN-mask specifications, similar to TSO/ISPF DSLIST (option 3.4).

Scott Barry
SBBWorks, Inc.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
John Eells
2018-07-11 20:43:13 UTC
Reply
Permalink
Raw Message
What Sri Hari suggested will do that, too. I would guess that both of
them just use STOW ,,I to re-initialize the directory.
Post by Jesse 1 Robinson
FIXPDS RESET
Will both delete all members and reset the PDS so it doesn't need to be compressed.
--------------------------------------------------------------------------
Lionel B. Dyck (Contractor) <sdg><
Mainframe Systems Programmer – RavenTek Solution Partners
-----Original Message-----
Sent: Wednesday, July 11, 2018 1:56 PM
Subject: [EXTERNAL] Re: Deleting all members of a PDS
Post by Jesse 1 Robinson
Post by Jesse 1 Robinson
but I'm curious if there's some additional keyword that will ignore the
SHR enqueues. I have not found anything.
Skip,
You need to use FILE keyword on IDCAMS delete like shown below
//DELALL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DISP=SHR,DSN=Your.PDS
//SYSIN DD *
DELETE 'Your.PDS(*)' FILE(PDS)
/*
Thanks,
Kolusu
With the use of "splat" and "delete all members" request, sadly the IDC0553I message doesn't provide a list of the members deleted, instead only mention "ALL MEMBERS IN DATA SET <name> DELETED".
Now no Auditor-type would go for that -- heck, I even would appreciate knowing what I just deleted !!
Still like the enhanced functionality permitting various DSN-mask specifications, similar to TSO/ISPF DSLIST (option 3.4).
<snip>
--
John Eells
IBM Poughkeepsie
***@us.ibm.com

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Hobart Spitz
2018-07-11 18:59:25 UTC
Reply
Permalink
Raw Message
You're in TSO. Add this line, or equivalent, before the DELETE.

listd 'your.pds' mem

OREXXMan
JCL is the buggy whip of 21st century computing. Stabilize it.
Put Pipelines in the z/OS base. Would you rather process data one
character at a time (Unix/C style), or one record at a time?
IBM has been looking for an HLL for program products; REXX is that language.
Post by Scott Barry
Post by Jesse 1 Robinson
Post by Jesse 1 Robinson
but I'm curious if there's some additional keyword that will ignore the
SHR enqueues. I have not found anything.
Skip,
You need to use FILE keyword on IDCAMS delete like shown below
//DELALL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DISP=SHR,DSN=Your.PDS
//SYSIN DD *
DELETE 'Your.PDS(*)' FILE(PDS)
/*
Thanks,
Kolusu
With the use of "splat" and "delete all members" request, sadly the
IDC0553I message doesn't provide a list of the members deleted, instead
only mention "ALL MEMBERS IN DATA SET <name> DELETED".
Now no Auditor-type would go for that -- heck, I even would appreciate
knowing what I just deleted !!
Still like the enhanced functionality permitting various DSN-mask
specifications, similar to TSO/ISPF DSLIST (option 3.4).
Scott Barry
SBBWorks, Inc.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Paul Gilmartin
2018-07-11 19:13:59 UTC
Reply
Permalink
Raw Message
Post by Hobart Spitz
You're in TSO. Add this line, or equivalent, before the DELETE.
listd 'your.pds' mem
What about the TOCTTOU hazard?

-- gil

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Hobart Spitz
2018-07-11 19:35:47 UTC
Reply
Permalink
Raw Message
pipe listpds 'your.pds' | cons | chop 3 | insert /delete 'your.pds' / | tso
| cons

OREXXMan
JCL is the buggy whip of 21st century computing. Stabilize it.
Put Pipelines in the z/OS base. Would you rather process data one
character at a time (Unix/C style), or one record at a time?
IBM has been looking for an HLL for program products; REXX is that language.

On Wed, Jul 11, 2018 at 3:13 PM, Paul Gilmartin <
Post by Paul Gilmartin
Post by Hobart Spitz
You're in TSO. Add this line, or equivalent, before the DELETE.
listd 'your.pds' mem
What about the TOCTTOU hazard?
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Seymour J Metz
2018-07-12 16:42:23 UTC
Reply
Permalink
Raw Message
<https://www.businessballs.com/amusement-stress-relief/tree-swing-cartoon-pictures-early-versions-190/>

What's wrong with PDS86 fixpds reset or delete 'your.pds(*)'?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of Hobart Spitz <***@GMAIL.COM>
Sent: Wednesday, July 11, 2018 3:35 PM
To: IBM-***@listserv.ua.edu
Subject: Re: Deleting all members of a PDS

pipe listpds 'your.pds' | cons | chop 3 | insert /delete 'your.pds' / | tso
| cons

OREXXMan
JCL is the buggy whip of 21st century computing. Stabilize it.
Put Pipelines in the z/OS base. Would you rather process data one
character at a time (Unix/C style), or one record at a time?
IBM has been looking for an HLL for program products; REXX is that language.

On Wed, Jul 11, 2018 at 3:13 PM, Paul Gilmartin <
Post by Paul Gilmartin
Post by Hobart Spitz
You're in TSO. Add this line, or equivalent, before the DELETE.
listd 'your.pds' mem
What about the TOCTTOU hazard?
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Jesse 1 Robinson
2018-07-11 22:17:46 UTC
Reply
Permalink
Raw Message
Thanks Kolusu. That does the trick!

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
***@sce.com


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu
Sent: Wednesday, July 11, 2018 10:44 AM
To: IBM-***@LISTSERV.UA.EDU
Subject: (External):Re: Deleting all members of a PDS
Post by Jesse 1 Robinson
but I'm curious if there's some additional keyword that will ignore
the
SHR enqueues. I have not found anything.

Skip,

You need to use FILE keyword on IDCAMS delete like shown below

//DELALL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//PDS DD DISP=SHR,DSN=Your.PDS
//SYSIN DD *
DELETE 'Your.PDS(*)' FILE(PDS)
/*

Thanks,
Kolusu


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Jesse 1 Robinson
2018-07-12 02:04:17 UTC
Reply
Permalink
Raw Message
I originally recommended PDSCLEAN to my colleague who was doing the migration. Then realized that we don't have PDSCLEAN here; I was flashing back to my previous shop. Yes, the program works fine. But DEL (*) does too, and it's certified.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
***@sce.com


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Lizette Koehler
Sent: Wednesday, July 11, 2018 10:21 AM
To: IBM-***@LISTSERV.UA.EDU
Subject: (External):Re: Deleting all members of a PDS

You might try using INFILE and specify a DD with DISP=SHR

Or got cbttape.org and download PDSCLEAN - works great for PDS and PDS/E datasets

Lizette
-----Original Message-----
Behalf Of Jesse 1 Robinson
Sent: Wednesday, July 11, 2018 10:16 AM
Subject: Deleting all members of a PDS
While installing a new version of the PDS command-one that works on
z/OS 2.3 as previously discussed here-we need to empty existing
libraries in order to refill them with new members. Without a working
PDS command, we had to find a different way to accomplish FIXPDS RESETDIR.
I finally remembered the relatively new DELETE pds-dsn(*), which
accomplishes the task nicely. However, like IDCAMS DELETE in general,
my testing indicates that it wants exclusive enqueue on the PDS. Not a
problem for most PDS data sets, but a link listed library must contend
with XCFAS and LLA. I know that both of those can be handled fairly
easily, but I'm curious if there's some additional keyword that will
ignore the SHR enqueues. I have not found anything.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office <===== NEW
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Ed Jaffe
2018-07-12 04:08:20 UTC
Reply
Permalink
Raw Message
Post by Jesse 1 Robinson
I originally recommended PDSCLEAN to my colleague who was doing the migration. Then realized that we don't have PDSCLEAN here; I was flashing back to my previous shop.
Your previous shop?! How long ago was that? When we worked together back
in the 1980s?
--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/

--------------------------------------------------------------------------------
This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Jesse 1 Robinson
2018-07-12 04:13:09 UTC
Reply
Permalink
Raw Message
Yup. Security Pacific Bank. We used PDSCLEAN to launder everything. Old habits fade slowly.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
***@sce.com


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Ed Jaffe
Sent: Wednesday, July 11, 2018 9:08 PM
To: IBM-***@LISTSERV.UA.EDU
Subject: (External):Re: Deleting all members of a PDS
Post by Jesse 1 Robinson
I originally recommended PDSCLEAN to my colleague who was doing the migration. Then realized that we don't have PDSCLEAN here; I was flashing back to my previous shop.
Your previous shop?! How long ago was that? When we worked together back in the 1980s?

--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Loading...