IEFBR14

IEFBR14

Every time during Testing we encounter errors due to which we have to make modifications and rerun the job. It has been a regular practice that we always tend to do TSO DEL 'File name' and never include a simple IEFBR14 step.

Now all you have to do is just Copy and Paste the code into your JCL and proceed ahead without any warnings like "FILE IS ALREADY CALALOGED"

//*******************************************************//* IEFBR14

//*******************************************************//DD1 EXEC PGM=IEFBR14

//DELDD DD DSN=<<>>,

// DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,

// SPACE=(TRK,(1,1))

//*******************************************************

IEFBR14 is also used to delete Temporary Work files

//*********************************************************//* IEFBR14 - DELETE WORK FILES

//*********************************************************//PS160 EXEC PGM=IEFBR14

//DD1 DD DSN=TCEX.WORK.A186P010.VALPTEMP,

// DISP=(OLD,DELETE)

//DD2 DD DSN=TCEX.WORK.A186P020.SRT,

// DISP=(OLD,DELETE)

//DD3 DD DSN=TCEX.WORK.A186P040.VALPTEMP,

// DISP=(OLD,DELETE)

**************************************************************************************

IEFBR14 is also used to delete Files that are on TAPE

//**************************************************

//* IEFBR14 - *DELETE GDG BASED FILES *

//**************************************************

//PS500 EXEC PGM=IEFBR14

//DD1 DD DSN=TCEX.Q213P110.F03A.G0003V00,

// DISP=(OLD,DELETE)

//DD2 DD DSN=TCEX.Q213P110.F03A.G0004V00,

// DISP=(OLD,DELETE)

//DD3 DD DSN=TCEX.Q213P110.F03A.G0005V00,

// DISP=(OLD,DELETE)

//DD4 DD DSN=TCEX.Q213P110.F03A.G0006V00,

// DISP=(OLD,DELETE)