From 59e30143d374adccfd5ae93c71cc565dd600ecad Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Mon, 18 Jan 2021 17:41:35 -0300
Subject: [PATCH 01/15] Update README.md

---
 README.md | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/README.md b/README.md
index 2409440f..ba6c1986 100644
--- a/README.md
+++ b/README.md
@@ -38,6 +38,8 @@ The Profile Management Tool, which is an alternative of working with SCI based v
 - Multiple execution of several profiles at the same time (the sharpest/strongest and time valid configuration/threshold will be taken);
 - Delegation principle to facilitate team work (all delegates, for instance: team members, can work with the same profile);
 
+:warning: The checks are not RFC-Enabled due to local dependencies. 
+
 ## List of Checks
 
 - [Check Documentation](docs/check_documentation.md)

From 157a09d55f56d8784a9acf48ba0807daa678f7e1 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Mon, 18 Jan 2021 21:46:45 +0100
Subject: [PATCH 02/15] disabling rfc

---
 src/foundation/y_check_base.clas.abap | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/src/foundation/y_check_base.clas.abap b/src/foundation/y_check_base.clas.abap
index 6d747f4a..a0bba4b7 100644
--- a/src/foundation/y_check_base.clas.abap
+++ b/src/foundation/y_check_base.clas.abap
@@ -127,7 +127,6 @@ CLASS y_check_base DEFINITION PUBLIC ABSTRACT
     METHODS do_attributes_exist  RETURNING VALUE(result) TYPE abap_bool.
 
     METHODS instantiate_objects.
-    METHODS enable_rfc.
 
     METHODS is_skipped IMPORTING config        TYPE y_if_clean_code_manager=>check_configuration
                                  error_count   TYPE int4
@@ -178,7 +177,6 @@ CLASS y_check_base IMPLEMENTATION.
 
   METHOD constructor.
     super->constructor( ).
-    enable_rfc( ).
 
     description = get_class_description(  ).
     category = 'Y_CATEGORY_CODE_PAL'.
