DataManager Batch Processing and Reporting › The Archive/Restore Program (CAKSARCH) › The BACKUP Option › JCL for Running the BACKUP Option

JCL for Running the BACKUP Option

The JCL contains numbered instructions that explain what to do.

//USERIDAR JOB (00000000),'DM/ARCH',CLASS=A,REGION=4M,MSGCLASS=X
//*
//*
//********************************************
//* USE THIS JCL TO ARCHIVE CA PMA/DM TABLES 
//*                                          
//* INSTRUCTIONS:                            
//*  1. THIS JCL WILL USE THE CAKSARES PROC  
//*     PROVIDED IN THE SAMPJCL. EITHER COPY 
//*     THE PROC TO THIS JCL OR ADD IT 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 DDNAME IS  
//*     INDICATED ON EACH DD STATEMENT.      
//*  5. FOR EACH DDNAME INCLUDED IN          
//*     STEP010.SYSIN, BE SURE THAT A        
//*     CORRESPONDING DD STATEMENT IS        
//*     DEFINED.                             
//********************************************
//*
//BACKUP  EXEC PROC=CAKSARES,
//            CAI='CAI',
//            INDEX='CAI.PMACB',
//            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=USERID.IRDDESC,DD=BACKTAB1
 BACKUP TBL=USERID.IRDTAB,DD=BACKTAB2
 BACKUP TBL=USERID.ORDDESC,DD=BACKTAB3
 BACKUP TBL=USERID.ORDTAB,DD=BACKTAB4
//*
//**********************************************
//* ADD THE APPROPRIATE NUMBER OF DD STATEMENTS
//**********************************************
//*
//BACKTAB1 DD DSN=USERID.IRDDESC.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=SYSDA,SPACE=(TRK,(10,)),VOL=SER=DVOL
//BACKTAB2 DD DSN=USERID.IRDTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=SYSDA,SPACE=(TRK,(10,)),VOL=SER=DVOL
//BACKTAB3 DD DSN=USERID.ORDDESC.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=SYSDA,SPACE=(TRK,(10,)),VOL=SER=DVOL
//BACKTAB4 DD DSN=USERID.ORDTAB.ARCH,DISP=(NEW,CATLG,DELETE),
//            DCB=(DSORG=PS,RECFM=VB,LRECL=4096,BLKSIZE=9192),
//            UNIT=SYSDA,SPACE=(TRK,(10,)),VOL=SER=DVOL

Sample output generated by this job is shown below.