zOs/JCL/IDCAM2

//A540769W JOB (CP00,KE50),'DB2 ADMIN',
//             TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,
//             MSGCLASS=T,NOTIFY=&SYSUID
//TSO      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPROC  DD DISP=SHR,DSN=A540769.WK.REXX
//SYSTSIN  DD *
    rename 'dsn.db2.panel' 'dsn.db2.panels'
    DEFINE ALIAS (NAME('dsn.db2.panel' ) -
                 REL ('dsn.db2.panels' ) )
//SYSTSIF  DD *
    rename 'A540769.tmp.ali1' 'A540769.tmp.aliRen'
    DEFINE ALIAS (NAME('A540769.tmp.ali1'  ) -
                 REL ('A540769.tmp.aliRen'      ) )
//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)

//*