rtti bugfix (#948)

Author: larshp

src/kernel/kernel_create_data_handle.clas.abap

@@ -95,7 +95,7 @@ CLASS kernel_create_data_handle IMPLEMENTATION.
       lv_name = to_lower( <ls_component>-name ).
       WRITE '@KERNEL obj[lv_name.get()] = field.getPointer();'.
     ENDLOOP.
-    WRITE '@KERNEL dref.assign(new abap.types.Structure(obj, lo_struct.get().relative_name.get()));'.
+    WRITE '@KERNEL dref.assign(new abap.types.Structure(obj, lo_struct.get().internal_qualified_name.get(), lo_struct.get().internal_ddic_name.get()));'.
   ENDMETHOD.
 
   METHOD table.
@@ -158,8 +158,7 @@ CLASS kernel_create_data_handle IMPLEMENTATION.
       WHEN cl_abap_typedescr=>typekind_char.
         lv_half = handle->length / 2.
         CREATE DATA dref TYPE c LENGTH lv_half.
-* todo, this needs some redesign to work properly,
-        WRITE '@KERNEL dref.getPointer().extra = {"qualifiedName": handle.get().relative_name};'.
+        WRITE '@KERNEL dref.getPointer().extra = {"qualifiedName": handle.get().internal_qualified_name};'.
       WHEN cl_abap_typedescr=>typekind_num.
         lv_half = handle->length / 2.
         CREATE DATA dref TYPE n LENGTH lv_half.

src/rtti/cl_abap_typedescr.clas.abap

@@ -62,6 +62,10 @@ CLASS cl_abap_typedescr DEFINITION PUBLIC.
     DATA absolute_name TYPE abap_abstypename.
     DATA relative_name TYPE string.
 
+    "! these are internal open-abap types, may change anytime
+    DATA internal_qualified_name TYPE string.
+    DATA internal_ddic_name TYPE string.
+
     CONSTANTS typekind_any TYPE abap_typekind VALUE '~'.
     CONSTANTS typekind_char TYPE abap_typekind VALUE 'C'.
     CONSTANTS typekind_class TYPE abap_typekind VALUE '*'.
@@ -420,6 +424,9 @@ CLASS cl_abap_typedescr IMPLEMENTATION.
     WRITE '@KERNEL lv_convexit.set(p_data.getConversionExit ? p_data.getConversionExit() || "" : "");'.
     WRITE '@KERNEL lv_qualified.set(p_data.getQualifiedName ? p_data.getQualifiedName() || "" : "");'.
 
+    type->internal_qualified_name = lv_qualified.
+    type->internal_ddic_name = lv_ddicname.
+
     IF lv_qualified NA '-'.
       type->absolute_name = lv_qualified.
     ELSEIF lv_ddicname <> ''.