Note: please follow those rule below

- Process this file must use with duplicate

- Must use the structure of program in the below. Do not use your own structure.

- I would like to see the structure in the program.

This program involves working with alternate indexes in indexed files.

You are given an alternate index indexed file DEALER.dat. The contents of this file are:

A0421   ABC Trucking

A0618   ABC Trucking

A0675   DEF Warehousing

A1330   DEF Warehousing

A1366   Zebra Cleaning

A1957   Zebra Cleaning

A2001   Zebra Cleaning

A2275   Pacific Welding

A2309   Pacific Welding

A2506   Jackson Machining

A2622   Jackson Machining

A2643   Rhodes Grinding

A2855   Rhodes Grinding

B1040   ABC Trucking

B1322   ABC Trucking

B2226   Yorba Accessories

B2291   Yorba Accdssories

B2402   Midwest Suppliers

B2407   Midwest Suppliers

B2630   Marsh Outfitters

C3192   Marsh Outfitters

C3198   ACF Industries

C3645   Zebra Cleaning

You are also given Alternate-Indexed-To-Sequential.cbl to enable you to see the contents of  DEALER.dat file.

The primary index (called Dealer-Number)  is the first 8 characters, e.g. "A0421", and the alternate index (called Dealer-Name)  is the next 21 characters,

e.g. "ABC Trucking".  The alternate index allows duplicates.

You will create an output sequential file: DEALER-OUT.prnthat will include the results of doing various operations on the DEALER.dat file. Each operation will require printing the result of the read operation as:  Dealer-Number followed by one space followed by Dealer-Name.

******************************************************************************

The operations you will perform in the exact order given are:

1. two sequential reads at the beginning of the file without referring to any data in the file.

2. a random read using the primary key starting at "B1040" followed by two sequential reads.

3. a random read using the alternate key starting with "Pacific Welding" followed by 4 sequential reads.

4. a read in the middle of the file at "B2402"

******************************************************************************

Your output file will look exactly like:

A0421    ABC Trucking

A0618    ABC Trucking

B1040    ABC Trucking

B1322    ABC Trucking

B2226    Yorba Accessories

A2275    Pacific Welding

A2309    Pacific Welding

A2643    Rhodes Grinding

A2855    Rhodes Grinding

B2291    Yorba Accdssories

B2402    Midwest Suppliers

The structure of your program must conform to the following:

Pass in your program, Prog06.cbl

Attachment:- Assignment.rar