First COBOL Programming Assignment

due in three weeks

The file for this program is called C12ASGN.DAT and is located on the Internet and with Nancy Borges in K-104. The layout of the file is:

Columns

Field Name

1 - 4

Item Number

5 - 24

Item Name

25 - 29

Cost (3 whole numbers and 2 decimals)

30 - 34

Price (3 whole numbers and 2 decimals)

35 - 36

Dept

37 - 41

On Hand (5 whole numbers)

42 - 46

On Order (5 whole numbers)

47 - 51

ReOrder Point (5 whole numbers)

 

 

Your assignment is to write the COBOL program to read the file and produce a report. What you put on the report will determine your grade.

Basic Report (80 points): Write the program to read the file and produce a report. Each line on the report should contain all of the information on one record.

Elements you can add to the report - each of these elements will be worth 10 points.

  1. Edit the data on the output line - use a different output picture for each of the 5 numeric fields - include $, * etc.
  2. Do a calculation such as adding on hand and on order and printing the result or subtracting on hand from the reorder point and printing the result
  3. Print page and column headers
  4. Accumulate totals for number of records, total on hand, total on order and print them

On this handout I have put in the column numbers to help, the actual data starts with the line that begins with 1111PILLOW:


         111111111122222222223333333333444444444455
123456789012345678901234567890123456789012345678901

1111PILLOW              0100001298HW000240005000050

1212BED SPREAD          0240002999HW001000000000050

1234QUILT               0500007589HW000700005000075

2121PAN SET             0450005999KT000000002000050

2222BLENDER             0450005289KT000420002500050

2345RICE COOKER         0340004599KT000340004500050

3000FLOOR LAMP          0500007595LM000080010000050

3123DESK LAMP           0230002999LM000120000000025

3456TABLE LAMP          0750009989LM000120002500100

4123SMALL FRAME         0050000695DE010120000001000

4234MAT                 0030000499GE012340050001000