*&---------------------------------------------------------------------*
*& Report Z99_38
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z99_38 LINE-SIZE 1023.

SELECT *
  FROM scarr
  INTO TABLE @DATA(lt_scarr).

" 인터널 테이블의 1번 행의 메모리 주소를 할당
DATA(lo_dref1) = REF #( lt_scarr[ 1 ] ).

" 인터널테이블의 특정 조건을 만족하는 행의 메모리 주소를 할당
DATA(lo_dref2) = REF #( lt_scarr[ carrid = 'AA' ] ).

" 인터널테이블의 특정 행의 컬럼의 메모리 주소 할당
DATA(lo_dref3) = REF #( lt_scarr[ carrid = 'AA' ]-carrname ).

" 특정 변수의 offset 값의 메모리 값을 할당
DATA lv_string TYPE char15 VALUE 'EASY ABAP 3.0'.
DATA(lo_dref4) = REF #( lv_string+5(8) ).

WRITE:
 / 'LO_DREF1->* : ', lo_dref1->*,
 / 'LO_DREF2->* : ', lo_dref2->*,
 / 'LO_DREF3->* : ', lo_dref3->*,
 / 'LO_DREF4->* : ', lo_dref4->*.