Question: how do i fix this issue WORKING-STORAGE SECTION. 01 ITEM-COST PIC 9(6) V99 VALUE ZERO. 01 TOTAL-COST PIC 9(9) V99 VALUE ZERO. 01 ITEM-COUNT PIC
WORKING-STORAGE SECTION. 01 ITEM-COST PIC 9(6) V99 VALUE ZERO. 01 TOTAL-COST PIC 9(9) V99 VALUE ZERO. 01 ITEM-COUNT PIC 9(3) VALUE ZERO. Q1 CONTINUE-FLAG PIC X VALUE ' Y '. PROCEDURE DIVISION. MAIN-PROCEDURE. DISPLAY'Enter item cost 1 or a negative value to to quit:l ACCEPT ITEM-COST PERFORM UNTIL ITEM-COST = TOTAL-COST + ITEM-COST END-PERFORM DISPLAY 'Enter item cost IITEM-COUNT +1, or a negative value to q END-PERFORM DISPLAY 'TOTaL: \$' FUNCIION NUMVAL (TOTAL-COST, "\$\$\$\$,\$\$\$.99") DISPLAY 'Number of items: 'ITEM-COUNT COMPUTE AVERAGE-COST = TOTAL-COST/ ITEM-COUNT DISPLAY 'Average ost: \$' FUNCTION NUMVAL (AVERAGE-COST, "\$\$\$\$,\$\$\$.99" STOP RUN
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
