From f7c08c0d10610302065b6b9c4c6a5eef54f998d8 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Wed, 23 Nov 2016 16:18:02 +0000
Subject: [PATCH] PROG - Skip empty CUA, close #456

---
 src/zabapgit.prog.abap         |  2 +-
 src/zabapgit.prog.xml          | 21 ---------------------
 src/zabapgit_objects.prog.abap |  8 +++++---
 3 files changed, 6 insertions(+), 25 deletions(-)

diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap
index 0f217ebb4..fe9b1aaca 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.23.0'.     "#EC NOTEXT
+           gc_abap_version TYPE string VALUE 'v1.23.1'.     "#EC NOTEXT
 
 ********************************************************************************
 * The MIT License (MIT)
diff --git a/src/zabapgit.prog.xml b/src/zabapgit.prog.xml
index c45af12c8..aed90ce00 100644
--- a/src/zabapgit.prog.xml
+++ b/src/zabapgit.prog.xml
@@ -35,27 +35,6 @@
     <UCCHECK>X</UCCHECK>
    </PROGDIR>
    <DYNPROS/>
-   <CUA>
-    <ADM>
-     <ACTCODE/>
-     <MENCODE/>
-     <PFKCODE/>
-     <DEFAULTACT/>
-     <DEFAULTPFK/>
-     <MOD_LANGU/>
-    </ADM>
-    <STA/>
-    <FUN/>
-    <MEN/>
-    <MTX/>
-    <ACT/>
-    <BUT/>
-    <PFK/>
-    <SET/>
-    <DOC/>
-    <TIT/>
-    <BIV/>
-   </CUA>
    <TPOOL>
     <item>
      <ID>R</ID>
diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap
index 16a01b499..ebd7eff61 100644
--- a/src/zabapgit_objects.prog.abap
+++ b/src/zabapgit_objects.prog.abap
@@ -861,7 +861,7 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
     TYPES: ty_spaces_tt TYPE STANDARD TABLE OF i WITH DEFAULT KEY.
 
     TYPES: BEGIN OF ty_tpool.
-        INCLUDE TYPE textpool.
+            INCLUDE TYPE textpool.
     TYPES:   split TYPE c LENGTH 8.
     TYPES: END OF ty_tpool.
 
@@ -1038,8 +1038,10 @@ CLASS lcl_objects_program IMPLEMENTATION.
                    ig_data = lt_dynpros ).
 
       ls_cua = serialize_cua( lv_program_name ).
-      lo_xml->add( iv_name = 'CUA'
-                   ig_data = ls_cua ).
+      IF NOT ls_cua IS INITIAL.
+        lo_xml->add( iv_name = 'CUA'
+                     ig_data = ls_cua ).
+      ENDIF.
     ENDIF.
 
     IF lines( lt_tpool ) = 1.