This job performs the migration from the z/OS V1R12 version of the OAM Configuration Database to the z/OS V1R13 version, which supports primary objects in the file system sublevel and introduces a new File System Delete Table.

//CBRSMR1D  JOB MSGLEVEL=(1,1),MSGCLASS=A
//*********************************************************************
//*
//*  $SEG(SMR1D) COMP(DBM) PROD(OAM):
//*
//*  OAM DB2 Database Migration Job (for the Object Configuration
//*  Database).
//*
//*  ---------------------------------------------------------------
//*  ---------------------------------------------------------------
//*
//*  SMR1D
//*
//*  This job will perform the migration from the z/OS V1 R12
//*  version of the Object Configuration Database to the z/OS V1 R13
//*  version which supports storing objects on a file system.
//*
//*  This job will:
//*    1. Add new tablespace OCFSDTSP
//*    2. Add new table FSDELETE in the new tablespace
//*    3. Define labels for the columns in the new table
//*    4. Define an index for the new table
//*    5. Grant all authority for the new table to CBROAM.
//*
//*  Before running this job, you must change the following:
//*
//*    1. Change the name in the DSN SYSTEM(DB2) statement to
//*       the name of the DB2 Subsystem in your installation.
//*
//*    2. Change the PLAN name (DSNTIA91) in the RUN statement to
//*       match your current DB2 version and release level.
//*
//*    3. Change the data set name in the RUN statement
//*       LIB('DB2MINI.V9R1M0.RUNLIB.LOAD') phrase to the data set name
//*       used in your installation for the DB2 RUNLIB.LOAD data set.
//*
//*  CHANGE ACTIVITY:
//*    $L0=HDZ1D10  R1D 100223 TUCDEW: Initial Release
//*
//*********************************************************************
//CREATE   EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 DSN SYSTEM(DB2)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA91) -
      LIB('DB2MINI.V9R1M0.RUNLIB.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *

 CREATE TABLESPACE OCFSDTSP
    IN CBROAM
    USING STOGROUP CBROAM
    BUFFERPOOL BP0
    CLOSE NO;

 CREATE TABLE FSDELETE
   (ID       INTEGER PRIMARY KEY GENERATED ALWAYS AS IDENTITY
                     (START WITH 1, INCREMENT BY 1, CACHE 50, CYCLE),
    DELTIME  INTEGER      NOT NULL WITH DEFAULT,
    DELREAS  CHAR(1)      NOT NULL WITH DEFAULT,
    SYSNAME  CHAR(8)      NOT NULL WITH DEFAULT,
    SGNAME   CHAR(8)      NOT NULL WITH DEFAULT,
    COLNAME  CHAR(44)     NOT NULL WITH DEFAULT,
    OBJNAME  CHAR(44)     NOT NULL WITH DEFAULT,
    INSTID   INTEGER      NOT NULL WITH DEFAULT)
   IN CBROAM.OCFSDTSP;

 CREATE UNIQUE INDEX FSDTINDX
   ON FSDELETE
   (ID ASC)
   USING STOGROUP CBROAM
   BUFFERPOOL BP0
   CLUSTER
   CLOSE NO;

 LABEL ON FSDELETE
   (ID      IS 'ID',
    DELTIME IS 'DELETE_TIME',
    DELREAS IS 'REASON',
    SYSNAME IS 'SYS_NAME',
    SGNAME  IS 'SG_NAME',
    OBJNAME IS 'OBJECT_NAME',
    COLNAME IS 'COLLECTION_NAME',
    INSTID  IS 'INSTANCE_ID');

 COMMIT;
/*
//*********************************************************************
//*  GRANT all authority for the new table to CBROAM
//*********************************************************************
//GRANT    EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 DSN SYSTEM(DB2)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA91) -
      LIB('DB2MINI.V9R1M0.RUNLIB.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *

 GRANT ALL ON
      FSDELETE
    TO CBROAM;

 COMMIT;
/*