From e136414c51ce9a25105b1af06d361f6caeda130b Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sat, 8 Oct 2016 10:43:26 +0000
Subject: [PATCH] TTYP: clear TYPELEN

---
 src/zabapgit_object_ttyp.prog.abap | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/zabapgit_object_ttyp.prog.abap b/src/zabapgit_object_ttyp.prog.abap
index a5372dffa..ec2421f99 100644
--- a/src/zabapgit_object_ttyp.prog.abap
+++ b/src/zabapgit_object_ttyp.prog.abap
@@ -24,9 +24,9 @@ CLASS lcl_object_ttyp 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 dd40l
       INTO (lv_date, lv_time)
@@ -128,6 +128,10 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
            ls_dd40v-as4date,
            ls_dd40v-as4time.
 
+    IF NOT ls_dd40v-rowkind IS INITIAL.
+      CLEAR ls_dd40v-typelen.
+    ENDIF.
+
     io_xml->add( iv_name = 'DD40V'
                  ig_data = ls_dd40v ).
     io_xml->add( iv_name = 'DD42V'