Delete all datasets in JCL with DISP=NEW if they exist

niks_jude · Posted: Fri May 23, 2008 3:04 pm

We do not have a utility like CA11RMS in our system to do such a thing.

Can I have a REXX code which deletes all datasets with DISP=NEW if they are alreay catalogued. This would save us from manually deleting all such datasets in every re-run.

enrico-sorichetti · Posted: Fri May 23, 2008 3:10 pm

check the cleanup utility by Gilbert Saint Flour
file 183 of cbttape or..
search the net for "gilbert saint flour freeware" or
go there directly

review with Your support before using

niks_jude · Posted: Fri May 23, 2008 4:33 pm

We will not be able to use this assembler program as we are not allowed to use such free load modules. If I can get a REXX that would be great help.

enrico-sorichetti · Posted: Fri May 23, 2008 4:44 pm

it' s not a object only thing...
the source is there and can reviewed and audited by Your support

even if You got somebody' s else REXX script the reviewing and auditing should be done anyway

since there is a working alternative do not expect much help

expat · Posted: Fri May 23, 2008 4:58 pm

Have you actually considered making your jobstream easily restartable.

Every job that I create has specific restart points where all datasets to be created until the next restart point are deleted via IDCAMS.

That way, if a job abends, the restart procedure is plain and simple.

enrico-sorichetti · Posted: Fri May 23, 2008 5:06 pm

Hi expat !

I agree, but it looks like also procedure writing suffers from the poor understanding of the concept of fast restartable unit

1 - preprocessing ( dataset allocation / priming )
2 - processing
2a - abnormal condition handling ,reset
3 - postprocessing ( backups )

planned to minimize the abnormal condition handling and restart
without any job modification