From e42e502d7df63968ebc342b461ab7f34abce2303 Mon Sep 17 00:00:00 2001
From: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Date: Thu, 20 May 2021 11:30:05 +0200
Subject: [PATCH] Add support pack to debug info (#4779)

* Add support pack to debug info

* Add get_basis_release

* Lint

* Structure

Co-authored-by: Lars Hvam <larshp@hotmail.com>
---
 src/ui/zcl_abapgit_gui_page_debuginfo.clas.abap | 5 ++++-
 src/zcl_abapgit_environment.clas.abap           | 8 ++++++++
 src/zif_abapgit_environment.intf.abap           | 9 +++++++++
 3 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/src/ui/zcl_abapgit_gui_page_debuginfo.clas.abap b/src/ui/zcl_abapgit_gui_page_debuginfo.clas.abap
index ac5bc14c8..fa9dc7c66 100644
--- a/src/ui/zcl_abapgit_gui_page_debuginfo.clas.abap
+++ b/src/ui/zcl_abapgit_gui_page_debuginfo.clas.abap
@@ -125,6 +125,7 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
 
     DATA: lt_ver_tab     TYPE filetable,
           lv_rc          TYPE i,
+          ls_release     TYPE zif_abapgit_environment=>ty_release_sp,
           lv_gui_version TYPE string,
           ls_version     LIKE LINE OF lt_ver_tab,
           lv_devclass    TYPE devclass.
@@ -161,6 +162,8 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
       iv_typ = zif_abapgit_html=>c_action_type-url ).
     ri_html->add( '</div>' ).
 
+    ls_release = zcl_abapgit_factory=>get_environment( )->get_basis_release( ).
+
     ri_html->add( '<h2>Environment</h2>' ).
 
     ri_html->add( |<table>| ).
@@ -171,7 +174,7 @@ CLASS zcl_abapgit_gui_page_debuginfo IMPLEMENTATION.
                   zcl_abapgit_apack_migration=>c_apack_interface_version }</td></tr>| ).
     ri_html->add( |<tr><td>LCL_TIME:       </td><td>{ zcl_abapgit_time=>get_unix( ) }</td></tr>| ).
     ri_html->add( |<tr><td>SY time:        </td><td>{ sy-datum } { sy-uzeit } { sy-tzone }</td></tr>| ).
-    ri_html->add( |<tr><td>SY release:     </td><td>{ sy-saprl }</td></tr>| ).
+    ri_html->add( |<tr><td>SY release:     </td><td>{ ls_release-release } SP { ls_release-sp }</td></tr>| ).
     ri_html->add( |</table>| ).
     ri_html->add( |<br>| ).
 
diff --git a/src/zcl_abapgit_environment.clas.abap b/src/zcl_abapgit_environment.clas.abap
index b3c495973..129d0893e 100644
--- a/src/zcl_abapgit_environment.clas.abap
+++ b/src/zcl_abapgit_environment.clas.abap
@@ -81,6 +81,14 @@ CLASS zcl_abapgit_environment IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD zif_abapgit_environment~get_basis_release.
+
+    SELECT SINGLE release extrelease FROM cvers INTO (rs_result-release, rs_result-sp)
+      WHERE component = 'SAP_BASIS' ##SUBRC_OK.
+
+  ENDMETHOD.
+
+
   METHOD zif_abapgit_environment~is_merged.
     DATA lr_marker TYPE REF TO data ##NEEDED.
 
diff --git a/src/zif_abapgit_environment.intf.abap b/src/zif_abapgit_environment.intf.abap
index 6761dc7e3..c59b6def7 100644
--- a/src/zif_abapgit_environment.intf.abap
+++ b/src/zif_abapgit_environment.intf.abap
@@ -1,5 +1,11 @@
 INTERFACE zif_abapgit_environment
   PUBLIC.
+  TYPES:
+    BEGIN OF ty_release_sp,
+      release TYPE c LENGTH 10,
+      sp      TYPE c LENGTH 10,
+    END OF ty_release_sp.
+
   METHODS is_sap_cloud_platform
     RETURNING
       VALUE(rv_result) TYPE abap_bool.
@@ -18,4 +24,7 @@ INTERFACE zif_abapgit_environment
   METHODS is_sap_object_allowed
     RETURNING
       VALUE(rv_allowed) TYPE abap_bool.
+  METHODS get_basis_release
+    RETURNING
+      VALUE(rs_result) TYPE ty_release_sp.
 ENDINTERFACE.