PPF2DEL

This job can be run to delete sets of daily libraries according to specified date criteria.

Figure 382 PPF2DEL Utility Screen

//PPF2DEL JOB  ACCNT,CTM,CLASS=A

//*

//*  THIS JOB DELETES SETS OF DAILY LIBRARIES CREATED 3,4,and 5

//*  DAYS PRIOR TO THE CURRENT DATE (%%ODATE).

//*

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

  %%SET %%DT3 = %%CALCDATE %%ODATE - 3

  %%SET %%DELDATE3 = %%SUBSTR %%DT3 3 4

  %%SET %%DT4 = %%CALCDATE %%ODATE - 4

  %%SET %%DELDATE4 = %%SUBSTR %%DT4 3 4

  %%SET %%DT5 = %%CALCDATE %%ODATE - 5

  %%SET %%DELDATE5 = %%SUBSTR %%DT5 3 4

//DELLIB   EXEC PGM=IDCAMS

//SYSPRINT DD   SYSOUT=*

//SYSIN    DD   *

  DELETE CTM.PROD.PLAN%%DELDATE3

  DELETE CTM.PROD.SCHD%%DELDATE3

  DELETE CTM.PROD.JCLP%%DELDATE3

  DELETE CTM.PROD.AEDI%%DELDATE3

  DELETE CTM.PROD.PLAN%%DELDATE4

  DELETE CTM.PROD.SCHD%%DELDATE4

  DELETE CTM.PROD.JCLP%%DELDATE4        

  DELETE CTM.PROD.AEDI%%DELDATE4              

  DELETE CTM.PROD.PLAN%%DELDATE5   

  DELETE CTM.PROD.SCHD%%DELDATE5      

  DELETE CTM.PROD.JCLP%%DELDATE5   

  DELETE CTM.PROD.AEDI%%DELDATE5

//