fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. CASHREG.
  3. 000300 ENVIRONMENT DIVISION.
  4. 000400 DATA DIVISION.
  5. 000500 WORKING-STORAGE SECTION.
  6. 000600 01 ITEM-NAME     PIC X(20).
  7. 000700 01 QTY           PIC 9(4).
  8. 000800 01 UNIT-PRICE    PIC 9(6).
  9. 000900 01 SUBTOTAL      PIC 9(8).
  10. 001000 01 TAX           PIC 9(8).
  11. 001100 01 TOTAL         PIC 9(8).
  12. 001200 PROCEDURE DIVISION.
  13. 001300     DISPLAY "INPUT ITEM NAME:"
  14. 001400     ACCEPT ITEM-NAME
  15. 001500
  16. 001600     DISPLAY "INPUT QUANTITY:"
  17. 001700     ACCEPT QTY
  18. 001800
  19. 001900     DISPLAY "INPUT UNIT PRICE:"
  20. 002000     ACCEPT UNIT-PRICE
  21. 002100
  22. 002200     COMPUTE SUBTOTAL = QTY * UNIT-PRICE
  23. 002300     COMPUTE TAX = SUBTOTAL * 0.1
  24. 002400     COMPUTE TOTAL = SUBTOTAL + TAX
  25. 002500
  26. 002600     DISPLAY "ITEM    : " ITEM-NAME
  27. 002700     DISPLAY "SUBTOTAL: " SUBTOTAL
  28. 002800     DISPLAY "TAX     : " TAX
  29. 002900     DISPLAY "TOTAL   : " TOTAL
  30. 003000
  31. 003100     STOP RUN.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
INPUT ITEM NAME:
INPUT QUANTITY:
INPUT UNIT PRICE:
ITEM    :                     
SUBTOTAL: 00000000
TAX     : 00000000
TOTAL   : 00000000
https://ideone.com/962Jgj
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!