From 917177070e395d8602e563102b8da3322c7ed3c0 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Wed, 31 Aug 2016 13:06:01 +0000
Subject: [PATCH] uninstall append structure, close #304 append structures will
 now be deleted before tables

---
 src/zabapgit.prog.abap        |  2 +-
 src/zabapgit_object.prog.abap | 17 ++++++++++++++---
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap
index 6cdd777bc..75048142b 100644
--- a/src/zabapgit.prog.abap
+++ b/src/zabapgit.prog.abap
@@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
 * See http://www.abapgit.org
 
 CONSTANTS: gc_xml_version  TYPE string VALUE 'v1.0.0',      "#EC NOTEXT
-           gc_abap_version TYPE string VALUE 'v1.17.3'.     "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v1.17.4'.     "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
diff --git a/src/zabapgit_object.prog.abap b/src/zabapgit_object.prog.abap
index 87fc73c4e..9db229863 100644
--- a/src/zabapgit_object.prog.abap
+++ b/src/zabapgit_object.prog.abap
@@ -304,8 +304,9 @@ CLASS lcl_objects IMPLEMENTATION.
 
   METHOD delete.
 
-    DATA: ls_item  TYPE ty_item,
-          lt_tadir LIKE it_tadir.
+    DATA: ls_item     TYPE ty_item,
+          lv_tabclass TYPE dd02l-tabclass,
+          lt_tadir    LIKE it_tadir.
 
     FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
 
@@ -325,7 +326,17 @@ CLASS lcl_objects IMPLEMENTATION.
         WHEN 'SUSC'.
           <ls_tadir>-korrnum = '5000'.
         WHEN 'TTYP' OR 'TABL' OR 'VIEW'.
-          <ls_tadir>-korrnum = '7000'.
+          SELECT SINGLE tabclass FROM dd02l
+            INTO lv_tabclass
+            WHERE tabname = <ls_tadir>-obj_name
+            AND as4local = 'A'
+            AND as4vers = '0000'.
+          IF sy-subrc = 0 AND lv_tabclass = 'APPEND'.
+* delete append structures before database tables
+            <ls_tadir>-korrnum = '6500'.
+          ELSE.
+            <ls_tadir>-korrnum = '7000'.
+          ENDIF.
         WHEN 'DTEL'.
           <ls_tadir>-korrnum = '8000'.
         WHEN 'DOMA'.