Note program in COBOL COBOL COBOL COBOL COBOL COBOL

For this program you will use a file Inventory-List-In (posted on the website) to produce an inventory report.

The print chart for the output is shown below:

If the quantity on hand read in is less than 400, REORDER is printed, as shown in the print chart. You need to keep track of a line count and page count. Instead of advancing a page (which will produce a distracting FF character in the output file), just advance the appropriate number of lines, as shown in the accompanying output.

Your program must have the structure shown below. Each box is a procedure.

The actual exact output of the program is shown below:

INVENTORY SUMMARY

DATE 2/15/2016 PAGE 1

PART QUANTITY

NUMBER ON HAND PART DESCRIPTION NOTES

10010224 489 1/8" WASHER

20033547 301 3/16" WASHER REORDER

30048929 400 1/4" WASHER

34554311 259 5/16" WASHER REORDER

55599432 999 6" HAMMER

00012349 557 8" HAMMER

00123431 207 10" HAMMER REORDER

01256742 399 6' FOLDING LADDER REORDER

32109885 19 8' FOLDING LADDER REORDER

56677212 456 10' FOLDING LADDER

02023400 367 12' EXTENSION LADDER REORDER

04739274 0 16' EXTENSION LADDER REORDER

INVENTORY SUMMARY

DATE 2/15/2016 PAGE 2

PART QUANTITY

NUMBER ON HAND PART DESCRIPTION NOTES

47839264 5 20' EXTENSION LADDER REORDER

74629622 500 24' EXTENSION LADDER

74836134 658 30' EXTENSION LADDER

47381619 400 35' EXTENSION LADDER

26591723 399 40' EXTENSION LADDER REORDER

47382612 401 25-GALLON TANK

83720403 999 30-GALLON TANK

91648312 0 35-GALLON TANK REORDER

26481033 478 40-GALLON TANK

83710238 582 50-GALLON TANK

65726501 124 60-GALLON TANK REORDER

75836592 231 75-GALLON TANK REORDER

INVENTORY SUMMARY

DATE 2/15/2016 PAGE 3

PART QUANTITY

NUMBER ON HAND PART DESCRIPTION NOTES

73212743 238 1" PAINT BRUSH REORDER

82910524 145 1 1/4" PAINT BRUSH REORDER

37562911 563 1 1/2" PAINT BRUSH

74839921 123 2" PAINT BRUSH REORDER

text file

100102241/8" WASHER 489 200335473/16" WASHER 301 300489291/4" WASHER 400 345543115/16" WASHER 259 555994326" HAMMER 999 000123498" HAMMER 557 0012343110" HAMMER 207 012567426' FOLDING LADDER 399 321098858' FOLDING LADDER 019 5667721210' FOLDING LADDER 456 0202340012' EXTENSION LADDER367 0473927416' EXTENSION LADDER000 4783926420' EXTENSION LADDER005 7462962224' EXTENSION LADDER500 7483613430' EXTENSION LADDER658 4738161935' EXTENSION LADDER400 2659172340' EXTENSION LADDER399 4738261225-GALLON TANK 401 8372040330-GALLON TANK 999 9164831235-GALLON TANK 000 2648103340-GALLON TANK 478 8371023850-GALLON TANK 582 6572650160-GALLON TANK 124 7583659275-GALLON TANK 231 732127431" PAINT BRUSH 238 829105241 1/4" PAINT BRUSH 145 375629111 1/2" PAINT BRUSH 563 748399212" PAINT BRUSH 123