ecatt downport

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_invert_validation TYPE zif_abapgit_ecatt=>etvo_invert_validation,
-      lv_error_prio        TYPE etvo_error_prio,
+      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.
 

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_error_prio         TYPE zif_abapgit_ecatt=>etvo_error_prio,
-          lv_invert_validation  TYPE etvo_invert_validation,
+          lv_invert_validation  TYPE zif_abapgit_ecatt=>etvo_invert_validation,
           lv_exception_occurred TYPE etonoff,
           lo_ecatt_vo           TYPE REF TO object.
 

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.

src/zif_abapgit_ecatt.intf.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOINTERF>
+    <CLSNAME>ZIF_ABAPGIT_ECATT</CLSNAME>
+    <VERSION>1</VERSION>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ECATT constants</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOINTERF>
+  </asx:values>
+ </asx:abap>
+</abapGit>