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&data=04%7C01%7C%7Cffe03d56aebe4262c3d308d8731bfa0e%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C637385911284779621%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=iyei6oTeqNIWXdTCZAFKf6vOccPPSdryGpw8M8cBiwg%3D&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
