From 2e5d31f4f34cf4bbddc76886c94384a7b3009e01 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Sat, 5 Aug 2017 11:25:13 +0200
Subject: [PATCH] SICF fix

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

diff --git a/src/zabapgit_object_sicf.prog.abap b/src/zabapgit_object_sicf.prog.abap
index 0c5647477..841ece111 100644
--- a/src/zabapgit_object_sicf.prog.abap
+++ b/src/zabapgit_object_sicf.prog.abap
@@ -95,6 +95,14 @@ CLASS lcl_object_sicf IMPLEMENTATION.
 
     rv_bool = boolc( NOT ls_tadir IS INITIAL ).
 
+    IF rv_bool = abap_true.
+      ls_key = ls_tadir-obj_name.
+      SELECT SINGLE icfaltnme FROM icfservice INTO ls_key-icf_name
+        WHERE icf_name = ls_key-icf_name
+        AND icfparguid = ls_key-icfparguid.
+      rv_bool = boolc( sy-subrc = 0 ).
+    ENDIF.
+
   ENDMETHOD.                    "lif_object~exists
 
   METHOD lif_object~serialize.