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

Starter JCL

//RMFINIT JOB
//DEFINE   EXEC PGM=IDCAMS,REGION=4096K 
//SYSPRINT DD   SYSOUT=*                
//SYSIN DD *                            
 DELETE CAI.RMF                  
 DEFINE CLUSTER                      -  
        (NAME (CAI.RMF)              -  
         VOL(VSN010)                 -  
         RECSZ(200 200)              -  
         SHR(3 3) INDEXED REPL       -  
         IMBED KEYS(52 1))           -  
         DATA                        -  
         (NAME(CAI.RMF.DATA)         -  
         FREESPACE(40 30)            -  
         TRK(3 3))                   -  
         INDEX                       -  
         (NAME(CAI.RMF.INDEX)        -  
         TRK(1 1))                      
/*                                      
//*                                     
//RMFINIT EXEC CATRMFE
//UPDTRMF.SYSIN DD *
/*********************************/
/* INITIALIZE PM RMF */
/*********************************/
INIT
//