From df549d1c47a8f4fa2df0b3e2637cd578307ba6a5 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sat, 8 Oct 2016 16:30:53 +0000
Subject: [PATCH] SHLP: clear info inherited from domain

---
 src/zabapgit_object_shlp.prog.abap | 23 ++++++++++++++++++++---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/src/zabapgit_object_shlp.prog.abap b/src/zabapgit_object_shlp.prog.abap
index 3904de298..ba905258f 100644
--- a/src/zabapgit_object_shlp.prog.abap
+++ b/src/zabapgit_object_shlp.prog.abap
@@ -24,9 +24,9 @@ CLASS lcl_object_shlp IMPLEMENTATION.
 
   METHOD lif_object~has_changed_since.
 
-    DATA: lv_date    TYPE dats,
-          lv_time    TYPE tims,
-          lv_ts      TYPE timestamp.
+    DATA: lv_date TYPE dats,
+          lv_time TYPE tims,
+          lv_ts   TYPE timestamp.
 
     SELECT SINGLE as4date as4time FROM dd30l
       INTO (lv_date, lv_time)
@@ -102,6 +102,8 @@ CLASS lcl_object_shlp IMPLEMENTATION.
           lt_dd32p TYPE TABLE OF dd32p,
           lt_dd33v TYPE TABLE OF dd33v.
 
+    FIELD-SYMBOLS: <ls_dd32p> LIKE LINE OF lt_dd32p.
+
 
     lv_name = ms_item-obj_name.
 
@@ -130,6 +132,21 @@ CLASS lcl_object_shlp IMPLEMENTATION.
            ls_dd30v-as4date,
            ls_dd30v-as4time.
 
+    LOOP AT lt_dd32p ASSIGNING <ls_dd32p>.
+* clear information inherited from domain
+      CLEAR: <ls_dd32p>-domname,
+        <ls_dd32p>-headlen,
+        <ls_dd32p>-scrlen1,
+        <ls_dd32p>-scrlen2,
+        <ls_dd32p>-datatype,
+        <ls_dd32p>-leng,
+        <ls_dd32p>-outputlen,
+        <ls_dd32p>-decimals,
+        <ls_dd32p>-lowercase,
+        <ls_dd32p>-signflag,
+        <ls_dd32p>-convexit.
+    ENDLOOP.
+
     io_xml->add( iv_name = 'DD30V'
                  ig_data = ls_dd30v ).
     io_xml->add( ig_data = lt_dd31v