fork download
copy 
  1. 000010 IDENTIFICATION DIVISION.
  2. 000020 PROGRAM-ID. CASH-REGISTER.
  3. 000030 
  4. 000040 DATA DIVISION.
  5. 000050 WORKING-STORAGE SECTION.
  6. 000060 01 ITEM-NAME   PIC X(20).
  7. 000070 01 QUANTITY    PIC 9(5).
  8. 000080 01 UNIT-PRICE  PIC 9(7).
  9. 000090 01 SUB-TOTAL   PIC 9(9).
  10. 000100 01 TAX         PIC 9(8)V99.
  11. 000110 01 TOTAL       PIC 9(9)V99.
  12. 000120 
  13. 000130 PROCEDURE DIVISION.
  14. 000140     ACCEPT ITEM-NAME.
  15. 000150     ACCEPT QUANTITY.
  16. 000160     ACCEPT UNIT-PRICE.
  17. 000170 
  18. 000180     COMPUTE SUB-TOTAL = QUANTITY * UNIT-PRICE.
  19. 000190     COMPUTE TAX = SUB-TOTAL * 0.10.
  20. 000200     COMPUTE TOTAL = SUB-TOTAL + TAX.
  21. 000210 
  22. 000220     DISPLAY "ITEM : " ITEM-NAME.
  23. 000230     DISPLAY "SUBTOTAL : " SUB-TOTAL.
  24. 000240     DISPLAY "TAX : " TAX.
  25. 000250     DISPLAY "TOTAL : " TOTAL.
  26. 000260 
  27. 000270     STOP RUN.
Success #stdin #stdout 0.01s 5304KB
comments (?)
stdin
copy 
Apple
5
100
stdout
copy 
ITEM : Apple               
SUBTOTAL : 000000500
TAX : 00000050.00
TOTAL : 000000550.00
https://ideone.com/7QnHyI
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!