fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. RECEIPT.
  3. 000300 ENVIRONMENT DIVISION.
  4. 000400 DATA DIVISION.
  5. 000500 WORKING-STORAGE SECTION.
  6. 000600 01 ITEM-NAME      PIC X(20).
  7. 000700 01 QUANTITY       PIC 9(4).
  8. 000800 01 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.  
  13. 001200 PROCEDURE DIVISION.
  14. 001300     ACCEPT ITEM-NAME.
  15. 001400     ACCEPT QUANTITY.
  16. 001500     ACCEPT PRICE.
  17.  
  18. 001600     COMPUTE SUBTOTAL = QUANTITY * PRICE.
  19. 001700     COMPUTE TAX = SUBTOTAL * 0.10.
  20. 001800     COMPUTE TOTAL = SUBTOTAL + TAX.
  21.  
  22. 001900     DISPLAY "ITEM: " ITEM-NAME.
  23. 002000     DISPLAY "QUANTITY: " QUANTITY.
  24. 002100     DISPLAY "PRICE: " PRICE.
  25. 002200     DISPLAY "SUBTOTAL: " SUBTOTAL.
  26. 002300     DISPLAY "TAX: " TAX.
  27. 002400     DISPLAY "TOTAL: " TOTAL.
  28.  
  29. 002500     STOP RUN.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ITEM:                     
QUANTITY: 0000
PRICE: 000000
SUBTOTAL: 00000000
TAX: 00000000
TOTAL: 00000000
https://ideone.com/mScveQ
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!