//UTB00X  JOB NOTIFY=&SYSUID                                             
//STEG1  EXEC PGM=IEFBR14                                                
//ARMAX    DD DSN=UTB00.CA01.AROMAODF,DISP=(MOD,DELETE),                 
//            SPACE=(TRK,1)                                              
//STEG2  EXEC PGM=IEFBR14                                                
//ARMAX    DD DSN=UTB00.CA01.AROMAODF,DISP=(,CATLG),                     
//            SPACE=(TRK,(5,1)),LRECL=80,                                
//            RECORG=KS,KEYLEN=4,KEYOFF=0,VOL=SER=USR001                 
//STEG3  EXEC PGM=IDCAMS                                                 
//SYSPRINT DD SYSOUT=*                                                   
//INDATA   DD DSN=UTB00.CA01.COBDATA(AROMAODF),DISP=SHR                  
//UTDATA   DD DSN=UTB00.CA01.AROMAODF,DISP=OLD                           
//SYSIN    DD *                                                          
  REPRO INFILE(INDATA) OUTFILE(UTDATA)                                   
  PRINT INFILE(UTDATA) CHAR                                              
//STEG4  EXEC PGM=IDCAMS                                                 
//SYSPRINT DD SYSOUT=*                                                   
//SYSIN    DD *                                                          
  DEFINE AIX -                                                           
    (NAME(UTB00.CA01.AROMAODF.AIX) -                                     
     RELATE(UTB00.CA01.AROMAODF) -                                       
     KEYS(20,4) -                                                        
     UPGRADE -                                                           
     RECORDSIZE(80,80) -                                                 
     TRK(5,1) -                                                          
     VOLUMES(USR001) -                                                   
     )                                                                   
  DEFINE PATH -                                                          
    (NAME(UTB00.CA01.AROMAODF.PATH) -                                    
     PATHENTRY(UTB00.CA01.AROMAODF.AIX) -                                
     UPDATE -                                                            
     )                                                                   
  BLDINDEX -                                                             
     INDATASET(UTB00.CA01.AROMAODF) -                                    
     OUTDATASET(UTB00.CA01.AROMAODF.AIX)                                 
  PRINT INDATASET(UTB00.CA01.AROMAODF) CHAR                              
  PRINT INDATASET(UTB00.CA01.AROMAODF.AIX) CHAR