fork download
copy 
  1. COBOL
  2. 000100 IDENTIFICATION DIVISION.
  3. 000200 PROGRAM-ID. REGIPROG.
  4. 000300 DATA DIVISION.
  5. 000400 WORKING-STORAGE SECTION.
  6. 000500 01 ITEM-NAME PIC X(20).
  7. 000600 01 QUANTITY  PIC 9(4).
  8. 000700 01 PRICE     PIC 9(6).
  9. 000800 01 SUBTOTAL  PIC 9(8).
  10. 000900 01 TAX       PIC 9(8).
  11. 001000 01 TOTAL     PIC 9(8).
  12. 001100 PROCEDURE DIVISION.
  13. 001200     ACCEPT ITEM-NAME.
  14. 001300     ACCEPT QUANTITY.
  15. 001400     ACCEPT PRICE.
  16. 001500     COMPUTE SUBTOTAL = QUANTITY * PRICE.
  17. 001600     COMPUTE TAX = SUBTOTAL * 0.10.
  18. 001700     COMPUTE TOTAL = SUBTOTAL + TAX.
  19. 001800     DISPLAY "ITEM: " ITEM-NAME.
  20. 001900     DISPLAY "QUANTITY: " QUANTITY.
  21. 002000     DISPLAY "PRICE: " PRICE.
  22. 002100     DISPLAY "SUBTOTAL: " SUBTOTAL.
  23. 002200     DISPLAY "TAX: " TAX.
  24. 002300     DISPLAY "TOTAL: " TOTAL.
  25. 002400     STOP RUN.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
Plaintext
APPLE
3
120
stdout
copy 
ITEM: Plaintext           
QUANTITY: 0000
PRICE: 000003
SUBTOTAL: 00000000
TAX: 00000000
TOTAL: 00000000
https://ideone.com/CUaEsL
language:
Cobol (gnucobol 2.2.0)
created:
18 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!