IDENTIFICATION DIVISION.
	PROGRAM-ID. PROG1.
	ENVIRONMENT DIVISION.
	DATA DIVISION.
	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 CORR WS-GR1 TO WS-GR2      
         DISPLAY WS-GR2 .