*&---------------------------------------------------------------------*
*& Report Z99_82
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_82.

TYPES: BEGIN OF TY_TYPE1,
         FIELD1 TYPE NUMC4,
         FIELD2 TYPE CHAR15,
         FIELD3 TYPE I,
         FIELD4 TYPE P DECIMALS 2,
       END OF TY_TYPE1.

TYPES: BEGIN OF TY_TYPE2,
         FIELD2 TYPE CHAR10,
         FIELD4 TYPE P DECIMALS 2,
         FIELD6 TYPE CHAR10,
         FIELD8 TYPE I,
       END OF TY_TYPE2.

DATA(LS_LIST1) = VALUE TY_TYPE1( FIELD1 = '2024' FIELD2 = 'EASYABAP 3.0'
                                 FIELD3 = 1234   FIELD4 = 3 ).

*" FIELD3 을 초기 값으로 설정
DATA(LS_LIST2) = CORRESPONDING TY_TYPE1( LS_LIST1
                        EXCEPT FIELD3 ).

*" 모든 필드를 초기 값으로 설정
DATA(LS_LIST3) = CORRESPONDING TY_TYPE1( LS_LIST1
                        EXCEPT * ).

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