REPORT  z10_13.

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.

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>.