REPORT  z14_15.

*----------------------------------------------------------------------*
*       CLASS CLS1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 DEFINITION.
   PUBLIC SECTION.
    CLASS-METHODS class_constructor.
ENDCLASS.                    "CLS1 DEFINITION

*----------------------------------------------------------------------*
*       CLASS CLS1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 IMPLEMENTATION.
   METHOD class_constructor.
    WRITE : 'class_constructor is excuted'.
   ENDMETHOD.
ENDCLASS.                    "CLS1 IMPLEMENTATION

START-OF-SELECTION.
  DATA : go_cref TYPE REF TO cls1.
  CREATE OBJECT go_cref.