000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. CASHREG.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01  ITEM-NAME        PIC X(30).
000700 01  QUANTITY         PIC 9(5).
000800 01  UNIT-PRICE       PIC 9(7)V99.
000900 01  SUBTOTAL         PIC 9(9)V99.
001000 01  TAX              PIC 9(9)V99.
001100 01  TOTAL            PIC 9(9)V99.
001200 
001300 PROCEDURE DIVISION.
001400 MAIN-SECTION.
001500     DISPLAY "INPUT ITEM NAME:".
001600     ACCEPT ITEM-NAME.
001700 
001800     DISPLAY "INPUT QUANTITY:".
001900     ACCEPT QUANTITY.
002000 
002100     DISPLAY "INPUT UNIT PRICE:".
002200     ACCEPT UNIT-PRICE.
002300 
002400     COMPUTE SUBTOTAL = QUANTITY * UNIT-PRICE.
002500     COMPUTE TAX = SUBTOTAL * 0.10.
002600     COMPUTE TOTAL = SUBTOTAL + TAX.
002700 
002800     DISPLAY "----- RESULT -----".
002900     DISPLAY "ITEM: " ITEM-NAME.
003000     DISPLAY "QTY : " QUANTITY.
003100     DISPLAY "PRICE: " UNIT-PRICE.
003200     DISPLAY "SUBTOTAL: " SUBTOTAL.
003300     DISPLAY "TAX(10%): " TAX.
003400     DISPLAY "TOTAL   : " TOTAL.
003500 
003600     STOP RUN.