Using the Tape Retention System (TRS) › Updating the Retention Master File › CATRMFE Procedure JCL

CATRMFE Procedure JCL

//****************************************************************
//*             ****  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 
//*                                                      
//***************************************************************