fork download
copy 
  1.         IDENTIFICATION DIVISION.
  2.  
  3.         PROGRAM-ID.     TESTE-TREINAMENTO. 
  4.  
  5.         ENVIRONMENT                     DIVISION.
  6.  
  7.         DATA                            DIVISION.
  8.  
  9.         WORKING-STORAGE                 SECTION.
  10.  
  11. 	01 GRUPO.
  12. 	   05 VARIAVEL1		PIC 9(04) VALUE 0.
  13.  
  14.  
  15.  
  16.         PROCEDURE 			   DIVISION.
  17.  
  18.         ACCEPT VARIAVEL1
  19.         DISPLAY VARIAVEL1
  20.  
  21.         STOP-RUN.
  22.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
TESTE
stdout
copy 
Standard output is empty
https://ideone.com/zopbU
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!