*&---------------------------------------------------------------------*
*& Report Z99_97
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_97.

SELECT *
  FROM SCARR
  INTO TABLE @DATA(LT_SCARR).

**" READ TABLE
*DATA LS_SCARR TYPE SCARR.
*DATA LV_CARRNAME TYPE SCARR-CARRNAME.
*READ TABLE LT_SCARR INTO LS_SCARR
*  WITH KEY CARRID = 'AA'.
*
*IF SY-SUBRC EQ 0.
*  LV_CARRNAME = LS_SCARR-CARRNAME+0(8).
*ENDIF.
*
*WRITE LV_CARRNAME.


*" 테이블 표현식
DATA(LV_CARRNAME) =
  VALUE #( LT_SCARR[ CARRID = 'AA' ]-CARRNAME+0(8)
           OPTIONAL ).

WRITE LV_CARRNAME.