SAMPLIB member CBRSMVAF, as shown here, helps you perform the migration
of the TAPEVOL table to the version of the TAPEVOL table that supports
logical WORM volumes.
//CBRSMVAF JOB MSGLEVEL=(1,1),MSGCLASS=A
//*********************************************************************
//*
//* $SEG(SMVAF) COMP(DBM) PROD(OAM):
//*
//* OAM DB2 Database Migration Job (for the OAM TAPEVOL table).
//*
//*
//* CBRSMVAF
//*
//* This job performs the migration of the TAPEVOL table to the
//* new version of the TAPEVOL table supporting logical WORM volumes.
//*
//* This job will:
//*
//* 1. Add 1 new column to the existing TAPEVOL table:
//*
//* 1. VOLATTRF – Volume attribute flags field.
//*
//* 2. Place label in existing TAPEVOL table for the new column.
//*
//*
//* 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=HYDRA16 190 022509 TUCPSS : Initial Release
//*
//*********************************************************************
//*********************************************************************
//* Alter the TAPEVOL table to add the new VOLATTRF column definition.
//*********************************************************************
//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 VOLATTRF SMALLINT NOT NULL WITH DEFAULT;
COMMIT;
/*
//*********************************************************************
//* Place labels in table for new column
//*********************************************************************
//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
(VOLATTRF IS 'VOLUME_ATTRIBUTE_FLAGS');
COMMIT;
/*