fork download
copy 
  1.         IDENTIFICATION DIVISION.
  2.         PROGRAM-ID. SAMPLE.
  3.  
  4.         ENVIRONMENT DIVISION.
  5.  
  6.         DATA DIVISION.
  7.         WORKING-STORAGE SECTION.
  8.         77 n PIC Z9
  9.  
  10.         PROCEDURE DIVISION.
  11.                 ACCEPT n
  12.                 PERFORM UNTIL n = 42
  13.                         DISPLAY n
  14.                         ACCEPT n
  15.                 END-PERFORM.
  16.                 STOP RUN.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cbl:    10: error: syntax error, on or before 'PROCEDURE'
stdout
copy 
Standard output is empty
https://ideone.com/IVvXI
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 years 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!