000100 01 MILAGE-TABL. 00010000 000200 03 FILLER PIC X(13) VALUE "AKL-HNL/04406". 00020000 000300 03 FILLER PIC X(13) VALUE "AKL-MEL/01636". 00030000 000400 03 FILLER PIC X(13) VALUE "AKL-NAN/01341". 00040000 000500 03 FILLER PIC X(13) VALUE "AKL-PPT/02544". 00050000 000600 03 FILLER PIC X(13) VALUE "AKL-SYD/01343". 00060000 000700 03 FILLER PIC X(13) VALUE "ATH-JFK/04927". 00070000 000800 03 FILLER PIC X(13) VALUE "ATH-JMK/00094". 00080000 000900 03 FILLER PIC X(13) VALUE "ATH-MUC/00931". 00090000 001000 03 FILLER PIC X(13) VALUE "ATL-ABQ/01269". 00100000 001100 03 FILLER PIC X(13) VALUE "ATL-AUS/00812". 00110000 001200 03 FILLER PIC X(13) VALUE "ATL-BDA/01148". 00120000 001300 03 FILLER PIC X(13) VALUE "ATL-BDL/00859". 00130000 001400 03 FILLER PIC X(13) VALUE "ATL-BOS/00946". 00140000 001500 03 FILLER PIC X(13) VALUE "ATL-BTV/00960". 00150000 001600 03 FILLER PIC X(13) VALUE "ATL-BUF/00712". 00160000 001700 03 FILLER PIC X(13) VALUE "ATL-BWI/00576". 00170000 001800 03 FILLER PIC X(13) VALUE "ATL-CLT/00227". 00180000 001900 03 FILLER PIC X(13) VALUE "ATL-CVG/00373". 00190000 002000 03 FILLER PIC X(13) VALUE "ATL-DAY/00432". 00200000 002100 03 FILLER PIC X(13) VALUE "ATL-DCA/00543". 00210000 002200 03 FILLER PIC X(13) VALUE "ATL-DEN/01208". 00220000 002300 03 FILLER PIC X(13) VALUE "ATL-ELP/01284". 00230000 002400 03 FILLER PIC X(13) VALUE "ATL-EYW/00646". 00240000 002500 03 FILLER PIC X(13) VALUE "ATL-FLL/00581". 00250000 002600 03 FILLER PIC X(13) VALUE "ATL-ILM/00377". 00260000 002700 03 FILLER PIC X(13) VALUE "ATL-IND/00432". 00270000 002800 03 FILLER PIC X(13) VALUE "ATL-LAX/01946". 00280000 002900 03 FILLER PIC X(13) VALUE "ATL-LGA/00765". 00290000 003000 03 FILLER PIC X(13) VALUE "ATL-MAD/04335". 00300000 003100 03 FILLER PIC X(13) VALUE "ATL-MDT/00619". 00310000 003200 03 FILLER PIC X(13) VALUE "ATL-MEM/00332". 00320000 003300 03 FILLER PIC X(13) VALUE "ATL-MEX/01330". 00330000 003400 03 FILLER PIC X(13) VALUE "ATL-MIA/00595". 00340000 003500 03 FILLER PIC X(13) VALUE "ATL-MKE/00669". 00350000 003600 03 FILLER PIC X(13) VALUE "ATL-MOB/00302". 00360000 003700 03 FILLER PIC X(13) VALUE "ATL-MSP/00906". 00370000 003800 03 FILLER PIC X(13) VALUE "ATL-OKC/00761". 00380000 003900 03 FILLER PIC X(13) VALUE "ATL-OMA/00821". 00390000 004000 03 FILLER PIC X(13) VALUE "ATL-ORD/00596". 00400000 004100 03 FILLER PIC X(13) VALUE "ATL-ORF/00516". 00410000 004200 03 FILLER PIC X(13) VALUE "ATL-PDX/02172". 00420000 004300 03 FILLER PIC X(13) VALUE "ATL-PHL/00665". 00430000 004400 03 FILLER PIC X(13) VALUE "ATL-PHX/01587". 00440000 004500 03 FILLER PIC X(13) VALUE "ATL-PIT/00526". 00450000 004600 03 FILLER PIC X(13) VALUE "ATL-RDU/00356". 00460000 004700 03 FILLER PIC X(13) VALUE "ATL-RIC/00480". 00470000 004800 03 FILLER PIC X(13) VALUE "ATL-ROC/00749". 00480000 004900 03 FILLER PIC X(13) VALUE "ATL-SAT/00874". 00490000 005000 03 FILLER PIC X(13) VALUE "ATL-SEA/02181". 00500000 005100 03 FILLER PIC X(13) VALUE "ATL-SJC/02115". 00510000 005200 03 FILLER PIC X(13) VALUE "ATL-SJU/01547". 00520000 005300 03 FILLER PIC X(13) VALUE "ATL-SLC/01589". 00530000 005400 03 FILLER PIC X(13) VALUE "ATL-STL/00484". 00540000 005500 03 FILLER PIC X(13) VALUE "ATL-TPA/00406". 00550000 005600 03 FILLER PIC X(13) VALUE "ATL-TUL/00674". 00560000 005700 03 FILLER PIC X(13) VALUE "ATL-YUM/01745". 00570000 005800 03 FILLER PIC X(13) VALUE "BDA-BOS/00773". 00580000 005900 03 FILLER PIC X(13) VALUE "BDA-BWI/00819". 00590000 006000 03 FILLER PIC X(13) VALUE "BDA-DCA/00830". 00600000 006100 03 FILLER PIC X(13) VALUE "BDA-NYC/00771". 00610000 006200 03 FILLER PIC X(13) VALUE "BDA-ORD/01435". 00620000 006300 03 FILLER PIC X(13) VALUE "BDL-EWR/00115". 00630000 006400 03 FILLER PIC X(13) VALUE "BDL-IAD/00283". 00640000 006500 03 FILLER PIC X(13) VALUE "BDL-JFK/00106". 00650000 006600 03 FILLER PIC X(13) VALUE "BDL-RDU/00532". 00660000 006700 03 FILLER PIC X(13) VALUE "BNA-ATL/00214". 00670000 006800 03 FILLER PIC X(13) VALUE "BNA-BDL/00852". 00680000 006900 03 FILLER PIC X(13) VALUE "BNA-BHM/00178". 00690000 007000 03 FILLER PIC X(13) VALUE "BNA-BOS/00942". 00700000 007100 03 FILLER PIC X(13) VALUE "BNA-CLT/00329". 00710000 007200 03 FILLER PIC X(13) VALUE "BNA-CVG/00230". 00720000 007300 03 FILLER PIC X(13) VALUE "BNA-DCA/00562". 00730000 007400 03 FILLER PIC X(13) VALUE "BNA-DEN/01023". 00740000 007500 03 FILLER PIC X(13) VALUE "BNA-DFW/00631". 00750000 007600 03 FILLER PIC X(13) VALUE "BNA-LAS/01587". 00760000 007700 03 FILLER PIC X(13) VALUE "BNA-LAX/01797". 00770000 007800 03 FILLER PIC X(13) VALUE "BNA-LEX/00175". 00780000 007900 03 FILLER PIC X(13) VALUE "BNA-LGA/00766". 00790000 008000 03 FILLER PIC X(13) VALUE "BNA-MEM/00200". 00800000 008100 03 FILLER PIC X(13) VALUE "BNA-OMA/00612". 00810000 008200 03 FILLER PIC X(13) VALUE "BNA-ORD/00409". 00820000 008300 03 FILLER PIC X(13) VALUE "BNA-ORF/00585". 00830000 008400 03 FILLER PIC X(13) VALUE "BNA-PHL/00675". 00840000 008500 03 FILLER PIC X(13) VALUE "BNA-RDU/00443". 00850000 008600 03 FILLER PIC X(13) VALUE "BNA-RNO/01815". 00860000 008700 03 FILLER PIC X(13) VALUE "BNA-TPA/00612". 00870000 008800 03 FILLER PIC X(13) VALUE "BOS-BDA/00773". 00880000 008900 03 FILLER PIC X(13) VALUE "BOS-HPN/00166". 00890000 009000 03 FILLER PIC X(13) VALUE "BOS-LAX/02606". 00900000 009100 03 FILLER PIC X(13) VALUE "BOS-MSY/01361". 00910000 009200 03 FILLER PIC X(13) VALUE "BOS-NYC/00153". 00920000 009300 03 FILLER PIC X(13) VALUE "BOS-ORD/00865". 00930000 009400 03 FILLER PIC X(13) VALUE "BOS-PHL/00280". 00940000 009500 03 FILLER PIC X(13) VALUE "BOS-RDU/00612". 00950000 009600 03 FILLER PIC X(13) VALUE "BOS-SFO/02698". 00960000 009700 03 FILLER PIC X(13) VALUE "BOS-STL/01045". 00970000 009800 03 FILLER PIC X(13) VALUE "BUF-NYC/00292". 00980000 009900 03 FILLER PIC X(13) VALUE "BUF-ORD/00473". 00990000 010000 03 FILLER PIC X(13) VALUE "BUF-ROC/00056". 01000000 010100 03 FILLER PIC X(13) VALUE "CVG-OMA/00614". 01010000 010200 03 FILLER PIC X(13) VALUE "DCA-HPN/00234". 01020000 010300 03 FILLER PIC X(13) VALUE "DCA-ISP/00245". 01030000 010400 03 FILLER PIC X(13) VALUE "DCA-SLC/01851". 01040000 010500 03 FILLER PIC X(13) VALUE "DEN-LAS/00615". 01050000 010600 03 FILLER PIC X(13) VALUE "DEN-LAX/00848". 01060000 010700 03 FILLER PIC X(13) VALUE "DEN-OKC/00500". 01070000 010800 03 FILLER PIC X(13) VALUE "DEN-PHX/00590". 01080000 010900 03 FILLER PIC X(13) VALUE "DEN-RNO/00792". 01090000 011000 03 FILLER PIC X(13) VALUE "DEN-SLC/00380". 01100000 011100 03 FILLER PIC X(13) VALUE "DEN-TUL/00549". 01110000 011200 03 FILLER PIC X(13) VALUE "DFW-ABQ/00569". 01120000 011300 03 FILLER PIC X(13) VALUE "DFW-AMA/00313". 01130000 011400 03 FILLER PIC X(13) VALUE "DFW-ATL/00731". 01140000 011500 03 FILLER PIC X(13) VALUE "DFW-AUS/00187". 01150000 011600 03 FILLER PIC X(13) VALUE "DFW-BDL/01470". 01160000 011700 03 FILLER PIC X(13) VALUE "DFW-BHM/00592". 01170000 011800 03 FILLER PIC X(13) VALUE "DFW-BOS/01561". 01180000 011900 03 FILLER PIC X(13) VALUE "DFW-BUF/01196". 01190000 012000 03 FILLER PIC X(13) VALUE "DFW-BUR/01232". 01200000 012100 03 FILLER PIC X(13) VALUE "DFW-BWI/01215". 01210000 012200 03 FILLER PIC X(13) VALUE "DFW-CLT/00935". 01220000 012300 03 FILLER PIC X(13) VALUE "DFW-CMH/00926". 01230000 012400 03 FILLER PIC X(13) VALUE "DFW-CVG/00811". 01240000 012500 03 FILLER PIC X(13) VALUE "DFW-DCA/01192". 01250000 012600 03 FILLER PIC X(13) VALUE "DFW-DEN/00645". 01260000 012700 03 FILLER PIC X(13) VALUE "DFW-DSM/00624". 01270000 012800 03 FILLER PIC X(13) VALUE "DFW-DTW/00987". 01280000 012900 03 FILLER PIC X(13) VALUE "DFW-ELP/00553". 01290000 013000 03 FILLER PIC X(13) VALUE "DFW-EWR/01370". 01300000 013100 03 FILLER PIC X(13) VALUE "DFW-FRA/05143". 01310000 013200 03 FILLER PIC X(13) VALUE "DFW-HNL/03785". 01320000 013300 03 FILLER PIC X(13) VALUE "DFW-HOU/00247". 01330000 013400 03 FILLER PIC X(13) VALUE "DFW-IAD/01171". 01340000 013500 03 FILLER PIC X(13) VALUE "DFW-IAH/00224". 01350000 013600 03 FILLER PIC X(13) VALUE "DFW-IND/00759". 01360000 013700 03 FILLER PIC X(13) VALUE "DFW-JFK/01391". 01370000 013800 03 FILLER PIC X(13) VALUE "DFW-LAS/01056". 01380000 013900 03 FILLER PIC X(13) VALUE "DFW-LAX/01235". 01390000 014000 03 FILLER PIC X(13) VALUE "DFW-LBB/00282". 01400000 014100 03 FILLER PIC X(13) VALUE "DFW-LGA/01388". 01410000 014200 03 FILLER PIC X(13) VALUE "DFW-LGW/04760". 01420000 014300 03 FILLER PIC X(13) VALUE "DFW-MCI/00460". 01430000 014400 03 FILLER PIC X(13) VALUE "DFW-MCO/00983". 01440000 014500 03 FILLER PIC X(13) VALUE "DFW-MEM/00431". 01450000 014600 03 FILLER PIC X(13) VALUE "DFW-MEX/00936". 01460000 014700 03 FILLER PIC X(13) VALUE "DFW-MIA/01114". 01470000 014800 03 FILLER PIC X(13) VALUE "DFW-MKE/00850". 01480000 014900 03 FILLER PIC X(13) VALUE "DFW-MSP/00856". 01490000 015000 03 FILLER PIC X(13) VALUE "DFW-MSY/00447". 01500000 015100 03 FILLER PIC X(13) VALUE "DFW-MUC/05334". 01510000 015200 03 FILLER PIC X(13) VALUE "DFW-OGG/03711". 01520000 015300 03 FILLER PIC X(13) VALUE "DFW-OKC/00171". 01530000 015400 03 FILLER PIC X(13) VALUE "DFW-OMA/00583". 01540000 015500 03 FILLER PIC X(13) VALUE "DFW-ORD/00802". 01550000 015600 03 FILLER PIC X(13) VALUE "DFW-ORF/01212". 01560000 015700 03 FILLER PIC X(13) VALUE "DFW-PDX/01616". 01570000 015800 03 FILLER PIC X(13) VALUE "DFW-PHL/01302". 01580000 015900 03 FILLER PIC X(13) VALUE "DFW-PHX/00873". 01590000 016000 03 FILLER PIC X(13) VALUE "DFW-PIT/01065". 01600000 016100 03 FILLER PIC X(13) VALUE "DFW-RDU/01061". 01610000 016200 03 FILLER PIC X(13) VALUE "DFW-RIC/01156". 01620000 016300 03 FILLER PIC X(13) VALUE "DFW-RNO/01345". 01630000 016400 03 FILLER PIC X(13) VALUE "DFW-SAN/01182". 01640000 016500 03 FILLER PIC X(13) VALUE "DFW-SAT/00246". 01650000 016600 03 FILLER PIC X(13) VALUE "DFW-SDF/00726". 01660000 016700 03 FILLER PIC X(13) VALUE "DFW-SEA/01670". 01670000 016800 03 FILLER PIC X(13) VALUE "DFW-SFO/01465". 01680000 016900 03 FILLER PIC X(13) VALUE "DFW-SJC/01439". 01690000 017000 03 FILLER PIC X(13) VALUE "DFW-SJU/02165". 01700000 017100 03 FILLER PIC X(13) VALUE "DFW-SLC/00986". 01710000 017200 03 FILLER PIC X(13) VALUE "DFW-SMF/01432". 01720000 017300 03 FILLER PIC X(13) VALUE "DFW-STL/00550". 01730000 017400 03 FILLER PIC X(13) VALUE "DFW-SXM/02339". 01740000 017500 03 FILLER PIC X(13) VALUE "DFW-SYR/01319". 01750000 017600 03 FILLER PIC X(13) VALUE "DFW-TPA/00928". 01760000 017700 03 FILLER PIC X(13) VALUE "DFW-TUL/00237". 01770000 017800 03 FILLER PIC X(13) VALUE "DFW-TUS/00814". 01780000 017900 03 FILLER PIC X(13) VALUE "DFW-YUL/01508". 01790000 018000 03 FILLER PIC X(13) VALUE "DFW-YVR/01803". 01800000 018100 03 FILLER PIC X(13) VALUE "DFW-YYZ/01199". 01810000 018200 03 FILLER PIC X(13) VALUE "HNL-LAX/02556". 01820000 018300 03 FILLER PIC X(13) VALUE "HNL-NRT/03849". 01830000 018400 03 FILLER PIC X(13) VALUE "HNL-NYC/04966". 01840000 018500 03 FILLER PIC X(13) VALUE "HNL-OGG/00100". 01850000 018600 03 FILLER PIC X(13) VALUE "HNL-SEA/02678". 01860000 018700 03 FILLER PIC X(13) VALUE "HNL-SFO/02397". 01870000 018800 03 FILLER PIC X(13) VALUE "HNL-SJC/02415". 01880000 018900 03 FILLER PIC X(13) VALUE "HNL-SYD/05078". 01890000 019000 03 FILLER PIC X(13) VALUE "IAD-BDL/00283". 01900000 019100 03 FILLER PIC X(13) VALUE "IBZ-MAD/00284". 01910000 019200 03 FILLER PIC X(13) VALUE "JFK-ATH/04927". 01920000 019300 03 FILLER PIC X(13) VALUE "JFK-BCN/03827". 01930000 019400 03 FILLER PIC X(13) VALUE "JFK-BRU/03662". 01940000 019500 03 FILLER PIC X(13) VALUE "JFK-GLA/03211". 01950000 019600 03 FILLER PIC X(13) VALUE "JFK-HEL/04108". 01960000 019700 03 FILLER PIC X(13) VALUE "JFK-MAD/03588". 01970000 019800 03 FILLER PIC X(13) VALUE "JFK-NAS/01101". 01980000 019900 03 FILLER PIC X(13) VALUE "JFK-WAW/04259". 01990000 020000 03 FILLER PIC X(13) VALUE "LAS-LAX/00236". 02000000 020100 03 FILLER PIC X(13) VALUE "LAS-SFO/00414". 02010000 020200 03 FILLER PIC X(13) VALUE "LAS-SJC/00386". 02020000 020300 03 FILLER PIC X(13) VALUE "LAS-SLC/00368". 02030000 020400 03 FILLER PIC X(13) VALUE "LAS-STL/01369". 02040000 020500 03 FILLER PIC X(13) VALUE "LAX-BOS/02611". 02050000 020600 03 FILLER PIC X(13) VALUE "LAX-LGA/02475". 02060000 020700 03 FILLER PIC X(13) VALUE "LAX-OGG/02486". 02070000 020800 03 FILLER PIC X(13) VALUE "LAX-SFO/00337". 02080000 020900 03 FILLER PIC X(13) VALUE "LAX-SJC/00308". 02090000 021000 03 FILLER PIC X(13) VALUE "LAX-SJU/03382". 02100000 021100 03 FILLER PIC X(13) VALUE "LAX-SLC/00590". 02110000 021200 03 FILLER PIC X(13) VALUE "LGA-BDL/00101". 02120000 021300 03 FILLER PIC X(13) VALUE "LGA-MEM/00963". 02130000 021400 03 FILLER PIC X(13) VALUE "LGA-ORD/00733". 02140000 021500 03 FILLER PIC X(13) VALUE "LGA-RDU/00425". 02150000 021600 03 FILLER PIC X(13) VALUE "LGA-SXM/01693". 02160000 021700 03 FILLER PIC X(13) VALUE "LGA-YYZ/00356". 02170000 021800 03 FILLER PIC X(13) VALUE "MIA-AUA/00489". 02180000 021900 03 FILLER PIC X(13) VALUE "MIA-BOG/01513". 02190000 022000 03 FILLER PIC X(13) VALUE "MIA-BOS/01258". 02200000 022100 03 FILLER PIC X(13) VALUE "MIA-BUE/04417". 02210000 022200 03 FILLER PIC X(13) VALUE "MIA-CCS/01365". 02220000 022300 03 FILLER PIC X(13) VALUE "MIA-DCA/00920". 02230000 022400 03 FILLER PIC X(13) VALUE "MIA-EYW/00126". 02240000 022500 03 FILLER PIC X(13) VALUE "MIA-GCM/00456". 02250000 022600 03 FILLER PIC X(13) VALUE "MIA-GIG/04179". 02260000 022700 03 FILLER PIC X(13) VALUE "MIA-LIM/02626". 02270000 022800 03 FILLER PIC X(13) VALUE "MIA-MAD/04417". 02280000 022900 03 FILLER PIC X(13) VALUE "MIA-MCO/00193". 02290000 023000 03 FILLER PIC X(13) VALUE "MIA-ORF/00802". 02300000 023100 03 FILLER PIC X(13) VALUE "MIA-RDU/00700". 02310000 023200 03 FILLER PIC X(13) VALUE "MIA-RIC/00825". 02320000 023300 03 FILLER PIC X(13) VALUE "MIA-ROC/01203". 02330000 023400 03 FILLER PIC X(13) VALUE "MIA-SAO/04155". 02340000 023500 03 FILLER PIC X(13) VALUE "MIA-SJC/02559". 02350000 023600 03 FILLER PIC X(13) VALUE "MIA-SJO/01123". 02360000 023700 03 FILLER PIC X(13) VALUE "MIA-SJU/01045". 02370000 023800 03 FILLER PIC X(13) VALUE "MIA-YYZ/01237". 02380000 023900 03 FILLER PIC X(13) VALUE "ORD-ATL/00606". 02390000 024000 03 FILLER PIC X(13) VALUE "ORD-BDL/00783". 02400000 024100 03 FILLER PIC X(13) VALUE "ORD-CMH/00296". 02410000 024200 03 FILLER PIC X(13) VALUE "ORD-CVG/00264". 02420000 024300 03 FILLER PIC X(13) VALUE "ORD-DCA/00612". 02430000 024400 03 FILLER PIC X(13) VALUE "ORD-DEN/00901". 02440000 024500 03 FILLER PIC X(13) VALUE "ORD-DSM/00299". 02450000 024600 03 FILLER PIC X(13) VALUE "ORD-DTW/00235". 02460000 024700 03 FILLER PIC X(13) VALUE "ORD-HOU/00925". 02470000 024800 03 FILLER PIC X(13) VALUE "ORD-IND/00177". 02480000 024900 03 FILLER PIC X(13) VALUE "ORD-LAS/01514". 02490000 025000 03 FILLER PIC X(13) VALUE "ORD-LAX/01742". 02500000 025100 03 FILLER PIC X(13) VALUE "ORD-LHR/03953". 02510000 025200 03 FILLER PIC X(13) VALUE "ORD-MIA/01200". 02520000 025300 03 FILLER PIC X(13) VALUE "ORD-MKE/00067". 02530000 025400 03 FILLER PIC X(13) VALUE "ORD-MUC/04535". 02540000 025500 03 FILLER PIC X(13) VALUE "ORD-OKC/00693". 02550000 025600 03 FILLER PIC X(13) VALUE "ORD-OMA/00416". 02560000 025700 03 FILLER PIC X(13) VALUE "ORD-ONT/01698". 02570000 025800 03 FILLER PIC X(13) VALUE "ORD-PDX/01735". 02580000 025900 03 FILLER PIC X(13) VALUE "ORD-PHL/00677". 02590000 026000 03 FILLER PIC X(13) VALUE "ORD-PHX/01438". 02600000 026100 03 FILLER PIC X(13) VALUE "ORD-PIT/00412". 02610000 026200 03 FILLER PIC X(13) VALUE "ORD-PVD/00847". 02620000 026300 03 FILLER PIC X(13) VALUE "ORD-RDU/00647". 02630000 026400 03 FILLER PIC X(13) VALUE "ORD-RIC/00642". 02640000 026500 03 FILLER PIC X(13) VALUE "ORD-RNO/01671". 02650000 026600 03 FILLER PIC X(13) VALUE "ORD-ROC/00528". 02660000 026700 03 FILLER PIC X(13) VALUE "ORD-SAN/01723". 02670000 026800 03 FILLER PIC X(13) VALUE "ORD-SAT/01041". 02680000 026900 03 FILLER PIC X(13) VALUE "ORD-SEA/01720". 02690000 027000 03 FILLER PIC X(13) VALUE "ORD-SFO/01846". 02700000 027100 03 FILLER PIC X(13) VALUE "ORD-SJU/02075". 02710000 027200 03 FILLER PIC X(13) VALUE "ORD-SLC/01246". 02720000 027300 03 FILLER PIC X(13) VALUE "ORD-SMF/01777". 02730000 027400 03 FILLER PIC X(13) VALUE "ORD-SYR/00607". 02740000 027500 03 FILLER PIC X(13) VALUE "ORD-TPA/01012". 02750000 027600 03 FILLER PIC X(13) VALUE "ORD-TUC/01436". 02760000 027700 03 FILLER PIC X(13) VALUE "ORD-TUL/00583". 02770000 027800 03 FILLER PIC X(13) VALUE "ORD-YYZ/00437". 02780000 027900 03 FILLER PIC X(13) VALUE "RDU-BNA/00443". 02790000 028000 03 FILLER PIC X(13) VALUE "RDU-BWI/00256". 02800000 028100 03 FILLER PIC X(13) VALUE "RDU-CMH/00361". 02810000 028200 03 FILLER PIC X(13) VALUE "RDU-DCA/00227". 02820000 028300 03 FILLER PIC X(13) VALUE "RDU-ORF/00160". 02830000 028400 03 FILLER PIC X(13) VALUE "RDU-PHL/00336". 02840000 028500 03 FILLER PIC X(13) VALUE "RDU-SJU/01432". 02850000 028600 03 FILLER PIC X(13) VALUE "RDU-SXM/01558". 02860000 028700 03 FILLER PIC X(13) VALUE "RDU-TPA/00587". 02870000 028800 03 FILLER PIC X(13) VALUE "SEA-NRT/04793". 02880000 028900 03 FILLER PIC X(13) VALUE "SFO-DCA/02434". 02890000 029000 03 FILLER PIC X(13) VALUE "SFO-SLC/00599". 02900000 029100 03 FILLER PIC X(13) VALUE "SJC-DEN/00936". 02910000 029200 03 FILLER PIC X(13) VALUE "SJC-MEX/01850". 02920000 029300 03 FILLER PIC X(13) VALUE "SJC-ONT/00333". 02930000 029400 03 FILLER PIC X(13) VALUE "SJC-ORD/01837". 02940000 029500 03 FILLER PIC X(13) VALUE "SJC-PDX/00569". 02950000 029600 03 FILLER PIC X(13) VALUE "SJC-PHX/00621". 02960000 029700 03 FILLER PIC X(13) VALUE "SJC-RNO/00188". 02970000 029800 03 FILLER PIC X(13) VALUE "SJC-SAN/00417". 02980000 029900 03 FILLER PIC X(13) VALUE "SJC-SFO/00030". 02990000 030000 03 FILLER PIC X(13) VALUE "SJU-AUA/00489". 03000000 030100 03 FILLER PIC X(13) VALUE "SJU-SDQ/00240". 03010000 030200 03 FILLER PIC X(13) VALUE "SJU-SXM/00192". 03020000 030300 03 FILLER PIC X(13) VALUE "SJU-TPA/01237". 03030000 030400 03 FILLER PIC X(13) VALUE "SYD-NLK/01043". 03040000 030500 03 FILLER PIC X(13) VALUE "YYZ-DFW/01199". 03050000 030600 03 FILLER PIC X(13) VALUE "YYZ-LGA/00356". 03060000 030700 03 FILLER PIC X(13) VALUE "YYZ-ORD/00437". 03070000 030800 01 CITYTABL REDEFINES MILAGE-TABL. 03080000 030900 10 CITYPAIR OCCURS 306 TIMES 02 031000 ASCENDING KEY CITY-KEY 03090102 031100 INDEXED BY NDX. 03090202 031200 20 CITY-KEY. 03090302 031300 30 ORG-CITY PIC XXX. 03100002 031400 30 PIC X. 03110002 031500 30 DST-CITY PIC XXX. 03120002 031600 20 PIC X. 03130002 031700 20 ACT-MILES PIC 99999. 03140002