fork download 
  1. IDENTIFICATION DIVISION. 
  2. PROGRAM-ID. HELLO-WORLD. 
  3. AUTHOR. Antonio Neuton da Silva Júnior
  4. DATE-WRITTEN.   03/02/2011.                                      
  5. REPORT
  6. ENVIRONMENT DIVISION. 
  7.  
  8. DATA DIVISION. 
  9. WORKING-STORAGE SECTION.
  10.        77  myvar  PIC A(010) value "João" 
  11.        77  myvar2 PIC X(08) value "Teste" 
  12.        77  a      PIC 99V999 VALUE 12.236 
  13.        77  b      PIC 99V99  VALUE ZERO 
  14.        77  c      PIC 9V9    VALUE 3.9 
  15.        77  d      PIC 9v9    VALUE 2.1 
  16.  
  17.        PROCEDURE DIVISION.
  18.            DISPLAY "myvar é ", myvar
  19.            IF a < b 
  20.            	ADD a TO b ROUNDED
  21.            	DISPLAY "b é ", b
  22.            ELSE	
  23.            	ADD c TO d
  24.            	DISPLAY "d é ", d
  25.            END-IF
  26.            DISPLAY "myvar2 é", myvar2
  27.  
  28. STOP RUN.
  29.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cbl:    11: error: syntax error, on or before 'myvar2'
stdout 
Standard output is empty
https://ideone.com/aHsH4
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!