*&---------------------------------------------------------------------*
*& Report Z99_79
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_79.

TYPES: BEGIN OF TY_TYPE1,
         FIELD1 TYPE CHAR10,
         FIELD2 TYPE NUMC4,
         FIELD3 TYPE CHAR5,
         FIELD4 TYPE I,
       END OF TY_TYPE1.
TYPES: BEGIN OF TY_TYPE2,
         FIELD2 TYPE CHAR2,
         FIELD4 TYPE NUMC5,
         FIELD6 TYPE CHAR10,
         FIELD8 TYPE I,
       END OF TY_TYPE2.
DATA: LS_LIST1 TYPE TY_TYPE1,
      LS_LIST2 TYPE TY_TYPE2.

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

LS_LIST2 = CORRESPONDING #( LS_LIST1 ).
" or
DATA(LS_LIST3) = CORRESPONDING TY_TYPE1( LS_LIST1 ).

CL_DEMO_OUTPUT=>DISPLAY( LS_LIST2 ).
CL_DEMO_OUTPUT=>DISPLAY( LS_LIST3 ).