diff --git a/src/zabapgit_object_ddlx.prog.abap b/src/zabapgit_object_ddlx.prog.abap index 7882085d8..e5b120a1e 100644 --- a/src/zabapgit_object_ddlx.prog.abap +++ b/src/zabapgit_object_ddlx.prog.abap @@ -101,11 +101,12 @@ CLASS lcl_object_ddlx IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lv_object_key TYPE seu_objkey, - lo_data_model TYPE REF TO if_wb_object_data_model, - lr_data TYPE REF TO data, - lv_text TYPE string, - lx_error TYPE REF TO cx_root. + DATA: lv_object_key TYPE seu_objkey, + lo_data_model TYPE REF TO if_wb_object_data_model, + lo_persistence TYPE REF TO if_wb_object_persist, + lr_data TYPE REF TO data, + lv_text TYPE string, + lx_error TYPE REF TO cx_root. FIELD-SYMBOLS: TYPE any. @@ -119,12 +120,13 @@ CLASS lcl_object_ddlx IMPLEMENTATION. CREATE OBJECT lo_data_model TYPE ('CL_DDLX_WB_OBJECT_DATA'). - get_persistence( )->get( + lo_persistence = get_persistence( ). + lo_persistence->get( EXPORTING - p_object_key = lv_object_key - p_version = swbm_version_active + p_object_key = lv_object_key + p_version = swbm_version_active CHANGING - p_object_data = lo_data_model ). + p_object_data = lo_data_model ). lo_data_model->get_data( IMPORTING diff --git a/src/zabapgit_object_devc.prog.abap b/src/zabapgit_object_devc.prog.abap index 4926181f1..55a8534d5 100644 --- a/src/zabapgit_object_devc.prog.abap +++ b/src/zabapgit_object_devc.prog.abap @@ -251,8 +251,7 @@ CLASS lcl_object_devc IMPLEMENTATION. e_package_exists = rv_bool EXCEPTIONS intern_err = 1 - package_hierarchy_error = 2 - OTHERS = 3 ). + OTHERS = 2 ). IF sy-subrc <> 0. zcx_abapgit_exception=>raise( |Error from CL_PACKAGE_HELPER=>CHECK_PACKAGE_EXISTENCE { sy-subrc }| ). ENDIF.