diff --git a/src/objects/zcl_abapgit_object_amsd.clas.abap b/src/objects/zcl_abapgit_object_amsd.clas.abap index 54681664c..77e8673f1 100644 --- a/src/objects/zcl_abapgit_object_amsd.clas.abap +++ b/src/objects/zcl_abapgit_object_amsd.clas.abap @@ -27,7 +27,6 @@ CLASS zcl_abapgit_object_amsd DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje CHANGING cs_logical_db_schema TYPE any RAISING - cx_wb_object_operation_error zcx_abapgit_exception, get_transport_req_if_needed @@ -40,7 +39,7 @@ CLASS zcl_abapgit_object_amsd DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje get_wb_object_operator RETURNING - VALUE(ri_wb_object_operator) TYPE REF TO if_wb_object_operator + VALUE(ri_wb_object_operator) TYPE REF TO object RAISING zcx_abapgit_exception. @@ -48,7 +47,7 @@ CLASS zcl_abapgit_object_amsd DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje mr_logical_db_schema TYPE REF TO data, mv_logical_db_schema_key TYPE seu_objkey, mi_persistence TYPE REF TO if_wb_object_persist, - mi_wb_object_operator TYPE REF TO if_wb_object_operator. + mi_wb_object_operator TYPE REF TO object. ENDCLASS. @@ -121,7 +120,7 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. METHOD fill_metadata_from_db. DATA: - li_wb_object_operator TYPE REF TO if_wb_object_operator, + li_wb_object_operator TYPE REF TO object, lr_logical_db_schema_old TYPE REF TO data. FIELD-SYMBOLS: @@ -137,7 +136,9 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. ASSIGN lr_logical_db_schema_old->* TO . ASSERT sy-subrc = 0. - li_wb_object_operator->read( IMPORTING data = ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + data = . ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_logical_db_schema TO . @@ -178,7 +179,7 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. DATA: ls_object_type TYPE wbobjtype, - lx_error TYPE REF TO cx_wb_object_operation_error. + lx_error TYPE REF TO cx_root. IF mi_wb_object_operator IS BOUND. ri_wb_object_operator = mi_wb_object_operator. @@ -188,11 +189,14 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. ls_object_type-subtype_wb = 'TYP'. TRY. - mi_wb_object_operator = cl_wb_object_operator=>create_instance( - object_type = ls_object_type - object_key = mv_logical_db_schema_key ). + CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE') + EXPORTING + object_type = ls_object_type + object_key = mv_logical_db_schema_key + RECEIVING + result = mi_wb_object_operator. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -206,15 +210,20 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. METHOD zif_abapgit_object~changed_by. DATA: - li_object_data_model TYPE REF TO if_wb_object_data_model, - lx_error TYPE REF TO cx_wb_object_operation_error. + li_wb_object_operator TYPE REF TO object, + li_object_data_model TYPE REF TO if_wb_object_data_model, + lx_error TYPE REF TO cx_root. TRY. - get_wb_object_operator( )->read( IMPORTING eo_object_data = li_object_data_model ). + li_wb_object_operator = get_wb_object_operator( ). + + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + eo_object_data = li_object_data_model. rv_user = li_object_data_model->get_changed_by( ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -226,15 +235,19 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. METHOD zif_abapgit_object~delete. DATA: - lx_error TYPE REF TO cx_wb_object_operation_error, - lv_transport_request TYPE trkorr. + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root, + lv_transport_request TYPE trkorr. lv_transport_request = get_transport_req_if_needed( iv_package ). + li_wb_object_operator = get_wb_object_operator( ). TRY. - get_wb_object_operator( )->delete( lv_transport_request ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~DELETE') + EXPORTING + transport_request = lv_transport_request. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -247,8 +260,8 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. DATA: li_object_data_model TYPE REF TO if_wb_object_data_model, - li_wb_object_operator TYPE REF TO if_wb_object_operator, - lx_error TYPE REF TO cx_static_check, + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root, lv_transport_request TYPE trkorr. FIELD-SYMBOLS: @@ -278,32 +291,35 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. fill_metadata_from_db( CHANGING cs_logical_db_schema = ). li_object_data_model->set_data( ). - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - transport_request = lv_transport_request ). + transport_request = lv_transport_request. ELSE. li_object_data_model->set_data( ). - li_wb_object_operator->create( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~CREATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_properties + data_selection = 'P' " if_wb_object_data_selection_co=>c_properties package = iv_package - transport_request = lv_transport_request ). + transport_request = lv_transport_request. - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_data_content - transport_request = lv_transport_request ). + data_selection = 'D' " if_wb_object_data_selection_co=>c_data_content + transport_request = lv_transport_request. ENDIF. - li_wb_object_operator->activate( ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~ACTIVATE'). corr_insert( iv_package ). - CATCH cx_swb_exception cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -382,8 +398,9 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. METHOD zif_abapgit_object~serialize. DATA: - li_object_data_model TYPE REF TO if_wb_object_data_model, - lx_error TYPE REF TO cx_wb_object_operation_error. + li_object_data_model TYPE REF TO if_wb_object_data_model, + lx_error TYPE REF TO cx_root, + li_wb_object_operator TYPE REF TO object. FIELD-SYMBOLS: TYPE any. @@ -391,17 +408,19 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION. ASSIGN mr_logical_db_schema->* TO . ASSERT sy-subrc = 0. + li_wb_object_operator = get_wb_object_operator( ). + TRY. - get_wb_object_operator( )->read( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') EXPORTING version = 'A' IMPORTING data = - eo_object_data = li_object_data_model ). + eo_object_data = li_object_data_model. clear_fields( CHANGING cs_logical_db_schema = ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). diff --git a/src/objects/zcl_abapgit_object_bdef.clas.abap b/src/objects/zcl_abapgit_object_bdef.clas.abap index 8848e26a5..44767d5a3 100644 --- a/src/objects/zcl_abapgit_object_bdef.clas.abap +++ b/src/objects/zcl_abapgit_object_bdef.clas.abap @@ -27,7 +27,6 @@ CLASS zcl_abapgit_object_bdef DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje CHANGING cs_behaviour_definition TYPE any RAISING - cx_wb_object_operation_error zcx_abapgit_exception, get_transport_req_if_needed @@ -40,13 +39,13 @@ CLASS zcl_abapgit_object_bdef DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje get_wb_object_operator RETURNING - VALUE(ri_wb_object_operator) TYPE REF TO if_wb_object_operator + VALUE(ri_wb_object_operator) TYPE REF TO object RAISING zcx_abapgit_exception. DATA: mi_persistence TYPE REF TO if_wb_object_persist, - mi_wb_object_operator TYPE REF TO if_wb_object_operator, + mi_wb_object_operator TYPE REF TO object, mv_behaviour_definition_key TYPE seu_objkey, mr_behaviour_definition TYPE REF TO data. @@ -156,17 +155,19 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. DATA: li_object_data_model TYPE REF TO if_wb_object_data_model, - li_wb_object_operator TYPE REF TO if_wb_object_operator, - lx_error TYPE REF TO cx_wb_object_operation_error. + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root. li_wb_object_operator = get_wb_object_operator( ). TRY. - li_wb_object_operator->read( IMPORTING eo_object_data = li_object_data_model ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + eo_object_data = li_object_data_model. rv_user = li_object_data_model->get_changed_by( ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -178,8 +179,8 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. METHOD zif_abapgit_object~delete. DATA: - lx_error TYPE REF TO cx_wb_object_operation_error, - li_wb_object_operator TYPE REF TO if_wb_object_operator, + lx_error TYPE REF TO cx_root, + li_wb_object_operator TYPE REF TO object, lv_transport_request TYPE trkorr. lv_transport_request = get_transport_req_if_needed( iv_package ). @@ -187,9 +188,11 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. li_wb_object_operator = get_wb_object_operator( ). TRY. - li_wb_object_operator->delete( lv_transport_request ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~DELETE') + EXPORTING + transport_request = lv_transport_request. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -202,8 +205,8 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. DATA: li_object_data_model TYPE REF TO if_wb_object_data_model, - li_wb_object_operator TYPE REF TO if_wb_object_operator, - lx_error TYPE REF TO cx_static_check, + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root, lv_transport_request TYPE trkorr. FIELD-SYMBOLS: @@ -240,32 +243,35 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. fill_metadata_from_db( CHANGING cs_behaviour_definition = ). li_object_data_model->set_data( ). - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - transport_request = lv_transport_request ). + transport_request = lv_transport_request. ELSE. li_object_data_model->set_data( ). - li_wb_object_operator->create( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~CREATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_properties + data_selection = 'P' " if_wb_object_data_selection_co=>c_properties package = iv_package - transport_request = lv_transport_request ). + transport_request = lv_transport_request. - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_data_content - transport_request = lv_transport_request ). + data_selection = 'D' " if_wb_object_data_selection_co=>c_data_content + transport_request = lv_transport_request. ENDIF. - li_wb_object_operator->activate( ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~ACTIVATE'). corr_insert( iv_package ). - CATCH cx_swb_exception cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -345,8 +351,8 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. DATA: li_object_data_model TYPE REF TO if_wb_object_data_model, - li_wb_object_operator TYPE REF TO if_wb_object_operator, - lx_error TYPE REF TO cx_wb_object_operation_error, + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root, lv_source TYPE string. FIELD-SYMBOLS: @@ -359,12 +365,12 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. li_wb_object_operator = get_wb_object_operator( ). TRY. - li_wb_object_operator->read( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') EXPORTING version = 'A' IMPORTING data = - eo_object_data = li_object_data_model ). + eo_object_data = li_object_data_model. ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE TO . @@ -374,7 +380,7 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. clear_fields( CHANGING cs_behaviour_definition = ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -393,7 +399,7 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. METHOD fill_metadata_from_db. DATA: - li_wb_object_operator TYPE REF TO if_wb_object_operator, + li_wb_object_operator TYPE REF TO object, lr_behaviour_definition_old TYPE REF TO data. FIELD-SYMBOLS: @@ -409,7 +415,9 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. ASSIGN lr_behaviour_definition_old->* TO . ASSERT sy-subrc = 0. - li_wb_object_operator->read( IMPORTING data = ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + data = . ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_behaviour_definition TO . @@ -450,7 +458,7 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. DATA: ls_object_type TYPE wbobjtype, - lx_error TYPE REF TO cx_wb_object_operation_error. + lx_error TYPE REF TO cx_root. IF mi_wb_object_operator IS BOUND. ri_wb_object_operator = mi_wb_object_operator. @@ -460,11 +468,14 @@ CLASS zcl_abapgit_object_bdef IMPLEMENTATION. ls_object_type-subtype_wb = 'BDO'. TRY. - mi_wb_object_operator = cl_wb_object_operator=>create_instance( - object_type = ls_object_type - object_key = mv_behaviour_definition_key ). + CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE') + EXPORTING + object_type = ls_object_type + object_key = mv_behaviour_definition_key + RECEIVING + result = mi_wb_object_operator. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). diff --git a/src/objects/zcl_abapgit_object_drul.clas.abap b/src/objects/zcl_abapgit_object_drul.clas.abap index a334a621b..35c7880d7 100644 --- a/src/objects/zcl_abapgit_object_drul.clas.abap +++ b/src/objects/zcl_abapgit_object_drul.clas.abap @@ -27,7 +27,6 @@ CLASS zcl_abapgit_object_drul DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje CHANGING cs_dependency_rule TYPE any RAISING - cx_wb_object_operation_error zcx_abapgit_exception, get_transport_req_if_needed @@ -40,7 +39,7 @@ CLASS zcl_abapgit_object_drul DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje get_wb_object_operator RETURNING - VALUE(ri_wb_object_operator) TYPE REF TO if_wb_object_operator + VALUE(ri_wb_object_operator) TYPE REF TO object RAISING zcx_abapgit_exception. @@ -48,7 +47,7 @@ CLASS zcl_abapgit_object_drul DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje mr_dependency_rule TYPE REF TO data, mv_dependency_rule_key TYPE seu_objkey, mi_persistence TYPE REF TO if_wb_object_persist, - mi_wb_object_operator TYPE REF TO if_wb_object_operator. + mi_wb_object_operator TYPE REF TO object. ENDCLASS. @@ -77,15 +76,20 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. METHOD zif_abapgit_object~changed_by. DATA: - li_object_data_model TYPE REF TO if_wb_object_data_model, - lx_error TYPE REF TO cx_wb_object_operation_error. + li_wb_object_operator TYPE REF TO object, + li_object_data_model TYPE REF TO if_wb_object_data_model, + lx_error TYPE REF TO cx_root. TRY. - get_wb_object_operator( )->read( IMPORTING eo_object_data = li_object_data_model ). + li_wb_object_operator = get_wb_object_operator( ). + + CALL METHOD li_object_data_model->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + eo_object_data = li_object_data_model. rv_user = li_object_data_model->get_changed_by( ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -97,15 +101,19 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. METHOD zif_abapgit_object~delete. DATA: - lx_error TYPE REF TO cx_wb_object_operation_error, - lv_transport_request TYPE trkorr. + lx_error TYPE REF TO cx_root, + lv_transport_request TYPE trkorr, + li_wb_object_operator TYPE REF TO object. lv_transport_request = get_transport_req_if_needed( iv_package ). + li_wb_object_operator = get_wb_object_operator( ). TRY. - get_wb_object_operator( )->delete( lv_transport_request ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~DELETE') + EXPORTING + transport_request = lv_transport_request. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -118,8 +126,8 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. DATA: li_object_data_model TYPE REF TO if_wb_object_data_model, - li_wb_object_operator TYPE REF TO if_wb_object_operator, - lx_error TYPE REF TO cx_static_check, + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root, lv_transport_request TYPE trkorr. FIELD-SYMBOLS: @@ -156,32 +164,35 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. fill_metadata_from_db( CHANGING cs_dependency_rule = ). li_object_data_model->set_data( ). - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - transport_request = lv_transport_request ). + transport_request = lv_transport_request. ELSE. li_object_data_model->set_data( ). - li_wb_object_operator->create( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~CREATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_properties + data_selection = 'P' " if_wb_object_data_selection_co=>c_properties package = iv_package - transport_request = lv_transport_request ). + transport_request = lv_transport_request. - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_data_content - transport_request = lv_transport_request ). + data_selection = 'D' " if_wb_object_data_selection_co=>c_data_content + transport_request = lv_transport_request. ENDIF. - li_wb_object_operator->activate( ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~ACTIVATE'). corr_insert( iv_package ). - CATCH cx_swb_exception cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -260,9 +271,10 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. METHOD zif_abapgit_object~serialize. DATA: - li_object_data_model TYPE REF TO if_wb_object_data_model, - lx_error TYPE REF TO cx_wb_object_operation_error, - lv_source TYPE string. + li_wb_object_operator TYPE REF TO object, + li_object_data_model TYPE REF TO if_wb_object_data_model, + lx_error TYPE REF TO cx_root, + lv_source TYPE string. FIELD-SYMBOLS: TYPE any, @@ -271,13 +283,15 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. ASSIGN mr_dependency_rule->* TO . ASSERT sy-subrc = 0. + li_wb_object_operator = get_wb_object_operator( ). + TRY. - get_wb_object_operator( )->read( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') EXPORTING version = 'A' IMPORTING data = - eo_object_data = li_object_data_model ). + eo_object_data = li_object_data_model. ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE TO . @@ -287,7 +301,7 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. clear_fields( CHANGING cs_dependency_rule = ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -306,7 +320,7 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. METHOD fill_metadata_from_db. DATA: - li_wb_object_operator TYPE REF TO if_wb_object_operator, + li_wb_object_operator TYPE REF TO object, lr_dependency_rule_old TYPE REF TO data. FIELD-SYMBOLS: @@ -322,7 +336,9 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. ASSIGN lr_dependency_rule_old->* TO . ASSERT sy-subrc = 0. - li_wb_object_operator->read( IMPORTING data = ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + data = . ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_dependency_rule TO . @@ -363,7 +379,7 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. DATA: ls_object_type TYPE wbobjtype, - lx_error TYPE REF TO cx_wb_object_operation_error. + lx_error TYPE REF TO cx_root. IF mi_wb_object_operator IS BOUND. ri_wb_object_operator = mi_wb_object_operator. @@ -373,11 +389,14 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION. ls_object_type-subtype_wb = 'DRL'. TRY. - mi_wb_object_operator = cl_wb_object_operator=>create_instance( - object_type = ls_object_type - object_key = mv_dependency_rule_key ). + CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE') + EXPORTING + object_type = ls_object_type + object_key = mv_dependency_rule_key + RECEIVING + result = mi_wb_object_operator. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). diff --git a/src/objects/zcl_abapgit_object_dtdc.clas.abap b/src/objects/zcl_abapgit_object_dtdc.clas.abap index 1d1f5e25f..9ad314878 100644 --- a/src/objects/zcl_abapgit_object_dtdc.clas.abap +++ b/src/objects/zcl_abapgit_object_dtdc.clas.abap @@ -27,7 +27,6 @@ CLASS zcl_abapgit_object_dtdc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje CHANGING cs_dynamic_cache TYPE any RAISING - cx_wb_object_operation_error zcx_abapgit_exception, get_transport_req_if_needed @@ -40,7 +39,7 @@ CLASS zcl_abapgit_object_dtdc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje get_wb_object_operator RETURNING - VALUE(ri_wb_object_operator) TYPE REF TO if_wb_object_operator + VALUE(ri_wb_object_operator) TYPE REF TO object RAISING zcx_abapgit_exception. @@ -48,7 +47,7 @@ CLASS zcl_abapgit_object_dtdc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje mr_dynamic_cache TYPE REF TO data, mv_dynamic_cache_key TYPE seu_objkey, mi_persistence TYPE REF TO if_wb_object_persist, - mi_wb_object_operator TYPE REF TO if_wb_object_operator. + mi_wb_object_operator TYPE REF TO object. ENDCLASS. @@ -77,15 +76,20 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. METHOD zif_abapgit_object~changed_by. DATA: - li_object_data_model TYPE REF TO if_wb_object_data_model, - lx_error TYPE REF TO cx_wb_object_operation_error. + li_object_data_model TYPE REF TO if_wb_object_data_model, + lx_error TYPE REF TO cx_root, + li_wb_object_operator TYPE REF TO object. TRY. - get_wb_object_operator( )->read( IMPORTING eo_object_data = li_object_data_model ). + li_wb_object_operator = get_wb_object_operator( ). + + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + eo_object_data = li_object_data_model. rv_user = li_object_data_model->get_changed_by( ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -97,15 +101,20 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. METHOD zif_abapgit_object~delete. DATA: - lx_error TYPE REF TO cx_wb_object_operation_error, - lv_transport_request TYPE trkorr. + lx_error TYPE REF TO cx_root, + lv_transport_request TYPE trkorr, + li_wb_object_operator TYPE REF TO object. lv_transport_request = get_transport_req_if_needed( iv_package ). TRY. - get_wb_object_operator( )->delete( lv_transport_request ). + li_wb_object_operator = get_wb_object_operator( ). - CATCH cx_wb_object_operation_error INTO lx_error. + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~DELETE') + EXPORTING + transport_request = lv_transport_request. + + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -118,8 +127,8 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. DATA: li_object_data_model TYPE REF TO if_wb_object_data_model, - li_wb_object_operator TYPE REF TO if_wb_object_operator, - lx_error TYPE REF TO cx_static_check, + li_wb_object_operator TYPE REF TO object, + lx_error TYPE REF TO cx_root, lv_transport_request TYPE trkorr. FIELD-SYMBOLS: @@ -156,32 +165,35 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. fill_metadata_from_db( CHANGING cs_dynamic_cache = ). li_object_data_model->set_data( ). - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - transport_request = lv_transport_request ). + transport_request = lv_transport_request. ELSE. li_object_data_model->set_data( ). - li_wb_object_operator->create( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~CREATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_properties + data_selection = 'P' " if_wb_object_data_selection_co=>c_properties package = iv_package - transport_request = lv_transport_request ). + transport_request = lv_transport_request. - li_wb_object_operator->update( + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~UPDATE') + EXPORTING io_object_data = li_object_data_model - data_selection = if_wb_object_data_selection_co=>c_data_content - transport_request = lv_transport_request ). + data_selection = 'D' " if_wb_object_data_selection_co=>c_data_content + transport_request = lv_transport_request. ENDIF. - li_wb_object_operator->activate( ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~ACTIVATE'). corr_insert( iv_package ). - CATCH cx_swb_exception cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -260,9 +272,10 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. METHOD zif_abapgit_object~serialize. DATA: - li_object_data_model TYPE REF TO if_wb_object_data_model, - lx_error TYPE REF TO cx_wb_object_operation_error, - lv_source TYPE string. + li_wb_object_operator TYPE REF TO object, + li_object_data_model TYPE REF TO if_wb_object_data_model, + lx_error TYPE REF TO cx_root, + lv_source TYPE string. FIELD-SYMBOLS: TYPE any, @@ -272,12 +285,14 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. ASSERT sy-subrc = 0. TRY. - get_wb_object_operator( )->read( + li_wb_object_operator = get_wb_object_operator( ). + + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') EXPORTING version = 'A' IMPORTING data = - eo_object_data = li_object_data_model ). + eo_object_data = li_object_data_model. ASSIGN COMPONENT 'CONTENT-SOURCE' OF STRUCTURE TO . @@ -287,7 +302,7 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. clear_fields( CHANGING cs_dynamic_cache = ). - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ). @@ -306,7 +321,7 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. METHOD fill_metadata_from_db. DATA: - li_wb_object_operator TYPE REF TO if_wb_object_operator, + li_wb_object_operator TYPE REF TO object, lr_dynamic_cache_old TYPE REF TO data. FIELD-SYMBOLS: @@ -322,7 +337,9 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. ASSIGN lr_dynamic_cache_old->* TO . ASSERT sy-subrc = 0. - li_wb_object_operator->read( IMPORTING data = ). + CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ') + IMPORTING + data = . ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_dynamic_cache TO . @@ -363,7 +380,7 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. DATA: ls_object_type TYPE wbobjtype, - lx_error TYPE REF TO cx_wb_object_operation_error. + lx_error TYPE REF TO cx_root. IF mi_wb_object_operator IS BOUND. ri_wb_object_operator = mi_wb_object_operator. @@ -373,11 +390,14 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. ls_object_type-subtype_wb = 'DF'. TRY. - mi_wb_object_operator = cl_wb_object_operator=>create_instance( - object_type = ls_object_type - object_key = mv_dynamic_cache_key ). + CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE') + EXPORTING + object_type = ls_object_type + object_key = mv_dynamic_cache_key + RECEIVING + result = mi_wb_object_operator. - CATCH cx_wb_object_operation_error INTO lx_error. + CATCH cx_root INTO lx_error. zcx_abapgit_exception=>raise( iv_text = lx_error->get_text( ) ix_previous = lx_error ).