*&---------------------------------------------------------------------*
*& Report Z99_28
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_28.

*" ABAP 7.40 릴리즈 이전
DATA: BEGIN OF LS_LIST,
        FIELD1 TYPE SCARR-CARRID,
        FIELD2 TYPE SCARR,
        FIELD3 TYPE TY_SCARR,
      END OF LS_LIST.
DATA LS_SCARR TYPE SCARR.

LS_LIST-FIELD1 = 'AA'.
LS_LIST-FIELD2-MANDT = '100'.
LS_LIST-FIELD2-CARRID = 'LH'.
LS_LIST-FIELD2-CARRNAME = 'Lufthansa'.
LS_LIST-FIELD2-CURRCODE = 'EUR'.
LS_LIST-FIELD2-URL = 'http://www.lufthansa.com'.

LS_SCARR-MANDT  = '100'.
LS_SCARR-CARRID = 'AB'.
LS_SCARR-CARRNAME = 'Air Berlin'.
LS_SCARR-CURRCODE = 'EUR'.
LS_SCARR-URL = 'http://www.airberlin.de'.
APPEND LS_SCARR TO LS_LIST-FIELD3.
CLEAR LS_SCARR.

LS_SCARR-MANDT  = '100'.
LS_SCARR-CARRID = 'AC'.
LS_SCARR-CARRNAME = 'Air Canada'.
LS_SCARR-CURRCODE = 'CAD'.
LS_SCARR-URL = 'http://www.aircanada.ca' .
APPEND LS_SCARR TO LS_LIST-FIELD3.

CL_DEMO_OUTPUT=>DISPLAY( LS_LIST ).

**" ABAP 7.40 릴리즈 이후
*DATA: BEGIN OF LS_LIST,
*        FIELD1 TYPE SCARR-CARRID,
*        FIELD2 TYPE SCARR,
*        FIELD3 TYPE TY_SCARR,
*      END OF LS_LIST.
*
*LS_LIST = VALUE #(
*  FIELD1 = 'AA'
*  FIELD2 = VALUE #(
*               MANDT  = '100'
*               CARRID = 'LH'
*               CARRNAME = 'Lufthansa'
*               CURRCODE = 'EUR'
*               URL ='http://www.lufthansa.com' )
*  FIELD3 = VALUE #(
*            (  MANDT  = '100'
*               CARRID = 'AB'
*               CARRNAME = 'Air Berlin'
*               CURRCODE = 'EUR'
*               URL ='http://www.airberlin.de' )
*            (  MANDT  = '100'
*               CARRID = 'AC'
*               CARRNAME = 'Air Canada'
*               CURRCODE = 'CAD'
*               URL ='http://www.aircanada.ca' ) )
*  ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LS_LIST ).