//UTB00X   JOB NOTIFY=&SYSUID,TIME=(,10)                                00010000
//SORTIT  EXEC PGM=SORT                                                 00011000
//SYSOUT    DD SYSOUT=*                                                 00012000
//SORTIN    DD DSN=UTB00.CA01.COBDATA(FREQFIL1),DISP=SHR                00013000
//SORTOUT   DD DSN=&&FLIGHTS,DISP=(,PASS),SPACE=(TRK,(5,2)),            00014100
//             RECFM=FB,LRECL=80                                        00015000
//SYSIN     DD *                                                        00016000
 SORT FIELDS=(2,6,CH,A)                                                 00017000
//SKAPA   EXEC PGM=IDCAMS                                               00018000
//SYSPRINT  DD SYSOUT=*                                                 00019000
//INDATA    DD DSN=&&FLIGHTS,DISP=(OLD,PASS)                            00019100
//SYSIN     DD *                                                        00020000
  DELETE UTB00.CA01.FREQFILE                                            00030000
  DEFINE CLUSTER ( -                                                    00040000
     NAME(UTB00.CA01.FREQFILE) -                                        00050000
     INDEXED -                                                          00060000
     KEYS(5,1) -                                                        00070000
     RECORDSIZE(80,80) -                                                00080000
     RECORDS(200) -                                                     00090000
     VOLUMES(USR001) -                                                  00100000
     )                                                                  00110000
  REPRO INFILE(INDATA) ODS(UTB00.CA01.FREQFILE)                         00120000
  PRINT IDS(UTB00.CA01.FREQFILE) CHAR                                   00130000