Example 2: a DEFRAG operation using a BY criterion

//JOB2     JOB   accounting information,REGION=nnnnK
//STEP1    EXEC  PGM=ADRDSSU
//SYSPRINT DD    SYSOUT=A
//DASD     DD    UNIT=3380,VOL=(PRIVATE,SER=111111),DISP=OLD
//SYSIN    DD    *
 DEFRAG DDNAME(DASD)   /* VOLUME TO BE PROCESSED          */ -
   BY(LIST(REFDT LT *,-1))  /* DATE LAST REF LT RUN DATE -1 */
/*

In Example 2, only data sets that were last referenced more than one day before the run date are included in the DEFRAG operation. That is, those that were last referenced one day before or on the run date are excluded.