fork download 
  1. 0IDENTIFICATION DIVISION. 
  2. PROGRAM-ID. HELLO-WORLD. 
  3. AUTHOR. Antonio Neuton da Silva Júnior
  4. DATE-WRITTEN.   03/02/2011.                                      
  5. DATE-COMPILED. 
  6. * 
  7. ENVIRONMENT DIVISION. 
  8. * 
  9. DATA DIVISION. 
  10. WORKING-STORAGE SECTION.
  11.        77  myvar PIC 999 .
  12.        77  a  PIC 99V999 VALUE 00.000 .
  13.        77  b  PIC 99V99  VALUE ZERO .
  14.        77  c  PIC 9V9    VALUE 5.5 .
  15.        77  d  PIC 9v9    VALUE 5.5 .
  16.  
  17.        PROCEDURE DIVISION.
  18.            writeln "Por favor insira um número"
  19.            myvar value 50
  20.            DISPLAY "O número é ", myvar
  21.            ADD a TO b 
  22. *ROUNDED
  23.            DISPLAY "b is ", b
  24.            ADD c TO d
  25.            DISPLAY "d is ", d
  26. * 
  27. STOP RUN.
  28.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cbl:     1: error: syntax error, on or before '0IDENTIFICATION'
stdout 
Standard output is empty
https://ideone.com/4S76v
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!