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


CBRSMVAF

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

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;
/*

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014