*&---------------------------------------------------------------------*
*& Report Z99_31
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_31.

*" ABAP 7.40 릴리즈 이전
*" Single Value Data Object
DATA LV_CARRID TYPE REF TO S_CARR_ID.

*" Structure
DATA LS_SCARR  TYPE REF TO SCARR.

*" Internal Table
DATA LT_SCARR  TYPE REF TO TY_SCARR.

CREATE DATA LV_CARRID.
LV_CARRID->* = 'AA'.

CL_DEMO_OUTPUT=>DISPLAY( LV_CARRID->* ).

CREATE DATA LS_SCARR.
LS_SCARR->*-CARRID = 'AA'.
LS_SCARR->*-CARRNAME = 'American Airlines' .

CL_DEMO_OUTPUT=>DISPLAY( LS_SCARR->* ).

CREATE DATA LT_SCARR.
APPEND LS_SCARR->* TO LT_SCARR->*.

CL_DEMO_OUTPUT=>DISPLAY( LT_SCARR->* ).


**" ABAP 7.40 릴리즈 이후
*
**" Single Value Data Object
*DATA(LV_CARRID) =
*  NEW S_CARR_ID( 'AA' ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LV_CARRID->* ).
*
**" STRUCTURE
*DATA(LS_SCARR) =
*  NEW SCARR(
*  CARRID   = 'AA'
*  CARRNAME = 'American Airlines' ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LS_SCARR->* ).
*
**" INTERNAL TABLE
*DATA(LT_SCARR) =
*  NEW TY_SCARR(
*    ( CARRID = 'AA' CARRNAME = 'American Airlines' )
*    ( CARRID = 'AB' CARRNAME = 'Air Berlin' ) ).
*
*CL_DEMO_OUTPUT=>DISPLAY( LT_SCARR->* ).