REPORT  Z17_020.

CLASS c1 DEFINITION.
  PUBLIC SECTION.
    DATA : carrid TYPE sflight-carrid.
    METHODS:get_data.
endclass.

CLASS c1 IMPLEMENTATION.
  METHOD: get_data.
    SELECT carrid
    INTO carrid
    FROM sflight
    up to 1 rows.
    endselect.
    IF sy-subrc <> 0.
       exit.
    ENDIF.

  ENDMETHOD.                    "GET_DATA
ENDCLASS.

DATA oref TYPE REF TO c1.
DATA attr TYPE string.
data mth  TYPE string.

FIELD-SYMBOLS <fs> TYPE ANY.

start-of-selection.
CREATE OBJECT OREF.
mth = 'GET_DATA'.
call method oref->(mth).

attr = 'carrid'.
ASSIGN oref->(attr) TO <fs>.
write : <fs>.
*attr = 'OREF->ATTR'.
*ASSIGN (attr) TO <fs>.