"! <p class="shorttext synchronized" lang="en">Serializable RTTI class</p>
CLASS zcl_srtti_classdescr DEFINITION
  PUBLIC
  INHERITING FROM zcl_srtti_objectdescr
  CREATE PUBLIC .

  PUBLIC SECTION.

    DATA class_kind LIKE cl_abap_classdescr=>class_kind .
    DATA create_visibility LIKE cl_abap_classdescr=>create_visibility .

    METHODS constructor
      IMPORTING
        !rtti TYPE REF TO cl_abap_classdescr.

  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS zcl_srtti_classdescr IMPLEMENTATION.

  METHOD constructor.

    super->constructor( rtti ).
    class_kind        = rtti->class_kind.
    create_visibility = rtti->create_visibility.

  ENDMETHOD.

ENDCLASS.
