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 5288KB
comments (?)
stdin
copy 
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. INPUTSAMPLE.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 ITEM-NAME PIC X(20).
000600 PROCEDURE DIVISION.
000700
ACCEPT ITEM-NAME.
000800
000900
DISPLAY "ITEM: " ITEM-NAME.
STOP RUN.
stdout
copy 
Standard output is empty
https://ideone.com/nXoCUy
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!