From 910513bbd3ea5eaf552335bdc7e6ee8b0ef337ed Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Thu, 27 Sep 2018 20:08:33 +0200
Subject: [PATCH] SUSO: Downport to 702

---
 src/objects/zcl_abapgit_object_suso.clas.abap | 38 ++++++++++++++-----
 1 file changed, 28 insertions(+), 10 deletions(-)

diff --git a/src/objects/zcl_abapgit_object_suso.clas.abap b/src/objects/zcl_abapgit_object_suso.clas.abap
index 5e0d9997d..e8ecab15b 100644
--- a/src/objects/zcl_abapgit_object_suso.clas.abap
+++ b/src/objects/zcl_abapgit_object_suso.clas.abap
@@ -167,14 +167,22 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION.
       co_act_delete TYPE activ_auth VALUE '06'.
 
     DATA:
-      lv_act_head TYPE cl_suso_gen=>td_act,
-      lv_dummy    TYPE string,
-      lo_suso     TYPE REF TO cl_suso_gen,
-      lv_failed   TYPE abap_bool.
+      lv_act_head            TYPE activ_auth,
+      lv_dummy               TYPE string,
+      lo_suso                TYPE REF TO object,
+      lv_failed              TYPE abap_bool,
+      lv_suso_collect_in_cts TYPE i.
 
-    CREATE OBJECT lo_suso.
+    " Downport: CL_SUSO_GEN doesn't exist in 702
+    CREATE OBJECT lo_suso
+      TYPE
+        ('CL_SUSO_GEN').
 
-    lv_failed = lo_suso->suso_load_from_db( mv_objectname ).
+    CALL METHOD lo_suso->('SUSO_LOAD_FROM_DB')
+      EXPORTING
+        id_object = mv_objectname
+      RECEIVING
+        ed_failed = lv_failed.
 
     IF lv_failed = abap_true.
       " Object & does not exist; choose an existing object
@@ -182,14 +190,24 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION.
       zcx_abapgit_exception=>raise_t100( ).
     ENDIF.
 
-    lo_suso->get_suso_edit_mode( EXPORTING id_object      = mv_objectname
-                                           id_planed_act  = co_act_delete
-                                 IMPORTING ed_mode_head   = lv_act_head ).
+    CALL METHOD lo_suso->('GET_SUSO_EDIT_MODE')
+      EXPORTING
+        id_object     = mv_objectname
+        id_planed_act = co_act_delete
+      IMPORTING
+        ed_mode_head  = lv_act_head.
+
     IF lv_act_head <> co_act_delete.
       zcx_abapgit_exception=>raise( |AUTH { mv_objectname }: Delete not allowed| ).
     ENDIF.
 
-    IF lo_suso->suso_collect_in_cts( mv_objectname ) IS NOT INITIAL.
+    CALL METHOD lo_suso->('SUSO_COLLECT_IN_CTS')
+      EXPORTING
+        id_object = mv_objectname
+      RECEIVING
+        ed_result = lv_suso_collect_in_cts.
+
+    IF lv_suso_collect_in_cts IS NOT INITIAL.
       RETURN.
     ENDIF.