fork download
copy 
  1. 000001 IDENTIFICATION DIVISION.
  2. 000002 PROGRAM-ID. CASHREG.
  3. 000003 DATA DIVISION.
  4. 000004 WORKING-STORAGE SECTION.
  5. 000005 01 ITEM-NAME     PIC X(30).
  6. 000006 01 QUANTITY      PIC 9(4).
  7. 000007 01 UNIT-PRICE    PIC 9(6).
  8. 000008 01 SUBTOTAL      PIC 9(8).
  9. 000009 01 TAX           PIC 9(8).
  10. 000010 01 TOTAL         PIC 9(8).
  11. 000011 
  12. 000012 PROCEDURE DIVISION.
  13. 000013 MAIN-SECTION.
  14. 000014     ACCEPT ITEM-NAME.
  15. 000015     ACCEPT QUANTITY.
  16. 000016     ACCEPT UNIT-PRICE.
  17. 000017 
  18. 000018     COMPUTE SUBTOTAL = QUANTITY * UNIT-PRICE.
  19. 000019     COMPUTE TAX = SUBTOTAL / 10.
  20. 000020     COMPUTE TOTAL = SUBTOTAL + TAX.
  21. 000021 
  22. 000022     DISPLAY "ITEM:APPLE" ITEM-NAME.
  23. 000023     DISPLAY "QUANTITY:0003" QUANTITY.
  24. 000024     DISPLAY "PRICE:000120" UNIT-PRICE.
  25. 000025     DISPLAY "SUBTOTAL: " SUBTOTAL.
  26. 000026     DISPLAY "TAX: " TAX.
  27. 000027     DISPLAY "TOTAL: " TOTAL.
  28. 000028 
  29. 000029     STOP RUN.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
ITEM:APPLE                              
QUANTITY:00030000
PRICE:000120000000
SUBTOTAL: 00000000
TAX: 00000000
TOTAL: 00000000
https://ideone.com/Z07eRG
language:
Cobol (gnucobol 2.2.0)
created:
16 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!