z/OS DFSMS OAM Planning, Installation, and Storage Administration Guide for Object Support
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


CBRSMKBO

z/OS DFSMS OAM Planning, Installation, and Storage Administration Guide for Object Support
SC23-6866-00

SAMPLIB member CBRSMKBO, as shown here, creates the DB2 migration job to add KB overflow columns to existing TAPEVOL table.
//CBRSMKBO JOB MSGLEVEL=(1,1),MSGCLASS=A
//*********************************************************************
//*
//*  $SEG(SMKBO) COMP(DBM) PROD(OAM):
//*
//*  OAM DB2 Database Migration Job (for the OAM TAPEVOL table).
//*
//*
//*  CBRSMKBO
//*
//*  This job performs the migration of the TAPEVOL table to the
//*  new version of the TAPEVOL table supporting the new 3592-3E tape
//*  capacity. The new capacity may overflow existing fields that track
//*  KB of data on tape volumes. The new columns will contain overflow
//*  values that will allow the larger tape capacities to be used.
//*
//*  This job will:
//*   1. Add 5 new columns to the existing TAPEVOL table: The columns
//*      are:
//*      1. CAPACITYO – overflow column for tape capacity (CAPACITY).
//*      2. FRESPACEO – overflow column for free space (FRESPACE).
//*      3. NUMLKBWO  – overflow column for Logical KB written (NUMLKBW).
//*      4. NUMPKBWO  – overflow column for Physical KB written (NUMPKBW).
//*      5. NUMLKBDEO – overflow column for Logical KB deleted (NUMLKBDE).
//*   2. Place labels in existing TAPEVOL table for the new columns.
//*
//*
//*
//*
//*  It is recommended that you create a DB2 image copy of the
//*  existing TAPEVOL table prior to executing this
//*  migration job for recovery purposes.
//*
//*  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 (DSNTIA71) 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.V7R1M0.RUNLIB.LOAD') phrase to the data set name
//*       used in your installation for the DB2 RUNLIB.LOAD data set.
//*
//*
//*
//*  CHANGE ACTIVITY:
//*    $L0=35923E  1K0 070918 TUCBJF : Initial Release
//*
//*********************************************************************
//*********************************************************************
//*  Alter the TAPEVOL table to add the new overflow column definitions
//*********************************************************************
//ALTERTAB EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 DSN SYSTEM(DB2)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA71) -
      LIB('DB2MINI.V7R1M0.RUNLIB.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *

 ALTER TABLE TAPEVOL ADD CAPACITYO INTEGER NOT NULL WITH DEFAULT;
 ALTER TABLE TAPEVOL ADD FRESPACEO INTEGER NOT NULL WITH DEFAULT;
 ALTER TABLE TAPEVOL ADD NUMLKBWO INTEGER NOT NULL WITH DEFAULT;
 ALTER TABLE TAPEVOL ADD NUMPKBWO INTEGER NOT NULL WITH DEFAULT;
 ALTER TABLE TAPEVOL ADD NUMLKBDEO INTEGER NOT NULL WITH DEFAULT;
 COMMIT;
/*
//*********************************************************************
//*  Place labels in table for new columns
//*********************************************************************
//LABELTAB EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
 DSN SYSTEM(DB2)
 RUN  PROGRAM(DSNTIAD) PLAN(DSNTIA71) -
      LIB('DB2MINI.V7R1M0.RUNLIB.LOAD')
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN    DD *

 LABEL ON TAPEVOL
   (CAPACITYO IS 'CAPACITY_OVERFLOW',
    FRESPACEO IS 'FREE_SPACE_OVERFLOW',
    NUMLKBWO IS 'LOGICAL_KBS_WRITTEN_OVERFLOW',
    NUMPKBWO IS 'PHYSICAL_KBS_WRITTEN_OVERFLOW',
    NUMLKBDEO IS 'LOGICAL_KBS_DELETED_OVERFLOW');
COMMIT;
/*

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014