rp21

Customer

Sep 16th, 2015
509
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID CUSTOMER.
  3.        ENVIRONMENT DIVISION.
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        02 CUSTOMER OCCURS 3 TIMES.
  7.           03 ITEMCODE PIC 999.
  8.           03 ITEMNAME PIC X(10).
  9.           03 PRICE PIC 9(4).
  10.           03 QUANTITY PIC 9(3).
  11.           03 TOTAL PIC 9(6).
  12.        01 J PIC 99.
  13.        01 ROW1.
  14.          02 FILLER PIC X(3) VALUE SPACES.
  15.          02 LABEL1 PIC X(8) VALUE IS "ITEMCODE".
  16.          02 FILLER PIC X(10) VALUE SPACES.
  17.          02 LABEL1 PIC X(8) VALUE IS "ITEMNAME".
  18.          02 FILLER PIC X(10) VALUE SPACES.
  19.          02 LABEL1 PIC X(5) VALUE IS "PRICE".
  20.          02 FILLER PIC X(10) VALUE SPACES.
  21.          02 LABEL1 PIC X(8) VALUE IS "QUANTITY".
  22.          02 FILLER PIC X(10) VALUE SPACES.
  23.          02 LABEL1 PIC X(5) VALUE IS "TOTAL".
  24.          02 FILLER PIC X(3) VALUE SPACES.
  25.        01 ROW2.
  26.          02 FILLER PIC X(3) VALUE SPACES.
  27.          02 A PIC X(8).
  28.          02 FILLER PIC X(10) VALUE SPACES.
  29.          02 B PIC X(8).
  30.          02 FILLER PIC X(10) VALUE SPACES.
  31.          02 C PIC X(5).
  32.          02 FILLER PIC X(10) VALUE SPACES.
  33.          02 D PIC X(8).
  34.          02 FILLER PIC X(10) VALUE SPACES.
  35.          02 E PIC X(5).
  36.          02 FILLER PIC X(3) VALUE SPACES.
  37.        PROCEDURE DIVISION.
  38.        Mainpara.
  39.            MOVE 1 TO J.
  40.            PERFORM P 3 TIMES.
  41.            DISPLAY ROW1.            
  42.            MOVE 1 TO J.
  43.            PERFORM X 3 TIMES.
  44.            STOP RUN.  
  45.        P.
  46.            DISPLAY "ENTER ITEMCODE".
  47.            ACCEPT ITEMCODE(J).
  48.            DISPLAY "ENTER ITEMNAME".
  49.            ACCEPT ITEMNAME(J).
  50.            DISPLAY "ENTER PRICE".
  51.            ACCEPT PRICE(J).
  52.            DISPLAY "ENTER QUANTITY".
  53.            ACCEPT QUANTITY(J).
  54.            COMPUTE TOTAL(J) = PRICE(J) * QUANTITY(J) .
  55.            COMPUTE J = J + 1.
  56.        X.
  57.            MOVE ITEMCODE(J) TO A.
  58.            MOVE ITEMNAME(J) TO B.
  59.            MOVE PRICE(J) TO C.
  60.            MOVE QUANTITY(J) TO D.
  61.            MOVE TOTAL(J) TO E.
  62.            DISPLAY ROW2.  
  63.            COMPUTE J = J + 1.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×