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) VALUE "APPLE               ".
  6. 000600 01 QTY            PIC 9(4)  VALUE 3.
  7. 000700 01 UNIT-PRICE     PIC 9(6)  VALUE 120.
  8. 000800 01 SUBTOTAL       PIC 9(8).
  9. 000900 01 TAX            PIC 9(8).
  10. 001000 01 TOTAL          PIC 9(8).
  11. 001100 PROCEDURE DIVISION.
  12. 001200     COMPUTE SUBTOTAL = QTY * UNIT-PRICE.
  13. 001300     COMPUTE TAX = SUBTOTAL * 0.10.
  14. 001400     COMPUTE TOTAL = SUBTOTAL + TAX.
  15. 001500     DISPLAY "ITEM: " ITEM-NAME.
  16. 001600     DISPLAY "QUANTITY: " QTY.
  17. 001700     DISPLAY "PRICE: " UNIT-PRICE.
  18. 001800     DISPLAY "SUBTOTAL: " SUBTOTAL.
  19. 001900     DISPLAY "TAX: " TAX.
  20. 002000     DISPLAY "TOTAL: " TOTAL.
  21. 002100     STOP RUN.
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
POTATOCHIPS
2
180
CHOCOLATE
3
120
stdout
copy 
ITEM: APPLE               
QUANTITY: 0003
PRICE: 000120
SUBTOTAL: 00000360
TAX: 00000036
TOTAL: 00000396
https://ideone.com/pI7TqB
language:
Cobol (gnucobol 2.2.0)
created:
11 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!