000100 Identification Division. 000200 Program-Id. FREQMILE. 000300 Environment Division. 000400 Input-Output Section. 000500 File-Control. 000600 Select FREQMIL Assign to FREQMDD 000700 Organization is Indexed 000800 Access is Sequential 000900 Record Key is City-Pair in Mile-Record 001000 . 001200 Data Division. 001300 File Section. 001400 FD FREQMIL. 001500 01 Mile-Record. 001600 88 No-More-Mile-Records Value High-Value. 001700 05 City-Pair Pic X(07). 001800 05 Pic X(01). 001900 05 Mileage Pic 9(05). 002000 05 Pic X(67). 002100 Working-Storage Section. 002200 Linkage Section. 002300 77 MT-Count Pic 9(03). 002400 01 Mile-Table. 002500 05 City-Pair-Tab Occurs 350. 002600 10 MT-City-Pair Pic X(07). 002700 10 Pic X(01). 002800 10 MT-Mileage Pic 9(05). 002900 003000 Procedure Division Using Mile-Table, MT-Count. 003100 Open Input FREQMIL 003200 Perform Until No-More-Mile-Records 003300 Read FREQMIL 003400 At End 003500 Set No-More-Mile-Records to True 003600 Not At End 003700 Add 1 to MT-Count 003800* Move City-Pair to MT-City-Pair(MT-Count) 003900* Move Mileage r to MT-Mileage 004000 Move Mile-Record to City-Pair-Tab(MT-Count) 004100 End-Read 004200 End-Perform 004300 GoBack 004400 .