Batch Processing & Reporting › The Archive/Restore Program (CAKSARCH) › The BACKUP Option › BACKUP Option JCL (CAKRARCH)

BACKUP Option JCL (CAKRARCH)

//CAKRARCH JOB (ACCTINFO),'PMGR',CLASS=A,REGION=4M,MSGCLASS=X
//********************************************
//* USE THIS JCL TO ARCHIVE CA PMA Chargeback TABLES
//*                                         
//* INSTRUCTIONS:                          
//*  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 HIGH LEVEL QUALIFIERS TO 
//*     REFLECT THE CORRECT VALUES.         
//*  4. MODIFY THE STEP010.SYSIN CONTROL    
//*     STATEMENTS TO REFLECT THE TABLE(S)  
//*     WHICH ARE TO BE ARCHIVED OR BACKED  
//*     UP. BE SURE THAT A UNIQUE DD NAME IS
//*     INDICATED ON EACH STATEMENT.        
//*  5. FOR EACH DD NAME THAT HAD BEEN      
//*     DEFINED FOR STEP010.SYSIN, BE SURE  
//*     THAT COMPARABLE DD STATEMENTS ARE   
//*     DEFINED.                            
//********************************************
//*
//BACKUP EXEC PROC=CAKSARES,
//            INDEX='CAI',
//            DCIND='CAI',
//            SYSOUT='*'
//*
//********************************************
//* THE CONTROL STATEMENTS ARE PASSED TO THE
//* CAKSARES PROC BY THE STEP010.SYSIN DD.  
//* MODIFY AS OUTLINED IN STEP 5.           
//********************************************
//*
//STEP010.SYSIN DD *
 BACKUP TBL=CAI.ACCSTTAB,DD=BACKTAB1
 BACKUP TBL=CAI.ACCSRTAB,DD=BACKTAB2
 BACKUP TBL=CAI.ACCTLOOK,DD=BACKTAB3
 BACKUP TBL=CAI.PERTAB,DD=BACKTAB4
 BACKUP TBL=CAI.CHOPTAB,DD=BACKTAB5
 BACKUP TBL=CAI.ELEMTAB,DD=BACKTAB6
 BACKUP TBL=CAI.NORMTAB,DD=BACKTAB7
 BACKUP TBL=CAI.QUALTAB,DD=BACKTAB8
 BACKUP TBL=CAI.RATETAB,DD=BACKTAB9
 BACKUP TBL=CAI.SPLITTAB,DD=BACKTABA
 BACKUP TBL=CAI.SUMTAB,DD=BACKTABB
 BACKUP TBL=CAI.UNITTAB,DD=BACKTABC
//*

//*********************************************
//* ADD THE APPROPIATE NUMBER OF DD STATEMENTS
//*********************************************
//*
//BACKTAB1 DD DSN=&INDEX..ACCSTTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB2 DD DSN=&INDEX..ACCSRTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB3 DD DSN=&INDEX..ACCTLOOK.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB4 DD DSN=&INDEX..PERTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB5 DD DSN=&INDEX..CHOPTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB6 DD DSN=&INDEX..ELEMTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB7 DD DSN=&INDEX..NORMTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB8 DD DSN=&INDEX..QUALTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTAB9 DD DSN=&INDEX..RATETAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTABA DD DSN=&INDEX..SPLITAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTABB DD DSN=&INDEX..SUMTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL
//BACKTABC DD DSN=&INDEX..UNITTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=DISK,SPACE=(TRK,(10,)),VOL=SER=DSKVOL