DB2 z/OS   DB2 LUW
z/OS CICS VTAM

DB2 z/OS Info

Home


//STEP110 EXEC PGM=IKJEFT01,
//      REGION=8M
//* DEL/DEF DSNDB07 WORK DSN
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
  DSN SYSTEM(DSN1)
      -STOP DATABASE(DSNDB07) SPACENAM(DSN4K01)
   END
//*
//STEP120 EXEC PGM=IDCAMS,COND=(4,LT,STEP110)
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *

  DELETE DSN1CAT.DSNDBC.DSNDB07.DSN4K01.I0001.A001 PURGE CLUSTER

//*
//STEP130 EXEC PGM=IDCAMS,COND=(4,LT,STEP120)
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
  DEFINE CLUSTER  -
     (NAME -
        (DSN1CAT.DSNDBC.DSNDB07.DSN4K01.I0001.A001) -
        LINEAR         -
        REUSE          -
        SHAREOPTIONS(3 3) -
        VOLUMES(<YOURVOL>) -
        CYLINDER (<200 100)> -
     )              -
  DATA            -
     (NAME          -
          (DSN1CAT.DSNDBD.DSNDB07.DSN4K01.I0001.A001) -
     )
//*
//*  CATALOG(CAT.USER1.<YOURCAT>)
//STEP140 EXEC PGM=IKJEFT01,
//      REGION=8M,COND=(4,LT,STEP130)
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
  DSN SYSTEM(DSN1)
      -START DATABASE(DSNDB07) SPACENAM(DSN4K01)
   END
//*