REPORT  z13_023 .

TYPES: BEGIN OF struc,

       a TYPE i,

       b TYPE c LENGTH 8,

END OF struc.

DATA: dref TYPE REF TO data,

       str TYPE struc,

       int TYPE C.

FIELD-SYMBOLS: <str> TYPE struc,

                                       <int> TYPE c.

* 1. <str>

CREATE DATA dref TYPE struc.

ASSIGN dref->* TO <str>.

<str>-a = 1.

<str>-b = '임꺽정'.

write : <str>-a, <str>-b.

* 2. <int>

CREATE DATA dref LIKE INT.

ASSIGN dref->* TO <int>.

<int> = 3.

write :/ <int>.