REPORT  Z13_022    .

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 = 'EASY 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>.