fork download 
  1. IDENTIFICATION DIVISION.
  2.  
  3.         PROGRAM-ID.     TESTE-TREINAMENTO. 
  4.  
  5.  
  6.         *=========================================================================* 
  7.         *                 C P M  B R A X I S - S I S T E M A S                    *
  8.         *=========================================================================*                        
  9.         ENVIRONMENT                     DIVISION.
  10.  
  11.         DATA                            DIVISION.
  12.  
  13.         WORKING-STORAGE                 SECTION.
  14.  
  15. 	01 GRUPO.
  16. 	   05 VARIAVEL1		PIC 9(04) VALUE 0.
  17.  
  18.  
  19.  
  20.         PROCEDURE 			   SECTION.
  21.  
  22.         ACCEPT VARIAVEL1
  23.         DISPLAY VARIAVEL1
  24.  
  25.         STOP-RUN.
  26.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
TESTE
compilation info 
prog.cob:1: Warning: Invalid indicator 'F' at column 7
prog.cob:25: Warning: File not terminated by a newline
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID
stdout 
Standard output is empty
https://ideone.com/tj35S
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!