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'