fork download
copy 
  1. IDENTIFICATION DIVISION. 
  2. PROGRAM-ID. PROGRAM1. 
  3. AUTHOR. Antonio Neuton da Silva Júnior
  4. DATE-WRITTEN.   10/02/2011.   
  5.  
  6.  
  7.  
  8. DATA DIVISION. 
  9. WORKING-STORAGE SECTION.
  10.        77  nome   PIC A(010) value "João". 
  11.        77  a      PIC 99V999 VALUE 12.236 .
  12.        77  b      PIC 99V99  VALUE ZERO .
  13.  
  14. PROCEDURE DIVISION.
  15.  
  16.            IF a < b
  17. 		display "A variável nome é",nome 
  18.                 ADD a TO b ROUNDED
  19.                 DISPLAY "b é ", b
  20.            ELSE
  21.  
  22.                 DISPLAY "d é ", C+d
  23.            END-IF
  24.  
  25. STOP RUN.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.cbl:    22: error: Invalid argument expecting variable, on or before 'C'
prog.cbl:    22: error: syntax error, on or before 'd'
prog.cbl:    22: error: unknown or wrong statement, on or before 'd'
stdout
copy 
Standard output is empty
https://ideone.com/4L5ej
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!