Billing

       IDENTIFICATION DIVISION.
       PROGRAM-ID BILL.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       02 CUSTOMER OCCURS 3 TIMES.
          03 ITEMCODE PIC 999.
          03 ITEMNAME PIC X(10).
          03 PRICE PIC 9(4).
          03 QUANTITY PIC 99.
          03 TOTAL PIC 9(6).
       01 ROW1.
          03 FILLER PIC X(10) VALUE SPACES.
          03 LABEL1 PIC X(9) VALUE "ITEMCODE".
          03 FILLER PIC X(5) VALUE SPACES.
          03 LABEL2 PIC X(9) VALUE "ITEMNAME".
          03 FILLER PIC X(5) VALUE SPACES.
          03 LABEL3 PIC X(6) VALUE "PRICE".
          03 FILLER PIC X(5) VALUE SPACES.
          03 LABEL4 PIC X(9) VALUE "QUANTITY".
          03 FILLER PIC X(5) VALUE SPACES.
          03 LABEL5 PIC X(6) VALUE "TOTAL".
          03 FILLER PIC X(11) VALUE SPACES.
       01 ROW2.
          03 FILLER PIC X(13) VALUE SPACES.
          03 A PIC ZZZ.
          03 FILLER PIC X(12) VALUE SPACES.
          03 B PIC X(5).
          03 FILLER PIC X(7) VALUE SPACES.
          03 C PIC Z(4).
          03 FILLER PIC X(12) VALUE SPACES.
          03 D PIC ZZ.
          03 FILLER PIC X(5) VALUE SPACES.
          03 E PIC Z(6).
          03 FILLER PIC X(11) VALUE SPACES.
       1 I PIC 99 VALUE 1.
       PROCEDURE DIVISION.
       MAINPARA.
           PERFORM PA VARYING I FROM 1 BY 1 UNTIL I>3.
           PERFORM PB.
           PERFORM PC VARYING I FROM 1 BY 1 UNTIL I>3.
           STOP RUN.
       PA.
           DISPLAY "ENTER ITEMCODE".
           ACCEPT ITEMCODE(I).
           DISPLAY "ENTER ITEMNAME".
           ACCEPT ITEMNAME(I).
           DISPLAY "PRICE".
           ACCEPT PRICE(I).
           DISPLAY "QUANTITY".
           ACCEPT QUANTITY(I).
           COMPUTE TOTAL(I) = PRICE(I) * QUANTITY(I).
       PB.
           DISPLAY ROW1.
       PC.
           MOVE ITEMCODE(I) TO A.
           MOVE ITEMNAME(I) TO B.
           MOVE PRICE(I) TO C.
           MOVE QUANTITY(I) TO D.
           MOVE TOTAL(I) TO E.
           DISPLAY ROW2.