Assignment for number 3

*Readdata.cbl example identification division. program-id. a2. environment division. input-output section. file-control. select file-in assign to disk "h: ent.txt" sequential. "con organization is line select file-out assign to printer, data division. file section fd file-in label records are standard. 01 record-in. 05 Bid-in 05 units-in 05 rent-in 05 annual-rev-in 05 HVAC-in 05 interest-in pic x(3) pic 99. pic 999 pic 999999. pic 9999v99. pic 999999v99. fd file-out label records are omitted. 01 record-out pic x(80) working-storage section. 01 more-records pic x value 'y'. 01 total-cost pic s9 (10)v99. 01 x pic 99 value 0 01 sumx pic 999 value 0. 01 report-date pic 9 (6). 01 yr-mo-dy. 05 year pic 99. 05 month pic 99. 05 dayx pic 99. *Readdata.cbl example identification division. program-id. a2. environment division. input-output section. file-control. select file-in assign to disk "h: ent.txt" sequential. "con organization is line select file-out assign to printer, data division. file section fd file-in label records are standard. 01 record-in. 05 Bid-in 05 units-in 05 rent-in 05 annual-rev-in 05 HVAC-in 05 interest-in pic x(3) pic 99. pic 999 pic 999999. pic 9999v99. pic 999999v99. fd file-out label records are omitted. 01 record-out pic x(80) working-storage section. 01 more-records pic x value 'y'. 01 total-cost pic s9 (10)v99. 01 x pic 99 value 0 01 sumx pic 999 value 0. 01 report-date pic 9 (6). 01 yr-mo-dy. 05 year pic 99. 05 month pic 99. 05 dayx pic 99