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