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