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