MOVE ALL

MOVE ALL operand1 TO operand2 [UNTIL operand3]

This document covers the following topics:

Function
Syntax Description
Example

For an explanation of the symbols used in the syntax diagrams below, see Syntax Symbols.

Belongs to Function Group: Arithmetic and Data Movement Operations

Function

The MOVE ALL statement is used to move repeatedly the value of operand1 to operand2 until operand3 is full.

Syntax Description

Operand Definition Table:

Operand	Possible Structure			Possible Formats						Referencing Permitted	Dynamic Definition
`operand1`	C	S		A	U	N			B	yes	no
`operand2`		S	A	A	U				B	yes	yes
`operand3`	C	S				N	P	I		yes	no

Syntax Element Description:

Syntax Element Description

Syntax Element	Description
`operand1`	Source Operand: The source operand contains the value to be moved. All digits of a numeric operand including leading zeros are moved
`TO operand2`	Target Operand: The target operand is not reset prior to the execution of the `MOVE ALL` operation. This is of particular importance when using the `UNTIL` option since data previously in `operand2` is retained if not explicitly overlaid during the `MOVE ALL` operation.
`UNTIL operand3`	UNTIL Option: The `UNTIL` option is used to limit the `MOVE ALL` operation to a given number of positions in `operand2`. `operand3` is used to specify the number of positions. The `MOVE ALL` operation is terminated when this value is reached. If `operand3` is greater than the length of `operand2`, the `MOVE ALL` operation is terminated when `operand2` is full. The `UNTIL` option may also be used to assign an initial value to a dynamic variable: if `operand2` is a dynamic variable, its length after the `MOVE ALL` operation will correspond to the value of `operand3`. The current length of a dynamic variable can be ascertained by using the system variable `*LENGTH`. For general information on dynamic variables, see Usage of Dynamic Variables.

operand1

Source Operand:

The source operand contains the value to be moved.

All digits of a numeric operand including leading zeros are moved

TO
                                        operand2

Target Operand:

The target operand is not reset prior to the execution of the MOVE ALL operation. This is of particular importance when using the UNTIL option since data previously in operand2 is retained if not explicitly overlaid during the MOVE ALL operation.

UNTIL
                                        operand3

UNTIL Option:

The UNTIL option is used to limit the MOVE ALL operation to a given number of positions in operand2. operand3 is used to specify the number of positions. The MOVE ALL operation is terminated when this value is reached.

If operand3 is greater than the length of operand2, the MOVE ALL operation is terminated when operand2 is full.

The UNTIL option may also be used to assign an initial value to a dynamic variable: if operand2 is a dynamic variable, its length after the MOVE ALL operation will correspond to the value of operand3. The current length of a dynamic variable can be ascertained by using the system variable *LENGTH. For general information on dynamic variables, see Usage of Dynamic Variables.

Example

** Example 'MOAEX1': MOVE ALL                                           
************************************************************************
DEFINE DATA LOCAL                                                       
1 EMPLOY-VIEW VIEW OF EMPLOYEES                                         
  2 PERSONNEL-ID                                                        
  2 FIRST-NAME                                                          
  2 NAME                                                                
  2 CITY                                                                
1 VEH-VIEW VIEW OF VEHICLES                                             
  2 PERSONNEL-ID                                                        
  2 MAKE                                                                
END-DEFINE                                                              
*                                                                       
LIMIT 4                                                                 
RD. READ EMPLOY-VIEW BY NAME                                            
  SUSPEND IDENTICAL SUPPRESS                                            
  /*                                                                    
  FD. FIND VEH-VIEW WITH PERSONNEL-ID = PERSONNEL-ID (RD.)              
    IF NO RECORDS FOUND                                                  
      MOVE ALL '*' TO FIRST-NAME (RD.)        
      MOVE ALL '*' TO CITY (RD.)              
      MOVE ALL '*' TO MAKE (FD.)              
    END-NOREC                                 
    /*                                        
    DISPLAY NOTITLE (ES=OFF IS=ON ZP=ON AL=15)
            NAME (RD.) FIRST-NAME (RD.)       
            CITY (RD.)                        
            MAKE (FD.) (IS=OFF)               
    /*                                        
  END-FIND                                    
END-READ                                      
END

Output of Program MOAEX1:

     NAME         FIRST-NAME         CITY            MAKE      
--------------- --------------- --------------- ---------------
                                                               
ABELLAN         *************** *************** ***************
ACHIESON        ROBERT          DERBY           FORD           
ADAM            *************** *************** ***************
ADKINSON        JEFF            BROOKLYN        GENERAL MOTORS