fork download
copy 
  1.         IDENTIFICATION DIVISION.
  2.         PROGRAM-ID. SAMPLE.
  3.  
  4.         ENVIRONMENT DIVISION.
  5.  
  6.         DATA DIVISION.
  7.         WORKING-STORAGE SECTION.
  8.         01 n PIC Z9.
  9.         01 THE-NUMBERS.
  10.                 10 FILLER USAGE IS COMP-1 VALUE -.24093455E+04.
  11.                 10 FILLER USAGE IS COMP-1 VALUE -.55439209E-47.
  12.                 10 FILLER USAGE IS COMP-1 VALUE  .44591240E+13.
  13.                 10 FILLER USAGE IS COMP-1 VALUE -.22818252E-71.
  14.                 10 FILLER USAGE IS COMP-1 VALUE -.48936378E-36.
  15.                 10 FILLER USAGE IS COMP-1 VALUE  .53763199E+00.
  16.                 10 FILLER USAGE IS COMP-1 VALUE  .23808258E+74.
  17.                 10 FILLER USAGE IS COMP-1 VALUE -.13901026E-68.
  18.                 10 FILLER USAGE IS COMP-1 VALUE -.54452280E-53.
  19.                 10 FILLER USAGE IS COMP-1 VALUE -.33187504E+05.
  20.                 10 FILLER USAGE IS COMP-1 VALUE  .84218729E+00.
  21.                 10 FILLER USAGE IS COMP-1 VALUE -.18465549E-73.
  22.                 10 FILLER USAGE IS COMP-1 VALUE -.16025044E-50.
  23.         01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
  24.         PROCEDURE DIVISION.
  25.                 DISPLAY THE-ANSWER
  26. 		STOP RUN.
  27.  
Compilation error #stdin compilation error #stdout 0.01s 3992KB
comments (?)
stdin
copy 
1
2
3
4
5
42
compilation info 
prog.cbl:    10: error: syntax error, on or before 'E'
stdout
copy 
Standard output is empty
https://ideone.com/rQgIH
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!