//UTB00X  JOB NOTIFY=&SYSUID                                            
//STEG1  EXEC PGM=IEFBR14                                               
//BOOKPR   DD DSN=UTB00.CA01.BOOKBOOK,DISP=(MOD,DELETE),                
//            SPACE=(TRK,1)                                             
//STEG2  EXEC PGM=IEFBR14                                               
//BOOKPR   DD DSN=UTB00.CA01.BOOKBOOK,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(BOOKBOOK),DISP=SHR                 
//UTDATA   DD DSN=UTB00.CA01.BOOKBOOK,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.BOOKBOOK.AIX1) -                                   
     RELATE(UTB00.CA01.BOOKBOOK) -                                      
     KEYS(4,4) -                                                        
     UPGRADE -                                                          
     RECORDSIZE(80,80) -                                                
     TRK(5,1) -                                                         
     VOLUMES(USR001) -                                                  
     )                                                                  
  DEFINE PATH -                                                         
    (NAME(UTB00.CA01.BOOKBOOK.PATH1) -                                  
     PATHENTRY(UTB00.CA01.BOOKBOOK.AIX1) -                              
     UPDATE -                                                           
     )                                                                  
  BLDINDEX -                                                            
     INDATASET(UTB00.CA01.BOOKBOOK) -                                   
     OUTDATASET(UTB00.CA01.BOOKBOOK.AIX1)                               
  PRINT INDATASET(UTB00.CA01.BOOKBOOK) CHAR                             
  PRINT INDATASET(UTB00.CA01.BOOKBOOK.PATH1) OUTFILE(PATH1DD) CHAR