diff --git a/src/zabapgit_object_clas_new.prog.abap b/src/zabapgit_object_clas_new.prog.abap index a03d7095f..597183183 100644 --- a/src/zabapgit_object_clas_new.prog.abap +++ b/src/zabapgit_object_clas_new.prog.abap @@ -370,10 +370,28 @@ CLASS lcl_oo_class_new IMPLEMENTATION. ENDMETHOD. METHOD update_cs_number_of_methods. - DATA cs_cache_entry TYPE seo_cs_cache. - cs_cache_entry-clsname = iv_classname. - cs_cache_entry-no_of_method_impls = iv_number_of_impl_methods. - MODIFY seo_cs_cache FROM cs_cache_entry. + + " Indirect access to keep downward compatibility + DATA lr_cache_entry TYPE REF TO data. + FIELD-SYMBOLS: TYPE any, + TYPE any. + + CREATE DATA lr_cache_entry TYPE ('SEO_CS_CACHE'). + ASSIGN lr_cache_entry->* TO . + ASSERT sy-subrc = 0. + + ASSIGN COMPONENT 'CLSNAME' OF STRUCTURE + TO . + ASSERT sy-subrc = 0. + = iv_classname. + + ASSIGN COMPONENT 'NO_OF_METHOD_IMPLS' OF STRUCTURE + TO . + ASSERT sy-subrc = 0. + = iv_number_of_impl_methods. + + MODIFY ('SEO_CS_CACHE') FROM . + ENDMETHOD. ENDCLASS.