000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. POSREG.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01  WS-INPUT.
000600     05  WS-ITEM-NAME   PIC X(20).
000700     05  WS-QTY-IN      PIC X(10).
000800     05  WS-PRICE-IN    PIC X(10).
000900 01  WS-CALC.
001000     05  WS-QTY         PIC 9(6).
001100     05  WS-PRICE       PIC 9(8).
001200     05  WS-SUBTOTAL    PIC 9(10).
001300     05  WS-TAX         PIC 9(10).
001400     05  WS-TOTAL       PIC 9(10).
001500 01  WS-DISPLAY.
001600     05  DISP-QTY       PIC ZZZ,ZZ9.
001700     05  DISP-PRICE     PIC ZZZ,ZZZ,ZZ9.
001800     05  DISP-SUB       PIC ZZZ,ZZZ,ZZ9.
001900     05  DISP-TAX       PIC ZZZ,ZZZ,ZZ9.
002000     05  DISP-TOT       PIC ZZZ,ZZZ,ZZ9.
002100 PROCEDURE DIVISION.
002200 MAIN-PROCEDURE.
002300     DISPLAY "--- POS REGISTER ---".
002400     DISPLAY "ENTER ITEM NAME:".
002500     ACCEPT WS-ITEM-NAME.
002600     DISPLAY "ENTER QUANTITY:".
002700     ACCEPT WS-QTY-IN.
002800     DISPLAY "ENTER UNIT PRICE:".
002900     ACCEPT WS-PRICE-IN.
003000*
003100     COMPUTE WS-QTY = FUNCTION NUMVAL(WS-QTY-IN).
003200     COMPUTE WS-PRICE = FUNCTION NUMVAL(WS-PRICE-IN).
003300     COMPUTE WS-SUBTOTAL = WS-QTY * WS-PRICE.
003400     COMPUTE WS-TAX = WS-SUBTOTAL * 0.10.
003500     COMPUTE WS-TOTAL = WS-SUBTOTAL + WS-TAX.
003600*
003700     MOVE WS-QTY      TO DISP-QTY.
003800     MOVE WS-PRICE    TO DISP-PRICE.
003900     MOVE WS-SUBTOTAL TO DISP-SUB.
004000     MOVE WS-TAX      TO DISP-TAX.
004100     MOVE WS-TOTAL    TO DISP-TOT.
004200*
004300     DISPLAY "=======================".
004400     DISPLAY "ITEM: " WS-ITEM-NAME.
004500     DISPLAY "QTY : " DISP-QTY.
004600     DISPLAY "PRICE:" DISP-PRICE.
004700     DISPLAY "-----------------------".
004800     DISPLAY "SUBTOTAL : " DISP-SUB.
004900     DISPLAY "TAX(10%) : " DISP-TAX.
005000     DISPLAY "TOTAL    : " DISP-TOT.
005100     DISPLAY "=======================".
005200     STOP RUN.