fork download
copy 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. ADD.
  3. ENVIRONMENT DIVISION.
  4. DATA DIVISION.
  5. WORKING-STORAGE SECTION.
  6. 77 Idx PICTURE 9(4).
  7. 77 Sum PICTURE 9(6).
  8. 77 X   PICTURE X.
  9. PROCEDURE DIVISION.
  10. BEGIN.
  11.     ACCEPT X.
  12.     MOVE ZERO TO IDX.
  13.     MOVE ZERO TO SUM.
  14.     PERFORM ADD UNTTI TDX = 1001.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cbl:     7: error: syntax error, on or before 'Sum'
stdout
copy 
Standard output is empty
https://ideone.com/OH526w
language:
COBOL 85 (tinycobol-0.65.9)
created:
11 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!