Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
To delete 40 thousands flatfiles at a time

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
shannu

New User


Joined: 01 Jun 2005
Posts: 17
Location: bangalore

PostPosted: Wed Jun 01, 2005 11:02 am    Post subject: To delete 40 thousands flatfiles at a time
Reply with quote

Hi,

Is there any particular procedure or program or approach to delete 40 thousands flatfiles at a time

thanks,
shannu.
Back to top
View user's profile Send private message

MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Wed Jun 01, 2005 1:51 pm    Post subject:
Reply with quote

I think that are at least three methods to do what you need!
First is a selection of storage group where files are stored; second is a common root in the name of your flat files; third is a manual selection throught distinctive feature (as creation date, referenced date, traks and so on).
When you will have a list of files then you can delete them with idcams utility or other.

I think that if you ask to your storage admin he can be easy answer with practical sample
Back to top
View user's profile Send private message
KP

New User


Joined: 27 May 2005
Posts: 1
Location: Warszawa

PostPosted: Wed Jun 01, 2005 7:01 pm    Post subject: Re: To delete 40 thousands flatfiles at a time
Reply with quote

You can use ADRDSSU - many options to filter datasets ( by name,type, recfm, creation date etc).
Use DUMP DATASET with option DELETE PURGE, with outfile referenced to DUMMY .

(but remember - it is fast but, doesn't work for HSM migrated datasets )

KP
Back to top
View user's profile Send private message
shannu

New User


Joined: 01 Jun 2005
Posts: 17
Location: bangalore

PostPosted: Thu Jun 02, 2005 9:36 am    Post subject: Re: To delete 40 thousands flatfiles at a time
Reply with quote

Hi,

Can anybody provide a sample on my query.

Thanks,
shannu.
Back to top
View user's profile Send private message
subhash gowda
Warnings : 1

New User


Joined: 02 Jun 2005
Posts: 12

PostPosted: Thu Jun 02, 2005 4:02 pm    Post subject: Re: To delete 40 thousands flatfiles at a time
Reply with quote

run a dummy progarm(i,e jcl utility),in that give first two qualifier and *,it will deletes all the files that belong to that two qualifier
Back to top
View user's profile Send private message
Rupesh.Kothari

Member of the Month


Joined: 27 Apr 2005
Posts: 464

PostPosted: Tue Jun 07, 2005 5:37 pm    Post subject: Re: To delete 40 thousands flatfiles at a time
Reply with quote

Hi
please find the sample JCL

//DeletDD JOB Rupesh,KOthari,MSGCLASS=X,CLASS=B,REGION=4M
//***************************************************
//STP01 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL Dataset.to.br.deleted1
DEL Dataset.to.br.deleted2
/*
//
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 130
Location: Guntur

PostPosted: Wed Aug 08, 2007 10:37 am    Post subject: Re: To delete 40 thousands flatfiles at a time
Reply with quote

hi rupesh,

as you gave an example jcl to delete files using idcams.

i have one query about the deletion,if one of the file which i have given in the jcl to delete does not exist then what will happen to the job.

if it abends then how to identify which dataset has caused that abend.
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Wed Aug 08, 2007 10:44 am    Post subject:
Reply with quote

balakrishna reddy,

Quote:
i have one query about the deletion,if one of the file which i have given in the jcl to delete does not exist then what will happen to the job.

Why dont you try it instead of waiting for reply.

Quote:
if it abends then how to identify which dataset has caused that abend.

Go through the sysprint message. You will come to know.
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 686
Location: Earth

PostPosted: Wed Aug 08, 2007 10:45 am    Post subject:
Reply with quote

The thread you have opened has been inactive for more than 2 years. Still hope for the best!, maybe someone else will answer your query.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Wed Aug 08, 2007 10:48 am    Post subject: Re: To delete 40 thousands flatfiles at a time
Reply with quote

If there is a common root in the naming convention of your 40,000 flat files then u can code a REXX exec to delete all the files in one shot using the ISPEXEC LISTID followed by the TSO DEL command.

This will reduce u r manual effort in listing all the datasets to be deleted in a JCL.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Comparision with current time arunsoods DFSORT/ICETOOL 5 Thu Nov 09, 2017 10:37 am
This topic is locked: you cannot edit posts or make replies. Comparing current time with the time ... arunsoods SYNCSORT 1 Mon Oct 30, 2017 4:07 pm
This topic is locked: you cannot edit posts or make replies. Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts VSAM RLS Wait time blayek JCL & VSAM 2 Mon Oct 02, 2017 9:05 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us