fork(1) download
copy 
  1. IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. NUMBERS.
  3.        AUTHOR. TEEBEE.
  4.        ENVIRONMENT DIVISION.
  5.        CONFIGURATION SECTION.
  6.        OBJECT-COMPUTER. IBM-370.
  7.        SOURCE-COMPUTER. IBM-370.
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01 THE-NUMBERS.
  11.             10 FILLER USAGE IS COMP-1 VALUE -.24093455+04.
  12.             10 FILLER USAGE IS COMP-1 VALUE -.55439209-47.
  13.             10 FILLER USAGE IS COMP-1 VALUE  .44591240+13.
  14.             10 FILLER USAGE IS COMP-1 VALUE -.22818252-71.
  15.             10 FILLER USAGE IS COMP-1 VALUE -.48936378-36.
  16.             10 FILLER USAGE IS COMP-1 VALUE  .53763199+00.
  17.             10 FILLER USAGE IS COMP-1 VALUE  .23808258+74.
  18.             10 FILLER USAGE IS COMP-1 VALUE -.13901026-68.
  19.             10 FILLER USAGE IS COMP-1 VALUE -.54452280-53.
  20.             10 FILLER USAGE IS COMP-1 VALUE -.33187504+05.
  21.             10 FILLER USAGE IS COMP-1 VALUE  .84218729+00.
  22.             10 FILLER USAGE IS COMP-1 VALUE -.18465549-73.
  23.             10 FILLER USAGE IS COMP-1 VALUE -.16025044-50.
  24.         01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
  25.         PROCEDURE DIVISION.
  26.             DISPLAY THE-ANSWER
  27.             GOBACK.
  28.         END PROGRAM NUMBERS.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
10
43
5
42
1
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
copy 
Standard output is empty
https://ideone.com/kC5YU
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!