From 94bad9ddcf2fa82dc0f93bc7a6812689a5477fd2 Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Tue, 12 Dec 2023 06:27:19 +0100
Subject: [PATCH] TSTC select, ABAP Cloud/Steampunk compatibility (#6695)

---
 .../zcl_abapgit_services_abapgit.clas.abap    | 21 ++++++++++++-------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/src/ui/routing/zcl_abapgit_services_abapgit.clas.abap b/src/ui/routing/zcl_abapgit_services_abapgit.clas.abap
index 0a773b2bc..2ae4ed1a9 100644
--- a/src/ui/routing/zcl_abapgit_services_abapgit.clas.abap
+++ b/src/ui/routing/zcl_abapgit_services_abapgit.clas.abap
@@ -45,15 +45,20 @@ CLASS zcl_abapgit_services_abapgit IMPLEMENTATION.
 
 
   METHOD get_abapgit_tcode.
-    CONSTANTS: lc_report_tcode_hex TYPE x VALUE '80'.
-    DATA: lt_tcodes TYPE STANDARD TABLE OF tcode.
+    CONSTANTS lc_report_tcode_hex TYPE x VALUE '80'.
+    DATA lt_tcodes TYPE STANDARD TABLE OF tcode.
 
-    SELECT tcode
-      FROM tstc
-      INTO TABLE lt_tcodes
-      WHERE pgmna = sy-cprog
-        AND cinfo = lc_report_tcode_hex
-      ORDER BY tcode.
+    TRY.
+        SELECT tcode
+          FROM ('TSTC')
+          INTO TABLE lt_tcodes
+          WHERE pgmna = sy-cprog
+          AND cinfo = lc_report_tcode_hex
+          ORDER BY tcode.
+      CATCH cx_sy_dynamic_osql_error.
+* ABAP Cloud/Steampunk compatibility
+        RETURN.
+    ENDTRY.
 
     IF lines( lt_tcodes ) > 0.
       READ TABLE lt_tcodes INDEX 1 INTO rv_tcode.