abap 创建参照变量，动态决定field symbol的类型

*&---------------------------------------------------------------------*
*& Report ZHANSEN39
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZHANSEN39.

*TABLES sflight.
*data: gv_name1(20) TYPE c VALUE 'SFLIGHT-CARRID',
*      gv_name2(20) TYPE c VALUE 'NAME1'.

TYPES:BEGIN OF t_struct,
  col1 TYPE char15,
  col2 TYPE char15,
END OF t_struct.

DATA: dref1 TYPE REF TO data,
      dref2 TYPE REF TO data.

FIELD-SYMBOLS:<fs1> TYPE t_struct,
               <fs2> TYPE char15.

CREATE DATA dref1 TYPE t_struct.  "创建参照变量，类型为 t_struct

ASSIGN dref1->* to <fs1>.

<fs1>-COL1 = 'Enjoy Abap'.
<fs1>-COL2 = 'abap programming'.

dref2 = dref1.

ASSIGN dref2->* to <fs2> CASTING.

write / <fs2>.

get REFERENCE OF <fs1>-COL2 into dref2.

ASSIGN dref2->* to <fs2>.

write / <fs2>.