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