Batch Processing & Reporting › The Archive/Restore Program (CAKSARCH) › CAKSARES Procedure

CAKSARES Procedure

//********************************************************************
//*  CAKSARES ARCHIVE/RESTORE PROC
//*
//*  THIS PROC IS USED DURING:
//*
//*  1. ARCHIVING (BACKUP) OF TABLES
//*  2. RESTORING OF ARCHIVED TABLES
//*  3. COMMIT PROCESSING
//*  4. COPY PROCESSING
//*
//* REFER TO FOLLOWING SAMPJCL MEMBERS FOR DETAILS:
//*
//*  1. CAKSARCH  - DM ARCHIVE
//*  2. CAKSREST  - DM RESTORE
//*  3. CAKSCOMT  - DM COMMIT
//*  4. CAKSCPY   - DM COPY TABLES
//*  5. CAKRARCH  - CA PMA Chargeback ARCHIVE
//*  6. CAKREST   - CA PMA Chargeback RESTORE
//*  7. CAKRCOMT  - CA PMA Chargeback COMMIT
//*  8. CAKRCPY   - CA PMA Chargeback COPY TABLES
//*
//*  ** IF YOUR DATABASE IS DB2, REMOVE THE Datacom LIBRARIES AND **
//*  ** THE DCIND SYMBOLIC, AND UNCOMMENT THE DB2 LIBRARY.        **
//*
//********************************************************************
//CAKSARES PROC INDEX='CAI',     /* DATA SET HIGH LEVEL QUALIFIER
//           DCIND='CAI',         /* Datacom HIGH LEVEL QUALIFIER
//           SYSOUT='*'           /* SYSOUT CLASS
//*
//STEP010  EXEC PGM=CAKSARCH
//STEPLIB  DD DSN=&INDEX..CAJRLOAD,DISP=SHR
//         DD DSN=&INDEX..CAICICS,DISP=SHR
//         DD DSN=&DCIND..USERLOAD,DISP=SHR     <-- Datacom LIBRARY
//         DD DSN=&DCIND..INFOCAI.LOAD,DISP=SHR <-- Datacom LIBRARY
//         DD DSN=&DCIND..LOAD,DISP=SHR         <-- Datacom LIBRARY
//*        DD DSN=SYS2.DSNLOAD,DISP=SHR         <-- DB2 LIBRARY
//CAIKSPAR DD DSN=&INDEX..CAIKSPAR,DISP=SHR
//CAIKRPAR DD DSN=&INDEX..CAIKRPAR,DISP=SHR
//SYSPRINT DD SYSOUT=&SYSOUT.
//SYSUDUMP DD SYSOUT=&SYSOUT.
//SYSIN    DD DDNAME=SYSIN