*&---------------------------------------------------------------------*
*& Report Z99_78
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_78.

TYPES: BEGIN OF TY_LIST1,
         FIELD1 TYPE STRING,
         FIELD2 TYPE STRING,
         FIELD3 TYPE STRING,
         FIELD4 TYPE STRING,
       END OF TY_LIST1.

TYPES: BEGIN OF TY_LIST2,
         FIELD2 TYPE STRING,
         FIELD4 TYPE STRING,
         FIELD6 TYPE STRING,
         FIELD8 TYPE STRING,
       END OF TY_LIST2.

DATA: LS_LIST1 TYPE TY_LIST1,
      LS_LIST2 TYPE TY_LIST2.

LS_LIST1 = VALUE #( FIELD1 = '2024'
                    FIELD2 = 'EASY ABAP 3.0'
                    FIELD3 = '2024'
                    FIELD4 = '3.0' ).


*" MOVE
MOVE LS_LIST1 TO LS_LIST2.

CL_DEMO_OUTPUT=>DISPLAY( LS_LIST2 ).

CLEAR LS_LIST2.

*" MOVE-CORRESPONDING
MOVE-CORRESPONDING LS_LIST1 TO LS_LIST2.

CL_DEMO_OUTPUT=>DISPLAY( LS_LIST2 ).