@@ -709,19 +707,6 @@ CLASS y_check_base IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD enable_rfc.
-    ASSIGN me->('remote_rfc_enabled') TO FIELD-SYMBOL(<remote_rfc_enabled>).
-    IF sy-subrc = 0.
-      <remote_rfc_enabled> = abap_true.
-    ENDIF.
-    ASSIGN me->('remote_enabled') TO FIELD-SYMBOL(<remote_enabled>).
-    IF sy-subrc = 0.
-      <remote_enabled> = abap_true.
-    ENDIF.
-    UNASSIGN: <remote_rfc_enabled>, <remote_enabled>.
-  ENDMETHOD.
-
-
   METHOD set_check_message.
     y_message_registration=>add_message(
       EXPORTING

From 0e231368e44f6e0d8c0eaaaed5521a9ef7469a18 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Tue, 19 Jan 2021 08:28:44 -0300
Subject: [PATCH 03/15] Update changelog.txt

---
 changelog.txt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/changelog.txt b/changelog.txt
index 646c74a3..b96a80aa 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -12,6 +12,10 @@ Upgrade Note
 ------------------
 Whenever you upgrade code pal for ABAP, it is highly recommended to execute the Y_CI_CHECK_REGISTRATION report to activate/reactivate the Checks (SE38 transaction) and regenerate the respective code inspector variant (SCI transaction)
 
+2021-01-XX v1.12.0
+------------------
+- RFC Enabled (#305)
+
 2021-01-18 v1.11.0
 ------------------
 * CHECK position after comments (#301)

From 1fb7884000f24c095b41b0338a244ca45eb3c2d7 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Tue, 19 Jan 2021 11:33:04 -0300
Subject: [PATCH 04/15] Update changelog.txt

---
 changelog.txt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/changelog.txt b/changelog.txt
index b96a80aa..87234782 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -14,7 +14,7 @@ Whenever you upgrade code pal for ABAP, it is highly recommended to execute the
 
 2021-01-XX v1.12.0
 ------------------
-- RFC Enabled (#305)
+- RFC Disabled (#305)
 
 2021-01-18 v1.11.0
 ------------------

From 6b10dd63c5e0fe3e8824c5565d4d60543a82bc01 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Fri, 22 Jan 2021 18:21:03 +0100
Subject: [PATCH 05/15] 1.12.0

---
 src/y_code_pal_version.intf.abap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/y_code_pal_version.intf.abap b/src/y_code_pal_version.intf.abap
index 6f471941..1c3cca2c 100644
--- a/src/y_code_pal_version.intf.abap
+++ b/src/y_code_pal_version.intf.abap
@@ -1,3 +1,3 @@
 INTERFACE y_code_pal_version PUBLIC.
-  CONSTANTS abap TYPE string VALUE '1.11.1' ##NO_TEXT.
+  CONSTANTS abap TYPE string VALUE '1.12.0' ##NO_TEXT.
 ENDINTERFACE.

From 0ba96c6aa58cd1368561b4fc85cf114b018e39ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Eugen=20G=C3=BCnther?=
 <64586309+eugen-guenther-sap@users.noreply.github.com>
Date: Mon, 25 Jan 2021 13:59:19 +0100
Subject: [PATCH 06/15] Profile Tool - UX Refinement (#313)

Minor UX Changes
---
 src/profiles/y_alv_tree_control.clas.abap     | 68 ++++++++++++-------
 src/profiles/y_if_alv_tree_control.intf.abap  | 10 ++-
 src/profiles/y_list.clas.abap                 | 21 +++---
 .../y_profile_admin_classes.prog.abap         | 24 ++++++-
 src/profiles/y_profile_administrator.prog.xml | 24 ++-----
 5 files changed, 91 insertions(+), 56 deletions(-)

diff --git a/src/profiles/y_alv_tree_control.clas.abap b/src/profiles/y_alv_tree_control.clas.abap
index ed7e6764..c8872987 100644
--- a/src/profiles/y_alv_tree_control.clas.abap
+++ b/src/profiles/y_alv_tree_control.clas.abap
@@ -1,6 +1,4 @@
-CLASS y_alv_tree_control DEFINITION
-  PUBLIC
-  CREATE PUBLIC .
+CLASS y_alv_tree_control DEFINITION PUBLIC CREATE PUBLIC.
 
   PUBLIC SECTION.
 
@@ -18,18 +16,18 @@ CLASS y_alv_tree_control DEFINITION
         events          TYPE REF TO y_if_alv_events
         event_mode      TYPE i DEFAULT y_if_alv_events=>mode_double_click
       RETURNING
-        VALUE(result) TYPE REF TO y_if_alv_tree_control
+        VALUE(result)   TYPE REF TO y_if_alv_tree_control
       RAISING
         cx_sy_create_data_error
         cx_failed.
 
     METHODS constructor
       IMPORTING
-        type_name       TYPE string
-        sort_table      TYPE lvc_t_sort
-        events          TYPE REF TO y_if_alv_events
-        alv_tree        TYPE REF TO cl_gui_alv_tree_simple
-        alv_header      TYPE slis_t_listheader
+        type_name  TYPE string
+        sort_table TYPE lvc_t_sort
+        events     TYPE REF TO y_if_alv_events
+        alv_tree   TYPE REF TO cl_gui_alv_tree_simple
+        alv_header TYPE slis_t_listheader
       RAISING
         cx_sy_create_data_error
         cx_failed.
@@ -51,7 +49,7 @@ ENDCLASS.
 
 
 
-CLASS y_alv_tree_control IMPLEMENTATION.
+CLASS Y_ALV_TREE_CONTROL IMPLEMENTATION.
 
 
   METHOD autosize_all_fields.
@@ -77,13 +75,14 @@ CLASS y_alv_tree_control IMPLEMENTATION.
 
 
   METHOD create.
-    DATA(docking_container) = NEW cl_gui_docking_container( repid     = sy_repid
-                                                            dynnr     = dynpro_nr
-                                                            side      = docking_side
-                                                            ratio     = ratio ).
+    DATA(docking_container) = NEW cl_gui_docking_container( repid = sy_repid
+                                                            dynnr = dynpro_nr
+                                                            side  = docking_side
+                                                            ratio = ratio ).
 
     DATA(alv_tree) = NEW cl_gui_alv_tree_simple( i_parent         = docking_container
-                                                 i_item_selection = '' ).
+                                                 i_item_selection = abap_false
+                                                 i_no_html_header = abap_true ).
 
     alv_tree->get_toolbar_object( IMPORTING er_toolbar = DATA(alv_toolbar) ).
 
@@ -134,9 +133,9 @@ CLASS y_alv_tree_control IMPLEMENTATION.
     IF sy-subrc EQ 0.
       alv_tree->get_selected_nodes( CHANGING ct_index_outtab = index_table ).
       TRY.
-        result = index_table[ 1 ].
-      CATCH cx_sy_itab_line_not_found.
-        RAISE EXCEPTION TYPE ycx_entry_not_found.
+          result = index_table[ 1 ].
+        CATCH cx_sy_itab_line_not_found.
+          RAISE EXCEPTION TYPE ycx_entry_not_found.
       ENDTRY.
     ENDIF.
   ENDMETHOD.
@@ -154,11 +153,8 @@ CLASS y_alv_tree_control IMPLEMENTATION.
         dp_error                = 2
         failed                  = 3
         error_in_node_key_table = 4
-        others                  = 5
-    ). "#EC OPTL_EXP
-    IF SY-SUBRC <> 0.
-      BREAK-POINT.
-    ENDIF.
+        OTHERS                  = 5
+    ).
   ENDMETHOD.
 
 
@@ -175,7 +171,7 @@ CLASS y_alv_tree_control IMPLEMENTATION.
 
     alv_tree->set_table_for_first_display(
       EXPORTING
-        it_list_commentary = alv_header
+        it_list_commentary   = alv_header
         it_toolbar_excluding = get_excluded_toolbars( )
       CHANGING
         it_sort            = sort
@@ -226,4 +222,28 @@ CLASS y_alv_tree_control IMPLEMENTATION.
   METHOD y_if_alv_tree_control~to_focus.
     cl_gui_control=>set_focus( alv_tree ).
   ENDMETHOD.
+
+
+  METHOD y_if_alv_tree_control~activate_toolbar.
+    LOOP AT y_if_alv_tree_control~toolbar_control( )->m_table_button ASSIGNING FIELD-SYMBOL(<button>).
+      y_if_alv_tree_control~toolbar_control( )->set_button_state( EXPORTING enabled  = abap_true
+                                                                            fcode    = <button>-function
+                                                                  EXCEPTIONS OTHERS  = 4 ).
+      IF sy-subrc NE 0.
+        RAISE EXCEPTION TYPE cx_failed.
+      ENDIF.
+    ENDLOOP.
+  ENDMETHOD.
+
+
+  METHOD y_if_alv_tree_control~deactivate_toolbar.
+    LOOP AT y_if_alv_tree_control~toolbar_control( )->m_table_button ASSIGNING FIELD-SYMBOL(<button>).
+      y_if_alv_tree_control~toolbar_control( )->set_button_state( EXPORTING enabled  = abap_false
+                                                                            fcode    = <button>-function
+                                                                  EXCEPTIONS OTHERS  = 4 ).
+      IF sy-subrc NE 0.
+        RAISE EXCEPTION TYPE cx_failed.
+      ENDIF.
+    ENDLOOP.
+  ENDMETHOD.
 ENDCLASS.
diff --git a/src/profiles/y_if_alv_tree_control.intf.abap b/src/profiles/y_if_alv_tree_control.intf.abap
index f54537a1..962d08a9 100644
--- a/src/profiles/y_if_alv_tree_control.intf.abap
+++ b/src/profiles/y_if_alv_tree_control.intf.abap
@@ -22,11 +22,11 @@ INTERFACE y_if_alv_tree_control
 
   METHODS get_selected_line
     RETURNING VALUE(result) TYPE REF TO data
-    RAISING ycx_entry_not_found.
+    RAISING   ycx_entry_not_found.
 
   METHODS get_selected_index
     RETURNING VALUE(result) TYPE i
-    RAISING ycx_entry_not_found.
+    RAISING   ycx_entry_not_found.
 
   METHODS set_selected_index
     IMPORTING index TYPE i.
@@ -34,4 +34,10 @@ INTERFACE y_if_alv_tree_control
   METHODS toolbar_control
     RETURNING VALUE(result) TYPE REF TO cl_gui_toolbar
     RAISING   cx_failed.
+
+  METHODS activate_toolbar
+    RAISING cx_failed.
+
+  METHODS deactivate_toolbar
+    RAISING cx_failed.
 ENDINTERFACE.
diff --git a/src/profiles/y_list.clas.abap b/src/profiles/y_list.clas.abap
index 83f6d288..4701b481 100644
--- a/src/profiles/y_list.clas.abap
+++ b/src/profiles/y_list.clas.abap
@@ -1,16 +1,16 @@
-class Y_LIST definition
-  public
-  create public .
+CLASS y_list DEFINITION
+  PUBLIC
+  CREATE PUBLIC .
 
-public section.
+  PUBLIC SECTION.
 
-  interfaces Y_IF_LIST .
+    INTERFACES y_if_list .
 
-  methods CONSTRUCTOR
-    importing
-      !TYPE_NAME type STRING
-    raising
-      CX_SY_CREATE_DATA_ERROR .
+    METHODS constructor
+      IMPORTING
+        !type_name TYPE string
+      RAISING
+        cx_sy_create_data_error .
   PROTECTED SECTION.
   PRIVATE SECTION.
 
@@ -126,6 +126,7 @@ CLASS Y_LIST IMPLEMENTATION.
     UNASSIGN <table>.
   ENDMETHOD.
 
+
   METHOD y_if_list~get_line_index.
     FIELD-SYMBOLS: <table> TYPE STANDARD TABLE.
     ASSIGN table_component->* TO <table>.
diff --git a/src/profiles/y_profile_admin_classes.prog.abap b/src/profiles/y_profile_admin_classes.prog.abap
index cce15743..d234d704 100644
--- a/src/profiles/y_profile_admin_classes.prog.abap
+++ b/src/profiles/y_profile_admin_classes.prog.abap
@@ -180,6 +180,9 @@ CLASS lcl_util DEFINITION.                          "#EC NUMBER_METHODS
         RETURNING VALUE(result) TYPE ytab_checks
         RAISING   ycx_entry_not_found.
 
+    CLASS-METHODS switch_toolbar_activation
+      RAISING cx_failed.
+
     CLASS-METHODS:
       call_f4help
         IMPORTING referenced_field_name TYPE dfies-fieldname
@@ -287,6 +290,10 @@ CLASS lcl_profile_events IMPLEMENTATION.
   METHOD y_if_alv_events~handle_selection_changed.
     lcl_util=>refresh_checks( ).
     lcl_util=>refresh_delegates( ).
+    TRY.
+        lcl_util=>switch_toolbar_activation( ).
+      CATCH cx_failed.
+    ENDTRY.
   ENDMETHOD.
 
   METHOD y_if_alv_events~handle_function_selected.
@@ -419,7 +426,7 @@ CLASS lcl_util IMPLEMENTATION.
         profiles_tree = y_alv_tree_control=>create( alv_header_text = 'Profiles'(002)
                                                     dynpro_nr       = '0100'
                                                     docking_side    = cl_gui_docking_container=>align_at_left
-                                                    ratio           = 16
+                                                    ratio           = 21
                                                     type_name       = profile_manager->get_profiles_type_name( )
                                                     sort_table      = VALUE lvc_t_sort( ( spos = 1 fieldname = 'USERNAME' up = abap_true )
                                                                                         ( spos = 2 fieldname = 'PROFILE' up = abap_true ) )
@@ -544,6 +551,8 @@ CLASS lcl_util IMPLEMENTATION.
 
         checks_tree->init_display( ).
 
+        checks_tree->deactivate_toolbar( ).
+
       CATCH cx_failed
             cx_sy_create_data_error.
         LEAVE TO SCREEN 0.
@@ -581,6 +590,8 @@ CLASS lcl_util IMPLEMENTATION.
 
         delegates_tree->init_display( ).
 
+        delegates_tree->deactivate_toolbar( ).
+
       CATCH cx_failed
             cx_sy_create_data_error.
         LEAVE TO SCREEN 0.
@@ -642,6 +653,17 @@ CLASS lcl_util IMPLEMENTATION.
     UNASSIGN <line>.
   ENDMETHOD.
 
+  METHOD switch_toolbar_activation.
+    TRY.
+        get_selected_profile( ).
+        checks_tree->activate_toolbar( ).
+        delegates_tree->activate_toolbar( ).
+      CATCH ycx_entry_not_found.
+        checks_tree->deactivate_toolbar( ).
+        delegates_tree->deactivate_toolbar( ).
+    ENDTRY.
+  ENDMETHOD.
+
   METHOD refresh_checks.
     CHECK checks_tree IS BOUND.
     TRY.
diff --git a/src/profiles/y_profile_administrator.prog.xml b/src/profiles/y_profile_administrator.prog.xml
index b093d337..ff3ff103 100644
--- a/src/profiles/y_profile_administrator.prog.xml
+++ b/src/profiles/y_profile_administrator.prog.xml
@@ -326,7 +326,7 @@
        <CONT_NAME>SCREEN</CONT_NAME>
        <TYPE>TEXT</TYPE>
        <NAME>LBL_TEXT_START_DATE</NAME>
-       <TEXT>*Validity_Period:________________</TEXT>
+       <TEXT>*Validity_Period___________FROM:_</TEXT>
        <LINE>003</LINE>
        <COLUMN>001</COLUMN>
        <LENGTH>033</LENGTH>
@@ -358,7 +358,7 @@
        <CONT_NAME>SCREEN</CONT_NAME>
        <TYPE>TEXT</TYPE>
        <NAME>LBL_TEXT_END_DATE</NAME>
-       <TEXT>*TO</TEXT>
+       <TEXT>TO:</TEXT>
        <LINE>003</LINE>
        <COLUMN>046</COLUMN>
        <LENGTH>003</LENGTH>
@@ -444,7 +444,7 @@
        <LENGTH>001</LENGTH>
        <VISLENGTH>010</VISLENGTH>
        <HEIGHT>001</HEIGHT>
-       <FORMAT>CHAR</FORMAT>
+       <FORMAT>CUKY</FORMAT>
        <INPUT_FLD>X</INPUT_FLD>
        <OUTPUT_FLD>X</OUTPUT_FLD>
        <REQU_ENTRY>O</REQU_ENTRY>
@@ -484,7 +484,7 @@
        <CONT_NAME>SCREEN</CONT_NAME>
        <TYPE>TEXT</TYPE>
        <NAME>LBL_ON_PRODCODE</NAME>
-       <TEXT>Apply_on_Productive_Code_________</TEXT>
+       <TEXT>Apply_on_Productive_Code:________</TEXT>
        <LINE>007</LINE>
        <COLUMN>001</COLUMN>
        <LENGTH>033</LENGTH>
@@ -513,7 +513,7 @@
        <CONT_NAME>SCREEN</CONT_NAME>
        <TYPE>TEXT</TYPE>
        <NAME>LBL_ON_TESTCODE</NAME>
-       <TEXT>Apply_on_Testcode________________</TEXT>
+       <TEXT>Apply_on_Testcode:_______________</TEXT>
        <LINE>008</LINE>
        <COLUMN>001</COLUMN>
        <LENGTH>033</LENGTH>
@@ -836,48 +836,36 @@
       <CODE>ENTR_200</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_OKAY</TEXT_NAME>
-      <ICON_ID>@0V@</ICON_ID>
       <FUN_TEXT>Ok</FUN_TEXT>
      </RSMPE_FUNT>
      <RSMPE_FUNT>
       <CODE>ENTR_300</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_OKAY</TEXT_NAME>
-      <ICON_ID>@0V@</ICON_ID>
       <FUN_TEXT>Ok</FUN_TEXT>
      </RSMPE_FUNT>
      <RSMPE_FUNT>
       <CODE>ENTR_400</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_OKAY</TEXT_NAME>
-      <ICON_ID>@0V@</ICON_ID>
       <FUN_TEXT>Ok</FUN_TEXT>
      </RSMPE_FUNT>
      <RSMPE_FUNT>
       <CODE>ENTR_500</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_OKAY</TEXT_NAME>
-      <ICON_ID>@0V@</ICON_ID>
       <FUN_TEXT>Ok</FUN_TEXT>
      </RSMPE_FUNT>
      <RSMPE_FUNT>
       <CODE>ENTR_600</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_OKAY</TEXT_NAME>
-      <ICON_ID>@0V@</ICON_ID>
       <FUN_TEXT>Ok</FUN_TEXT>
      </RSMPE_FUNT>
      <RSMPE_FUNT>
       <CODE>ESC</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_CANCEL</TEXT_NAME>
-      <ICON_ID>@0W@</ICON_ID>
       <FUN_TEXT>Cancel</FUN_TEXT>
      </RSMPE_FUNT>
      <RSMPE_FUNT>
@@ -890,8 +878,6 @@
       <CODE>PICK</CODE>
       <TEXTNO>001</TEXTNO>
       <TEXT_TYPE>S</TEXT_TYPE>
-      <TEXT_NAME>ICON_CHANGE</TEXT_NAME>
-      <ICON_ID>@0Z@</ICON_ID>
       <FUN_TEXT>Choose</FUN_TEXT>
       <PATH>S</PATH>
      </RSMPE_FUNT>

From ea6ea0b0777dd3ade94df81984aaf4b855baaeb6 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Mon, 25 Jan 2021 09:59:52 -0300
Subject: [PATCH 07/15] Update changelog.txt

---
 changelog.txt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/changelog.txt b/changelog.txt
index 176bd11d..c795703b 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -15,6 +15,7 @@ Whenever you upgrade code pal for ABAP, it is highly recommended to execute the
 2021-01-XX v1.12.0
 ------------------
 - RFC Disabled (#305)
+* Profile Tool - UX Refinement (#313)
 
 2021-01-22 v1.11.1
 ------------------

From 377bdea167124298fc30b2ff1af22f49a33eea22 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Mon, 25 Jan 2021 10:00:06 -0300
Subject: [PATCH 08/15] Update changelog.txt

---
 changelog.txt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/changelog.txt b/changelog.txt
index c795703b..b41fcea3 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -14,8 +14,8 @@ Whenever you upgrade code pal for ABAP, it is highly recommended to execute the
 
 2021-01-XX v1.12.0
 ------------------
-- RFC Disabled (#305)
 * Profile Tool - UX Refinement (#313)
+- RFC Disabled (#305)
 
 2021-01-22 v1.11.1
 ------------------

From c2c328d69cd75423679b2f6c8e88c47bcfce8ce2 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Tue, 2 Feb 2021 16:22:41 -0300
Subject: [PATCH 09/15] Performance (#317)

* buffer size

* fixing dump when object is not supported by sci

* solving dump when ref scan is not set

* Update y_ref_scan_manager.clas.abap
---
 src/foundation/y_code_pal_app_comp.clas.abap |  8 +++++++-
 src/foundation/y_code_pal_buffer.clas.abap   |  8 ++++++++
 src/foundation/y_ref_scan_manager.clas.abap  | 14 ++++++++------
 3 files changed, 23 insertions(+), 7 deletions(-)

diff --git a/src/foundation/y_code_pal_app_comp.clas.abap b/src/foundation/y_code_pal_app_comp.clas.abap
index 69f9b7c6..209a55cb 100644
--- a/src/foundation/y_code_pal_app_comp.clas.abap
+++ b/src/foundation/y_code_pal_app_comp.clas.abap
@@ -13,6 +13,8 @@ CLASS y_code_pal_app_comp DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC.
                       RAISING ycx_entry_not_found.
 
   PRIVATE SECTION.
+    CONSTANTS max_entries TYPE i VALUE 50.
+
     CLASS-DATA buffer TYPE entries.
 
     CLASS-METHODS get_entry IMPORTING program       TYPE entry-program
@@ -46,6 +48,10 @@ CLASS y_code_pal_app_comp IMPLEMENTATION.
 
 
   METHOD new_entry.
+    IF lines( buffer ) > max_entries.
+      DELETE buffer FROM 1 TO max_entries / 2.
+    ENDIF.
+
     SELECT SINGLE ta~obj_name, df~ps_posid
     FROM tadir AS ta
     LEFT JOIN tdevc AS td ON ta~devclass = td~devclass
@@ -53,7 +59,7 @@ CLASS y_code_pal_app_comp IMPLEMENTATION.
     INTO @result
     WHERE ta~pgmid = 'R3TR'
     AND ta~object = 'PROG'
-    AND  ta~obj_name = @program.
+    AND ta~obj_name = @program.
 
     IF sy-subrc <> 0.
       RAISE EXCEPTION TYPE ycx_entry_not_found.
diff --git a/src/foundation/y_code_pal_buffer.clas.abap b/src/foundation/y_code_pal_buffer.clas.abap
index 38613ce2..6ed0f8fa 100644
--- a/src/foundation/y_code_pal_buffer.clas.abap
+++ b/src/foundation/y_code_pal_buffer.clas.abap
@@ -4,11 +4,15 @@ CLASS y_code_pal_buffer DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC.
     ALIASES get FOR y_if_code_pal_buffer~get.
     ALIASES modify FOR y_if_code_pal_buffer~modify.
     ALIASES entry FOR y_if_code_pal_buffer~entry.
+
   PROTECTED SECTION.
     CLASS-METHODS update IMPORTING entry TYPE entry RAISING cx_sy_itab_line_not_found.
     CLASS-METHODS insert IMPORTING entry TYPE entry.
+
   PRIVATE SECTION.
+    CONSTANTS max_entries TYPE i VALUE 100.
     CLASS-DATA internal TYPE y_if_code_pal_buffer~entries.
+
 ENDCLASS.
 
 
@@ -21,6 +25,10 @@ CLASS y_code_pal_buffer IMPLEMENTATION.
   ENDMETHOD.
 
   METHOD insert.
+    IF lines( internal ) > max_entries.
+      DELETE internal FROM 1 TO max_entries / 2.
+    ENDIF.
+
     internal = VALUE #( BASE internal
                       ( CORRESPONDING #( entry ) ) ).
     ASSERT sy-subrc = 0.
diff --git a/src/foundation/y_ref_scan_manager.clas.abap b/src/foundation/y_ref_scan_manager.clas.abap
index ac14c192..faa6c0b9 100644
--- a/src/foundation/y_ref_scan_manager.clas.abap
+++ b/src/foundation/y_ref_scan_manager.clas.abap
@@ -7,6 +7,8 @@ CLASS y_ref_scan_manager DEFINITION PUBLIC CREATE PUBLIC.
 
 ENDCLASS.
 
+
+
 CLASS y_ref_scan_manager IMPLEMENTATION.
 
 
@@ -20,11 +22,11 @@ CLASS y_ref_scan_manager IMPLEMENTATION.
   METHOD y_if_scan_manager~set_ref_scan.
     ref_scan = io_ref_scan.
 
-    y_if_scan_manager~levels = ref_scan->levels.
-    y_if_scan_manager~structures = ref_scan->structures.
-    y_if_scan_manager~statements = ref_scan->statements.
-    y_if_scan_manager~tokens = ref_scan->tokens.
+    IF ref_scan IS BOUND.
+      y_if_scan_manager~levels = ref_scan->levels.
+      y_if_scan_manager~structures = ref_scan->structures.
+      y_if_scan_manager~statements = ref_scan->statements.
+      y_if_scan_manager~tokens = ref_scan->tokens.
+    ENDIF.
   ENDMETHOD.
-
-
 ENDCLASS.

From 52c38897ce474e3a6589213f7b74f5bd6e078ba8 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Tue, 2 Feb 2021 22:23:02 +0300
Subject: [PATCH 10/15] Update changelog.txt

---
 changelog.txt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/changelog.txt b/changelog.txt
index b41fcea3..9e2c7734 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -14,6 +14,7 @@ Whenever you upgrade code pal for ABAP, it is highly recommended to execute the
 
 2021-01-XX v1.12.0
 ------------------
+* Performance Issues (#317)
 * Profile Tool - UX Refinement (#313)
 - RFC Disabled (#305)
 

From f4714926ae6da448fa2edb751940098383b6fe86 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Tue, 2 Feb 2021 16:53:01 -0300
Subject: [PATCH 11/15] removing shared memory (#319)

---
 src/foundation/y_code_pal_buffer.clas.abap    | 2 +-
 src/foundation/y_code_pal_buffer.clas.xml     | 1 -
 src/foundation/y_code_pal_sorter.clas.abap    | 2 +-
 src/foundation/y_code_pal_sorter.clas.xml     | 1 -
 src/foundation/y_unit_test_coverage.clas.abap | 2 +-
 src/foundation/y_unit_test_coverage.clas.xml  | 1 -
 6 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/src/foundation/y_code_pal_buffer.clas.abap b/src/foundation/y_code_pal_buffer.clas.abap
index 6ed0f8fa..dba503a9 100644
--- a/src/foundation/y_code_pal_buffer.clas.abap
+++ b/src/foundation/y_code_pal_buffer.clas.abap
@@ -1,4 +1,4 @@
-CLASS y_code_pal_buffer DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC.
+CLASS y_code_pal_buffer DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
     INTERFACES y_if_code_pal_buffer.
     ALIASES get FOR y_if_code_pal_buffer~get.
diff --git a/src/foundation/y_code_pal_buffer.clas.xml b/src/foundation/y_code_pal_buffer.clas.xml
index a930cbee..0c419060 100644
--- a/src/foundation/y_code_pal_buffer.clas.xml
+++ b/src/foundation/y_code_pal_buffer.clas.xml
@@ -10,7 +10,6 @@
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
-    <CLSSHAREDMEMORY>X</CLSSHAREDMEMORY>
    </VSEOCLASS>
   </asx:values>
  </asx:abap>
diff --git a/src/foundation/y_code_pal_sorter.clas.abap b/src/foundation/y_code_pal_sorter.clas.abap
index c38fde97..961c04bd 100644
--- a/src/foundation/y_code_pal_sorter.clas.abap
+++ b/src/foundation/y_code_pal_sorter.clas.abap
@@ -1,4 +1,4 @@
-CLASS y_code_pal_sorter DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC.
+CLASS y_code_pal_sorter DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
     INTERFACES y_if_code_pal_sorter.
     ALIASES get_position FOR y_if_code_pal_sorter~get_position.
diff --git a/src/foundation/y_code_pal_sorter.clas.xml b/src/foundation/y_code_pal_sorter.clas.xml
index 1574366b..10ab6fec 100644
--- a/src/foundation/y_code_pal_sorter.clas.xml
+++ b/src/foundation/y_code_pal_sorter.clas.xml
@@ -10,7 +10,6 @@
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
-    <CLSSHAREDMEMORY>X</CLSSHAREDMEMORY>
    </VSEOCLASS>
   </asx:values>
  </asx:abap>
diff --git a/src/foundation/y_unit_test_coverage.clas.abap b/src/foundation/y_unit_test_coverage.clas.abap
index bb868c50..23930675 100644
--- a/src/foundation/y_unit_test_coverage.clas.abap
+++ b/src/foundation/y_unit_test_coverage.clas.abap
@@ -1,4 +1,4 @@
-CLASS y_unit_test_coverage DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC .
+CLASS y_unit_test_coverage DEFINITION PUBLIC CREATE PUBLIC .
   PUBLIC SECTION.
     CLASS-METHODS get IMPORTING program_name  TYPE programm
                                 object        TYPE cl_aucv_task=>ty_object_directory_element
diff --git a/src/foundation/y_unit_test_coverage.clas.xml b/src/foundation/y_unit_test_coverage.clas.xml
index 61995105..61c66d52 100644
--- a/src/foundation/y_unit_test_coverage.clas.xml
+++ b/src/foundation/y_unit_test_coverage.clas.xml
@@ -10,7 +10,6 @@
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
-    <CLSSHAREDMEMORY>X</CLSSHAREDMEMORY>
    </VSEOCLASS>
   </asx:values>
  </asx:abap>

From bcc6f7dbf38df28ed748c7090a5395171b8bebcc Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Tue, 2 Feb 2021 22:53:21 +0300
Subject: [PATCH 12/15] Update changelog.txt

---
 changelog.txt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/changelog.txt b/changelog.txt
index 9e2c7734..165cf2a1 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -14,6 +14,7 @@ Whenever you upgrade code pal for ABAP, it is highly recommended to execute the
 
 2021-01-XX v1.12.0
 ------------------
+- Shared Memory (#319)
 * Performance Issues (#317)
 * Profile Tool - UX Refinement (#313)
 - RFC Disabled (#305)

From edc36a0928138dfc873809f124b77375b9d4d3c3 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Fri, 5 Feb 2021 13:41:45 -0300
Subject: [PATCH 13/15] Performance Improvements (#318)

* moving application component valid. to ref_scan

* wip

* changing validation sequence

* fixing minor bug

* fixing bug

* refactoring former buffer

* syntax error

* fixing ut

* fixing unit test base

* abaplint hint
---
 src/checks/y_check_db_access_in_ut.clas.abap  |   5 -
 .../y_check_function.clas.testclasses.abap    |   4 +-
 src/foundation/y_check_base.clas.abap         |  81 +++---
 .../y_check_base.clas.locals_imp.abap         |   2 +
 src/foundation/y_clean_code_manager.clas.abap |  20 +-
 src/foundation/y_code_pal_app_comp.clas.abap  |  54 ++--
 src/foundation/y_code_pal_app_comp.clas.xml   |   1 -
 src/foundation/y_code_pal_buffer.clas.abap    |  50 ----
 src/foundation/y_code_pal_buffer.clas.xml     |  16 --
 .../y_exemption_dispatcher.clas.abap          |  94 -------
 .../y_exemption_dispatcher.clas.xml           |  16 --
 src/foundation/y_exemption_general.clas.abap  |  30 +-
 src/foundation/y_exemption_handler.clas.abap  |  61 ++--
 src/foundation/y_exemption_of_class.clas.abap | 121 +++-----
 .../y_exemption_of_function_group.clas.abap   |  57 +---
 .../y_exemption_of_program.clas.abap          |  80 ++----
 src/foundation/y_if_code_pal_buffer.intf.abap |  20 --
 src/foundation/y_if_exemption.intf.abap       |   8 +-
 .../y_if_exemption_dispatcher.intf.abap       |  14 -
 .../y_if_exemption_dispatcher.intf.xml        |  15 -
 .../y_if_exemption_of_object.intf.abap        |   6 +
 ....xml => y_if_exemption_of_object.intf.xml} |   4 +-
 .../y_if_exemption_of_objects.intf.abap       |   8 -
 .../y_if_exemption_of_objects.intf.xml        |  15 -
 .../y_if_object_creation_date.intf.abap       |  15 -
 .../y_if_object_creation_date.intf.xml        |  15 -
 .../y_object_creation_date.clas.abap          | 263 ++++++++----------
 src/foundation/y_ref_scan_manager.clas.abap   |  16 +-
 src/foundation/y_unit_test_base.clas.abap     |   2 +
 .../y_unit_test_base.clas.locals_imp.abap     |  16 ++
 30 files changed, 354 insertions(+), 755 deletions(-)
 delete mode 100644 src/foundation/y_code_pal_buffer.clas.abap
 delete mode 100644 src/foundation/y_code_pal_buffer.clas.xml
 delete mode 100644 src/foundation/y_exemption_dispatcher.clas.abap
 delete mode 100644 src/foundation/y_exemption_dispatcher.clas.xml
 delete mode 100644 src/foundation/y_if_code_pal_buffer.intf.abap
 delete mode 100644 src/foundation/y_if_exemption_dispatcher.intf.abap
 delete mode 100644 src/foundation/y_if_exemption_dispatcher.intf.xml
 create mode 100644 src/foundation/y_if_exemption_of_object.intf.abap
 rename src/foundation/{y_if_code_pal_buffer.intf.xml => y_if_exemption_of_object.intf.xml} (81%)
 delete mode 100644 src/foundation/y_if_exemption_of_objects.intf.abap
 delete mode 100644 src/foundation/y_if_exemption_of_objects.intf.xml
 delete mode 100644 src/foundation/y_if_object_creation_date.intf.abap
 delete mode 100644 src/foundation/y_if_object_creation_date.intf.xml
 create mode 100644 src/foundation/y_unit_test_base.clas.locals_imp.abap

diff --git a/src/checks/y_check_db_access_in_ut.clas.abap b/src/checks/y_check_db_access_in_ut.clas.abap
index 6dc105bb..0df6aea6 100644
--- a/src/checks/y_check_db_access_in_ut.clas.abap
+++ b/src/checks/y_check_db_access_in_ut.clas.abap
@@ -121,11 +121,6 @@ CLASS y_check_db_access_in_ut IMPLEMENTATION.
 
     LOOP AT ref_scan_manager->statements ASSIGNING FIELD-SYMBOL(<statement>)
     FROM class_definition-stmnt_from TO class_definition-stmnt_to.
-
-      IF is_in_scope( <statement> ) = abap_false.
-        CONTINUE.
-      ENDIF.
-
       DATA(tokens) = consolidade_tokens( <statement> ).
 
       test_risk_level = COND #( WHEN tokens CS 'RISK LEVEL HARMLESS'  THEN risk_level_harmless
diff --git a/src/checks/y_check_function.clas.testclasses.abap b/src/checks/y_check_function.clas.testclasses.abap
index 5ea2ce08..70335711 100644
--- a/src/checks/y_check_function.clas.testclasses.abap
+++ b/src/checks/y_check_function.clas.testclasses.abap
@@ -67,9 +67,9 @@ CLASS ltd_ref_scan_manager IMPLEMENTATION.
   ENDMETHOD.
 ENDCLASS.
 
-CLASS ltd_clean_code_exemption_no DEFINITION FOR TESTING INHERITING FROM y_exemption_handler.
+CLASS ltd_clean_code_exemption_no DEFINITION FOR TESTING.
   PUBLIC SECTION.
-    METHODS y_if_exemption~is_object_exempted REDEFINITION.
+    INTERFACES y_if_exemption.
 ENDCLASS.
 
 CLASS ltd_clean_code_exemption_no IMPLEMENTATION.
diff --git a/src/foundation/y_check_base.clas.abap b/src/foundation/y_check_base.clas.abap
index a0bba4b7..0e0dfc99 100644
--- a/src/foundation/y_check_base.clas.abap
+++ b/src/foundation/y_check_base.clas.abap
@@ -120,8 +120,6 @@ CLASS y_check_base DEFINITION PUBLIC ABSTRACT
     METHODS keyword REDEFINITION.
     METHODS set_check_message IMPORTING message TYPE itex132.
     METHODS get_class_description  RETURNING VALUE(result) TYPE string.
-    METHODS is_in_scope IMPORTING statement     TYPE sstmnt
-                        RETURNING VALUE(result) TYPE abap_bool.
 
   PRIVATE SECTION.
     METHODS do_attributes_exist  RETURNING VALUE(result) TYPE abap_bool.
@@ -143,7 +141,7 @@ CLASS y_check_base DEFINITION PUBLIC ABSTRACT
     METHODS should_skip_test_code IMPORTING structure     TYPE sstruc
                                   RETURNING VALUE(result) TYPE abap_bool.
 
-    METHODS should_skip_type IMPORTING structure TYPE sstruc
+    METHODS should_skip_type IMPORTING structure     TYPE sstruc
                              RETURNING VALUE(result) TYPE abap_bool.
 
     METHODS is_statement_type_relevant IMPORTING structure     TYPE sstruc
@@ -152,11 +150,6 @@ CLASS y_check_base DEFINITION PUBLIC ABSTRACT
     METHODS is_structure_type_relevant IMPORTING structure     TYPE sstruc
                                        RETURNING VALUE(result) TYPE abap_bool.
 
-
-
-    METHODS get_application_component IMPORTING level         TYPE slevel
-                                      RETURNING VALUE(result) TYPE df14l-ps_posid.
-
 ENDCLASS.
 
 
@@ -168,10 +161,6 @@ CLASS y_check_base IMPLEMENTATION.
     IF ref_scan_manager->is_scan_ok( ) = abap_false.
       RAISE EXCEPTION TYPE ycx_object_not_processed.
     ENDIF.
-
-    IF clean_code_exemption_handler->is_object_exempted( object_name = object_name object_type = object_type ) = abap_true.
-      RAISE EXCEPTION TYPE ycx_object_is_exempted.
-    ENDIF.
   ENDMETHOD.
 
 
@@ -208,9 +197,18 @@ CLASS y_check_base IMPLEMENTATION.
 
 
   METHOD detect_check_configuration.
+    DATA tadir_keys TYPE tadir.
 
-    DATA(include) = get_include( p_level = statement-level ).
-    DATA(creation_date) =  NEW y_object_creation_date( )->y_if_object_creation_date~get_program_create_date( include ).
+    DATA(level) = ref_scan_manager->levels[ statement-level ].
+
+    CALL FUNCTION 'TR_TRANSFORM_TRDIR_TO_TADIR'
+      EXPORTING
+        iv_trdir_name = level-name
+      IMPORTING
+        es_tadir_keys = tadir_keys.
+
+    DATA(creation_date) = clean_code_manager->calculate_obj_creation_date( object_type = tadir_keys-object
+                                                                           object_name = tadir_keys-obj_name  ).
 
     LOOP AT check_configurations ASSIGNING FIELD-SYMBOL(<configuration>)
     WHERE object_creation_date <= creation_date.
@@ -247,8 +245,8 @@ CLASS y_check_base IMPLEMENTATION.
 
   METHOD inspect_structures.
     LOOP AT ref_scan_manager->structures ASSIGNING FIELD-SYMBOL(<structure>).
-      IF should_skip_test_code( <structure> ) = abap_true
-      OR should_skip_type( <structure> ) = abap_true.
+      IF should_skip_type( <structure> ) = abap_true
+      OR should_skip_test_code( <structure> ) = abap_true.
         CONTINUE.
       ENDIF.
 
@@ -263,10 +261,6 @@ CLASS y_check_base IMPLEMENTATION.
     LOOP AT ref_scan_manager->statements ASSIGNING FIELD-SYMBOL(<statement>)
     FROM structure-stmnt_from
     TO structure-stmnt_to.
-      IF is_in_scope( <statement> ) = abap_false.
-        CONTINUE.
-      ENDIF.
-
       inspect_tokens( index = index
                       structure = structure
                       statement = <statement> ).
@@ -584,7 +578,7 @@ CLASS y_check_base IMPLEMENTATION.
     ENDIF.
 
     IF clean_code_exemption_handler IS NOT BOUND.
-      clean_code_exemption_handler = y_exemption_handler=>create( ).
+      clean_code_exemption_handler = new y_exemption_handler( ).
     ENDIF.
 
     IF test_code_detector IS NOT BOUND.
@@ -634,6 +628,21 @@ CLASS y_check_base IMPLEMENTATION.
 
 
   METHOD raise_error.
+    IF clean_code_exemption_handler->is_object_exempted( object_name = object_name object_type = object_type ) = abap_true.
+      RETURN.
+    ENDIF.
+
+    TRY.
+        DATA(main_app_comp) = y_code_pal_app_comp=>get( ref_scan_manager->levels[ level = 0 ] ).
+        DATA(curr_app_comp) = y_code_pal_app_comp=>get( ref_scan_manager->levels[ statement_level ] ).
+
+        IF main_app_comp <> curr_app_comp.
+          RETURN.
+        ENDIF.
+      CATCH cx_sy_itab_line_not_found
+            ycx_entry_not_found.
+    ENDTRY.
+
     statistics->collect( kind = error_priority
                          pc = NEW y_pseudo_comment_detector( )->is_pseudo_comment( ref_scan_manager = ref_scan_manager
                                                                                    scimessages      = scimessages
@@ -641,6 +650,7 @@ CLASS y_check_base IMPLEMENTATION.
                                                                                    code             = get_code( error_priority )
                                                                                    suppress         = settings-pseudo_comment
                                                                                    position         = statement_index ) ).
+
     IF cl_abap_typedescr=>describe_by_object_ref( ref_scan_manager )->get_relative_name( ) EQ 'Y_REF_SCAN_MANAGER'.
       inform( p_sub_obj_type = object_type
               p_sub_obj_name = get_include( p_level = statement_level )
@@ -662,7 +672,6 @@ CLASS y_check_base IMPLEMENTATION.
               p_comments = pseudo_comments ).
     ENDIF.
 
-
   ENDMETHOD.
 
 
@@ -775,32 +784,4 @@ CLASS y_check_base IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD is_in_scope.
-    TRY.
-        DATA(main_level) = ref_scan_manager->levels[ level = 0 ].
-        DATA(main_application_component) = get_application_component( main_level ).
-      CATCH cx_sy_itab_line_not_found.
-        RETURN.
-    ENDTRY.
-
-    TRY.
-        DATA(current_level) = ref_scan_manager->levels[ statement-level ].
-        DATA(current_application_component) = get_application_component( current_level ).
-      CATCH cx_sy_itab_line_not_found.
-        RETURN.
-    ENDTRY.
-
-    result = xsdbool( current_application_component = main_application_component ).
-  ENDMETHOD.
-
-
-  METHOD get_application_component.
-    TRY.
-        result = y_code_pal_app_comp=>get( level-name ).
-      CATCH ycx_entry_not_found.
-        RETURN.
-    ENDTRY.
-  ENDMETHOD.
-
-
 ENDCLASS.
diff --git a/src/foundation/y_check_base.clas.locals_imp.abap b/src/foundation/y_check_base.clas.locals_imp.abap
index 054e5483..acebe7de 100644
--- a/src/foundation/y_check_base.clas.locals_imp.abap
+++ b/src/foundation/y_check_base.clas.locals_imp.abap
@@ -35,6 +35,8 @@ CLASS ltd_check_base IMPLEMENTATION.
   METHOD constructor.
     super->constructor( ).
     ref_scan_manager = NEW ltd_ref_scan_manager( ).
+    ref_scan_manager->set_ref_scan( VALUE #( ) ).
+    clean_code_manager = NEW y_clean_code_manager_double( me ).
   ENDMETHOD.
 
 
diff --git a/src/foundation/y_clean_code_manager.clas.abap b/src/foundation/y_clean_code_manager.clas.abap
index daab6794..2cda64ef 100644
--- a/src/foundation/y_clean_code_manager.clas.abap
+++ b/src/foundation/y_clean_code_manager.clas.abap
@@ -3,11 +3,11 @@ CLASS y_clean_code_manager DEFINITION PUBLIC CREATE PUBLIC.
     INTERFACES y_if_clean_code_manager.
     ALIASES calculate_obj_creation_date FOR y_if_clean_code_manager~calculate_obj_creation_date.
     ALIASES read_check_customizing FOR y_if_clean_code_manager~read_check_customizing.
-  PROTECTED SECTION.
+
   PRIVATE SECTION.
-    DATA object_creation_date TYPE REF TO y_if_object_creation_date.
     METHODS determine_profiles RETURNING VALUE(result) TYPE string_table
                                RAISING ycx_no_check_customizing.
+
     METHODS determine_checks IMPORTING profile TYPE ycicc_profile
                                        checkid TYPE seoclsname
                              RETURNING VALUE(result) TYPE y_if_clean_code_manager=>check_configurations
@@ -76,20 +76,8 @@ CLASS y_clean_code_manager IMPLEMENTATION.
 
 
   METHOD calculate_obj_creation_date.
-    IF object_creation_date IS NOT BOUND.
-      object_creation_date = NEW y_object_creation_date( ).
-    ENDIF.
-    CASE object_type.
-      WHEN 'INTF'.
-        result = object_creation_date->get_interface_create_date( object_name ).
-      WHEN 'CLAS'.
-        result = object_creation_date->get_class_create_date( object_name ).
-      WHEN 'FUGR'.
-        result = object_creation_date->get_function_group_create_date( object_name ).
-      WHEN 'PROG'.
-        result = object_creation_date->get_program_create_date( object_name ).
-      WHEN OTHERS.
-    ENDCASE.
+    result = y_object_creation_date=>get_created_on( object_type = object_type
+                                                     object_name = object_name ).
   ENDMETHOD.
 
 
diff --git a/src/foundation/y_code_pal_app_comp.clas.abap b/src/foundation/y_code_pal_app_comp.clas.abap
index 209a55cb..ee9e38c6 100644
--- a/src/foundation/y_code_pal_app_comp.clas.abap
+++ b/src/foundation/y_code_pal_app_comp.clas.abap
@@ -1,14 +1,14 @@
-CLASS y_code_pal_app_comp DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC.
+CLASS y_code_pal_app_comp DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
 
     TYPES: BEGIN OF entry,
-             program               TYPE tadir-obj_name,
-             application_component TYPE df14l-ps_posid,
+             level TYPE slevel,
+             application_component TYPE tdevc-component,
            END OF entry.
 
     TYPES entries TYPE TABLE OF entry.
 
-    CLASS-METHODS get IMPORTING program       TYPE entry-program
+    CLASS-METHODS get IMPORTING level         TYPE entry-level
                       RETURNING VALUE(result) TYPE entry-application_component
                       RAISING ycx_entry_not_found.
 
@@ -17,13 +17,9 @@ CLASS y_code_pal_app_comp DEFINITION SHARED MEMORY ENABLED PUBLIC CREATE PUBLIC.
 
     CLASS-DATA buffer TYPE entries.
 
-    CLASS-METHODS get_entry IMPORTING program       TYPE entry-program
-                            RETURNING VALUE(result) TYPE entry
-                            RAISING ycx_entry_not_found.
-
-    CLASS-METHODS new_entry IMPORTING program       TYPE entry-program
-                            RETURNING VALUE(result) TYPE entry
-                            RAISING ycx_entry_not_found.
+    CLASS-METHODS new IMPORTING level         TYPE entry-level
+                      RETURNING VALUE(result) TYPE entry
+                      RAISING ycx_entry_not_found.
 
 ENDCLASS.
 
@@ -33,38 +29,42 @@ CLASS y_code_pal_app_comp IMPLEMENTATION.
 
 
   METHOD get.
-    DATA(entry) = get_entry( program ).
-    result = entry-application_component.
-  ENDMETHOD.
-
-
-  METHOD get_entry.
     TRY.
-        result = buffer[ program = program ].
+        result = buffer[ level = level ]-application_component.
       CATCH cx_sy_itab_line_not_found.
-        result = new_entry( program ).
+        result = new( level )-application_component.
     ENDTRY.
   ENDMETHOD.
 
 
-  METHOD new_entry.
+  METHOD new.
+    DATA tadir TYPE tadir.
+
     IF lines( buffer ) > max_entries.
       DELETE buffer FROM 1 TO max_entries / 2.
     ENDIF.
 
-    SELECT SINGLE ta~obj_name, df~ps_posid
+    CALL FUNCTION 'TR_TRANSFORM_TRDIR_TO_TADIR'
+      EXPORTING
+        iv_trdir_name = level-name
+      IMPORTING
+        es_tadir_keys = tadir.
+
+    SELECT SINGLE td~component
     FROM tadir AS ta
-    LEFT JOIN tdevc AS td ON ta~devclass = td~devclass
-    LEFT JOIN df14l AS df ON td~component = df~fctr_id
-    INTO @result
-    WHERE ta~pgmid = 'R3TR'
-    AND ta~object = 'PROG'
-    AND ta~obj_name = @program.
+    INNER JOIN tdevc AS td ON ta~devclass = td~devclass
+    INTO @DATA(application_component)
+    WHERE pgmid = @tadir-pgmid
+    AND object = @tadir-object
+    AND obj_name = @tadir-obj_name.
 
     IF sy-subrc <> 0.
       RAISE EXCEPTION TYPE ycx_entry_not_found.
     ENDIF.
 
+    result = VALUE #( level = level
+                      application_component = application_component ).
+
     APPEND result TO buffer.
   ENDMETHOD.
 
diff --git a/src/foundation/y_code_pal_app_comp.clas.xml b/src/foundation/y_code_pal_app_comp.clas.xml
index cc78c3f9..ba537b60 100644
--- a/src/foundation/y_code_pal_app_comp.clas.xml
+++ b/src/foundation/y_code_pal_app_comp.clas.xml
@@ -10,7 +10,6 @@
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
     <UNICODE>X</UNICODE>
-    <CLSSHAREDMEMORY>X</CLSSHAREDMEMORY>
    </VSEOCLASS>
   </asx:values>
  </asx:abap>
diff --git a/src/foundation/y_code_pal_buffer.clas.abap b/src/foundation/y_code_pal_buffer.clas.abap
deleted file mode 100644
index dba503a9..00000000
--- a/src/foundation/y_code_pal_buffer.clas.abap
+++ /dev/null
@@ -1,50 +0,0 @@
-CLASS y_code_pal_buffer DEFINITION PUBLIC CREATE PUBLIC.
-  PUBLIC SECTION.
-    INTERFACES y_if_code_pal_buffer.
-    ALIASES get FOR y_if_code_pal_buffer~get.
-    ALIASES modify FOR y_if_code_pal_buffer~modify.
-    ALIASES entry FOR y_if_code_pal_buffer~entry.
-
-  PROTECTED SECTION.
-    CLASS-METHODS update IMPORTING entry TYPE entry RAISING cx_sy_itab_line_not_found.
-    CLASS-METHODS insert IMPORTING entry TYPE entry.
-
-  PRIVATE SECTION.
-    CONSTANTS max_entries TYPE i VALUE 100.
-    CLASS-DATA internal TYPE y_if_code_pal_buffer~entries.
-
-ENDCLASS.
-
-
-CLASS y_code_pal_buffer IMPLEMENTATION.
-
-  METHOD update.
-    DATA(index) = line_index( internal[ object_type = entry-object_type
-                                        object_name = entry-object_name ] ).
-    internal[ index ] = entry.
-  ENDMETHOD.
-
-  METHOD insert.
-    IF lines( internal ) > max_entries.
-      DELETE internal FROM 1 TO max_entries / 2.
-    ENDIF.
-
-    internal = VALUE #( BASE internal
-                      ( CORRESPONDING #( entry ) ) ).
-    ASSERT sy-subrc = 0.
-  ENDMETHOD.
-
-  METHOD modify.
-    TRY.
-        update( entry ).
-      CATCH cx_sy_itab_line_not_found.
-        insert( entry ).
-    ENDTRY.
-  ENDMETHOD.
-
-  METHOD get.
-    result = internal[ object_type = object_type
-                       object_name = object_name ].
-  ENDMETHOD.
-
-ENDCLASS.
diff --git a/src/foundation/y_code_pal_buffer.clas.xml b/src/foundation/y_code_pal_buffer.clas.xml
deleted file mode 100644
index 0c419060..00000000
--- a/src/foundation/y_code_pal_buffer.clas.xml
+++ /dev/null
@@ -1,16 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>Y_CODE_PAL_BUFFER</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Buffer</DESCRIPT>
-    <STATE>1</STATE>
-    <CLSCCINCL>X</CLSCCINCL>
-    <FIXPT>X</FIXPT>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>
diff --git a/src/foundation/y_exemption_dispatcher.clas.abap b/src/foundation/y_exemption_dispatcher.clas.abap
deleted file mode 100644
index 3ec7816e..00000000
--- a/src/foundation/y_exemption_dispatcher.clas.abap
+++ /dev/null
@@ -1,94 +0,0 @@
-CLASS y_exemption_dispatcher DEFINITION PUBLIC CREATE PUBLIC .
-  PUBLIC SECTION.
-    INTERFACES y_if_exemption_dispatcher.
-    ALIASES create FOR y_if_exemption_dispatcher~create.
-
-  PRIVATE SECTION.
-    METHODS get_exemption_from_database IMPORTING object_type   TYPE trobjtype
-                                                  object_name   TYPE sobj_name
-                                        RETURNING VALUE(result) TYPE abap_bool
-                                        RAISING   cx_sy_itab_line_not_found.
-
-    METHODS is_dataset_outdated IMPORTING storedate     TYPE d
-                                RETURNING VALUE(result) TYPE abap_bool.
-
-    METHODS is_exempted IMPORTING object_type   TYPE trobjtype
-                                  object_name   TYPE sobj_name
-                        RETURNING VALUE(result) TYPE abap_bool.
-
-    METHODS try_new_exemption IMPORTING object_type   TYPE trobjtype
-                                        object_name   TYPE sobj_name
-                              RETURNING VALUE(result) TYPE abap_bool.
-
-ENDCLASS.
-
-
-
-CLASS y_exemption_dispatcher IMPLEMENTATION.
-
-
-  METHOD create.
-    result = NEW y_exemption_dispatcher( ).
-  ENDMETHOD.
-
-
-  METHOD get_exemption_from_database.
-    result = y_code_pal_buffer=>get( object_type = object_type
-                                     object_name = CONV #( object_name ) )-is_exempted.
-  ENDMETHOD.
-
-
-  METHOD is_dataset_outdated.
-    DATA(compare_date) = storedate + 14.
-    result = xsdbool( compare_date < sy-datum ).
-  ENDMETHOD.
-
-
-  METHOD y_if_exemption_dispatcher~is_class_exempted.
-    is_exempted = is_exempted( object_type = 'CLAS'
-                               object_name = name ).
-  ENDMETHOD.
-
-
-  METHOD y_if_exemption_dispatcher~is_function_group_exempted.
-    is_exempted = is_exempted( object_type = 'FUGR'
-                               object_name = name ).
-  ENDMETHOD.
-
-
-  METHOD y_if_exemption_dispatcher~is_program_exempted.
-    is_exempted = is_exempted( object_type = 'PROG'
-                               object_name = name ).
-  ENDMETHOD.
-
-
-  METHOD is_exempted.
-    TRY.
-        result = get_exemption_from_database( object_type  = object_type
-                                              object_name  = object_name ).
-      CATCH cx_sy_itab_line_not_found.
-        result = try_new_exemption( object_type = object_type
-                                    object_name = object_name ).
-    ENDTRY.
-  ENDMETHOD.
-
-
-  METHOD try_new_exemption.
-
-    result = COND #( WHEN object_type = 'PROG' THEN y_exemption_of_program=>create( )->is_exempted( object_name )
-                     WHEN object_type = 'CLAS' THEN y_exemption_of_class=>create( )->is_exempted( object_name )
-                     WHEN object_type = 'FUGR' THEN y_exemption_of_function_group=>create( )->is_exempted( object_name ) ).
-
-    IF result = abap_false.
-      result = y_exemption_general=>create( )->is_object_exempted( object_type  = object_type
-                                                                   object_name  = object_name ).
-    ENDIF.
-
-    y_code_pal_buffer=>modify( VALUE #( object_type = object_type
-                                        object_name = object_name
-                                        is_exempted = result ) ).
-
-  ENDMETHOD.
-
-
-ENDCLASS.
diff --git a/src/foundation/y_exemption_dispatcher.clas.xml b/src/foundation/y_exemption_dispatcher.clas.xml
deleted file mode 100644
index 47968dee..00000000
--- a/src/foundation/y_exemption_dispatcher.clas.xml
+++ /dev/null
@@ -1,16 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>Y_EXEMPTION_DISPATCHER</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Exemption Dispatcher</DESCRIPT>
-    <STATE>1</STATE>
-    <CLSCCINCL>X</CLSCCINCL>
-    <FIXPT>X</FIXPT>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>
diff --git a/src/foundation/y_exemption_general.clas.abap b/src/foundation/y_exemption_general.clas.abap
index 0a113110..0f737f35 100644
--- a/src/foundation/y_exemption_general.clas.abap
+++ b/src/foundation/y_exemption_general.clas.abap
@@ -1,24 +1,22 @@
 CLASS y_exemption_general DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
     INTERFACES y_if_exemption.
-    ALIASES create FOR y_if_exemption~create.
-  PROTECTED SECTION.
+    ALIASES is_object_exempted FOR y_if_exemption~is_object_exempted.
+
   PRIVATE SECTION.
-    METHODS is_tadir_generated IMPORTING object_type   TYPE trobjtype
-                                         object_name   TYPE sobj_name
-                               RETURNING VALUE(result) TYPE abap_bool.
-    METHODS is_object_existing IMPORTING object_type   TYPE trobjtype
-                                         object_name   TYPE sobj_name
-                               RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_tadir_generated IMPORTING object_type   TYPE trobjtype
+                                               object_name   TYPE sobj_name
+                                     RETURNING VALUE(result) TYPE abap_bool.
+
+    CLASS-METHODS is_object_existing IMPORTING object_type   TYPE trobjtype
+                                               object_name   TYPE sobj_name
+                                     RETURNING VALUE(result) TYPE abap_bool.
 ENDCLASS.
 
 
 
 CLASS y_exemption_general IMPLEMENTATION.
 
-  METHOD y_if_exemption~create.
-    result = NEW y_exemption_general( ).
-  ENDMETHOD.
 
   METHOD y_if_exemption~is_object_exempted.
     result = xsdbool( ( is_object_existing( object_type = object_type object_name = object_name ) = abap_true ) OR
@@ -53,7 +51,13 @@ CLASS y_exemption_general IMPLEMENTATION.
 
 
   METHOD is_tadir_generated.
-    SELECT SINGLE genflag FROM tadir INTO @result
-      WHERE pgmid = 'R3TR' AND object = @object_type AND obj_name = @object_name.
+    SELECT SINGLE genflag
+    FROM tadir
+    INTO @result
+    WHERE pgmid = 'R3TR'
+    AND object = @object_type
+    AND obj_name = @object_name.
   ENDMETHOD.
+
+
 ENDCLASS.
diff --git a/src/foundation/y_exemption_handler.clas.abap b/src/foundation/y_exemption_handler.clas.abap
index 0ba0131b..03b063f1 100644
--- a/src/foundation/y_exemption_handler.clas.abap
+++ b/src/foundation/y_exemption_handler.clas.abap
@@ -1,15 +1,27 @@
 CLASS y_exemption_handler DEFINITION  PUBLIC CREATE PUBLIC .
   PUBLIC SECTION.
     INTERFACES y_if_exemption.
-    ALIASES create FOR y_if_exemption~create.
 
   PRIVATE SECTION.
-    METHODS get_exemption_from_buffer IMPORTING object_type   TYPE trobjtype
+    TYPES: BEGIN OF ty_buffer,
+           object_type TYPE trobjtype,
+           object_name TYPE trobj_name,
+           is_exempted TYPE abap_bool,
+         END OF ty_buffer.
+
+    TYPES: tty_buffer TYPE TABLE OF ty_buffer WITH KEY object_type
+                                                       object_name.
+
+    CONSTANTS max_entries TYPE i VALUE 100.
+
+    CLASS-DATA buffer TYPE tty_buffer.
+
+    CLASS-METHODS get_from_buffer IMPORTING object_type   TYPE trobjtype
                                                 object_name   TYPE sobj_name
                                       RETURNING VALUE(result) TYPE abap_bool
                                       RAISING   cx_sy_itab_line_not_found.
 
-    METHODS try_new_exemption IMPORTING object_type   TYPE trobjtype
+    CLASS-METHODS try_new_exemption IMPORTING object_type   TYPE trobjtype
                                         object_name   TYPE sobj_name
                               RETURNING VALUE(result) TYPE abap_bool.
 
@@ -20,20 +32,9 @@ ENDCLASS.
 CLASS y_exemption_handler IMPLEMENTATION.
 
 
-  METHOD y_if_exemption~create.
-    result = NEW y_exemption_handler( ).
-  ENDMETHOD.
-
-
-  METHOD get_exemption_from_buffer.
-    result = y_code_pal_buffer=>get( object_type = object_type
-                                     object_name = CONV #( object_name ) )-is_exempted.
-  ENDMETHOD.
-
-
   METHOD y_if_exemption~is_object_exempted.
     TRY.
-        result = get_exemption_from_buffer( object_type  = object_type
+        result = get_from_buffer( object_type  = object_type
                                             object_name  = object_name ).
       CATCH cx_sy_itab_line_not_found.
         result = try_new_exemption( object_type = object_type
@@ -42,16 +43,30 @@ CLASS y_exemption_handler IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD try_new_exemption.
-
-    result = COND #( WHEN object_type = 'CLAS' THEN y_exemption_dispatcher=>create( )->is_class_exempted( object_name )
-                     WHEN object_type = 'FUGR' THEN y_exemption_dispatcher=>create( )->is_function_group_exempted( object_name )
-                     WHEN object_type = 'PROG' THEN y_exemption_dispatcher=>create( )->is_program_exempted( object_name ) ).
+  METHOD get_from_buffer.
+    DATA(entry) = buffer[ object_type = object_type
+                          object_name = object_name ].
+    result = entry-is_exempted.
+  ENDMETHOD.
 
-    y_code_pal_buffer=>modify( VALUE #( object_type = object_type
-                                        object_name = object_name
-                                        is_exempted = result ) ).
 
+  METHOD try_new_exemption.
+    result = y_exemption_general=>is_object_exempted( object_type = object_type
+                                                      object_name = object_name ).
+
+    IF result = abap_false.
+      result = COND #( WHEN object_type = 'PROG' THEN y_exemption_of_program=>is_exempted( object_name )
+                       WHEN object_type = 'CLAS' THEN y_exemption_of_class=>is_exempted( object_name )
+                       WHEN object_type = 'FUGR' THEN y_exemption_of_function_group=>is_exempted( object_name ) ).
+    ENDIF.
+
+    APPEND VALUE #( object_type = object_type
+                    object_name = object_name
+                    is_exempted = result ) TO buffer.
+
+    IF lines( buffer ) > max_entries.
+      DELETE buffer FROM 1 TO max_entries / 2.
+    ENDIF.
   ENDMETHOD.
 
 
diff --git a/src/foundation/y_exemption_of_class.clas.abap b/src/foundation/y_exemption_of_class.clas.abap
index 371fc64b..8765fd6a 100644
--- a/src/foundation/y_exemption_of_class.clas.abap
+++ b/src/foundation/y_exemption_of_class.clas.abap
@@ -1,62 +1,53 @@
-CLASS y_exemption_of_class DEFINITION PUBLIC CREATE PUBLIC .
+CLASS y_exemption_of_class DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
-    INTERFACES y_if_exemption_of_objects .
-    ALIASES create FOR y_if_exemption_of_objects~create.
+    INTERFACES y_if_exemption_of_object.
+    ALIASES is_exempted FOR y_if_exemption_of_object~is_exempted.
 
   PRIVATE SECTION.
-    DATA class_header_data TYPE seoclassdf .
-
-    METHODS is_srv_maint_ui_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_odata_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_ecatt_odata_test_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_fin_infotype_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_amdp_class
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_extensibility_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_shma_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_proxy_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_sadl_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_exit_class
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_exception_class
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_xlca_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_bcp_application
-      RETURNING
-        VALUE(result) TYPE abap_bool .
-    METHODS is_object_indepenent_generate
-      RETURNING
-        VALUE(result) TYPE abap_bool .
+    CLASS-DATA class_header_data TYPE seoclassdf.
+
+    CLASS-METHODS is_srv_maint_ui_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_odata_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_ecatt_odata_test_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_fin_infotype_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_amdp_class RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_extensibility_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_shma_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_proxy_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_sadl_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_exit_class RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_exception_class RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_xlca_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_bcp_application RETURNING VALUE(result) TYPE abap_bool.
+
 ENDCLASS.
 
 
 
-CLASS Y_EXEMPTION_OF_CLASS IMPLEMENTATION.
+CLASS y_exemption_of_class IMPLEMENTATION.
+
+  METHOD y_if_exemption_of_object~is_exempted.
+    result = abap_true.
 
+    SELECT SINGLE *
+    FROM seoclassdf
+    INTO @class_header_data
+    WHERE clsname = @object_name
+    AND version = 1.
 
-  METHOD create.
-    result = NEW y_exemption_of_class( ).
+    IF sy-subrc = 0.
+      result = xsdbool( is_srv_maint_ui_generate( ) = abap_true OR
+                        is_odata_generate( ) = abap_true OR
+                        is_ecatt_odata_test_generate( ) = abap_true OR
+                        is_fin_infotype_generate(  ) = abap_true OR
+                        is_extensibility_generate(  ) = abap_true OR
+                        is_shma_generate(  ) = abap_true OR
+                        is_proxy_generate(  ) = abap_true OR
+                        is_sadl_generate(  ) = abap_true OR
+                        is_exit_class(  ) = abap_true OR
+                        is_exception_class(  ) = abap_true OR
+                        is_bcp_application( ) = abap_true ).
+    ENDIF.
   ENDMETHOD.
 
 
@@ -94,7 +85,7 @@ CLASS Y_EXEMPTION_OF_CLASS IMPLEMENTATION.
     it_bsp_classes = VALUE #( ( 'CL_BSP_WD_COMPONENT_CONTROLLER' )
                               ( 'CL_BSP_WD_CONTEXT' )
                               ( 'CL_BSP_WD_CONTEXT_NODE' )
-                              (  'CL_BSP_WD_WINDOW' )
+                              ( 'CL_BSP_WD_WINDOW' )
                               ( 'CL_BSP_WD_CUSTOM_CONTROLLER' )
                               ( 'CL_BSP_WD_VIEW_CONTROLLER' )
                               ( 'CL_BSP_WD_ADVSEARCH_CONTROLLER' )
@@ -198,14 +189,6 @@ CLASS Y_EXEMPTION_OF_CLASS IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD is_object_indepenent_generate.
-    DATA: l_object TYPE sobj_name.
-    l_object = class_header_data-clsname.
-    result = y_exemption_general=>create( )->is_object_exempted( object_type = 'CLAS'
-                                                                 object_name = l_object ).
-  ENDMETHOD.
-
-
   METHOD is_odata_generate.
     SELECT SINGLE trobj_name FROM /iwbep/i_sbd_ga INTO @DATA(l_name)
       WHERE ( gen_art_type = 'DPCB' OR gen_art_type = 'MPCB' ) AND trobj_type = 'CLAS' AND trobj_name = @class_header_data-clsname. "#EC CI_NOFIELD
@@ -292,24 +275,4 @@ CLASS Y_EXEMPTION_OF_CLASS IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD y_if_exemption_of_objects~is_exempted.
-    result = abap_true.
-
-    SELECT SINGLE * FROM seoclassdf INTO @class_header_data
-      WHERE clsname = @name AND version = 1.
-    IF sy-subrc = 0.
-      result = xsdbool( is_srv_maint_ui_generate( ) = abap_true OR
-                        is_odata_generate( ) = abap_true OR
-                        is_ecatt_odata_test_generate( ) = abap_true OR
-                        is_fin_infotype_generate(  ) = abap_true OR
-                        is_extensibility_generate(  ) = abap_true OR
-                        is_shma_generate(  ) = abap_true OR
-                        is_proxy_generate(  ) = abap_true OR
-                        is_sadl_generate(  ) = abap_true OR
-                        is_exit_class(  ) = abap_true OR
-                        is_exception_class(  ) = abap_true OR
-                        is_object_indepenent_generate( ) = abap_true OR
-                        is_bcp_application( ) = abap_true ).
-    ENDIF.
-  ENDMETHOD.
 ENDCLASS.
diff --git a/src/foundation/y_exemption_of_function_group.clas.abap b/src/foundation/y_exemption_of_function_group.clas.abap
index 1c3aa3d2..43f274d6 100644
--- a/src/foundation/y_exemption_of_function_group.clas.abap
+++ b/src/foundation/y_exemption_of_function_group.clas.abap
@@ -1,32 +1,15 @@
-CLASS y_exemption_of_function_group DEFINITION PUBLIC CREATE PUBLIC .
+CLASS y_exemption_of_function_group DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
-    INTERFACES y_if_exemption_of_objects .
-    ALIASES create FOR y_if_exemption_of_objects~create.
+    INTERFACES y_if_exemption_of_object.
+    ALIASES is_exempted FOR y_if_exemption_of_object~is_exempted.
 
   PRIVATE SECTION.
-    METHODS is_table_maintenance_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-    METHODS is_configuration_tablegenerate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-    METHODS is_rai_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-    METHODS is_object_indepenent_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
+    CLASS-DATA name TYPE sobj_name.
+
+    CLASS-METHODS is_table_maintenance_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_configuration_tablegenerate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_rai_generate RETURNING VALUE(result) TYPE abap_bool.
+
 ENDCLASS.
 
 
@@ -34,8 +17,12 @@ ENDCLASS.
 CLASS y_exemption_of_function_group IMPLEMENTATION.
 
 
-  METHOD create.
-    result = NEW y_exemption_of_function_group( ).
+  METHOD y_if_exemption_of_object~is_exempted.
+    name = object_name.
+
+    result = xsdbool( is_table_maintenance_generate( ) = abap_true OR
+                      is_configuration_tablegenerate( ) = abap_true OR
+                      is_rai_generate( ) ).
   ENDMETHOD.
 
 
@@ -68,14 +55,6 @@ CLASS y_exemption_of_function_group IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD is_object_indepenent_generate.
-    DATA l_object TYPE sobj_name.
-    l_object = name.
-    result = y_exemption_general=>create( )->is_object_exempted( object_type = 'FUGR'
-                                                                 object_name = name ).
-  ENDMETHOD.
-
-
   METHOD is_rai_generate.
     CHECK name(4) = '/1RA'.
 
@@ -102,10 +81,4 @@ CLASS y_exemption_of_function_group IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD y_if_exemption_of_objects~is_exempted.
-    result = xsdbool( is_table_maintenance_generate( name ) = abap_true OR
-                      is_configuration_tablegenerate( name ) = abap_true OR
-                      is_object_indepenent_generate(  name ) = abap_true OR
-                      is_rai_generate( name ) ).
-  ENDMETHOD.
 ENDCLASS.
diff --git a/src/foundation/y_exemption_of_program.clas.abap b/src/foundation/y_exemption_of_program.clas.abap
index 8cae1caa..593b952b 100644
--- a/src/foundation/y_exemption_of_program.clas.abap
+++ b/src/foundation/y_exemption_of_program.clas.abap
@@ -1,57 +1,32 @@
-CLASS y_exemption_of_program DEFINITION PUBLIC CREATE PUBLIC .
+CLASS y_exemption_of_program DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
-    INTERFACES y_if_exemption_of_objects .
-    ALIASES create FOR y_if_exemption_of_objects~create.
+    INTERFACES y_if_exemption_of_object.
+    ALIASES is_exempted FOR y_if_exemption_of_object~is_exempted.
 
-  PROTECTED SECTION.
   PRIVATE SECTION.
-    METHODS is_enterprise_search_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-    METHODS is_downport_assist_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-    METHODS is_fin_infotyp_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-
-    METHODS is_irf_model_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-
-    METHODS is_object_indepenent_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
-
-
-    METHODS is_object_sw01_generate
-      IMPORTING
-        name          TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE abap_bool.
+    CLASS-DATA name TYPE sobj_name.
+
+    CLASS-METHODS is_enterprise_search_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_downport_assist_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_fin_infotyp_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_irf_model_generate RETURNING VALUE(result) TYPE abap_bool.
+    CLASS-METHODS is_object_sw01_generate RETURNING VALUE(result) TYPE abap_bool.
+
 ENDCLASS.
 
 
 
-CLASS Y_EXEMPTION_OF_PROGRAM IMPLEMENTATION.
+CLASS y_exemption_of_program IMPLEMENTATION.
 
 
-  METHOD create.
-    result = NEW y_exemption_of_program( ).
+  METHOD y_if_exemption_of_object~is_exempted.
+    name = object_name.
+
+    result = xsdbool( is_enterprise_search_generate( ) = abap_true OR
+                      is_downport_assist_generate( ) = abap_true OR
+                      is_fin_infotyp_generate(  ) = abap_true OR
+                      is_irf_model_generate( ) = abap_true OR
+                      is_object_sw01_generate( ) ).
   ENDMETHOD.
 
 
@@ -137,13 +112,6 @@ CLASS Y_EXEMPTION_OF_PROGRAM IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD is_object_indepenent_generate.
-    DATA: l_object TYPE sobj_name.
-    l_object = name.
-    result = y_exemption_general=>create( )->is_object_exempted( object_type = 'PROG' object_name = name ).
-  ENDMETHOD.
-
-
   METHOD is_object_sw01_generate.
     SELECT SINGLE progname FROM tojtb  INTO @DATA(l_prog)
       WHERE progname = @name.                           "#EC CI_GENBUFF
@@ -153,12 +121,4 @@ CLASS Y_EXEMPTION_OF_PROGRAM IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD y_if_exemption_of_objects~is_exempted.
-    result = xsdbool( is_enterprise_search_generate( name ) = abap_true OR
-                      is_downport_assist_generate( name ) = abap_true OR
-                      is_fin_infotyp_generate(  name ) = abap_true OR
-                      is_irf_model_generate( name ) = abap_true OR
-                      is_object_indepenent_generate(  name ) OR
-                      is_object_sw01_generate( name )  ).
-  ENDMETHOD.
 ENDCLASS.
diff --git a/src/foundation/y_if_code_pal_buffer.intf.abap b/src/foundation/y_if_code_pal_buffer.intf.abap
deleted file mode 100644
index 70aab328..00000000
--- a/src/foundation/y_if_code_pal_buffer.intf.abap
+++ /dev/null
@@ -1,20 +0,0 @@
-INTERFACE y_if_code_pal_buffer PUBLIC.
-
-  TYPES: BEGIN OF entry,
-           object_type TYPE trobjtype,
-           object_name TYPE trobj_name,
-           is_exempted TYPE abap_bool,
-           created_on TYPE creationdt,
-         END OF entry.
-
-  TYPES: entries TYPE TABLE OF entry WITH KEY object_type
-                                              object_name.
-
-  CLASS-METHODS get IMPORTING object_type   TYPE entry-object_type
-                              object_name   TYPE entry-object_name
-                    RETURNING VALUE(result) TYPE entry
-                    RAISING cx_sy_itab_line_not_found.
-
-  CLASS-METHODS modify IMPORTING entry TYPE entry.
-
-ENDINTERFACE.
diff --git a/src/foundation/y_if_exemption.intf.abap b/src/foundation/y_if_exemption.intf.abap
index 13c8b8ad..a71adce3 100644
--- a/src/foundation/y_if_exemption.intf.abap
+++ b/src/foundation/y_if_exemption.intf.abap
@@ -1,7 +1,7 @@
 INTERFACE y_if_exemption PUBLIC .
-  CLASS-METHODS create RETURNING VALUE(result) TYPE REF TO y_if_exemption.
 
-  METHODS is_object_exempted IMPORTING object_type   TYPE trobjtype
-                                       object_name   TYPE sobj_name
-                             RETURNING VALUE(result) TYPE abap_bool.
+  CLASS-METHODS is_object_exempted IMPORTING object_type   TYPE trobjtype
+                                             object_name   TYPE sobj_name
+                                   RETURNING VALUE(result) TYPE abap_bool.
+
 ENDINTERFACE.
diff --git a/src/foundation/y_if_exemption_dispatcher.intf.abap b/src/foundation/y_if_exemption_dispatcher.intf.abap
deleted file mode 100644
index 0f0778eb..00000000
--- a/src/foundation/y_if_exemption_dispatcher.intf.abap
+++ /dev/null
@@ -1,14 +0,0 @@
-INTERFACE y_if_exemption_dispatcher PUBLIC .
-
-  CLASS-METHODS create RETURNING VALUE(result) TYPE REF TO y_if_exemption_dispatcher.
-
-  METHODS is_function_group_exempted IMPORTING VALUE(name)        TYPE sobj_name
-                                     RETURNING VALUE(is_exempted) TYPE abap_bool.
-
-  METHODS is_class_exempted IMPORTING VALUE(name)        TYPE sobj_name
-                            RETURNING VALUE(is_exempted) TYPE abap_bool.
-
-  METHODS is_program_exempted IMPORTING VALUE(name)        TYPE sobj_name
-                              RETURNING VALUE(is_exempted) TYPE abap_bool.
-
-ENDINTERFACE.
diff --git a/src/foundation/y_if_exemption_dispatcher.intf.xml b/src/foundation/y_if_exemption_dispatcher.intf.xml
deleted file mode 100644
index 3caa3eee..00000000
--- a/src/foundation/y_if_exemption_dispatcher.intf.xml
+++ /dev/null
@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOINTERF>
-    <CLSNAME>Y_IF_EXEMPTION_DISPATCHER</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Exemption Dispatcher</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOINTERF>
-  </asx:values>
- </asx:abap>
-</abapGit>
diff --git a/src/foundation/y_if_exemption_of_object.intf.abap b/src/foundation/y_if_exemption_of_object.intf.abap
new file mode 100644
index 00000000..ee772a5c
--- /dev/null
+++ b/src/foundation/y_if_exemption_of_object.intf.abap
@@ -0,0 +1,6 @@
+INTERFACE y_if_exemption_of_object PUBLIC.
+
+  CLASS-METHODS is_exempted IMPORTING object_name   TYPE sobj_name
+                            RETURNING VALUE(result) TYPE abap_bool.
+
+ENDINTERFACE.
diff --git a/src/foundation/y_if_code_pal_buffer.intf.xml b/src/foundation/y_if_exemption_of_object.intf.xml
similarity index 81%
rename from src/foundation/y_if_code_pal_buffer.intf.xml
rename to src/foundation/y_if_exemption_of_object.intf.xml
index 92fc8436..1b659614 100644
--- a/src/foundation/y_if_code_pal_buffer.intf.xml
+++ b/src/foundation/y_if_exemption_of_object.intf.xml
@@ -3,9 +3,9 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <VSEOINTERF>
-    <CLSNAME>Y_IF_CODE_PAL_BUFFER</CLSNAME>
+    <CLSNAME>Y_IF_EXEMPTION_OF_OBJECT</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>Buffer</DESCRIPT>
+    <DESCRIPT>Exemption</DESCRIPT>
     <EXPOSURE>2</EXPOSURE>
     <STATE>1</STATE>
     <UNICODE>X</UNICODE>
diff --git a/src/foundation/y_if_exemption_of_objects.intf.abap b/src/foundation/y_if_exemption_of_objects.intf.abap
deleted file mode 100644
index 314ee94a..00000000
--- a/src/foundation/y_if_exemption_of_objects.intf.abap
+++ /dev/null
@@ -1,8 +0,0 @@
-INTERFACE y_if_exemption_of_objects PUBLIC .
-
-  class-METHODS create RETURNING VALUE(result) TYPE REF TO y_if_exemption_of_objects.
-
-  METHODS is_exempted IMPORTING name          TYPE sobj_name
-                      RETURNING VALUE(result) TYPE abap_bool .
-
-ENDINTERFACE.
diff --git a/src/foundation/y_if_exemption_of_objects.intf.xml b/src/foundation/y_if_exemption_of_objects.intf.xml
deleted file mode 100644
index c6ed2ef9..00000000
--- a/src/foundation/y_if_exemption_of_objects.intf.xml
+++ /dev/null
@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOINTERF>
-    <CLSNAME>Y_IF_EXEMPTION_OF_OBJECTS</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Check if Object exempted</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOINTERF>
-  </asx:values>
- </asx:abap>
-</abapGit>
diff --git a/src/foundation/y_if_object_creation_date.intf.abap b/src/foundation/y_if_object_creation_date.intf.abap
deleted file mode 100644
index 00aae8fa..00000000
--- a/src/foundation/y_if_object_creation_date.intf.abap
+++ /dev/null
@@ -1,15 +0,0 @@
-INTERFACE y_if_object_creation_date PUBLIC.
-
-  METHODS get_class_create_date IMPORTING VALUE(name)   TYPE sobj_name
-                                RETURNING VALUE(result) TYPE as4date.
-
-  METHODS get_function_group_create_date IMPORTING VALUE(name)   TYPE sobj_name
-                                         RETURNING VALUE(result) TYPE as4date.
-
-  METHODS get_interface_create_date  IMPORTING name          TYPE sobj_name
-                                     RETURNING VALUE(result) TYPE as4date.
-
-  METHODS get_program_create_date IMPORTING VALUE(name)   TYPE sobj_name
-                                  RETURNING VALUE(result) TYPE as4date.
-
-ENDINTERFACE.
diff --git a/src/foundation/y_if_object_creation_date.intf.xml b/src/foundation/y_if_object_creation_date.intf.xml
deleted file mode 100644
index 823f8b12..00000000
--- a/src/foundation/y_if_object_creation_date.intf.xml
+++ /dev/null
@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_INTF" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOINTERF>
-    <CLSNAME>Y_IF_OBJECT_CREATION_DATE</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Object Creation Date</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOINTERF>
-  </asx:values>
- </asx:abap>
-</abapGit>
diff --git a/src/foundation/y_object_creation_date.clas.abap b/src/foundation/y_object_creation_date.clas.abap
index b86217bc..34adb9ad 100644
--- a/src/foundation/y_object_creation_date.clas.abap
+++ b/src/foundation/y_object_creation_date.clas.abap
@@ -1,74 +1,59 @@
-CLASS y_object_creation_date DEFINITION
-  PUBLIC
-  CREATE PUBLIC .
-
+CLASS y_object_creation_date DEFINITION PUBLIC CREATE PUBLIC.
   PUBLIC SECTION.
-    INTERFACES y_if_object_creation_date.
-  PROTECTED SECTION.
+    CLASS-METHODS get_created_on IMPORTING object_type   TYPE trobjtype
+                                           object_name   TYPE sobj_name
+                                 RETURNING VALUE(result) TYPE as4date.
+
   PRIVATE SECTION.
-    TYPES: created_on_dates TYPE STANDARD TABLE OF as4date .
-
-    METHODS get_db_tadir_data
-      IMPORTING
-        VALUE(object_type) TYPE trobjtype
-        VALUE(object_name) TYPE sobj_name
-      RETURNING
-        VALUE(result)      TYPE rdir_cdate .
-    METHODS get_db_reposource_created_on
-      IMPORTING
-        VALUE(reposrc_prog_search_string) TYPE string
-      RETURNING
-        VALUE(result)                     TYPE rdir_cdate .
-    METHODS get_db_vers_hstry_crtd_on_clas
-      IMPORTING
-        VALUE(class_name) TYPE sobj_name
-      RETURNING
-        VALUE(result)     TYPE rdir_cdate .
-    METHODS get_db_vers_hstry_crtd_on_prog
-      IMPORTING
-        VALUE(prog_name) TYPE sobj_name
-      RETURNING
-        VALUE(result)    TYPE rdir_cdate .
-    METHODS get_db_vers_hstry_crtd_on_fugr
-      IMPORTING
-        VALUE(fugr_name) TYPE sobj_name
-      RETURNING
-        VALUE(result)    TYPE rdir_cdate .
-    METHODS convert_fugr_for_db_access
-      IMPORTING
-        VALUE(name)   TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE string .
-    METHODS convert_class_for_repos_access
-      IMPORTING
-        VALUE(name)   TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE string .
-    METHODS get_lowest_date
-      IMPORTING
-        VALUE(dates)  TYPE created_on_dates
-      RETURNING
-        VALUE(result) TYPE as4date .
-    METHODS get_created_on_from_buffer
-      IMPORTING
-        VALUE(object_type) TYPE trobjtype
-        VALUE(object_name) TYPE sobj_name
-      RETURNING
-        VALUE(result)      TYPE rdir_cdate
-      RAISING
-        cx_sy_itab_line_not_found .
-    METHODS try_new_created_on
-      IMPORTING
-        object_type   TYPE trobjtype
-        object_name   TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE as4date.
-    METHODS get_created_on
-      IMPORTING
-        object_type   TYPE trobjtype
-        object_name   TYPE sobj_name
-      RETURNING
-        VALUE(result) TYPE as4date.
+    TYPES: created_on_dates TYPE STANDARD TABLE OF as4date.
+
+    TYPES: BEGIN OF ty_buffer,
+             object_type TYPE trobjtype,
+             object_name TYPE trobj_name,
+             created_on  TYPE creationdt,
+           END OF ty_buffer.
+
+    TYPES: tty_buffer TYPE TABLE OF ty_buffer WITH KEY object_type
+                                                       object_name.
+
+    CONSTANTS max_entries TYPE i VALUE 100.
+
+    CLASS-DATA buffer TYPE tty_buffer.
+
+    CLASS-METHODS get_db_tadir_data IMPORTING VALUE(object_type) TYPE trobjtype
+                                              VALUE(object_name) TYPE sobj_name
+                                    RETURNING VALUE(result)      TYPE rdir_cdate.
+
+    CLASS-METHODS get_db_reposource_created_on IMPORTING VALUE(reposrc_prog_search_string) TYPE string
+                                               RETURNING VALUE(result)                     TYPE rdir_cdate.
+
+    CLASS-METHODS get_db_vers_hstry_crtd_on_clas IMPORTING VALUE(class_name) TYPE sobj_name
+                                                 RETURNING VALUE(result)     TYPE rdir_cdate.
+
+    CLASS-METHODS get_db_vers_hstry_crtd_on_prog IMPORTING VALUE(prog_name) TYPE sobj_name
+                                                 RETURNING VALUE(result)    TYPE rdir_cdate.
+
+    CLASS-METHODS get_db_vers_hstry_crtd_on_fugr IMPORTING VALUE(fugr_name) TYPE sobj_name
+                                                 RETURNING VALUE(result)    TYPE rdir_cdate.
+
+    CLASS-METHODS convert_fugr_for_db_access IMPORTING VALUE(name)   TYPE sobj_name
+                                             RETURNING VALUE(result) TYPE string.
+
+    CLASS-METHODS convert_class_for_repos_access IMPORTING VALUE(name)   TYPE sobj_name
+                                                 RETURNING VALUE(result) TYPE string.
+
+    CLASS-METHODS get_lowest_date IMPORTING VALUE(dates)  TYPE created_on_dates
+                                  RETURNING VALUE(result) TYPE as4date.
+
+    CLASS-METHODS get_from_buffer IMPORTING VALUE(object_type) TYPE trobjtype
+                                            VALUE(object_name) TYPE sobj_name
+                                  RETURNING VALUE(result)      TYPE rdir_cdate
+                                  RAISING   cx_sy_itab_line_not_found.
+
+    CLASS-METHODS try_new_created_on IMPORTING object_type   TYPE trobjtype
+                                               object_name   TYPE sobj_name
+                                     RETURNING VALUE(result) TYPE as4date.
+
 ENDCLASS.
 
 
@@ -76,6 +61,55 @@ ENDCLASS.
 CLASS y_object_creation_date IMPLEMENTATION.
 
 
+  METHOD get_created_on.
+    TRY.
+        result = get_from_buffer( object_type = object_type
+                                  object_name =  object_name ).
+      CATCH cx_sy_itab_line_not_found.
+        result = try_new_created_on( object_type = object_type
+                                     object_name =  object_name ).
+    ENDTRY.
+  ENDMETHOD.
+
+
+  METHOD get_from_buffer.
+    DATA(entry) = buffer[ object_type = object_type
+                          object_name = object_name ].
+    result = entry-created_on.
+  ENDMETHOD.
+
+
+  METHOD try_new_created_on.
+    DATA created_on_dates TYPE created_on_dates.
+
+    APPEND get_db_tadir_data( object_type = object_type object_name = object_name ) TO created_on_dates.
+
+    DATA(repo_access) = COND #( WHEN object_type = 'FUGR' THEN convert_fugr_for_db_access( object_name )
+                                WHEN object_type = 'CLAS' THEN convert_class_for_repos_access( object_name )
+                                WHEN object_type = 'INTF' THEN convert_class_for_repos_access( object_name )
+                                WHEN object_type = 'PROG' THEN object_name ).
+
+    APPEND get_db_reposource_created_on( repo_access ) TO created_on_dates.
+
+    DATA(version_history) = COND #( WHEN object_type = 'FUGR' THEN get_db_vers_hstry_crtd_on_fugr( object_name )
+                                    WHEN object_type = 'CLAS' THEN get_db_vers_hstry_crtd_on_clas( object_name )
+                                    WHEN object_type = 'INTF' THEN get_db_vers_hstry_crtd_on_clas( object_name )
+                                    WHEN object_type = 'PROG' THEN get_db_vers_hstry_crtd_on_prog( object_name ) ).
+
+    APPEND version_history TO created_on_dates.
+
+    result = get_lowest_date( created_on_dates  ).
+
+    APPEND VALUE #( object_type = object_type
+                    object_name = object_name
+                    created_on = result ) TO buffer.
+
+    IF lines( buffer ) > max_entries.
+      DELETE buffer FROM 1 TO max_entries / 2.
+    ENDIF.
+  ENDMETHOD.
+
+
   METHOD convert_class_for_repos_access.
     result = name && '%'.
   ENDMETHOD.
@@ -84,7 +118,7 @@ CLASS y_object_creation_date IMPLEMENTATION.
   METHOD convert_fugr_for_db_access.
     IF name(1) = '/'.
       SEARCH name FOR '/' STARTING AT 2.
-      DATA(l_textcount) = sy-fdpos + 2.                 "#EC DECL_IN_IF
+      DATA(l_textcount) = sy-fdpos + 2.
       result = name(l_textcount) && 'SAPL' && name+l_textcount.
     ELSE.
       result = 'SAPL' && name.
@@ -92,22 +126,21 @@ CLASS y_object_creation_date IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD get_created_on_from_buffer.
-    result = y_code_pal_buffer=>get( object_type = object_type
-                                     object_name = CONV #( object_name ) )-created_on.
-
-    IF result IS INITIAL
-    OR result = '000000'.
-      RAISE EXCEPTION TYPE cx_sy_itab_line_not_found.
-    ENDIF.
-  ENDMETHOD.
+  METHOD get_db_reposource_created_on.
+    SELECT cdat
+    FROM reposrc
+    INTO TABLE @DATA(creation_dates)
+    WHERE progname LIKE @reposrc_prog_search_string
+    AND r3state = 'A'
+    ORDER BY cdat.
 
+    DELETE creation_dates WHERE cdat IS INITIAL.
 
-  METHOD get_db_reposource_created_on.
-    SELECT SINGLE MIN( cdat ) AS creation_date  FROM reposrc INTO @result WHERE
-        progname LIKE @reposrc_prog_search_string AND
-        r3state = 'A' AND
-        cdat > '00000000'.
+    TRY.
+        result = creation_dates[ 0 ].
+      CATCH cx_sy_itab_line_not_found.
+        CLEAR result.
+    ENDTRY.
   ENDMETHOD.
 
 
@@ -184,66 +217,4 @@ CLASS y_object_creation_date IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD y_if_object_creation_date~get_class_create_date.
-    result = get_created_on( object_type = 'CLAS'
-                             object_name = name ).
-  ENDMETHOD.
-
-
-  METHOD y_if_object_creation_date~get_function_group_create_date.
-    result = get_created_on( object_type = 'FUGR'
-                             object_name = name ).
-  ENDMETHOD.
-
-
-  METHOD y_if_object_creation_date~get_interface_create_date.
-    result = get_created_on( object_type = 'INTF'
-                             object_name = name ).
-  ENDMETHOD.
-
-
-  METHOD y_if_object_creation_date~get_program_create_date.
-    result = get_created_on( object_type = 'PROG'
-                             object_name = name ).
-  ENDMETHOD.
-
-  METHOD get_created_on.
-    TRY.
-        result = get_created_on_from_buffer( object_type  = object_type
-                                             object_name  =  object_name ).
-      CATCH cx_sy_itab_line_not_found.
-        result = try_new_created_on( object_type  = object_type
-                                     object_name  =  object_name ).
-    ENDTRY.
-  ENDMETHOD.
-
-  METHOD try_new_created_on.
-
-    DATA created_on_dates TYPE created_on_dates.
-
-    APPEND get_db_tadir_data( object_type = object_type object_name = object_name ) TO created_on_dates.
-
-    DATA(repo_access) = COND #( WHEN object_type = 'FUGR' THEN convert_fugr_for_db_access( object_name )
-                                WHEN object_type = 'CLAS' THEN convert_class_for_repos_access( object_name )
-                                WHEN object_type = 'INTF' THEN convert_class_for_repos_access( object_name )
-                                WHEN object_type = 'PROG' THEN object_name ).
-
-    APPEND get_db_reposource_created_on( repo_access ) TO created_on_dates.
-
-    DATA(version_history) = COND #( WHEN object_type = 'FUGR' THEN get_db_vers_hstry_crtd_on_fugr( object_name )
-                                    WHEN object_type = 'CLAS' THEN get_db_vers_hstry_crtd_on_clas( object_name )
-                                    WHEN object_type = 'INTF' THEN get_db_vers_hstry_crtd_on_clas( object_name )
-                                    WHEN object_type = 'PROG' THEN get_db_vers_hstry_crtd_on_prog( object_name ) ).
-
-    APPEND version_history TO created_on_dates.
-
-    result = get_lowest_date( created_on_dates  ).
-
-    y_code_pal_buffer=>modify( VALUE #( object_type = object_type
-                                        object_name = object_name
-                                        created_on = result ) ).
-
-  ENDMETHOD.
-
-
 ENDCLASS.
diff --git a/src/foundation/y_ref_scan_manager.clas.abap b/src/foundation/y_ref_scan_manager.clas.abap
index faa6c0b9..a026c8c7 100644
--- a/src/foundation/y_ref_scan_manager.clas.abap
+++ b/src/foundation/y_ref_scan_manager.clas.abap
@@ -7,8 +7,6 @@ CLASS y_ref_scan_manager DEFINITION PUBLIC CREATE PUBLIC.
 
 ENDCLASS.
 
-
-
 CLASS y_ref_scan_manager IMPLEMENTATION.
 
 
@@ -22,11 +20,15 @@ CLASS y_ref_scan_manager IMPLEMENTATION.
   METHOD y_if_scan_manager~set_ref_scan.
     ref_scan = io_ref_scan.
 
-    IF ref_scan IS BOUND.
-      y_if_scan_manager~levels = ref_scan->levels.
-      y_if_scan_manager~structures = ref_scan->structures.
-      y_if_scan_manager~statements = ref_scan->statements.
-      y_if_scan_manager~tokens = ref_scan->tokens.
+    IF ref_scan IS NOT BOUND.
+      RETURN.
     ENDIF.
+
+    y_if_scan_manager~levels = ref_scan->levels.
+    y_if_scan_manager~structures = ref_scan->structures.
+    y_if_scan_manager~statements = ref_scan->statements.
+    y_if_scan_manager~tokens = ref_scan->tokens.
   ENDMETHOD.
+
+
 ENDCLASS.
diff --git a/src/foundation/y_unit_test_base.clas.abap b/src/foundation/y_unit_test_base.clas.abap
index 6aefc7db..5435c736 100644
--- a/src/foundation/y_unit_test_base.clas.abap
+++ b/src/foundation/y_unit_test_base.clas.abap
@@ -73,7 +73,9 @@ CLASS y_unit_test_base IMPLEMENTATION.
     cut->object_type = 'CLAS'.
     cut->attributes_maintained = abap_true.
     cut->ref_scan_manager ?= NEW y_ref_scan_manager_double(  ).
+    cut->ref_scan_manager->set_ref_scan( VALUE #(  ) ).
     cut->clean_code_manager = NEW y_clean_code_manager_double( cut ).
+    cut->clean_code_exemption_handler = NEW ltd_clean_code_exemption(  ).
   ENDMETHOD.
 
   METHOD given_code_without_issue.
diff --git a/src/foundation/y_unit_test_base.clas.locals_imp.abap b/src/foundation/y_unit_test_base.clas.locals_imp.abap
new file mode 100644
index 00000000..d67ac62b
--- /dev/null
+++ b/src/foundation/y_unit_test_base.clas.locals_imp.abap
@@ -0,0 +1,16 @@
+*"* use this source file for the definition and implementation of
+*"* local helper classes, interface definitions and type
+*"* declarations
+CLASS ltd_clean_code_exemption DEFINITION.
+  PUBLIC SECTION.
+    INTERFACES y_if_exemption.
+
+ENDCLASS.
+
+CLASS ltd_clean_code_exemption IMPLEMENTATION.
+
+  METHOD y_if_exemption~is_object_exempted.
+    RETURN.
+  ENDMETHOD.
+
+ENDCLASS.

From 656fd0e5aac25a534834996723f3454b87215518 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Fri, 5 Feb 2021 19:42:21 +0300
Subject: [PATCH 14/15] Update changelog.txt

---
 changelog.txt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/changelog.txt b/changelog.txt
index 165cf2a1..9f25e1cb 100644
--- a/changelog.txt
+++ b/changelog.txt
@@ -14,6 +14,7 @@ Whenever you upgrade code pal for ABAP, it is highly recommended to execute the
 
 2021-01-XX v1.12.0
 ------------------
++ Performance Improvements (#318)
 - Shared Memory (#319)
 * Performance Issues (#317)
 * Profile Tool - UX Refinement (#313)

From 158c7ae6bf910ad028d486ac90747b15183212e6 Mon Sep 17 00:00:00 2001
From: Lucas Borin <5233413+lucasborin@users.noreply.github.com>
Date: Mon, 8 Feb 2021 17:54:28 +0300
Subject: [PATCH 15/15] Code review (#322)

* removing unused exception

* solving empty catch

* moving buffer cleanup

* pretty printer
---
 src/foundation/y_check_base.clas.abap         | 34 ++++++++++--------
 src/foundation/y_exemption_handler.clas.abap  |  8 ++---
 .../y_object_creation_date.clas.abap          |  8 ++---
 .../ycx_object_is_exempted.clas.abap          | 35 -------------------
 .../ycx_object_is_exempted.clas.xml           | 25 -------------
 5 files changed, 28 insertions(+), 82 deletions(-)
 delete mode 100644 src/foundation/ycx_object_is_exempted.clas.abap
 delete mode 100644 src/foundation/ycx_object_is_exempted.clas.xml

diff --git a/src/foundation/y_check_base.clas.abap b/src/foundation/y_check_base.clas.abap
index 0e0dfc99..b192f09e 100644
--- a/src/foundation/y_check_base.clas.abap
+++ b/src/foundation/y_check_base.clas.abap
@@ -64,8 +64,7 @@ CLASS y_check_base DEFINITION PUBLIC ABSTRACT
 
     METHODS execute_check.
 
-    METHODS check_start_conditions RAISING ycx_object_not_processed
-                                           ycx_object_is_exempted.
+    METHODS check_start_conditions RAISING ycx_object_not_processed.
 
     "! <p class="shorttext synchronized" lang="en">Validates the Customizing</p>
     "! @parameter statement | Received from inspect_tokens method.
@@ -150,6 +149,9 @@ CLASS y_check_base DEFINITION PUBLIC ABSTRACT
     METHODS is_structure_type_relevant IMPORTING structure     TYPE sstruc
                                        RETURNING VALUE(result) TYPE abap_bool.
 
+    METHODS is_app_comp_in_scope IMPORTING level TYPE stmnt_levl
+                                 RETURNING value(result) TYPE abap_bool.
+
 ENDCLASS.
 
 
@@ -632,16 +634,9 @@ CLASS y_check_base IMPLEMENTATION.
       RETURN.
     ENDIF.
 
-    TRY.
-        DATA(main_app_comp) = y_code_pal_app_comp=>get( ref_scan_manager->levels[ level = 0 ] ).
-        DATA(curr_app_comp) = y_code_pal_app_comp=>get( ref_scan_manager->levels[ statement_level ] ).
-
-        IF main_app_comp <> curr_app_comp.
-          RETURN.
-        ENDIF.
-      CATCH cx_sy_itab_line_not_found
-            ycx_entry_not_found.
-    ENDTRY.
+    IF is_app_comp_in_scope( statement_level ) = abap_false.
+      RETURN.
+    ENDIF.
 
     statistics->collect( kind = error_priority
                          pc = NEW y_pseudo_comment_detector( )->is_pseudo_comment( ref_scan_manager = ref_scan_manager
@@ -699,8 +694,7 @@ CLASS y_check_base IMPLEMENTATION.
         ELSEIF attributes_ok = abap_true.
           profile_configurations = check_configurations.
         ENDIF.
-      CATCH ycx_object_not_processed
-            ycx_object_is_exempted.
+      CATCH ycx_object_not_processed.
         FREE ref_scan_manager.
         RETURN.
 
@@ -784,4 +778,16 @@ CLASS y_check_base IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD is_app_comp_in_scope.
+    TRY.
+        DATA(main_app_comp) = y_code_pal_app_comp=>get( ref_scan_manager->levels[ level = 0 ] ).
+        DATA(curr_app_comp) = y_code_pal_app_comp=>get( ref_scan_manager->levels[ level ] ).
+        result = xsdbool( main_app_comp = curr_app_comp ).
+      CATCH cx_sy_itab_line_not_found
+            ycx_entry_not_found.
+        result = abap_false.
+    ENDTRY.
+  ENDMETHOD.
+
+
 ENDCLASS.
diff --git a/src/foundation/y_exemption_handler.clas.abap b/src/foundation/y_exemption_handler.clas.abap
index 03b063f1..c8a8562d 100644
--- a/src/foundation/y_exemption_handler.clas.abap
+++ b/src/foundation/y_exemption_handler.clas.abap
@@ -51,6 +51,10 @@ CLASS y_exemption_handler IMPLEMENTATION.
 
 
   METHOD try_new_exemption.
+    IF lines( buffer ) > max_entries.
+      DELETE buffer FROM 1 TO max_entries / 2.
+    ENDIF.
+
     result = y_exemption_general=>is_object_exempted( object_type = object_type
                                                       object_name = object_name ).
 
@@ -63,10 +67,6 @@ CLASS y_exemption_handler IMPLEMENTATION.
     APPEND VALUE #( object_type = object_type
                     object_name = object_name
                     is_exempted = result ) TO buffer.
-
-    IF lines( buffer ) > max_entries.
-      DELETE buffer FROM 1 TO max_entries / 2.
-    ENDIF.
   ENDMETHOD.
 
 
diff --git a/src/foundation/y_object_creation_date.clas.abap b/src/foundation/y_object_creation_date.clas.abap
index 34adb9ad..5229d3b9 100644
--- a/src/foundation/y_object_creation_date.clas.abap
+++ b/src/foundation/y_object_creation_date.clas.abap
@@ -82,6 +82,10 @@ CLASS y_object_creation_date IMPLEMENTATION.
   METHOD try_new_created_on.
     DATA created_on_dates TYPE created_on_dates.
 
+    IF lines( buffer ) > max_entries.
+      DELETE buffer FROM 1 TO max_entries / 2.
+    ENDIF.
+
     APPEND get_db_tadir_data( object_type = object_type object_name = object_name ) TO created_on_dates.
 
     DATA(repo_access) = COND #( WHEN object_type = 'FUGR' THEN convert_fugr_for_db_access( object_name )
@@ -103,10 +107,6 @@ CLASS y_object_creation_date IMPLEMENTATION.
     APPEND VALUE #( object_type = object_type
                     object_name = object_name
                     created_on = result ) TO buffer.
-
-    IF lines( buffer ) > max_entries.
-      DELETE buffer FROM 1 TO max_entries / 2.
-    ENDIF.
   ENDMETHOD.
 
 
diff --git a/src/foundation/ycx_object_is_exempted.clas.abap b/src/foundation/ycx_object_is_exempted.clas.abap
deleted file mode 100644
index a92f7656..00000000
--- a/src/foundation/ycx_object_is_exempted.clas.abap
+++ /dev/null
@@ -1,35 +0,0 @@
-class YCX_OBJECT_IS_EXEMPTED definition
-  public
-  inheriting from CX_STATIC_CHECK
-  create public .
-
-public section.
-
-  interfaces IF_T100_MESSAGE .
-
-  methods CONSTRUCTOR
-    importing
-      !TEXTID like IF_T100_MESSAGE=>T100KEY optional
-      !PREVIOUS like PREVIOUS optional .
-protected section.
-private section.
-ENDCLASS.
-
-
-
-CLASS YCX_OBJECT_IS_EXEMPTED IMPLEMENTATION.
-
-
-  method CONSTRUCTOR.
-CALL METHOD SUPER->CONSTRUCTOR
-EXPORTING
-PREVIOUS = PREVIOUS
-.
-clear me->textid.
-if textid is initial.
-  IF_T100_MESSAGE~T100KEY = IF_T100_MESSAGE=>DEFAULT_TEXTID.
-else.
-  IF_T100_MESSAGE~T100KEY = TEXTID.
-endif.
-  endmethod.
-ENDCLASS.
diff --git a/src/foundation/ycx_object_is_exempted.clas.xml b/src/foundation/ycx_object_is_exempted.clas.xml
deleted file mode 100644
index 05367e23..00000000
--- a/src/foundation/ycx_object_is_exempted.clas.xml
+++ /dev/null
@@ -1,25 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>YCX_OBJECT_IS_EXEMPTED</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Object is exempted</DESCRIPT>
-    <CATEGORY>40</CATEGORY>
-    <STATE>1</STATE>
-    <CLSCCINCL>X</CLSCCINCL>
-    <FIXPT>X</FIXPT>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-   <DESCRIPTIONS>
-    <SEOCOMPOTX>
-     <CLSNAME>YCX_OBJECT_IS_EXEMPTED</CLSNAME>
-     <CMPNAME>CONSTRUCTOR</CMPNAME>
-     <LANGU>E</LANGU>
-     <DESCRIPT>CONSTRUCTOR</DESCRIPT>
-    </SEOCOMPOTX>
-   </DESCRIPTIONS>
-  </asx:values>
- </asx:abap>
-</abapGit>