000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. CASHREG.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 ITEM-NAME      PIC X(20).
000700 01 QTY            PIC 9(4).
000800 01 UNIT-PRICE     PIC 9(6).
000900 01 SUBTOTAL       PIC 9(8).
001000 01 TAX            PIC 9(8).
001100 01 TOTAL          PIC 9(8).
001200 PROCEDURE DIVISION.
001300     ACCEPT ITEM-NAME.
001400     ACCEPT QTY.
001500     ACCEPT UNIT-PRICE.
001600
001700     COMPUTE SUBTOTAL = QTY * UNIT-PRICE.
001800     COMPUTE TAX = SUBTOTAL * 0.10.
001900     COMPUTE TOTAL = SUBTOTAL + TAX.
002000
002100     DISPLAY "ITEM: " ITEM-NAME.
002200     DISPLAY "QUANTITY: " QTY.
002300     DISPLAY "PRICE: " UNIT-PRICE.
002400     DISPLAY "SUBTOTAL: " SUBTOTAL.
002500     DISPLAY "TAX: " TAX.
002600     DISPLAY "TOTAL: " TOTAL.
002700
002800     STOP RUN.