assigning values with move

REPORT demo_data_move NO STANDARD PAGE HEADING.

* MOVE

DATA: t(10) TYPE c,
      number TYPE p DECIMALS 2,
      count  TYPE i.

t = 1111.
MOVE '5.75' TO number.
count = number.
WRITE 'MOVE'.
ULINE.
WRITE: / t, / number, / count.

* MOVE CORRESPONDING

DATA: BEGIN OF address,
        firstname(20) TYPE c VALUE 'Fred',
        surname(20) TYPE c VALUE 'Flintstone',
        initials(4) TYPE c VALUE 'FF',
        street(20) TYPE c VALUE 'Cave Avenue',
        number TYPE i VALUE '11',
        postcode(5) TYPE n VALUE '98765',
        city(20) TYPE c VALUE  'Bedrock',
      END OF address.

DATA: BEGIN OF name,
        surname(20) TYPE c,
        firstname(20) TYPE c,
        initials(4) TYPE c,
        title(10) TYPE c VALUE 'Mister',
      END OF name.
MOVE-CORRESPONDING address TO name.

SKIP.
WRITE: / '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.