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: LIKE LINE OF lt_dd12v, LIKE LINE OF lt_dd05m, + LIKE LINE OF lt_dd36m, 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 . + lv_index = sy-tabix. + READ TABLE lt_dd35v WITH KEY fieldname = -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'