zOs/JCL/IDCAMS

//A540769W JOB (CP00,KE50),'DB2 ADMIN',
//             TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
//             MSGCLASS=T,NOTIFY=&SYSUID
//IDCAMS   EXEC PGM=IDCAMS
//SYSPRINT   DD SYSOUT=*
//CEEDUMP    DD SYSOUT=*
//SYSABEND   DD SYSOUT=*
//SYSIN      DD *
   DELETE             DSN.ABUB.XDOC.RZ2.DVBP.G.D16.XSTATS
   DEFINE ALIAS (NAME(DSN.ABUB.XDOC.RZ2.DVBP.G.D16.XSTATS    ) -
                 REL (DSN.ABUB.XDOC.RZ2.DVBP.D16.XSTATS      ) )
//SYSINA    DD *
   DEFINE CLUSTER ( NAME(DBZF.DGDB9998.A600A028.P00006.VSAM) -
                               VOL(B1N145))
//SYSINB    DD *
   DEFINE NONVSAM ( NAME(DBZF.DGDB9998.A600A028.P00006.CDZUPS6K) -
                    DEVT(3390) VOL(B1N145))
   DEFINE NONVSAM ( NAME(DBZF.DGDB9998.A600A028.P00006.NONVSA3 ) -
                    DEVT(3390) VOL(B1N145))
//SYSINC    DD *
 DELETE ( -
      DBZF.DGDB9998.A600A028.P00006.CDZUPS6K -
      DBZF.DGDB9998.A600A028.P00006.NONVSA3  -
      ) NOSCRATCH
    IF MAXCC >  8  THEN SET MAXCC = 99
//SYSIND    DD *
 DELETE ( -
      DBZF.DGDB9998.A600A028.P00006.VSAM.DATA
      )

//SYSINE    DD *
  DELETE ( -
       DSN.TMP.A540769.TRACE3) CLUSTER
  DEFINE CLUSTER( -
  SAME(DSN.TMP.A540769.TRACE3) -
  MB(050) SHR(2,3) LINEAR)

//*