From 39d4e79702bdd0d68ac5465bc2cd2867ec6c2212 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sun, 9 Oct 2016 09:24:16 +0000
Subject: [PATCH] TABL: remove inherited search helps

---
 src/zabapgit_object_tabl.prog.abap | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/zabapgit_object_tabl.prog.abap b/src/zabapgit_object_tabl.prog.abap
index 8e0e842a7..6b1e4ce03 100644
--- a/src/zabapgit_object_tabl.prog.abap
+++ b/src/zabapgit_object_tabl.prog.abap
@@ -134,6 +134,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
 
     FIELD-SYMBOLS: <ls_dd12v> LIKE LINE OF lt_dd12v,
                    <ls_dd05m> LIKE LINE OF lt_dd05m,
+                   <ls_dd36m> LIKE LINE OF lt_dd36m,
                    <ls_dd03p> LIKE LINE OF lt_dd03p.
 
 
@@ -236,6 +237,16 @@ CLASS lcl_object_tabl IMPLEMENTATION.
       ENDIF.
     ENDLOOP.
 
+* remove inherited search helps
+    DELETE lt_dd35v WHERE shlpinher = abap_true.
+    LOOP AT lt_dd36m ASSIGNING <ls_dd36m>.
+      lv_index = sy-tabix.
+      READ TABLE lt_dd35v WITH KEY fieldname = <ls_dd36m>-fieldname TRANSPORTING NO FIELDS.
+      IF sy-subrc <> 0.
+        DELETE lt_dd36m INDEX lv_index.
+      ENDIF.
+    ENDLOOP.
+
     io_xml->add( iv_name = 'DD02V'
                  ig_data = ls_dd02v ).
     io_xml->add( iv_name = 'DD09L'