Re: Deleting all members of a PDS

[Seymour J Metz]

<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  on behalf of 
Hobart Spitz 
Sent: Wednesday, July 11, 2018 3:35 PM
To: IBM-MAIN@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 <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 11 Jul 2018 14:59:15 -0400, Hobart Spitz wrote:
>
> >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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

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

Re: Deleting all members of a PDS

[Jesse 1 Robinson]

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
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Ed Jaffe
Sent: Wednesday, July 11, 2018 9:08 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Deleting all members of a PDS

On 7/11/2018 7:04 PM, Jesse 1 Robinson wrote:
> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Deleting all members of a PDS

[Ed Jaffe]

On 7/11/2018 7:04 PM, Jesse 1 Robinson wrote:

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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Deleting all members of a PDS

[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. 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
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Wednesday, July 11, 2018 10:21 AM
To: IBM-MAIN@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-
> From: IBM Mainframe Discussion List  On 
> Behalf Of Jesse 1 Robinson
> Sent: Wednesday, July 11, 2018 10:16 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> 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
> robin...@sce.com<mailto:robin...@sce.com>


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

Re: Deleting all members of a PDS

[Jesse 1 Robinson]

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
robin...@sce.com


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

>>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
//SYSINDD *
  DELETE 'Your.PDS(*)' FILE(PDS)
/*

Thanks,
Kolusu


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

Re: [EXTERNAL] Re: Deleting all members of a PDS

[John Eells]

What Sri Hari suggested will do that, too.  I would guess that both of 
them just use STOW ,,I to re-initialize the directory.



Dyck, Lionel B. , RavenTek wrote:

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)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Scott Barry
Sent: Wednesday, July 11, 2018 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Deleting all members of a PDS

On Wed, 11 Jul 2018 10:43:42 -0700, Sri h Kolusu  wrote:


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
//SYSINDD *
  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  
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).


--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

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

Re: Deleting all members of a PDS

[Hobart Spitz]

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 <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 11 Jul 2018 14:59:15 -0400, Hobart Spitz wrote:
>
> >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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Deleting all members of a PDS

[Paul Gilmartin]

On Wed, 11 Jul 2018 14:59:15 -0400, Hobart Spitz wrote:

>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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Deleting all members of a PDS

[Hobart Spitz]

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.

On Wed, Jul 11, 2018 at 2:56 PM, Scott Barry  wrote:

> On Wed, 11 Jul 2018 10:43:42 -0700, Sri h Kolusu 
> wrote:
>
> >>>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
> >//SYSINDD *
> >  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  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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: [EXTERNAL] Re: Deleting all members of a PDS

[Dyck, Lionel B. (RavenTek)]

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)  <
Mainframe Systems Programmer – RavenTek Solution Partners

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Scott Barry
Sent: Wednesday, July 11, 2018 1:56 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Deleting all members of a PDS

On Wed, 11 Jul 2018 10:43:42 -0700, Sri h Kolusu  wrote:

>>>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
>//SYSINDD *
>  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  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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Deleting all members of a PDS

[Scott Barry]

On Wed, 11 Jul 2018 10:43:42 -0700, Sri h Kolusu  wrote:

>>>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
>//SYSINDD *
>  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  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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Deleting all members of a PDS

[Sri h Kolusu]

>>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
//SYSINDD *
  DELETE 'Your.PDS(*)' FILE(PDS)
/*

Thanks,
Kolusu


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

Re: Deleting all members of a PDS

[Lizette Koehler]

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-
> From: IBM Mainframe Discussion List  On Behalf Of
> Jesse 1 Robinson
> Sent: Wednesday, July 11, 2018 10:16 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> 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
> robin...@sce.com
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send email to
> lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: Deleting all members of a pds

[Paul Gilmartin]

On Mon, 23 Nov 2015 11:10:23 -0800, retired mainframer wrote:

>> -Original Message-
>> From: Sri h Kolusu
>> Sent: Monday, November 23, 2015 7:27 AM
>>
>> Yes DFSORT does allow comments.
>
>
>
>Considering how well this is documented in the Application Programming
>Guide, your forbearance borders on the saintly.  You can lead a programmer
>to the manual but you can't make him read.
> 
I'm not a DFSORT user.  From curiosity I looked only at the example on page
83-84 of the cited document and deemed it deficient in comments for its
pedagogic intent, notwithstanding that it's a contributed sample.

http://www-01.ibm.com/support/docview.wss?uid=isg3T794

Scrolling up to page 79, I find a better-commented example.

But, yes, thanks.

-- gil

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

Re: Deleting all members of a pds

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Sri h Kolusu
> Sent: Monday, November 23, 2015 7:27 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Deleting all members of a pds
> 
> Yes DFSORT does allow comments.



Considering how well this is documented in the Application Programming
Guide, your forbearance borders on the saintly.  You can lead a programmer
to the manual but you can't make him read.

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

Re: Deleting all members of a pds

[Sri h Kolusu]

> Does DFSORT input allow comments?  There are several things every 
language > should support, such as:

Paul,

Yes DFSORT does allow comments.

Specify comment statements by coding an asterisk (*) in column 1. A 
comment statement is printed along with other DFSORT program control 
statements but is not otherwise processed.

A statement with blanks in columns 1 through 71 is treated as a comment 
statement.

Comment statements are allowed only in the DFSPARM, SYSIN, and SORTCNTL 
data sets. 


Also you can have comments right after the control statements provided you 
have a space between. Here is a sample.


//SYSINDD * 
  SORT FIELDS=(01,10,CH,A, $ EMP-NUMBER ASCENDING 
   50,08,PD,D) $ SALARY DESCENDING 
 
  OUTREC BUILD=(20,30, $ EMP-NAME 
X, $ SPACE 
01,10, $ EMP-NUMBER 
X, $ SPACE 
50,08) $ SALARY 
/* 


Further if you have any questions please let me know

Thanks,
Kolusu
DFSORT Development
IBM Corporation

IBM Mainframe Discussion List  wrote on 
11/20/2015 12:34:28 PM:

> From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/20/2015 12:34 PM
> Subject: Re: Deleting all members of a pds
> Sent by: IBM Mainframe Discussion List 
> 
> Re: https://listserv.ua.edu/cgi-bin/wa?A2=ind1511&L=ibm-
> main&P=R37953&1=ibm-
> main&9=A&I=-3&J=on&X=C539315E5DAE4A6734&Y=PaulGBoulder%
> 40AIM.COM&d=No+Match%3BMatch%3BMatches&z=4
> 
> On Fri, 20 Nov 2015 10:51:04 -0800, retired mainframer wrote:
> 
> >
> >
> >> When better techniques become available, perhaps the inferior ones 
should
> >> me marked in future editions as deprecated.
> >
> >So every time IBM makes an update to a marketed product, they 
> should search all the freebies to see if they might need some 
> pedantic update to the code or documentation?  It's not enough that 
> IBM allows people to spend time on the clock to develop this stuff 
> for which they will not charge and make it available to all, even 
> non-customers and competitors?  That would probably kill the 
> incentive to release any "as is/no warranty or support" tools of any 
kind.
> > 
> No, but it was implied earlier in this thread that the document 
> contains contributed
> material.  They might likewise consider suggested updates.
> 
> Corequisite updates are a sore point.  Many IBM utilities fail with 
> z/OS UNIX files
> as input because of something akin to "unsupported device type", while 
they
> continue to support card readers and punches.  Often it appears the 
check is
> gratuitous -- it can be defeated by preconcatenating an empty 
> Classic data set.
> Simply, such  checks should be eliminated; deferred to the access method 
to
> succeed or fail.
> 
> 
> >Didn't anyone read the reference?  On page 84:  " For PDSs with 
> lots of members, you can improve the performance of the IDCAMS step 
> by deleting the members in reverse order. To do this, just add:
> >SORT FIELDS=(1,8,CH,D)
> >to CTL2CNTL to sort the members in descending order.
> >
> It would have been clearer in CTL2CNTL, clearly commented.
> 
> Does DFSORT input allow comments?  There are several things every 
language
> should support, such as:
> 
> o Comments, like HLASM "*".
> 
> o No-op, like HLASM ANOP
> 
> o User-generated error messages, like HLASM MNOTE.
> 
> There are reasons for all these.
> 
> -- gil
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 



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

Re: Deleting all members of a pds

[Peter Van Dyke]

For LMMDEL you can specify MEMBER(*) and ISPF will delete all the members
in the data set. Also for ISPF option 3.1 you can delete all members with
the D (Delete member) option by entering * in the Member field. In both
these cases ISPF uses STOW 'I'. I believe this support has been available
in ISPF since z/OS 1.5.

I'm not 100% sure but I think STOW 'I' may also be used when you enter 'S *
D' in the command field for an enhanced member list.

Peter Van Dyke

> From: "Brenton, Ren" 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 20/11/2015 10:38 PM
> Subject: Re: Deleting all members of a pds
> Sent by: IBM Mainframe Discussion List 
>
> Address "ISPEXEC" "LMINIT DATAID(FDTID) DATASET('"dsn"') ENQ(SHRW)"
> Address "ISPEXEC" "LMOPEN DATAID("fdtid") OPTION(OUTPUT)"
> Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)"
> Do While cc = 0
>Address "ISPEXEC" "LMMDEL DATAID("fdtid") MEMBER("memnm") NOENQ"
>cc = rc
>Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)"
>cc = rc
> End
> Address "ISPEXEC" "LMCLOSE DATAID("fdtid")"
> Address "ISPEXEC" "LMFREE DATAID("fdtid")"
>
> Ren
> Ext 1448
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU
> ] On Behalf Of Elardus Engelbrecht
> Sent: Friday, November 20, 2015 7:59 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: AW: Re: Deleting all members of a pds
>
> Peter Hunkeler wrote:
>
> >>(Had you come to SHARE, you might have known that--hint, hint. ;-)
>
> >Re: hint, hint, John, would you find some time to convince our
> upper level management of many companies of the value of SHARE, etc?
>
> Hint, hint - the rarity of money beats the value of SHARE by a full
> knock-out...
>
> >Sorry, could not resist.
>
> Neither me. ;-)
>
> Groete / Greetings
> Elardus Engelbrecht
>
> PS: I know it is good to attend the SHARE in the sense you get
> information way before others and thus getting an advantage.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> The information contained in this message is proprietary and/or
> confidential. If you are not the intended recipient, please: (i)
> delete the message and all copies; (ii) do not disclose, distribute
> or use the message in any manner; and (iii) notify the sender
> immediately. In addition, please be aware that any message addressed
> to our domain is subject to archiving and review by persons other
> than the intended recipient. Thank you.
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

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

Re: (External):Re: Deleting all members of a pds

[Ted MacNEIL]

Or, more recent versions of IDCAMS.

-
-teD
-
  Original Message  
From: J O Skip Robinson
Sent: Thursday, November 19, 2015 19:07
To: IBM-MAIN@LISTSERV.UA.EDU
Reply To: IBM Mainframe Discussion List
Subject: Re: (External):Re: Deleting all members of a pds

Can also be accomplished with PDS[85] command or StarTool product. 

.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Thursday, November 19, 2015 3:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Deleting all members of a pds

I have installed the CBTTAPE.ORG utility PDSCLEAN for both PDS and PDSE 
datasets an it works very well. File 693.

Lizette



-Original Message-
>From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
>Sent: Nov 19, 2015 3:51 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Deleting all members of a pds
>
>On 2015-11-19 14:54, Ed Finnell wrote:
>> File 182 on CBT tape contains PDS command. It's a great tool. Can 
>> delete or delete by mask add space, copy, merge and fix. The 
>> commercial version is Startools from Serena. Has saved my bacon numerous 
>> times.
>> 
> STOW DCB,,I
>
>I believe (or hope) PDS uses that nowadays, since its older technique, 
>basically zapping the directory, didn't work for PDSE.
>
>> In a message dated 11/19/2015 3:43:17 P.M. Central Standard Time, 
>> johnmattson...@gmail.com writes:
>> 
>> Someone was asking about deleting all members of a pds. I just 
>> noticed that DFSort has a bunch of "samples" one of which includes 
>> how to use ICETOOL to delete all members of a PDS. Hope this helps. 
>> Lots of other neat things in here too.
>
>I hope it (and IDCAMS) uses STOW. Deleting members one-by-one can be expensive.
>But if so, first sort in reverse order.
>
>I'm not going to measure timings
>
>-- gil


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

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

Re: Deleting all members of a pds

[Paul Gilmartin]

Re: 
https://listserv.ua.edu/cgi-bin/wa?A2=ind1511&L=ibm-main&P=R37953&1=ibm-main&9=A&I=-3&J=on&X=C539315E5DAE4A6734&Y=PaulGBoulder%40AIM.COM&d=No+Match%3BMatch%3BMatches&z=4

On Fri, 20 Nov 2015 10:51:04 -0800, retired mainframer wrote:
 
>
>
>> When better techniques become available, perhaps the inferior ones should
>> me marked in future editions as deprecated.
>
>So every time IBM makes an update to a marketed product, they should search 
>all the freebies to see if they might need some pedantic update to the code or 
>documentation?  It's not enough that IBM allows people to spend time on the 
>clock to develop this stuff for which they will not charge and make it 
>available to all, even non-customers and competitors?  That would probably 
>kill the incentive to release any "as is/no warranty or support" tools of any 
>kind.
>  
No, but it was implied earlier in this thread that the document contains 
contributed
material.  They might likewise consider suggested updates.

Corequisite updates are a sore point.  Many IBM utilities fail with z/OS UNIX 
files
as input because of something akin to "unsupported device type", while they
continue to support card readers and punches.  Often it appears the check is
gratuitous -- it can be defeated by preconcatenating an empty Classic data set.
Simply, such  checks should be eliminated; deferred to the access method to
succeed or fail.


>Didn't anyone read the reference?  On page 84:  " For PDSs with lots of 
>members, you can improve the performance of the IDCAMS step by deleting the 
>members in reverse order. To do this, just add:
>SORT FIELDS=(1,8,CH,D)
>to CTL2CNTL to sort the members in descending order.
>
It would have been clearer in CTL2CNTL, clearly commented.

Does DFSORT input allow comments?  There are several things every language
should support, such as:

o Comments, like HLASM "*".

o No-op, like HLASM ANOP

o User-generated error messages, like HLASM MNOTE.

There are reasons for all these.

-- gil

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

Re: Deleting all members of a pds

[retired mainframer]

> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Paul Gilmartin
> Sent: Friday, November 20, 2015 8:58 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: Deleting all members of a pds
> 


> When better techniques become available, perhaps the inferior ones should
> me marked in future editions as deprecated.

So every time IBM makes an update to a marketed product, they should search all 
the freebies to see if they might need some pedantic update to the code or 
documentation?  It's not enough that IBM allows people to spend time on the 
clock to develop this stuff for which they will not charge and make it 
available to all, even non-customers and competitors?  That would probably kill 
the incentive to release any "as is/no warranty or support" tools of any kind.
 
> But, yes, they continue to have instructional value, at least as syntax 
> examples.
> 
> >>>>Does it at least sort the list in descending order?
> >
> >Descending order of what? member names or Size? Why exactly do you need to
> >sort the list ? Do you think it would make a difference to the directory
> >blocks? And just for the record as DFSORT is capable of sorting the member
> >names in either ascending/descending order.
> >
> Member names.  I believe that when the alphabetically first member is deleted
> all following directory blocks (not data blocks) are rewritten to fill the 
> gap, an
> unwelcome quadratic behavior.  Deleting the last member requires rewriting 
> only
> the last active directory block.  (Yes, I thought this would be a natural 
> application
> of DFSORT.  I bet DFSORT is faster than quadratic time.)

Didn't anyone read the reference?  On page 84:  " For PDSs with lots of 
members, you can improve the performance of the IDCAMS step by deleting the 
members in reverse order. To do this, just add:
SORT FIELDS=(1,8,CH,D)
to CTL2CNTL to sort the members in descending order.

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

Re: Deleting all members of a pds

[Sri h Kolusu]

>>> Member names. The reason would be that a PDS directory is maintainedin 
order, 
> and the directory is always kept compressed.

Tom,

Thanks for the info and as mentioned earlier DFSORT has the ability of 
sorting the member names in ascending/descending order. Here is a sample 
to show just the sorting of pds member names.

//STEP0100 EXEC PGM=IKJEFT01 
//SYSTSPRT DD DSN=&&MBRS,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE), 
//DCB=(LRECL=80,RECFM=FB,BLKSIZE=0),UNIT=SYSDA 
//SYSTSIN  DD * 
  LISTDS 'USERID.PDS' MEMBERS 
//* 
//STEP0200 EXEC PGM=SORT 
//SYSOUT   DD SYSOUT=* 
//SORTIN   DD DISP=SHR,DSN=&&MBRS 
//SORTOUT  DD SYSOUT=* 
//SYSINDD * 
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,11,CH,EQ,C'--MEMBERS--'), 
  END=(1,5,CH,EQ,C'READY'),PUSH=(81:ID=1)), 
  IFTHEN=(WHEN=(1,11,CH,EQ,C'--MEMBERS--',OR, 
1,05,CH,EQ,C'READY'),OVERLAY=(81:8X)) 
 
  SORT FIELDS=(81,1,CH,A, 
   03,08,CH,D),EQUALS 
//* 

Thanks,
Kolusu
DFSORT Development
IBM Corporation

IBM Mainframe Discussion List  wrote on 
11/20/2015 09:54:59 AM:

> From: Tom Marchant <000a2a8c2020-dmarc-requ...@listserv.ua.edu>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/20/2015 09:55 AM
> Subject: Re: Deleting all members of a pds
> Sent by: IBM Mainframe Discussion List 
> 
> On Fri, 20 Nov 2015 08:11:08 -0700, Sri h Kolusu wrote:
> 
> >>>>Does it at least sort the list in descending order? 
> >
> >Descending order of what? member names or Size? Why exactly do you need 
to 
> >sort the list ? Do you think it would make a difference to the 
directory 
> >blocks?
> 
> Member names. The reason would be that a PDS directory is maintainedin 
order, 
> and the directory is always kept compressed.
> 
> Whenever a member is deleted from a PDS, the following directory 
> entries are all 
> shifted to the left. Then, if there is enough space at the end of 
> that directory 
> block, the first entry from the next block is moved to that space, 
> and the process 
> repeats to the end of the directory.
> 
> As a result, there is less I/O if they are deleted starting at the 
> end of the directory. 
> This is especially true if there are a lot of members in the PDS.
> 
> -- 
> Tom Marchant
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 



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

Re: Deleting all members of a pds

[Paul Gilmartin]

On Fri, 20 Nov 2015 08:11:08 -0700, Sri h Kolusu wrote:

>>>I looked at that.  It builds a list of IDCAMS commands to delete the 
>members one-by-one.
>
>Well the deletion of all members of a PDS DFSORT trick is written when 
>IDCAMS did not support the Wild card deletion function on PDS members. So 
>DFSORT chose the traditional method of deleting the members.  The new 
>features are written based on the customers needs and  if a customer is 
>upto date with the latest features then he can use IDCAMS wild card 
>deletion. We just keep on adding new tricks of DFSORT and never delete off 
>any trick from that document.
>
>Similarly DFSORT had another trick of reading GDG generations in FIFO 
>order and with z/OS 2.1 the system itself supports the FIFO parm.  So the 
>new enhancements gives you an alternative solution and the customer is 
>wise to chose the optimal solution. 
> 
When better techniques become available, perhaps the inferior ones should
me marked in future editions as deprecated.

But, yes, they continue to have instructional value, at least as syntax 
examples.

Does it at least sort the list in descending order? 
>
>Descending order of what? member names or Size? Why exactly do you need to 
>sort the list ? Do you think it would make a difference to the directory 
>blocks? And just for the record as DFSORT is capable of sorting the member 
>names in either ascending/descending order.
>
Member names.  I believe that when the alphabetically first member is deleted
all following directory blocks (not data blocks) are rewritten to fill the gap, 
an
unwelcome quadratic behavior.  Deleting the last member requires rewriting only
the last active directory block.  (Yes, I thought this would be a natural 
application
of DFSORT.  I bet DFSORT is faster than quadratic time.)

Thanks,
gil

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

Re: Deleting all members of a pds

[Tom Marchant]

On Fri, 20 Nov 2015 08:11:08 -0700, Sri h Kolusu wrote:

Does it at least sort the list in descending order? 
>
>Descending order of what? member names or Size? Why exactly do you need to 
>sort the list ? Do you think it would make a difference to the directory 
>blocks?

Member names. The reason would be that a PDS directory is maintained in order, 
and the directory is always kept compressed.

Whenever a member is deleted from a PDS, the following directory entries are 
all 
shifted to the left. Then, if there is enough space at the end of that 
directory 
block, the first entry from the next block is moved to that space, and the 
process 
repeats to the end of the directory.

As a result, there is less I/O if they are deleted starting at the end of the 
directory. 
This is especially true if there are a lot of members in the PDS.

-- 
Tom Marchant

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

Re: Deleting all members of a pds

[Paul Gilmartin]

On Fri, 20 Nov 2015 06:58:42 -0500, John Eells wrote:

>For the curious, IDCAMS does indeed use STOW (with I) to delete all the
>members of a PDS or PDSE. This is not only fast, but it eliminates any
>need to compress a PDS afterward. (Had you come to SHARE, you might have
>known that--hint, hint. ;-)
> 
I understand that the old CBT technique for PDS (doesn't work for PDSE)
writes 8x'FF' at the beginning of the directory, then EOF at the beginning
of the data area (and/or resets DS1LSTAR?)  No compression should be
necessary.

>Also, this function has been available since z/OS V1.12, so everybody
>running on a supported release can use it.
>
So many inferior alternatives have been suggested in this thread that I
submitted an RCF, even though it comes uncomfortably close to a
discussion of internals:

Hello, MHVRCFs,

In:

Required Parameters (for the DELETE command)

z/OS DFSMS Access Method Services Commands
SC23-6846-01

I read:

   If a member in the list matches the filter criteria, the member is
   deleted. If you specify the entryname in the format of a partition[ed]
   data set, pdsname(*) or pdsname(**) , the command deletes all the
   members in the partition data set. If the partitioned[ed] data set is
   not a PDSE, the directory is reinitailized when using pdsname(*) , but
   not for pdsname(**).

(Spelling suggestions in "[...]")

This ought to mention that IDCAMS DELETE pdsname(*) uses a highly efficient
technique and programmers should prefer it over other techniques, even some
which remain described in other (obsolescent) IBM publications.

(How does one delete all members of a non-PDSE without reinitializing the
directory?  It seems that 8x'FF' must be written at the beginning, and then
the directory is de facto initialized.  Does "reinitialized" mean that
all further directory blocks are overwritten (with binary zeroes?) to
remove any residual data?)

Thanks,
gil

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

Re: Deleting all members of a pds

[Sri h Kolusu]

>>I looked at that.  It builds a list of IDCAMS commands to delete the 
members one-by-one.

Well the deletion of all members of a PDS DFSORT trick is written when 
IDCAMS did not support the Wild card deletion function on PDS members. So 
DFSORT chose the traditional method of deleting the members.  The new 
features are written based on the customers needs and  if a customer is 
upto date with the latest features then he can use IDCAMS wild card 
deletion. We just keep on adding new tricks of DFSORT and never delete off 
any trick from that document.

Similarly DFSORT had another trick of reading GDG generations in FIFO 
order and with z/OS 2.1 the system itself supports the FIFO parm.  So the 
new enhancements gives you an alternative solution and the customer is 
wise to chose the optimal solution. 

>>>Does it at least sort the list in descending order? 

Descending order of what? member names or Size? Why exactly do you need to 
sort the list ? Do you think it would make a difference to the directory 
blocks? And just for the record as DFSORT is capable of sorting the member 
names in either ascending/descending order.

Thanks,
Kolusu
DFSORT Development




From:   Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
To: IBM-MAIN@LISTSERV.UA.EDU
Date:   11/19/2015 05:30 PM
Subject:    Re: Deleting all members of a pds
Sent by:IBM Mainframe Discussion List 



On 2015-11-19 15:04, R.S. wrote:
> W dniu 2015-11-19 o 22:42, John Mattson pisze:
>> Someone was asking about deleting all members of a pds.  I just noticed
>> that DFSort has a bunch of "samples" one of which includes how to use
>> ICETOOL to delete all members of a PDS.  Hope this helps.  Lots of 
other
>> neat things in here too.
>> http://www-01.ibm.com/support/docview.wss?uid=isg3T794
> Smart DFSORT tricks! 
>
I looked at that.  It builds a list of IDCAMS commands to delete the 
members
one-by-one.  Now that there are better techniques, it becomes less smart.
Does it at least sort the list in descending order?  Does IDCAMS
DELETE DATA.SET.NAME(*)
use STOW ,,I?

> I was really proud to be one of the tricks authors!
> Recently I was placed in some redpaper about exploitation of large 
amount of memory, again it was related to DFSORT.
> :-)
> 

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





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

Re: Deleting all members of a pds

[Brenton, Ren]

Forgot the initial CC = 0 line some where before line 4

Ren
Ext 1448

-Original Message-
From: Brenton, Ren 
Sent: Friday, November 20, 2015 9:37 AM
To: 'IBM Mainframe Discussion List' 
Subject: Re: Deleting all members of a pds

Address "ISPEXEC" "LMINIT DATAID(FDTID) DATASET('"dsn"') ENQ(SHRW)"   
Address "ISPEXEC" "LMOPEN DATAID("fdtid") OPTION(OUTPUT)" 
Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)" 
Do While cc = 0   
   Address "ISPEXEC" "LMMDEL DATAID("fdtid") MEMBER("memnm") NOENQ"   
   cc = rc
   Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)"  
   cc = rc
End   
Address "ISPEXEC" "LMCLOSE DATAID("fdtid")"   
Address "ISPEXEC" "LMFREE DATAID("fdtid")"        

Ren
Ext 1448

-----Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Friday, November 20, 2015 7:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Re: Deleting all members of a pds

Peter Hunkeler wrote:

>>(Had you come to SHARE, you might have known that--hint, hint. ;-)

>Re: hint, hint, John, would you find some time to convince our upper level 
>management of many companies of the value of SHARE, etc?

Hint, hint - the rarity of money beats the value of SHARE by a full knock-out...

>Sorry, could not resist.

Neither me. ;-)

Groete / Greetings
Elardus Engelbrecht

PS: I know it is good to attend the SHARE in the sense you get information way 
before others and thus getting an advantage.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: Deleting all members of a pds

[Brenton, Ren]

Address "ISPEXEC" "LMINIT DATAID(FDTID) DATASET('"dsn"') ENQ(SHRW)"   
Address "ISPEXEC" "LMOPEN DATAID("fdtid") OPTION(OUTPUT)" 
Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)" 
Do While cc = 0   
   Address "ISPEXEC" "LMMDEL DATAID("fdtid") MEMBER("memnm") NOENQ"   
   cc = rc
   Address "ISPEXEC" "LMMLIST DATAID("fdtid") MEMBER(MEMNM)"  
   cc = rc
End   
Address "ISPEXEC" "LMCLOSE DATAID("fdtid")"   
Address "ISPEXEC" "LMFREE DATAID("fdtid")"

Ren
Ext 1448

-----Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Friday, November 20, 2015 7:59 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AW: Re: Deleting all members of a pds

Peter Hunkeler wrote:

>>(Had you come to SHARE, you might have known that--hint, hint. ;-)

>Re: hint, hint, John, would you find some time to convince our upper level 
>management of many companies of the value of SHARE, etc?

Hint, hint - the rarity of money beats the value of SHARE by a full knock-out...

>Sorry, could not resist.

Neither me. ;-)

Groete / Greetings
Elardus Engelbrecht

PS: I know it is good to attend the SHARE in the sense you get information way 
before others and thus getting an advantage.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
The information contained in this message is proprietary and/or confidential. 
If you are not the intended recipient, please: (i) delete the message and all 
copies; (ii) do not disclose, distribute or use the message in any manner; and 
(iii) notify the sender immediately. In addition, please be aware that any 
message addressed to our domain is subject to archiving and review by persons 
other than the intended recipient. Thank you.


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

Re: AW: Re: Deleting all members of a pds

[Elardus Engelbrecht]

Peter Hunkeler wrote:

>>(Had you come to SHARE, you might have known that--hint, hint. ;-)

>Re: hint, hint, John, would you find some time to convince our upper level 
>management of many companies of the value of SHARE, etc?

Hint, hint - the rarity of money beats the value of SHARE by a full knock-out...

>Sorry, could not resist.

Neither me. ;-)

Groete / Greetings 
Elardus Engelbrecht

PS: I know it is good to attend the SHARE in the sense you get information way 
before others and thus getting an advantage.

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

AW: Re: Deleting all members of a pds

[Peter Hunkeler]

>(Had you come to SHARE, you might have known that--hint, hint. ;-)


Re: hint, hint, John, would you find some time to convince our upper level 
management of many companies of the value of SHARE, etc?


Sorry, could not resist.


--
Peter Hunkeler




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

Re: Deleting all members of a pds

[John Eells]

For the curious, IDCAMS does indeed use STOW (with I) to delete all the 
members of a PDS or PDSE. This is not only fast, but it eliminates any 
need to compress a PDS afterward. (Had you come to SHARE, you might have 
known that--hint, hint. ;-)


Also, this function has been available since z/OS V1.12, so everybody 
running on a supported release can use it.


--
John Eells
IBM Poughkeepsie
ee...@us.ibm.com

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

Re: Deleting all members of a pds

[Elardus Engelbrecht]

Paul Gilmartin wrote:

>I looked at that.  It builds a list of IDCAMS commands to delete the members 
>one-by-one.  

Obsolete by now.

> Does IDCAMS DELETE DATA.SET.NAME(*)

Yes, it is documented "If you specify the entryname in the format of a 
partition data set, pdsname(*), the command deletes all the members in the 
partition data set."

>use STOW ,,I?

I wish I know, but there is that nasty magic word: 'OCO'. - One more reason for 
you to hate everything like JCL and MVS! ;-)

Groete / Greetings
Elardus Engelbrecht

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

Re: Deleting all members of a pds

[Paul Gilmartin]

On 2015-11-19 15:04, R.S. wrote:
> W dniu 2015-11-19 o 22:42, John Mattson pisze:
>> Someone was asking about deleting all members of a pds.  I just noticed
>> that DFSort has a bunch of "samples" one of which includes how to use
>> ICETOOL to delete all members of a PDS.  Hope this helps.  Lots of other
>> neat things in here too.
>> http://www-01.ibm.com/support/docview.wss?uid=isg3T794
> Smart DFSORT tricks! 
>
I looked at that.  It builds a list of IDCAMS commands to delete the members
one-by-one.  Now that there are better techniques, it becomes less smart.
Does it at least sort the list in descending order?  Does IDCAMS
DELETE DATA.SET.NAME(*)
use STOW ,,I?

> I was really proud to be one of the tricks authors!
> Recently I was placed in some redpaper about exploitation of large amount of 
> memory, again it was related to DFSORT.
> :-)
> 

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

Re: (External):Re: Deleting all members of a pds

[J O Skip Robinson]

Can also be accomplished with PDS[85] command or StarTool product. 

.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
jo.skip.robin...@sce.com

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Lizette Koehler
Sent: Thursday, November 19, 2015 3:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: Deleting all members of a pds

I have installed the CBTTAPE.ORG utility PDSCLEAN for both PDS and PDSE 
datasets an it works very well.  File 693.

Lizette



-Original Message-
>From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
>Sent: Nov 19, 2015 3:51 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Deleting all members of a pds
>
>On 2015-11-19 14:54, Ed Finnell wrote:
>> File 182 on CBT tape contains PDS command. It's a great tool. Can 
>> delete or  delete by mask add space, copy, merge and fix. The 
>> commercial version is Startools from Serena. Has saved my bacon numerous 
>> times.
>>  
> STOW  DCB,,I
>
>I believe (or hope) PDS uses that nowadays, since its older technique, 
>basically zapping the directory, didn't work for PDSE.
>
>> In a message dated 11/19/2015 3:43:17 P.M. Central Standard Time, 
>> johnmattson...@gmail.com writes:
>> 
>> Someone  was asking about deleting all members of a pds.  I just 
>> noticed that  DFSort has a bunch of "samples" one of which includes 
>> how to use ICETOOL to  delete all members of a PDS.  Hope this helps.  
>> Lots of  other neat things in here  too.
>
>I hope it (and IDCAMS) uses STOW.  Deleting members one-by-one can be 
>expensive.
>But if so, first sort in reverse order.
>
>I'm not going to measure timings
>
>-- gil


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

Re: Deleting all members of a pds

[Lizette Koehler]

I have installed the CBTTAPE.ORG utility PDSCLEAN for both PDS and PDSE 
datasets an it works very well.  File 693.

Lizette



-Original Message-
>From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu>
>Sent: Nov 19, 2015 3:51 PM
>To: IBM-MAIN@LISTSERV.UA.EDU
>Subject: Re: Deleting all members of a pds
>
>On 2015-11-19 14:54, Ed Finnell wrote:
>> File 182 on CBT tape contains PDS command. It's a great tool. Can delete or 
>>  delete by mask add space, copy, merge and fix. The commercial version is  
>> Startools from Serena. Has saved my bacon numerous times.
>>  
> STOW  DCB,,I
>
>I believe (or hope) PDS uses that nowadays, since its older technique,
>basically zapping the directory, didn't work for PDSE.
>
>> In a message dated 11/19/2015 3:43:17 P.M. Central Standard Time,  
>> johnmattson...@gmail.com writes:
>> 
>> Someone  was asking about deleting all members of a pds.  I just noticed
>> that  DFSort has a bunch of "samples" one of which includes how to use
>> ICETOOL to  delete all members of a PDS.  Hope this helps.  Lots of  other
>> neat things in here  too.
>
>I hope it (and IDCAMS) uses STOW.  Deleting members one-by-one can be 
>expensive.
>But if so, first sort in reverse order.
>
>I'm not going to measure timings
>
>-- gil

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

Re: Deleting all members of a pds

[Paul Gilmartin]

On 2015-11-19 14:54, Ed Finnell wrote:
> File 182 on CBT tape contains PDS command. It's a great tool. Can delete or 
>  delete by mask add space, copy, merge and fix. The commercial version is  
> Startools from Serena. Has saved my bacon numerous times.
>  
 STOW  DCB,,I

I believe (or hope) PDS uses that nowadays, since its older technique,
basically zapping the directory, didn't work for PDSE.

> In a message dated 11/19/2015 3:43:17 P.M. Central Standard Time,  
> johnmattson...@gmail.com writes:
> 
> Someone  was asking about deleting all members of a pds.  I just noticed
> that  DFSort has a bunch of "samples" one of which includes how to use
> ICETOOL to  delete all members of a PDS.  Hope this helps.  Lots of  other
> neat things in here  too.

I hope it (and IDCAMS) uses STOW.  Deleting members one-by-one can be expensive.
But if so, first sort in reverse order.

I'm not going to measure timings

-- gil

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

Re: Deleting all members of a pds

[R.S.]

W dniu 2015-11-19 o 22:42, John Mattson pisze:

Someone was asking about deleting all members of a pds.  I just noticed
that DFSort has a bunch of "samples" one of which includes how to use
ICETOOL to delete all members of a PDS.  Hope this helps.  Lots of other
neat things in here too.
http://www-01.ibm.com/support/docview.wss?uid=isg3T794

Smart DFSORT tricks!
I was really proud to be one of the tricks authors!
Recently I was placed in some redpaper about exploitation of large 
amount of memory, again it was related to DFSORT.

:-)

--
Radoslaw Skorupka
Lodz, Poland






--
Treść tej wiadomości może zawierać informacje prawnie chronione Banku 
przeznaczone wyłącznie do użytku służbowego adresata. Odbiorcą może być jedynie 
jej adresat z wyłączeniem dostępu osób trzecich. Jeżeli nie jesteś adresatem 
niniejszej wiadomości lub pracownikiem upoważnionym do jej przekazania 
adresatowi, informujemy, że jej rozpowszechnianie, kopiowanie, rozprowadzanie 
lub inne działanie o podobnym charakterze jest prawnie zabronione i może być 
karalne. Jeżeli otrzymałeś tę wiadomość omyłkowo, prosimy niezwłocznie 
zawiadomić nadawcę wysyłając odpowiedź oraz trwale usunąć tę wiadomość 
włączając w to wszelkie jej kopie wydrukowane lub zapisane na dysku.

This e-mail may contain legally privileged information of the Bank and is 
intended solely for business use of the addressee. This e-mail may only be 
received by the addressee and may not be disclosed to any third parties. If you 
are not the intended addressee of this e-mail or the employee authorized to 
forward it to the addressee, be advised that any dissemination, copying, 
distribution or any other similar activity is legally prohibited and may be 
punishable. If you received this e-mail by mistake please advise the sender 
immediately by using the reply facility in your e-mail software and delete 
permanently this e-mail including any copies of it either printed or saved to 
hard drive.

mBank S.A. z siedzibą w Warszawie, ul. Senatorska 18, 00-950 Warszawa, 
www.mBank.pl, e-mail: kont...@mbank.pl
Sąd Rejonowy dla m. st. Warszawy XII Wydział Gospodarczy Krajowego Rejestru 
Sądowego, nr rejestru przedsiębiorców KRS 025237, NIP: 526-021-50-88. 
Według stanu na dzień 01.01.2015 r. kapitał zakładowy mBanku S.A. (w całości 
wpłacony) wynosi 168.840.228 złotych.


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

Re: Deleting all members of a pds

[Graham Harris]

In z/OS V1R12, DFSMS access method services (IDCAMS) adds a new wildcard
option to the DELETE command, which lets you delete all members of a PDS or
PDSE.

https://www-01.ibm.com/support/knowledgecenter/SSLTBW_1.13.0/com.ibm.zos.r13.idak100/amspdse12.htm%23amspdse12


On 19 November 2015 at 21:42, John Mattson  wrote:

> Someone was asking about deleting all members of a pds.  I just noticed
> that DFSort has a bunch of "samples" one of which includes how to use
> ICETOOL to delete all members of a PDS.  Hope this helps.  Lots of other
> neat things in here too.
> http://www-01.ibm.com/support/docview.wss?uid=isg3T794
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

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

Re: Deleting all members of a pds

[Ed Finnell]

File 182 on CBT tape contains PDS command. It's a great tool. Can delete or 
 delete by mask add space, copy, merge and fix. The commercial version is  
Startools from Serena. Has saved my bacon numerous times.
 
 
In a message dated 11/19/2015 3:43:17 P.M. Central Standard Time,  
johnmattson...@gmail.com writes:

Someone  was asking about deleting all members of a pds.  I just noticed
that  DFSort has a bunch of "samples" one of which includes how to use
ICETOOL to  delete all members of a PDS.  Hope this helps.  Lots of  other
neat things in here  too.


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