//UTB00X  JOB NOTIFY=&SYSUID                                             
//STEG1  EXEC PGM=IEFBR14                                                
//ELEVFIL  DD DSN=UTB00.CA01.ELEVFIL,DISP=(MOD,DELETE),                  
//            SPACE=(TRK,1)                                              
//STEG2  EXEC PGM=IEFBR14                                                
//ELEVFIL  DD DSN=UTB00.CA01.ELEVFIL,DISP=(,CATLG),                      
//            SPACE=(TRK,(5,1)),LRECL=80,                                
//            RECORG=KS,KEYLEN=7,KEYOFF=0,VOL=SER=USR001                 
//STEG3  EXEC PGM=IDCAMS                                                 
//SYSPRINT DD SYSOUT=*                                                   
//INDATA   DD DSN=UTB00.CA01.COBDATA(ELEVFIL),DISP=SHR                   
//UTDATA   DD DSN=UTB00.CA01.ELEVFIL,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.ELEVFIL.AIX1) -                                     
     RELATE(UTB00.CA01.ELEVFIL) -                                        
     KEYS(30,8) -                                                        
     UPGRADE -                                                           
     RECORDSIZE(80,80) -                                                 
     TRK(5,1) -                                                          
     VOLUMES(USR001) -                                                   
     )                                                                   
  DEFINE PATH -                                                          
    (NAME(UTB00.CA01.ELEVFIL.PATH1) -                                    
     PATHENTRY(UTB00.CA01.ELEVFIL.AIX1) -                                
     UPDATE -                                                            
     )                                                                   
  BLDINDEX -                                                             
     INDATASET(UTB00.CA01.ELEVFIL) -                                     
     OUTDATASET(UTB00.CA01.ELEVFIL.AIX1)                                 
  PRINT INDATASET(UTB00.CA01.ELEVFIL) CHAR                               
  PRINT INDATASET(UTB00.CA01.ELEVFIL.AIX1) CHAR