MOVE statment in COBOL

MOVE statement is used to assign a value to a variable from another variable or literal. MOVE statement actually transfers the data from one memory location to one or more memory location.

1) Elementary Move

       IDENTIFICATION DIVISION.                                         
       PROGRAM-ID. MOVE.                                        
       DATA DIVISION.                                              
       WORKING-STORAGE SECTION.                                     
       01 GROUP1.                                                     
       02 A PIC X(5) VALUE 'AB123'.                                   
       02 B PIC A(4) VALUE 'PQRS'.                                    
       02 C PIC 9(3) VALUE 456.                                      
       01 GROUP2.                                                   
       03 D PIC 9(3).                                               
       03 E PIC X(2).                                              
       03 F PIC A(3).                                            
       PROCEDURE DIVISION.                                         
           MOVE A TO D.                                             
           DISPLAY D.                                           
           MOVE B TO F.                                                 
           DISPLAY F.                                               
           MOVE C TO E.                                                 
           DISPLAY E.                                               
           STOP RUN. 

2) Group Move

       IDENTIFICATION DIVISION.                                       
       PROGRAM-ID. GRPMOVE.                                             
       DATA DIVISION.                                                   
       WORKING-STORAGE SECTION.                                         
       01 GRP1.                                                        
       02 A PIC X(5) VALUE 'AB123'.                                     
       02 B PIC A(4) VALUE 'PQRS'.                                     
       02 C PIC 9(3) VALUE 456.                                         
       01 GRP2.                                                        
       03 D PIC 9(3).                                                   
       03 A PIC X(2).                                                   
       03 B PIC A(3).                                                   
       PROCEDURE DIVISION.                                             
           MOVE GRP1 TO GRP2.                                           
           DISPLAY GRP1.                                                
           DISPLAY GRP2.                                                
           STOP RUN.