//CREARMM  JOB CLASS=A,MSGCLASS=Q,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//* DEFINIMOS CATALOGO                                         
//DEFMCAT EXEC PGM=IDCAMS,REGION=8M                            
//SYSPRINT DD SYSOUT=*                                         
//SYSIN DD *                                                   
 DEFINE -                                                      
 UCAT ( -                                                      
       ICFCATALOG -                                            
       NAME(CATALOG.RMM) -                                     
       VOL(ZDSYS1) -                                           
       CYL(10 5) -                                             
       FREESPACE(10 10) -                                      
       SHR(3 4) -                                              
    IMBED -                                                    
      REPLICATE -                                              
     STRNO(3) -                                                
   ) -                                                         
 DATA ( -                                                      
  CISZ(4096) -                                                 
     BUFND(4) -                              
    )-                                       
  INDEX( -                                   
     BUFNI(4) -                              
    ) -                                      
  CAT(CATALOG.Z113.MASTER)                   
//* DEFINIMOS UN ALIAS PARA EL CATALOGO      
//PASO001 EXEC PGM=IDCAMS,REGION=1024K       
//SYSPRINT DD SYSOUT=*                       
//SYSIN DD *                                 
 DEFINE ALIAS (NAME(RMM) -                   
 RELATE(CATALOG.RMM)) -                      
 CATALOG(CATALOG.Z113.MASTER)                
/*                                           
//* CREAMOS EL CONTROL DATASET PARA EL DFRMM 
//PASO002 EXEC PGM=IDCAMS                    
//SYSPRINT DD SYSOUT=*                       
//DASD DD DISP=SHR,UNIT=SYSDA,VOL=SER=ZDSYS1 
//SYSIN DD *                                 
 DEFINE CLUSTER(NAME(RMM.CDS) -        
 FILE(DASD) -                          
 FREESPACE(15 0) -                     
 KEYS(56 0) -                          
 REUSE -                               
 RECSZ(512 9216) -                     
 SHR(3 3) -                            
 KILOBYTES(4500 1500) -                
 VOLUMES(ZASYS1)) -                    
 DATA(NAME(RMM.CDS.DATA) -             
 CISZ(26624)) -                        
 INDEX(NAME(RMM.CDS.INDEX) -           
 CISZ(2048))                           
/*                                     
//* INICIALIZAMOS EL CONTROL DATASET   
//EDGUTIL EXEC PGM=EDGUTIL,PARM=CREATE 
//SYSPRINT DD SYSOUT=*                 
//MASTER DD DSN=RMM.CDS,DISP=SHR       
//SYSIN DD *                           
 CONTROL CDSID(RMM1)                           
/*                                             
//* CREAMOS EL JOURNAL DEL DFRMM               
//JOURNAL EXEC PGM=IEFBR14                     
//SYSPRINT DD SYSOUT=*                         
//JOURNAL DD DISP=(NEW,CATLG),DSN=RMM.JOURNAL, 
// UNIT=SYSDA,VOL=SER=ZDSYS1,                  
// AVGREC=U,SPACE=(4096,(1000))                
//* CREAMOS LOS FICHEROS DE TRAZAS PARA DFRMM  
//* SE DEBEN CREAR EN EL MISMO DISCO
//STEP1 EXEC PGM=IEFBR14                       
//DD1 DD DSN=RMM.EDGPDOX,DISP=(,CATLG),        
// UNIT=SYSDA,                                 
// VOL=SER=ZDSYS1,SPACE=(CYL,(20))             
//DD2 DD DSN=RMM.EDGPDOY,DISP=(,CATLG),        
// UNIT=SYSDA,                                 
// VOL=SER=ZDSYS1,SPACE=(CYL,(20))