Customer

       IDENTIFICATION DIVISION.
       PROGRAM-ID CUSTOMER.
       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 9(3).
          03 TOTAL PIC 9(6).
       01 J PIC 99.
       01 ROW1.
         02 FILLER PIC X(3) VALUE SPACES.
         02 LABEL1 PIC X(8) VALUE IS "ITEMCODE".
         02 FILLER PIC X(10) VALUE SPACES.
         02 LABEL1 PIC X(8) VALUE IS "ITEMNAME".
         02 FILLER PIC X(10) VALUE SPACES.
         02 LABEL1 PIC X(5) VALUE IS "PRICE".
         02 FILLER PIC X(10) VALUE SPACES.
         02 LABEL1 PIC X(8) VALUE IS "QUANTITY".
         02 FILLER PIC X(10) VALUE SPACES.
         02 LABEL1 PIC X(5) VALUE IS "TOTAL".
         02 FILLER PIC X(3) VALUE SPACES.
       01 ROW2.
         02 FILLER PIC X(3) VALUE SPACES.
         02 A PIC X(8).
         02 FILLER PIC X(10) VALUE SPACES.
         02 B PIC X(8).
         02 FILLER PIC X(10) VALUE SPACES.
         02 C PIC X(5).
         02 FILLER PIC X(10) VALUE SPACES.
         02 D PIC X(8).
         02 FILLER PIC X(10) VALUE SPACES.
         02 E PIC X(5).
         02 FILLER PIC X(3) VALUE SPACES.
       PROCEDURE DIVISION.
       Mainpara.
           MOVE 1 TO J.
           PERFORM P 3 TIMES.
           DISPLAY ROW1.
           MOVE 1 TO J.
           PERFORM X 3 TIMES.
           STOP RUN.
       P.
           DISPLAY "ENTER ITEMCODE".
           ACCEPT ITEMCODE(J).
           DISPLAY "ENTER ITEMNAME".
           ACCEPT ITEMNAME(J).
           DISPLAY "ENTER PRICE".
           ACCEPT PRICE(J).
           DISPLAY "ENTER QUANTITY".
           ACCEPT QUANTITY(J).
           COMPUTE TOTAL(J) = PRICE(J) * QUANTITY(J) .
           COMPUTE J = J + 1.
       X.
           MOVE ITEMCODE(J) TO A.
           MOVE ITEMNAME(J) TO B.
           MOVE PRICE(J) TO C.
           MOVE QUANTITY(J) TO D.
           MOVE TOTAL(J) TO E.
           DISPLAY ROW2.
           COMPUTE J = J + 1.