From 258414aba6cb9341d59d44098f70eabab015c32e Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Mon, 24 Jul 2017 18:54:53 +0000
Subject: [PATCH] add SICF jump

---
 src/zabapgit_object_sicf.prog.abap | 34 +++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/src/zabapgit_object_sicf.prog.abap b/src/zabapgit_object_sicf.prog.abap
index 8fa11f59f..5fe090d7a 100644
--- a/src/zabapgit_object_sicf.prog.abap
+++ b/src/zabapgit_object_sicf.prog.abap
@@ -419,7 +419,39 @@ CLASS lcl_object_sicf IMPLEMENTATION.
   ENDMETHOD.                    "delete
 
   METHOD lif_object~jump.
-    lcx_exception=>raise( 'todo, SICF, jump' ).
+
+    DATA: ls_bcdata TYPE bdcdata,
+          lt_bcdata TYPE STANDARD TABLE OF bdcdata.
+
+    ls_bcdata-program  = 'RSICFTREE'.
+    ls_bcdata-dynpro   = '1000'.
+    ls_bcdata-dynbegin = 'X'.
+    APPEND ls_bcdata TO lt_bcdata.
+
+    ls_bcdata-dynpro   = space.
+    ls_bcdata-dynbegin = space.
+    ls_bcdata-fnam     = 'ICF_SERV'.
+    ls_bcdata-fval     = ms_item-obj_name.
+    APPEND ls_bcdata TO lt_bcdata.
+
+    ls_bcdata-fnam = 'BDC_OKCODE'.
+    ls_bcdata-fval = '=ONLI'.
+    APPEND ls_bcdata TO lt_bcdata.
+
+    CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
+      STARTING NEW TASK 'GIT'
+      EXPORTING
+        tcode                   = 'SICF'
+        mode_val                = 'E'
+      TABLES
+        using_tab               = lt_bcdata
+      EXCEPTIONS
+        OTHERS                  = 1.
+
+    IF sy-subrc <> 0.
+      lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SICF' ).
+    ENDIF.
+
   ENDMETHOD.                    "jump
 
   METHOD lif_object~compare_to_remote_version.