Batch Processing & Reporting › The Archive/Restore Program (CAKSARCH) › The RESTORE Option › RESTORE Option JCL (CAKREST)

RESTORE Option JCL (CAKREST)

//CAKREST JOB (ACCTINFO),'PMGR',CLASS=B,MSGCLASS=X,REGION=4M
//********************************************************************
//*   PURPOSE: RESTORE CA PMA Chargeback TABLES.
//*
//*   MODIFICATIONS:
//*
//*   1. THIS JCL USES THE CAKSARES PROC PROVIDED IN THE SAMPJCL.
//*      EITHER COPY THE PROC TO THIS JCL OR ADD TO YOUR SYSTEM
//*      USER.PROCLIB.
//*   2. MODIFY THE JOB CARD ACCORDING TO YOUR INSTALLATION STANDARDS.
//*   3. CHANGE THE LAST PARAMETER OF THE PARM STATEMENT ON THE EXEC
//*      STATEMENT TO REFLECT THE APPROPRIATE DATABASE TO BE RESTORED
//*      TO. IF NOT DEFINED, THE JOB DEFAULTS TO THE CURRENT DATABASE.
//*   4. CHANGE THE HIGH LEVEL QUALIFIERS TO REFLECT THE CORRECT
//*      VALUES.
//*   5. MODIFY THE STEP010.SYSIN DD STATEMENT TO REFLECT THE TABLE(S)
//*      THAT YOU WANT TO RESTORE.
//*   6. FOR EACH DD NAME THAT IS DEFINED TO THE STEP010.SYSIN, BE
//*      SURE THAT COMPARABLE DD STATEMENT(S) HAVE ALSO BEEN DEFINED.
//********************************************************************
//*
//********************************************************************
//* IF THE TABLE IS TO BE RESTORED TO ANOTHER DATABASE, BE SURE TO
//* CHANGE THE PARM NAME ON THE EXECUTE STATEMENT.
//********************************************************************
//*
//RESTORE EXEC PROC=CAKSARES,PARM='AUTOCOMMIT,,PMA490', <-- CUSTOMIZE PARM
//            INDEX='CAI',                              <-- CUSTOMIZE
//            DCIND='CAI',                              <-- CUSTOMIZE
//            SYSOUT='*'                                <-- CUSTOMIZE
//*
//********************************************
//* A RESTORE STATEMENT MUST BE PRESENT FOR 
//* EACH TABLE TO RESTORED.                 
//********************************************
//*
//STEP010.SYSIN DD *
RESTORE TBL=USERID.ELEMTAB,DD=BACKTAB
//*
//*********************************************
//* ADD THE APPROPIATE NUMBER OF DD STATEMENTS
//*********************************************
//*
//BACKTAB DD DSN=&INDEX..ELEMTAB.ARCH,DISP=SHR    <-- CUSTOMIZE