//UTB00X   JOB NOTIFY=&SYSUID,TIME=(,10)                                 
//SORTIT  EXEC PGM=SORT                                                  
//SYSOUT    DD SYSOUT=*                                                  
//SORTIN    DD DSN=UTB00.CA01.COBDATA(FREQMILE),DISP=SHR                 
//SORTOUT   DD DSN=&&FLIGHTS,DISP=(,PASS),SPACE=(TRK,(5,2)),             
//             RECFM=FB,LRECL=80                                         
//SYSIN     DD *                                                         
 SORT FIELDS=(1,7,CH,A)                                                  
//SKAPA   EXEC PGM=IDCAMS                                                
//SYSPRINT  DD SYSOUT=*                                                  
//INDATA    DD DSN=&&FLIGHTS,DISP=(OLD,PASS)                             
//SYSIN     DD *                                                         
  DELETE UTB00.CA01.FREQMILE                                             
  DEFINE CLUSTER ( -                                                     
     NAME(UTB00.CA01.FREQMILE) -                                         
     INDEXED -                                                           
     KEYS(7,0) -                                                         
     RECORDSIZE(80,80) -                                                 
     RECORDS(200) -                                                      
     VOLUMES(USR001) -                                                   
     )                                                                   
  REPRO INFILE(INDATA) ODS(UTB00.CA01.FREQMILE)                          
  PRINT IDS(UTB00.CA01.FREQMILE) CHAR