Assigning values with MOVE

Below are code demonstrate how to assign values using MOVE.



Executable Example.

*&---------------------------------------------------------------------*
*& Report ZFZ0006 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
*& MOVE-CORRESPONDING EXAMPLE *
*& by: mfz *
*&---------------------------------------------------------------------*

REPORT ZFZ0006 .

DATA: BEGIN OF address,
firstname(20) TYPE c VALUE 'ABC',
surname(20) TYPE c VALUE 'XYZ',
initials(4) TYPE c VALUE 'A',
street(20) TYPE c VALUE 'street1',
number TYPE i VALUE '11',
postcode(5) TYPE n VALUE '50000',
city(20) TYPE c VALUE 'PJ',
END OF address.

DATA: BEGIN OF name,
surname(20) TYPE c,
firstname(20) TYPE c,
initials(4) TYPE c,
title(10) TYPE c VALUE 'Mr',
END OF name.

*it will move data with same variable name.
MOVE-CORRESPONDING address TO name.

SKIP.
WRITE: / 'Demo move-corresponding'.
ULINE.
WRITE: / 'Firstname', address-firstname,
/ 'Surname ', address-surname,
/ 'Initials ', address-initials,
/ 'Street ', address-street,
/ 'Number ', address-number,
/ 'Postcode ', address-postcode,
/ 'City ', address-city.
SKIP.
WRITE: / 'Surname ', name-surname,
/ 'Firstname', name-firstname,
/ 'Initials ', name-initials,
/ 'Title ', name-title.