From a6f623a4a1bd049b990bb9da14fb179d1a200b72 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Thu, 5 Jan 2017 14:51:22 +0000
Subject: [PATCH] ENHO   SMIM: fix dumps

---
 src/zabapgit_object_enho.prog.abap | 19 +++++++++++++++++++
 src/zabapgit_object_smim.prog.abap |  2 +-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/src/zabapgit_object_enho.prog.abap b/src/zabapgit_object_enho.prog.abap
index 015b5b042..16c70ae25 100644
--- a/src/zabapgit_object_enho.prog.abap
+++ b/src/zabapgit_object_enho.prog.abap
@@ -409,12 +409,31 @@ CLASS lcl_object_enho IMPLEMENTATION.
           lv_shorttext TYPE string,
           lt_impl      TYPE enh_badi_impl_data_it.
 
+    FIELD-SYMBOLS: <ls_impl>   LIKE LINE OF lt_impl,
+                   <ls_values> LIKE LINE OF <ls_impl>-filter_values,
+                   <ls_filter> LIKE LINE OF <ls_impl>-filters.
+
+
     lo_badi_impl ?= ii_enh_tool.
 
     lv_shorttext = lo_badi_impl->if_enh_object_docu~get_shorttext( ).
     lv_spot_name = lo_badi_impl->get_spot_name( ).
     lt_impl      = lo_badi_impl->get_implementations( ).
 
+    LOOP AT lt_impl ASSIGNING <ls_impl>.
+* make sure the XML serialization does not dump, field type = N
+      LOOP AT <ls_impl>-filter_values ASSIGNING <ls_values>.
+        IF <ls_values>-filter_numeric_value1 CA space.
+          CLEAR <ls_values>-filter_numeric_value1.
+        ENDIF.
+      ENDLOOP.
+      LOOP AT <ls_impl>-filters ASSIGNING <ls_filter>.
+        IF <ls_filter>-filter_numeric_value1 CA space.
+          CLEAR <ls_filter>-filter_numeric_value1.
+        ENDIF.
+      ENDLOOP.
+    ENDLOOP.
+
     io_xml->add( iv_name = 'TOOL'
                  ig_data = iv_tool ).
     io_xml->add( ig_data = lv_shorttext
diff --git a/src/zabapgit_object_smim.prog.abap b/src/zabapgit_object_smim.prog.abap
index 109ace172..7fe035bc1 100644
--- a/src/zabapgit_object_smim.prog.abap
+++ b/src/zabapgit_object_smim.prog.abap
@@ -191,7 +191,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
           not_found          = 3
           permission_failure = 4
           OTHERS             = 5 ).
-      IF sy-subrc <> 0 AND sy-subrc <> 3.
+      IF sy-subrc <> 0 AND sy-subrc <> 2 AND sy-subrc <> 3.
         lcx_exception=>raise( 'error from mime api->get:' && sy-msgv1 ).
       ENDIF.