From e1e039a446411a386b569fe96614f2a9f9a79237 Mon Sep 17 00:00:00 2001
From: Fabian Lupa <fabian@lupa.dev>
Date: Thu, 24 Dec 2020 12:55:47 +0100
Subject: [PATCH] Implement jump for CUS1 (#4354)

---
 src/objects/zcl_abapgit_object_cus1.clas.abap | 30 +++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/src/objects/zcl_abapgit_object_cus1.clas.abap b/src/objects/zcl_abapgit_object_cus1.clas.abap
index 9c94e0980..dc97a9ddd 100644
--- a/src/objects/zcl_abapgit_object_cus1.clas.abap
+++ b/src/objects/zcl_abapgit_object_cus1.clas.abap
@@ -34,7 +34,7 @@ ENDCLASS.
 
 
 
-CLASS ZCL_ABAPGIT_OBJECT_CUS1 IMPLEMENTATION.
+CLASS zcl_abapgit_object_cus1 IMPLEMENTATION.
 
 
   METHOD constructor.
@@ -161,9 +161,35 @@ CLASS ZCL_ABAPGIT_OBJECT_CUS1 IMPLEMENTATION.
 
 
   METHOD zif_abapgit_object~jump.
+    DATA: lt_bdc_data TYPE STANDARD TABLE OF bdcdata.
+    FIELD-SYMBOLS: <ls_bdc_data> TYPE bdcdata.
 
-    zcx_abapgit_exception=>raise( |TODO: Jump| ).
+    APPEND INITIAL LINE TO lt_bdc_data ASSIGNING <ls_bdc_data>.
+    <ls_bdc_data>-program = 'SAPLS_CUS_ACTIVITY'.
+    <ls_bdc_data>-dynpro = '0200'.
+    <ls_bdc_data>-dynbegin = 'X'.
 
+    APPEND INITIAL LINE TO lt_bdc_data ASSIGNING <ls_bdc_data>.
+    <ls_bdc_data>-fnam = 'CUS_ACTH-ACT_ID'.
+    <ls_bdc_data>-fval = mv_customizing_activity.
+
+    APPEND INITIAL LINE TO lt_bdc_data ASSIGNING <ls_bdc_data>.
+    <ls_bdc_data>-fnam = 'BDC_OKCODE'.
+    <ls_bdc_data>-fval = '=ACT_DISP'.
+
+    CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
+      EXPORTING
+        tcode                   = 'S_CUS_ACTIVITY'
+        mode_val                = 'E'
+      TABLES
+        using_tab               = lt_bdc_data
+      EXCEPTIONS
+        call_transaction_denied = 1
+        tcode_invalid           = 2
+        OTHERS                  = 3.
+    IF sy-subrc <> 0.
+      zcx_abapgit_exception=>raise( |Error from JUMP CUS1: { sy-subrc }| ).
+    ENDIF.
   ENDMETHOD.