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