*&---------------------------------------------------------------------*
*& Report Z99_32
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z99_32.

DATA: lt_scarr1 TYPE ty_scarr,        " 데이터 오브젝트
      lt_scarr2 TYPE REF TO ty_scarr. " 참조 변수

" 데이터오브젝트
lt_scarr1 = VALUE #( ( carrid = 'AA' carrname = 'American Airlines' ) ).

" 참조 변수
lt_scarr2 = NEW #( ( carrid = 'AB' carrname = 'Air Berlin' ) ).

DATA(lt_scarr3) = NEW #( BASE lt_scarr1
    ( carrid = 'AC' carrname = 'Air Canada' ) ).

DATA(lt_scarr4) = NEW #( BASE lt_scarr2->*
    ( carrid = 'AF' carrname = 'Air France' ) ).

cl_demo_output=>display( lt_scarr1 ).
cl_demo_output=>display( lt_scarr2->* ).
cl_demo_output=>display( lt_scarr3->* ).
cl_demo_output=>display( lt_scarr4->* ).