From 173351c13f7cd33ad42b3c9ef00e1fe1c057ef03 Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Tue, 7 Aug 2018 11:34:54 +0000
Subject: [PATCH] downport 702

---
 .../ecatt/zcl_abapgit_ecatt_helper.clas.abap    | 17 ++++++++++++++---
 .../zcl_abapgit_ecatt_val_obj_upl.clas.abap     |  4 +++-
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap
index b43a82d3a..dfee98ad2 100644
--- a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap
+++ b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap
@@ -89,7 +89,11 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
            ev_xml_stream_size.
 
     TRY.
-        lo_xml = cl_apl_ecatt_xml=>create( im_type = if_apl_ecatt_xml=>co_xml ).
+        CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702
+          EXPORTING
+            im_type = if_apl_ecatt_xml=>co_xml
+          RECEIVING
+            re_xml  = lo_xml.
 
         lo_xml->set_attributes( im_dom = ii_template_over_all ).
 
@@ -120,7 +124,11 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
 
     lv_xstr = iv_xml_stream.
 
-    lo_xml = cl_apl_ecatt_xml=>create( im_type = if_apl_ecatt_xml=>co_xml ).
+    CALL METHOD cl_apl_ecatt_xml=>('CREATE') " doesn't exist in 702
+      EXPORTING
+        im_type = if_apl_ecatt_xml=>co_xml
+      RECEIVING
+        re_xml  = lo_xml.
 
 * whitespace stripping needs a namespace
 * remove white spaces only at the time of upload
@@ -135,7 +143,10 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION.
 * MD: Workaround, because nodes starting with "XML" are not allowed
     lv_nc_xmlref_typ ?= ri_template_over_all->get_elements_by_tag_name_ns(
                           'XMLREF_TYP' ).                   "#EC NOTEXT
-    lv_count = lv_nc_xmlref_typ->get_length( ).
+    CALL METHOD lv_nc_xmlref_typ->('GET_LENGTH')  " downport
+      RECEIVING
+        rval = lv_count.
+
     WHILE lv_index LT lv_count.
       lv_n_xmlref_typ = lv_nc_xmlref_typ->get_item( lv_index ).
       lv_n_xmlref_typ->set_name( 'X-MLREF_TYP' ).
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 9b38193c5..ebbee69b1 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
@@ -287,7 +287,9 @@ CLASS zcl_abapgit_ecatt_val_obj_upl IMPLEMENTATION.
     ENDTRY.
 
     TRY.
-        get_params_from_dom_new( lo_params ).
+        CALL METHOD ('GET_PARAMS_FROM_DOM_NEW') " doesn't exist in 702
+          EXPORTING
+            im_params = lo_params.
       CATCH cx_ecatt_apl INTO lx_ex.
         lv_exc_occ = 'X'.
     ENDTRY.