Utilities and Procedures › CATRMFB - Backup the Retention Master File › CATRMFB Procedure JCL

CATRMFB Procedure JCL

The following procedure is used to back up the Retention Master File.

//***************************************************************
//*             ****  PROCNAME=CATRMFB  ****                    *
//***************************************************************
//***************************************************************
//**  THIS PROCEDURE USES IDCAMS "REPRO" TO COPY THE VSAM       *
//**  RETENTION MASTER FILE (RMF) TO A BACKUP DATA SET.         *
//**                                                            *
//**  THE SYSIN SHOULD BE: REPRO INFILE(CAIRMF) OUTFILE(CAIBRMF)*
//***************************************************************
//CATRMFB  PROC A='*',                                 
//             BKUPRMF='CAI.TLMS.BKUPRMF',           
//             RMF='CAI.TLMS.RMF',            
//             TAPE='TAPE'                  
//*
//BKUPRMF  EXEC  PGM=IDCAMS                            
//*                                                  
//SYSPRINT DD  SYSOUT=&A                
//*                                     
//CAIBRMF  DD  DSN=&BKUPRMF,
//         DSORG=PS,RECFM=FB,LRECL=200,BLKSIZE=0,   
//         DISP=(NEW,CATLG),UNIT=&TAPE  
//*                                     
//CAIRMF   DD  DSN=&RMF,                
//         DISP=OLD                     
//*                                     
//SYSIN    DD  DUMMY                    
//*