fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. POSREG.
  3. 000300 DATA DIVISION.
  4. 000400 WORKING-STORAGE SECTION.
  5. 000500 01  WS-INPUT.
  6. 000600     05  WS-ITEM-NAME   PIC X(20).
  7. 000700     05  WS-QTY-IN      PIC X(10).
  8. 000800     05  WS-PRICE-IN    PIC X(10).
  9. 000900 01  WS-CALC.
  10. 001000     05  WS-QTY         PIC 9(6).
  11. 001100     05  WS-PRICE       PIC 9(8).
  12. 001200     05  WS-SUBTOTAL    PIC 9(10).
  13. 001300     05  WS-TAX         PIC 9(10).
  14. 001400     05  WS-TOTAL       PIC 9(10).
  15. 001500 01  WS-DISPLAY.
  16. 001600     05  DISP-QTY       PIC ZZZ,ZZ9.
  17. 001700     05  DISP-PRICE     PIC ZZZ,ZZZ,ZZ9.
  18. 001800     05  DISP-SUB       PIC ZZZ,ZZZ,ZZ9.
  19. 001900     05  DISP-TAX       PIC ZZZ,ZZZ,ZZ9.
  20. 002000     05  DISP-TOT       PIC ZZZ,ZZZ,ZZ9.
  21. 002100 PROCEDURE DIVISION.
  22. 002200 MAIN-PROCEDURE.
  23. 002300     DISPLAY "--- POS REGISTER ---".
  24. 002400     DISPLAY "ENTER ITEM NAME:".
  25. 002500     ACCEPT WS-ITEM-NAME.
  26. 002600     DISPLAY "ENTER QUANTITY:".
  27. 002700     ACCEPT WS-QTY-IN.
  28. 002800     DISPLAY "ENTER UNIT PRICE:".
  29. 002900     ACCEPT WS-PRICE-IN.
  30. 003000*
  31. 003100     COMPUTE WS-QTY = FUNCTION NUMVAL(WS-QTY-IN).
  32. 003200     COMPUTE WS-PRICE = FUNCTION NUMVAL(WS-PRICE-IN).
  33. 003300     COMPUTE WS-SUBTOTAL = WS-QTY * WS-PRICE.
  34. 003400     COMPUTE WS-TAX = WS-SUBTOTAL * 0.10.
  35. 003500     COMPUTE WS-TOTAL = WS-SUBTOTAL + WS-TAX.
  36. 003600*
  37. 003700     MOVE WS-QTY      TO DISP-QTY.
  38. 003800     MOVE WS-PRICE    TO DISP-PRICE.
  39. 003900     MOVE WS-SUBTOTAL TO DISP-SUB.
  40. 004000     MOVE WS-TAX      TO DISP-TAX.
  41. 004100     MOVE WS-TOTAL    TO DISP-TOT.
  42. 004200*
  43. 004300     DISPLAY "=======================".
  44. 004400     DISPLAY "ITEM: " WS-ITEM-NAME.
  45. 004500     DISPLAY "QTY : " DISP-QTY.
  46. 004600     DISPLAY "PRICE:" DISP-PRICE.
  47. 004700     DISPLAY "-----------------------".
  48. 004800     DISPLAY "SUBTOTAL : " DISP-SUB.
  49. 004900     DISPLAY "TAX(10%) : " DISP-TAX.
  50. 005000     DISPLAY "TOTAL    : " DISP-TOT.
  51. 005100     DISPLAY "=======================".
  52. 005200     STOP RUN.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
--- POS REGISTER ---
ENTER ITEM NAME:
ENTER QUANTITY:
ENTER UNIT PRICE:
=======================
ITEM:                     
QTY :       0
PRICE:          0
-----------------------
SUBTOTAL :           0
TAX(10%) :           0
TOTAL    :           0
=======================
https://ideone.com/EKodCf
APPLE
3
120
language:
Cobol (gnucobol 2.2.0)
created:
19 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!