-----COBOL------ IDENTIFICA - Anonymous - m7a0XrSf

-----COBOL------

IDENTIFICATION DIVISION
PROGRAM ID. ERRORS-EXAMPLE.
DATA DIVISION
77 ITEM-DESC PIC X20.
77 ITEM COST PIC 999V99.
77 VAT 999V99.
77 TOTAL PIC 999V99.
PROCEDURE-DIVISION.
BILL-SEQ
MOVE 0 TO TOTAL.
        INPUT ITEM-DESC
        INPUT ITEM-COST.
INPUT-ITER.
        IF ITEM-COST = 0 GOTO INPUT-END
                ADD ITEM-COST TO TOTAL
                ACCEPT ITEM-DESC
                ACCEPT ITEM-COST
                GO TO INPUT ITER.
        VAT = 0.15 X TOTAL
        ADD VAT TO TOTAL
        DISPLAY OUTPUT TOTAL
        STOP-RUN.
BILL-END