How can I delete disk files based on names in another file?

Hello all,

I need to delete many files each time I run a particular job.
What I have tried and will like to do is to create a file which contains names of the files that I want to delete.

For example, the input file will look like the following:

Input_File:

GO1.OSCR.D1UNL.GO1DDEV1.GO1SCAM1.PUNCH,DISP=(OLD,DELETE,DELETE)
GO1.OSCR.D1UNL.GO1DDEV1.GO1SCJR1.PUNCH,DISP=(OLD,DELETE,DELETE)
GO1.OSCR.D1UNL.GO1DDEV1.GO1SDNF1.PUNCH,DISP=(OLD,DELETE,DELETE)
GO1.OSCR.D1UNL.GO1DDEV1.GO1SGAJ1.PUNCH,DISP=(OLD,DELETE,DELETE)
GO1.OSCR.D1UNL.GO1DDEV1.GO1SGCT1.PUNCH,DISP=(OLD,DELETE,DELETE)
...

I tried the following JCL which ran fine but did not delete the datasets I am interested in:
//JOBCARD
//UTL1000U EXEC PGM=IEFBR14
//SYSUDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=GO1.OGADM31.ATEMPFIL,DISP=SHR
//SYSIN DD DUMMY
//*

Can anyone suggest a way to accomplish what I need to get done?
I will greatly appreciate any help that I can get.

Thanks
EnyinnayaAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
Advertise Here
 
giltjrConnect With a Mentor Commented:
IEFBR14 does not accept any "input" data.  It is a "dummy" program that clears the value in register 15 and then branches back to the "caller", which is the z/OS.

You could use IDCAMS using the IDCAMS delete command.  So in your file you would have lines like:

DELETE  GO1.OSCR.D1UNL.GO1DDEV1.GO1SCAM1.PUNCH

Then your JCL would be something like

//S01OF99 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=DSN=GO1.OGADM31.ATEMPFIL,DISP=SHR

Now, you could also use IEFBR14, but you would need a unique DD statement for each file that would look something like:

//FILE0001 DD DSN=GO1.OSCR.D1UNL.GO1DDEV1.GO1SCAM1.PUNCH,DISP=(MOD,DELETE)

You need to use "MOD,DELETE" instead of "OLD,DELETE."  If you use OLD and one of the files in the list did not exist, then you would get a JCL error.  With "MOD,DELETE" if a file does not exist, the system will create it and then delete it right away.

If the files you are deleting are not SMS managed, then you would also need to add space and volume parameters in case the files don't exist.
0
 
EnyinnayaAuthor Commented:
I just tried the IDCAMS suggestion and it did not work. I got the following error for all the files I wanted to delete:

 DELETE GO1.FDBEV1.OSCR.D1UNL.GO1SCAM1.PUNCH
IDC3012I ENTRY GO1.FDBEV1.OSCR.D1UNL.GO1SCAM1.PUNCH NOT FOUND
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLEG-42
IDC0551I ** ENTRY GO1.FDBEV1.OSCR.D1UNL.GO1SCAM1.PUNCH NOT DELETED
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 8

Is there something that I am doing wrong here?

Thanks
0
 
giltjrCommented:
That tells me the data set either does not exist or is not cataloged.
0
 
EnyinnayaAuthor Commented:
I've requested that this question be closed as follows:

Accepted answer: 0 points for Enyinnaya's comment #a38831708

for the following reason:

Again thank you
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.