Utilities › CTSVDBBK Utility—Support the Tape Agent Database › CTSVDBBK Procedure JCL

CTSVDBBK Procedure JCL

The following procedure may be used for all functions of the VDB utility.

//******************************************************************
//* THIS JOB WILL PERFORM VDB RELATED FUNCTIONS.                   *
//*    FUNC = BACKUP   = BACKUP VDB & RESET JOURNAL                *
//*         = RESTORE  = CREATES VDB FROM BACKUP AND JOURNAL       *
//*         = RESET    = RESET JOURNAL                             *
//*         = INIT     = INITIALIZE JOURNAL                        *
//******************************************************************
//*
//VDBUTY    PROC SOUT='*',
//              LIB='CAI.CTAPLINK',
//              VDB='CAI.CA$FVDB',
//              VDBB='CAI.CA$FVDBB',
//              JRNL='CAI.CAIJRNL',
//              FUNC='BACKUP '
//*
//VDBU      EXEC PGM=CTSVDBBK,PARM='&FUNC'.
//STEPLIB   DD   DISP=SHR,DSN=&LIB.
//CAIJRNL   DD   DISP=SHR,DSN=&JRNL.
//CA$FVDB   DD   DISP=SHR,DSN=&VDB.
//CA$FVDBB  DD   DISP=SHR,DSN=&VDBB.
//SYSPRINT  DD   SYSOUT=&SOUT.
//SYSUDUMP  DD   SYSOUT=&SOUT.
//*