fork download 
  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 
  7. 000007 01 QTY-STR       PIC X(10).
  8. 000008 01 PRICE-STR     PIC X(10).
  9. 000009 
  10. 000010 01 QUANTITY      PIC 9(4).
  11. 000011 01 UNIT-PRICE    PIC 9(6).
  12. 000012 01 SUBTOTAL      PIC 9(8).
  13. 000013 01 TAX           PIC 9(8).
  14. 000014 01 TOTAL         PIC 9(8).
  15. 000015 
  16. 000016 PROCEDURE DIVISION.
  17. 000017 MAIN-SECTION.
  18. 000018     ACCEPT ITEM-NAME.
  19. 000019     ACCEPT QTY-STR.
  20. 000020     ACCEPT PRICE-STR.
  21. 000021 
  22. 000022     COMPUTE QUANTITY   = FUNCTION NUMVAL(QTY-STR).
  23. 000023     COMPUTE UNIT-PRICE = FUNCTION NUMVAL(PRICE-STR).
  24. 000024 
  25. 000025     COMPUTE SUBTOTAL = QUANTITY * UNIT-PRICE.
  26. 000026     COMPUTE TAX      = SUBTOTAL / 10.
  27. 000027     COMPUTE TOTAL    = SUBTOTAL + TAX.
  28. 000028 
  29. 000029     DISPLAY "ITEM: " ITEM-NAME.
  30. 000030     DISPLAY "QUANTITY: " QUANTITY.
  31. 000031     DISPLAY "PRICE: " UNIT-PRICE.
  32. 000032     DISPLAY "SUBTOTAL: " SUBTOTAL.
  33. 000033     DISPLAY "TAX: " TAX.
  34. 000034     DISPLAY "TOTAL: " TOTAL.
  35. 000035 
  36. 000036     STOP RUN.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin 
APPLE
3
120
stdout 
ITEM: APPLE                         
QUANTITY: 0003
PRICE: 000120
SUBTOTAL: 00000360
TAX: 00000036
TOTAL: 00000396
https://ideone.com/yIqp5q
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!