//CBRSMKBO JOB MSGLEVEL=(1,1),MSGCLASS=A
//*********************************************************************
//*
//*  $SEG(SMKBO) COMP(DBM) PROD(OAM):
//*
//*  OAM DB2 Database Migration Job (for 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=xxxxxx  xxx YYMMDD TUCxxx: 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;                                                                
/*