*&---------------------------------------------------------------------*
*& Report  Z01_018                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  z01_018                                                     .
*TYPES: BEGIN OF struct,
*         n1 TYPE i,
*         n2 TYPE p DECIMALS 2,
*       END OF struct.
*
*DATA:  wa_struct TYPE struct,
*       obj_struct LIKE wa_struct.
*
*wa_struct-n1 = 1.
*wa_struct-n2 = '0.1'.
*
*WRITE : wa_struct-n1, wa_struct-n2.
*
*obj_struct-n1 = 2.
*obj_struct-n2 = '0.2'.
*WRITE : / obj_struct-n1, obj_struct-n2.

TYPES char50(50) type c.
TYPES VAL1 TYPE char50.
DATA VAL2 TYPE VAL1.
DATA VAL3 LIKE VAL2.
DATA VAL4 LIKE VAL3.

DATA VAL5 TYPE REF TO DATA.
*DATA VAL6 TYPE VAL1.
CREATE DATA VAL5 TYPE VAL1.
ASSIG.
WRITE VAL5.