//UTB00X  JOB NOTIFY=&SYSUID                                             
//STEG1  EXEC PGM=IEFBR14                                                
//ARMAX    DD DSN=UTB00.CA01.AROMA2O,DISP=(MOD,DELETE),                  
//            SPACE=(TRK,1)                                              
//STEG2  EXEC PGM=IEFBR14                                                
//ARMAX    DD DSN=UTB00.CA01.AROMA2O,DISP=(,CATLG),                      
//            SPACE=(TRK,(5,1)),LRECL=80,                                
//            RECORG=KS,KEYLEN=3,KEYOFF=0                                
//STEG3  EXEC PGM=IDCAMS                                                 
//SYSPRINT DD SYSOUT=*                                                   
//INDATA   DD DSN=UTB00.CA01.COBDATA(AROMA2O),DISP=SHR                   
//UTDATA   DD DSN=UTB00.CA01.AROMA2O,DISP=OLD                            
//SYSIN    DD *                                                          
  REPRO INFILE(INDATA) OUTFILE(UTDATA)                                   
  PRINT INFILE(UTDATA) CHAR