diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_down.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_down.clas.abap index 3b3fadae2..668e5db16 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_down.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_down.clas.abap @@ -23,30 +23,6 @@ CLASS zcl_abapgit_ecatt_val_obj_down DEFINITION download_data REDEFINITION. PRIVATE SECTION. - " downport missing types - TYPES: - BEGIN OF ecvo_bus_msg. - INCLUDE TYPE etobj_key. - TYPES: - bus_msg_no TYPE etvo_msg_no, - arbgb TYPE arbgb, - msgnr TYPE msgnr, - bus_msg_text TYPE etvo_bus_msg_text, - otr_key TYPE sotr_conc, - msg_type TYPE etvo_msg_type, - END OF ecvo_bus_msg, - - etvo_bus_msg_tabtype TYPE STANDARD TABLE OF ecvo_bus_msg, - etvo_invert_validation TYPE c LENGTH 1, - etvo_error_prio TYPE n LENGTH 1, - - BEGIN OF etvoimpl_det, - impl_name TYPE c LENGTH 30, " etvo_impl_name - impl_type TYPE c LENGTH 1, " etvo_impl_type - impl_subtype TYPE c LENGTH 4, " etvo_impl_subtype - impl_package TYPE c LENGTH 255, " etvo_package - END OF etvoimpl_det. - DATA: mv_xml_stream TYPE xstring, mv_xml_stream_size TYPE int4. @@ -143,7 +119,7 @@ CLASS zcl_abapgit_ecatt_val_obj_down IMPLEMENTATION. METHOD set_business_msgs. DATA: - lt_buss_msg_ref TYPE etvo_bus_msg_tabtype, + lt_buss_msg_ref TYPE zif_abapgit_ecatt=>etvo_bus_msg_tabtype, li_element TYPE REF TO if_ixml_element, li_insert_objects TYPE REF TO if_ixml_element. @@ -181,8 +157,8 @@ CLASS zcl_abapgit_ecatt_val_obj_down IMPLEMENTATION. METHOD set_ecatt_flags. DATA: - lv_invert_validation TYPE etvo_invert_validation, - lv_error_prio TYPE etvo_error_prio, + lv_invert_validation TYPE zif_abapgit_ecatt=>etvo_invert_validation, + lv_error_prio TYPE zif_abapgit_ecatt=>etvo_error_prio, li_element TYPE REF TO if_ixml_element, li_insert_objects TYPE REF TO if_ixml_element. @@ -240,7 +216,7 @@ CLASS zcl_abapgit_ecatt_val_obj_down IMPLEMENTATION. METHOD set_ecatt_impl_detail. DATA: - ls_impl_details TYPE etvoimpl_det, + ls_impl_details TYPE zif_abapgit_ecatt=>etvoimpl_det, li_element TYPE REF TO if_ixml_element, li_insert_objects TYPE REF TO if_ixml_element. diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap index 54f41b7d0..d3b6eb109 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_val_obj_upl.clas.abap @@ -29,17 +29,6 @@ CLASS zcl_abapgit_ecatt_val_obj_upl DEFINITION cx_ecatt_apl. PRIVATE SECTION. - TYPES: - etvo_invert_validation TYPE c LENGTH 1, - etvo_error_prio TYPE n LENGTH 1, - etvo_bus_msg_tabtype TYPE STANDARD TABLE OF ecvo_bus_msg, - BEGIN OF etvoimpl_det, - impl_name TYPE etvo_impl_name, - impl_type TYPE etvo_impl_type, - impl_subtype TYPE etvo_impl_subtype, - impl_package TYPE etvo_package, - END OF etvoimpl_det. - DATA: mv_external_xml TYPE xstring. @@ -55,7 +44,7 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION. " downport from CL_APL_ECATT_VO_UPLOAD DATA: li_section TYPE REF TO if_ixml_element, - lt_buss_msg_ref TYPE etvo_bus_msg_tabtype, + lt_buss_msg_ref TYPE zif_abapgit_ecatt=>etvo_bus_msg_tabtype, lv_exception_occurred TYPE etonoff, lo_ecatt_vo TYPE REF TO object. @@ -102,7 +91,7 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION. " downport from CL_APL_ECATT_VO_UPLOAD DATA: li_section TYPE REF TO if_ixml_element, - ls_impl_details TYPE etvoimpl_det, + ls_impl_details TYPE zif_abapgit_ecatt=>etvoimpl_det, lv_exception_occurred TYPE etonoff, lo_ecatt_vo TYPE REF TO object. @@ -149,8 +138,8 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION. " downport from CL_APL_ECATT_VO_UPLOAD DATA: li_section TYPE REF TO if_ixml_element, - lv_error_prio TYPE etvo_error_prio, - lv_invert_validation TYPE etvo_invert_validation, + lv_error_prio TYPE zif_abapgit_ecatt=>etvo_error_prio, + lv_invert_validation TYPE zif_abapgit_ecatt=>etvo_invert_validation, lv_exception_occurred TYPE etonoff, lo_ecatt_vo TYPE REF TO object. diff --git a/src/zif_abapgit_ecatt.intf.abap b/src/zif_abapgit_ecatt.intf.abap new file mode 100644 index 000000000..7f5e13adf --- /dev/null +++ b/src/zif_abapgit_ecatt.intf.abap @@ -0,0 +1,34 @@ +INTERFACE zif_abapgit_ecatt + PUBLIC . + + " downport missing types + + TYPES: + etvo_invert_validation TYPE c LENGTH 1, + etvo_error_prio TYPE n LENGTH 1, + etvo_impl_name TYPE c LENGTH 30, + etvo_impl_type TYPE c LENGTH 1, + etvo_impl_subtype TYPE c LENGTH 4, + etvo_package TYPE c LENGTH 255, + BEGIN OF etvoimpl_det, + impl_name TYPE etvo_impl_name, + impl_type TYPE etvo_impl_type, + impl_subtype TYPE etvo_impl_subtype, + impl_package TYPE etvo_package, + END OF etvoimpl_det. + + TYPES: + BEGIN OF ecvo_bus_msg. + INCLUDE TYPE etobj_key. + TYPES: + bus_msg_no TYPE c LENGTH 1, " etvo_msg_no + arbgb TYPE arbgb, + msgnr TYPE msgnr, + bus_msg_text TYPE string, "etvo_bus_msg_text + otr_key TYPE sotr_conc, + msg_type TYPE c LENGTH 4, "etvo_msg_type + END OF ecvo_bus_msg, + + etvo_bus_msg_tabtype TYPE STANDARD TABLE OF ecvo_bus_msg. + +ENDINTERFACE. diff --git a/src/zif_abapgit_ecatt.intf.xml b/src/zif_abapgit_ecatt.intf.xml new file mode 100644 index 000000000..82636dd6d --- /dev/null +++ b/src/zif_abapgit_ecatt.intf.xml @@ -0,0 +1,16 @@ + + + + + + ZIF_ABAPGIT_ECATT + 1 + E + ECATT constants + 2 + 1 + X + + + +