fork download
copy 
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. SOLUTION.
  3.  
  4.        DATA DIVISION.
  5.        WORKING-STORAGE SECTION.
  6.        01 A        PIC 9(10)   VALUE ZEROES.
  7.        01 B        PIC 9(10)   VALUE ZEROES.
  8.        01 I        PIC 9(10)   VALUE ZEROES.
  9.        01 STR      PIC X(10).
  10.  
  11.        PROCEDURE DIVISION.
  12.          ACCEPT STR
  13.          MOVE STR TO A
  14.          ACCEPT STR
  15.          MOVE STR TO B
  16.          ADD A TO B
  17.          PERFORM
  18.            VARYING I FROM 1 BY 1
  19.              UNTIL I > 10
  20.            IF  B(I : 1) > '0' OR I = 10
  21.              DISPLAY B(I : )
  22.            END-IF
  23.          END-PERFORM
  24.          STOP RUN.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
100
5
compilation info 
prog.cbl:    24: error: syntax error, on or before '.'
prog.cbl:    24: error: unknown or wrong statement, on or before '.'
stdout
copy 
Standard output is empty
https://ideone.com/NV06U
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!