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