You can use IEBPDSE to validate a PDSE data set and determine whether it is 
valid or corrupted.

Lizette

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
David Spiegel
Sent: Sunday, October 18, 2020 6:56 AM
To: [email protected]
Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down

Hi Dave,
In case that it's a LNKLKSTd PDSE (i.e. not a PDS) and it's close to 100% full 
(Of course, it's only 1 extent, because that's a good practice for LNKLST 
Datasets)  and more than a few large modules/program objects are deemed to be 
in use, your IEBCOPY Job will ABEND x37, even though in ISPF Option 3.2 it 
looks empty.

During MQ Maintenace/Upgrades I've had to run IEBPDSE for every system which 
LNKLSTs SCSQAUTH.

Regards,
David

On 2020-10-18 08:24, Jousma, David wrote:
> Well, thanks for that.  It’s a new one on me.  For years, when replacing 
> contents of linklisted datasets, I've just deleted all members, copied all 
> new content in, and refreshed lla.
>
> ______________________________________________________________________
> _______________________________
> Dave Jousma
> AVP | Director, Technology Engineering
>
> Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand 
> Rapids, MI 49546
> 616.653.8429  |  fax: 616.653.2717
>
>
> -----Original Message-----
> From: IBM Mainframe Discussion List <[email protected]> On 
> Behalf Of David Spiegel
> Sent: Sunday, October 18, 2020 6:07 AM
> To: [email protected]
> Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down
>
> **CAUTION EXTERNAL EMAIL**
>
> **DO NOT open attachments or click on links from unknown senders or 
> unexpected emails**
>
> Hi Dave,
> For LNKLSTd PDSEs, modules deemed to be in use aren't "removed" from the 
> PDSE, which could cause shortage of directory blocks or space.
> I usually have to run it twice. The first time is without a PARM, the second 
> time with PARM='PerformPendingDelete,NoAnalysis'.
>
> Please see:
> https://eur05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
> ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.
> v2r3.idau100%2Fpdsexmp4.htm&amp;data=04%7C01%7C%7Ca56a150920a8496a24f7
> 08d87360d67b%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637386207048
> 000830%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJ
> BTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=aAbpMrMEEjDcjZVv6JSxQuQw3
> 0TaA1ix6tOrgaCFIuU%3D&amp;reserved=0
>
> Regards,
> David
>
>
> On 2020-10-18 01:18, Jousma, David wrote:
>> Never heard of the utility.  Why would that be needed?
>>
>> _____________________________________________________________________
>> _
>> _______________________________
>> Dave Jousma
>> AVP | Director, Technology Engineering
>>
>> Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand 
>> Rapids, MI 49546
>> 616.653.8429  |  fax: 616.653.2717
>>
>>
>> -----Original Message-----
>> From: IBM Mainframe Discussion List <[email protected]> On 
>> Behalf Of David Spiegel
>> Sent: Sunday, October 18, 2020 12:42 AM
>> To: [email protected]
>> Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down
>>
>> **CAUTION EXTERNAL EMAIL**
>>
>> **DO NOT open attachments or click on links from unknown senders or 
>> unexpected emails**
>>
>> Hi Dave,
>> If it's a Linklisted PDSE, you also may have to run IEBPDSE after the 
>> members are deleted.
>>
>> Regards,
>> David
>>
>> On 2020-10-18 00:11, Jousma, David wrote:
>>> That’s what I was going to say...doesnt get much easier.  I do this 
>>> all the time when I want to update the contents of a linklisted 
>>> dataset
>>>
>>> //IDCAMS   EXEC PGM=IDCAMS
>>> //SYSUDUMP DD   SYSOUT=*
>>> //SYSPRINT DD   SYSOUT=*
>>> //LIBRARY  DD DSN=your.pds.dataset,DISP=SHR //SYSIN DD *
>>>      DELETE your.pds.dataset(*)       FILE(LIBRARY)
>>> /*
>>> ____________________________________________________________________
>>> _
>>> _
>>> _______________________________
>>> Dave Jousma
>>> AVP | Director, Technology Engineering
>>>
>>> Fifth Third Bank  |  1830 East Paris Ave, SE  |  MD RSCB2H  |  Grand 
>>> Rapids, MI 49546
>>> 616.653.8429  |  fax: 616.653.2717
>>>
>>>
>>> -----Original Message-----
>>> From: IBM Mainframe Discussion List <[email protected]> On 
>>> Behalf Of Steve Horein
>>> Sent: Saturday, October 17, 2020 6:49 PM
>>> To: [email protected]
>>> Subject: Re: emptying a PDS: was RE: [IBM-MAIN] getting XCFAS down
>>>
>>> **CAUTION EXTERNAL EMAIL**
>>>
>>> **DO NOT open attachments or click on links from unknown senders or 
>>> unexpected emails**
>>>
>>> Good ole IDCAMS anyone?
>>> https://eur05.safelinks.protection.outlook.com/?url=https%3A%2F%2Fwww.
>>> ibm.com%2Fsupport%2Fknowledgecenter%2FSSLTBW_2.4.0%2Fcom.ibm.zos.v2r4.
>>> idai200%2Fdgt3i231.htm&amp;data=04%7C01%7C%7Cffe03d56aebe4262c3d308d
>>> 8
>>> 7
>>> 31bfa0e%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637385911284779
>>> 6
>>> 2
>>> 1%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTi
>>> I
>>> 6
>>> Ik1haWwiLCJXVCI6Mn0%3D%7C1000&amp;sdata=iyei6oTeqNIWXdTCZAFKf6vOccPP
>>> S
>>> d
>>> ryGpw8M8cBiwg%3D&amp;reserved=0
>>>
>>>
>>> On Sat, Oct 17, 2020 at 5:34 PM Chris Hoelscher 
>>> <[email protected]>
>>> wrote:
>>>
>>>> I have employed this REXX script for years:
>>>>
>>>> /* REXX */
>>>> DSNAME = 'my PDS'
>>>> 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
>>>> Lead Sys DBA
>>>> IBM Global Technical Services on assignmemt to Humana Inc.
>>>> T 502.476.2538  or 502.407.7266
>>>>
>>>>
>>>> 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.
>>>>
>>>> Humana Inc. and its subsidiaries comply with applicable Federal 
>>>> civil rights laws and do not discriminate on the basis of race, 
>>>> color, national origin, ancestry, age, disability, sex, marital 
>>>> status, gender, sexual orientation, gender identity, or religion.
>>>> Humana Inc. and its subsidiaries do not exclude people or treat 
>>>> them differently because of race, color, national origin, ancestry, 
>>>> age, disability, sex, marital status, gender, sexual orientation, 
>>>> gender identity, or religion.
>>>>
>>>> English: ATTENTION: If you do not speak English, language 
>>>> assistance services, free of charge, are available to you. Call 
>>>> 1‐877‐320‐1235
>>>> (TTY: 711).
>>>>
>>>> Español (Spanish): ATENCIÓN: Si habla español, tiene a su 
>>>> disposición servicios gratuitos de asistencia lingüística. Llame al
>>>> 1‐877‐320‐1235
>>>> (TTY: 711).
>>>>
>>>> 繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
>>>> 服務。請致電 1‐877‐320‐1235 (TTY: 711)。
>>>>
>>>> Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl 
>>>> Ayisyen, gen sèvis èd pou lang ki disponib gratis pou ou. Rele 
>>>> 1‐877‐320‐1235
>>>> (TTY: 711).
>>>>
>>>> Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać 
>>>> z bezpłatnej pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY:
>>>> 711).
>>>>
>>>> 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로 이용하실 수 있습니다.
>>>> 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오.
>>>>
>>>>
>>>> -------------------------------------------------------------------
>>>> -
>>>> -
>>>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>>>> send email to [email protected] with the message: INFO 
>>>> IBM-MAIN
>>>>
>>> --------------------------------------------------------------------
>>> -
>>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>>> send email to [email protected] with the message: INFO 
>>> IBM-MAIN **CAUTION EXTERNAL EMAIL**
>>>
>>> **DO NOT open attachments or click on links from unknown senders or 
>>> unexpected emails**
>>>
>>> This e-mail transmission contains information that is confidential and may 
>>> be privileged.   It is intended only for the addressee(s) named above. If 
>>> you receive this e-mail in error, please do not read, copy or disseminate 
>>> it in any manner. If you are not the intended recipient, any disclosure, 
>>> copying, distribution or use of the contents of this information is 
>>> prohibited. Please reply to the message immediately by informing the sender 
>>> that the message was misdirected. After replying, please erase it from your 
>>> computer system. Your assistance in correcting this error is appreciated.
>>>
>>>
>>> --------------------------------------------------------------------
>>> -
>>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>>> send email to [email protected] with the message: INFO 
>>> IBM-MAIN
>> ---------------------------------------------------------------------
>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>> send email to [email protected] with the message: INFO 
>> IBM-MAIN **CAUTION EXTERNAL EMAIL**
>>
>> **DO NOT open attachments or click on links from unknown senders or 
>> unexpected emails**
>>
>> This e-mail transmission contains information that is confidential and may 
>> be privileged.   It is intended only for the addressee(s) named above. If 
>> you receive this e-mail in error, please do not read, copy or disseminate it 
>> in any manner. If you are not the intended recipient, any disclosure, 
>> copying, distribution or use of the contents of this information is 
>> prohibited. Please reply to the message immediately by informing the sender 
>> that the message was misdirected. After replying, please erase it from your 
>> computer system. Your assistance in correcting this error is appreciated.
>>
>>
>> ---------------------------------------------------------------------
>> - For IBM-MAIN subscribe / signoff / archive access instructions, 
>> send email to [email protected] with the message: INFO 
>> IBM-MAIN
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN 
> **CAUTION EXTERNAL EMAIL**
>
> **DO NOT open attachments or click on links from unknown senders or 
> unexpected emails**
>
> This e-mail transmission contains information that is confidential and may be 
> privileged.   It is intended only for the addressee(s) named above. If you 
> receive this e-mail in error, please do not read, copy or disseminate it in 
> any manner. If you are not the intended recipient, any disclosure, copying, 
> distribution or use of the contents of this information is prohibited. Please 
> reply to the message immediately by informing the sender that the message was 
> misdirected. After replying, please erase it from your computer system. Your 
> assistance in correcting this error is appreciated.
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to