From 9963d9000b37947feec9c18f9ecc21df4d084906 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Thu, 19 Nov 2015 10:45:11 +0100
Subject: [PATCH] fix for SICF objects, close #121

---
 zabapgit.abap | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/zabapgit.abap b/zabapgit.abap
index b6dc804b8..7b88036fb 100644
--- a/zabapgit.abap
+++ b/zabapgit.abap
@@ -3,7 +3,7 @@ REPORT zabapgit.
 * See https://github.com/larshp/abapGit/
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v0.2-alpha',  "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v0.78'.       "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v0.79'.       "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
@@ -232,10 +232,16 @@ CLASS lcl_tadir IMPLEMENTATION.
 
   METHOD read_single.
 
+    DATA: lv_obj_name TYPE tadir-obj_name.
+
+
+* fix for SICF services
+    CONCATENATE iv_obj_name '%' INTO lv_obj_name.
+
     SELECT SINGLE * FROM tadir INTO rs_tadir
       WHERE pgmid = iv_pgmid
       AND object = iv_object
-      AND obj_name = iv_obj_name.                         "#EC CI_SUBRC
+      AND obj_name LIKE lv_obj_name.                      "#EC CI_SUBRC
 
   ENDMETHOD.