fork download
copy 
  1. IDENTIFICATION DIVISION.
  2.           PROGRAM-ID. TESTE.
  3.  
  4.         ENVIRONMENT DIVISION.
  5.  
  6.         DATA DIVISION. 
  7.  
  8.         WORKING-STORAGE SECTION.
  9.  
  10.        	01 OPCAO   PIC 9(1).
  11.  
  12.         PROCEDURE DIVISION.
  13.  
  14.             DISPLAY "Programa do Mario!".
  15.             ACCEPT OPCAO.
  16.  
  17.             IF OPCAO = 1
  18.             DISPLAY 'NA PISCINA'
  19.  
  20.             ELSE 
  21.             DISPLAY 'DORMIR'         
  22.             DISPLAY 'NA PISCINA'
  23.  
  24.             END-IF.
  25.  
  26.             STOP RUN.
  27.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
1
compilation info 
prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID
stdout
copy 
Standard output is empty
https://ideone.com/3LVCx
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!