fork download
copy 
  1. 000100 IDENTIFICATION DIVISION.
  2.  
  3. 000200 PROGRAM-ID. CASHREG.
  4.  
  5. 000300 ENVIRONMENT DIVISION.
  6.  
  7. 000400 DATA DIVISION.
  8.  
  9. 000500 WORKING-STORAGE SECTION.
  10.  
  11. 000600 01 ITEM-NAME      PIC X(20).
  12.  
  13. 000700 01 QTY            PIC 9(4).
  14.  
  15. 000800 01 UNIT-PRICE     PIC 9(6).
  16.  
  17. 000900 01 SUBTOTAL       PIC 9(8).
  18.  
  19. 001000 01 TAX            PIC 9(8).
  20.  
  21. 001100 01 TOTAL          PIC 9(8).
  22.  
  23. 001200 PROCEDURE DIVISION.
  24.  
  25. 001300     DISPLAY "INPUT ITEM NAME:"
  26.  
  27. 001400     ACCEPT ITEM-NAME
  28.  
  29. 001500     DISPLAY "INPUT QUANTITY:"
  30.  
  31. 001600     ACCEPT QTY
  32.  
  33. 001700     DISPLAY "INPUT UNIT PRICE:"
  34.  
  35. 001800     ACCEPT UNIT-PRICE
  36.  
  37. 001900
  38.  
  39. 002000     COMPUTE SUBTOTAL = QTY * UNIT-PRICE
  40.  
  41. 002100     COMPUTE TAX = SUBTOTAL * 0.10
  42.  
  43. 002200     COMPUTE TOTAL = SUBTOTAL + TAX
  44.  
  45. 002300
  46.  
  47. 002400     DISPLAY "ITEM      : " ITEM-NAME
  48.  
  49. 002500     DISPLAY "SUBTOTAL  : " SUBTOTAL
  50.  
  51. 002600     DISPLAY "TAX(10%)  : " TAX
  52.  
  53. 002700     DISPLAY "TOTAL     : " TOTAL
  54.  
  55. 002800
  56.  
  57. 002900     STOP RUN.
Success #stdin #stdout 0.01s 5272KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
INPUT ITEM NAME:
INPUT QUANTITY:
INPUT UNIT PRICE:
ITEM      :                     
SUBTOTAL  : 00000000
TAX(10%)  : 00000000
TOTAL     : 00000000
https://ideone.com/jQCXVk
language:
Cobol (gnucobol 2.2.0)
created:
3 days 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!