000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. CASHREG.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 ITEM-NAME     PIC X(30).
000006 
000007 01 QTY-STR       PIC X(10).
000008 01 PRICE-STR     PIC X(10).
000009 
000010 01 QUANTITY      PIC 9(4).
000011 01 UNIT-PRICE    PIC 9(6).
000012 01 SUBTOTAL      PIC 9(8).
000013 01 TAX           PIC 9(8).
000014 01 TOTAL         PIC 9(8).
000015 
000016 PROCEDURE DIVISION.
000017 MAIN-SECTION.
000018     ACCEPT ITEM-NAME.
000019     ACCEPT QTY-STR.
000020     ACCEPT PRICE-STR.
000021 
000022     COMPUTE QUANTITY   = FUNCTION NUMVAL(QTY-STR).
000023     COMPUTE UNIT-PRICE = FUNCTION NUMVAL(PRICE-STR).
000024 
000025     COMPUTE SUBTOTAL = QUANTITY * UNIT-PRICE.
000026     COMPUTE TAX      = SUBTOTAL / 10.
000027     COMPUTE TOTAL    = SUBTOTAL + TAX.
000028 
000029     DISPLAY "ITEM: " ITEM-NAME.
000030     DISPLAY "QUANTITY: " QUANTITY.
000031     DISPLAY "PRICE: " UNIT-PRICE.
000032     DISPLAY "SUBTOTAL: " SUBTOTAL.
000033     DISPLAY "TAX: " TAX.
000034     DISPLAY "TOTAL: " TOTAL.
000035 
000036     STOP RUN.