To delete 40 thousands flatfiles at a time

shannu · New User Joined: 01 Jun 2005 Posts: 17 Location: bangalore

Hi,

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

thanks,
shannu.

MGIndaco · Posted: Wed Jun 01, 2005 1:51 pm

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

KP · New User Joined: 27 May 2005 Posts: 1 Location: Warszawa

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

shannu · New User Joined: 01 Jun 2005 Posts: 17 Location: bangalore

Hi,

Can anybody provide a sample on my query.

Thanks,
shannu.

subhash gowda · New User Joined: 02 Jun 2005 Posts: 12

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

Rupesh.Kothari · Member of the Month Joined: 27 Apr 2005 Posts: 463

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
/*
//

balakrishna reddy · Posted: Wed Aug 08, 2007 10:37 am

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.

murmohk1 · Posted: Wed Aug 08, 2007 10:44 am

balakrishna reddy,

agkshirsagar · Posted: Wed Aug 08, 2007 10:45 am

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.

Aaru · Posted: Wed Aug 08, 2007 10:48 am

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.