IDENTIFICATION DIVISION.
	PROGRAM-ID.   CIMB. 
	ENVIRONMENT DIVISION.
	DATA DIVISION.  
	FILE SECTION.                                              
	WORKING-STORAGE SECTION.             
	01 WS-GR1.                           
	    05 WS-NAME PIC X(10) VALUE 'COBOL'.
	    05 WS-EMPNUM PIC 9(5) VALUE 44444. 
	01 WS-GR2.                           
    	    05 WS-NAME PIC X(10) VALUE SPACES. 
    	    05 WS-EMPID PIC 9(5) VALUE ZEROS.  
	PROCEDURE DIVISION.                  
     	    MOVE CORRESPONDING WS-GR1 TO WS-GR2      
            DISPLAY WS-GR2 .