fork download 
  1.         IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. PROG1.
  3. 	ENVIRONMENT DIVISION.
  4. 	DATA DIVISION.
  5. 	WORKING-STORAGE SECTION.             
  6.          01 WS-GR1.                           
  7.           05 WS-NAME PIC X(10) VALUE 'COBOL'.
  8.           05 WS-EMPNUM PIC 9(5) VALUE 44444. 
  9.         01 WS-GR2.                           
  10.          05 WS-NAME PIC X(10) VALUE SPACES. 
  11.          05 WS-EMPID PIC 9(5) VALUE ZEROS.  
  12.        PROCEDURE DIVISION.                  
  13.          MOVE CORR WS-GR1 TO WS-GR2      
  14.          DISPLAY WS-GR2 .
  15.  
Success #stdin #stdout 0.02s 6160KB
comments (?)
stdin 
Standard input is empty
stdout 
COBOL     00000
https://ideone.com/GZd9O
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!