Utilities and Procedures › CATRMFE – Update Pattern Masked RMF › CATRMFE Procedure JCL

CATRMFE Procedure JCL

The following procedure is used to update the Retention Master File.

//**************************************************************
//*             ****  PROCNAME=CATRMFE  ****                   *
//**************************************************************
//*     PROCEDURE TO UPDATE CA TLMS TAPE RETENTION MASTER FILE *
//*               FOR PATTERN MASKING RMF ONLY                 *
//**************************************************************
//CATRMFE  PROC A='*',                             
//             LOAD='CAI.CTAPLINK',        
//             OPTS='CAI.CTAPOPTN(TLMSIPO)',     
//             PRM=' ',                          
//             RMF='CAI.TLMS.RMF'            
//*                                        
//*                                     
//UPDTRMF  EXEC PGM=TLMSRMFE,                  
//             PARM='&PRM'                   
//*                                           
//*********  PRM='1ST,2ND,3RD,4TH,5TH **************************
//* WHERE  1ST = NUMBER OF ENTRIES TO BE CONVERTED        2000 *
//*        2ND = NUMBER OF UPDATES                         500 *
//*        3RD = NUMBER OF CABINETS (MAX FOR ONE LOCATION) 160 *
//*        4TH = NUMBER OF BOXES                           104 *
//*        5TH = NUMBER OF LOCATION RECORDS               1024 *
//*        OMITTED PARM TAKE DEFAULTS   PRM=',825,,50'         *
//**************************************************************
//*                                                
//STEPLIB  DD  DSN=&LOAD,DISP=SHR                
//*                                               
//TLMSOPTS DD  DSN=&OPTS,DISP=SHR     OPTIONS WHEN TLMS IS DOWN
//*                                           
//CAIRMF   DD  DSN=&RMF,DISP=OLD           RETENTION MASTER FILE
//*                                                         
//SYSPRINT DD  DCB=BLKSIZE=133,SYSOUT=&A   REPORTS      
//*                                                         
//SYSUDUMP DD  SYSOUT=&A                   ABEND DUMPS  
//*                                                  
//SYSIN    DD  DUMMY                       OVERRIDE FOR COMMANDS
//*                                          
//***************************************************************