fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. CASH-REGISTER.
  3. 000300
  4. 000400 ENVIRONMENT DIVISION.
  5. 000500 CONFIGURATION SECTION.
  6. 000600
  7. 000700 DATA DIVISION.
  8. 000800 WORKING-STORAGE SECTION.
  9. 000900* INPUT VARIABLES
  10. 001000 01  ITEM-NAME     PIC X(20).
  11. 001100 01  QUANTITY      PIC 9(4).
  12. 001200 01  UNIT-PRICE    PIC 9(6).
  13. 001300
  14. 001400* CALCULATION VARIABLES
  15. 001500 01  SUB-TOTAL     PIC 9(9).
  16. 001600 01  TAX-AMOUNT    PIC 9(8).
  17. 001700 01  TOTAL-AMOUNT  PIC 9(9).
  18. 001800
  19. 001900* DISPLAY VARIABLES (FOR BEAUTIFUL OUTPUT)
  20. 002000 01  DISP-SUB      PIC ZZZ,ZZZ,ZZ9.
  21. 002100 01  DISP-TAX      PIC ZZ,ZZZ,ZZ9.
  22. 002200 01  DISP-TOTAL    PIC ZZZ,ZZZ,ZZ9.
  23. 002300
  24. 002400 PROCEDURE DIVISION.
  25. 002500 MAIN-PROCEDURE.
  26. 002600* READ INPUT DATA
  27. 002700     ACCEPT ITEM-NAME.
  28. 002800     ACCEPT QUANTITY.
  29. 002900     ACCEPT UNIT-PRICE.
  30. 003000
  31. 003100* CALCULATE SUB-TOTAL
  32. 003200     MULTIPLY QUANTITY BY UNIT-PRICE GIVING SUB-TOTAL.
  33. 003300
  34. 003400* CALCULATE 10% TAX (ROUNDED DOWN BY COBOL DEFAULT)
  35. 003500     MULTIPLY SUB-TOTAL BY 0.10 GIVING TAX-AMOUNT.
  36. 003600
  37. 003700* CALCULATE TOTAL
  38. 003800     ADD SUB-TOTAL TAX-AMOUNT GIVING TOTAL-AMOUNT.
  39. 003900
  40. 004000* SET DISPLAY FORMAT
  41. 004100     MOVE SUB-TOTAL   TO DISP-SUB.
  42. 004200     MOVE TAX-AMOUNT  TO DISP-TAX.
  43. 004300     MOVE TOTAL-AMOUNT TO DISP-TOTAL.
  44. 004400
  45. 004500* DISPLAY RECEIPT
  46. 004600     DISPLAY "-------------------------------------".
  47. 004700     DISPLAY "             RECEIPT                 ".
  48. 004800     DISPLAY "-------------------------------------".
  49. 004900     DISPLAY "ITEM     : " ITEM-NAME.
  50. 005000     DISPLAY "QTY      : " QUANTITY.
  51. 005100     DISPLAY "PRICE    : " UNIT-PRICE.
  52. 005200     DISPLAY "-------------------------------------".
  53. 005300     DISPLAY "SUB-TOTAL: " DISP-SUB.
  54. 005400     DISPLAY "TAX (10%): " DISP-TAX.
  55. 005500     DISPLAY "TOTAL    : " DISP-TOTAL.
  56. 005600     DISPLAY "-------------------------------------".
  57. 005700
  58. 005800     STOP RUN.
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
APPLE
3
120
stdout
copy 
-------------------------------------
             RECEIPT                 
-------------------------------------
ITEM     : APPLE               
QTY      : 0003
PRICE    : 000120
-------------------------------------
SUB-TOTAL:         360
TAX (10%):         36
TOTAL    :         396
-------------------------------------
https://ideone.com/5pcng5
language:
Cobol (gnucobol 2.2.0)
created:
17 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!