fork download
copy 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. IDEONE.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7.  
  8. 	PROCEDURE DIVISION.
  9. 	*>	your code goes here
  10. 		STOP RUN.
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. CALCSAMPLE.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 QUANTITY PIC 9(4).
000600 01 PRICE
PIC 9(6).
000700 01 AMOUNT PIC 9(8).
000800 PROCEDURE DIVISION.
000900
ACCEPT QUANTITY.
001000
001100
001200
001300
ACCEPT PRICE.
COMPUTE AMOUNT = QUANTITY * PRICE.
DISPLAY "AMOUNT: " AMOUNT.
STOP RUN.
stdout
copy 
Standard output is empty
https://ideone.com/e7ZteZ
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!