fork download 
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. CALC.
  3.  
  4. ENVIRONMENT DIVISION.
  5.  
  6. DATA DIVISION.
  7. WORKING-STORAGE SECTION.
  8. OPCAO		PIC 9(1)VALUE ZEROS.
  9.  
  10. PROCEDURE DIVISION.
  11. 	INICIO.
  12. 		IF OPCAO = 1
  13. 			DISPLAY"OLA"
  14. 		ELSE 
  15. 			DISPLAY"MUNDO"
  16. 		END-IF.
  17. 	STOP RUN.
  18.  
  19.  
  20.  
  21.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:4: Warning: Invalid indicator 'I' at column 7
prog.cob:6: Warning: Invalid indicator 'G' at column 7
prog.cob:8: Warning: Invalid indicator 'U' at column 7
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID
stdout 
Standard output is empty
https://ideone.com/3VdyX
language:
Cobol (gnucobol 2.2.0)
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!