fork download 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. NUMBERS.
  3. AUTHOR. TEEBEE.
  4. ENVIRONMENT DIVISION.
  5. CONFIGURATION SECTION.
  6. DATA DIVISION.
  7. WORKING-STORAGE SECTION.
  8. 01 THE-NUMBERS.
  9.     10 FILLER USAGE IS COMP-1 VALUE -.24093455+04.
  10.     10 FILLER USAGE IS COMP-1 VALUE -.55439209-47.
  11.     10 FILLER USAGE IS COMP-1 VALUE  .44591240+13.
  12.     10 FILLER USAGE IS COMP-1 VALUE -.22818252-71.
  13.     10 FILLER USAGE IS COMP-1 VALUE -.48936378-36.
  14.     10 FILLER USAGE IS COMP-1 VALUE  .53763199+00.
  15.     10 FILLER USAGE IS COMP-1 VALUE  .23808258+74.
  16.     10 FILLER USAGE IS COMP-1 VALUE -.13901026-68.
  17.     10 FILLER USAGE IS COMP-1 VALUE -.54452280-53.
  18.     10 FILLER USAGE IS COMP-1 VALUE -.33187504+05.
  19.     10 FILLER USAGE IS COMP-1 VALUE  .84218729+00.
  20.     10 FILLER USAGE IS COMP-1 VALUE -.18465549-73.
  21.     10 FILLER USAGE IS COMP-1 VALUE -.16025044-50.
  22. 01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
  23. PROCEDURE DIVISION.
  24.     DISPLAY THE-ANSWER
  25.     GOBACK.
  26. END PROGRAM NUMBERS.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
/usr/lib/gcc/i686-pc-linux-gnu/4.3.4/../../../crt1.o: In function `_start':
(.text+0x18): undefined reference to `main'
collect2: ld returned 1 exit status
stdout 
Standard output is empty
https://ideone.com/lVSuX
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!