*&---------------------------------------------------------------------*
*& Report Z99_85
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_85.

TYPES: BEGIN OF TY_TYPE1,
         FIELD1 TYPE NUMC4,
         FIELD2 TYPE CHAR15,
         FIELD3 TYPE I,
         FIELD4 TYPE I,
       END OF TY_TYPE1.
TYPES: BEGIN OF TY_TYPE2.
         INCLUDE TYPE TY_TYPE1.
TYPES:
         FIELD5 TYPE NUMC4,
         FIELD6 TYPE CHAR15,
         FIELD7 TYPE I,
         FIELD8 TYPE P DECIMALS 2.
TYPES END OF TY_TYPE2.

DATA(LS_LIST1) = VALUE TY_TYPE1(
  FIELD1 = '2023' FIELD2 = 'EASY ABAP 3.0' FIELD3 = 10 FIELD4 = 10 ).

DATA(LS_LIST2) = VALUE TY_TYPE2(
  FIELD5 = '2024' FIELD6 = 'SAP FIORI'     FIELD7 = 20 FIELD8 = 20 ).

LS_LIST2 = CORRESPONDING #( BASE ( LS_LIST2 ) LS_LIST1 ).

CL_DEMO_OUTPUT=>DISPLAY( LS_LIST2 ).