//UTB00X  JOB NOTIFY=&SYSUID                                             
//STEG1  EXEC PGM=IDCAMS                                                 
//SYSPRINT DD SYSOUT=*                                                   
//SYSIN    DD *                                                          
   DELETE UTB00.CA01.AROMAOSF                                            
   DEFINE CLUSTER -                                                      
      ( -                                                                
      NAME(UTB00.CA01.AROMAOSF) -                                        
      RECORDSIZE(10,10) -                                                
      TRACKS(5,2) -                                                      
      VOLUMES(USR001) -                                                  
      NUMBERED) -                                                        
      DATA(NAME(UTB00.CA01.AROMAOSF.RRDS))                               
//STEG2  EXEC PGM=AROMAOSF                                               
//STEPLIB  DD DSN=UTB00.CA01.LOADLIB,DISP=SHR                            
//OSFDD    DD DSN=UTB00.CA01.AROMAOSF,DISP=OLD                           
//OSFINDD  DD DSN=UTB00.CA01.COBDATA(AROMAOSF),DISP=SHR                  
//                                                                       
//STEG3  EXEC PGM=IDCAMS                                                 
//SYSPRINT DD SYSOUT=*                                                   
//DATAOSF  DD DSN=UTB00.CA01.AROMAOSF,DISP=OLD                           
//SYSIN    DD *                                                          
  PRINT INFILE(DATAOSF) CHAR