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     ACCEPT ITEM-NAME.
  14. 001400     ACCEPT QTY.
  15. 001500     ACCEPT UNIT-PRICE.
  16. 001600
  17. 001700     COMPUTE SUBTOTAL = QTY * UNIT-PRICE.
  18. 001800     COMPUTE TAX = SUBTOTAL * 0.10.
  19. 001900     COMPUTE TOTAL = SUBTOTAL + TAX.
  20. 002000
  21. 002100     DISPLAY "ITEM: " ITEM-NAME.
  22. 002200     DISPLAY "QUANTITY: " QTY.
  23. 002300     DISPLAY "PRICE: " UNIT-PRICE.
  24. 002400     DISPLAY "SUBTOTAL: " SUBTOTAL.
  25. 002500     DISPLAY "TAX: " TAX.
  26. 002600     DISPLAY "TOTAL: " TOTAL.
  27. 002700
  28. 002800     STOP RUN.
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
POTATO CHIPS
4
450
stdout
copy 
ITEM: POTATO CHIPS        
QUANTITY: 0004
PRICE: 000450
SUBTOTAL: 00001800
TAX: 00000180
TOTAL: 00001980
https://ideone.com/lLrtV0
language:
Cobol (gnucobol 2.2.0)
created:
11 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!