SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

TSTC select, ABAP Cloud/Steampunk compatibility (#6695)

Browse Source
This commit is contained in:
Lars Hvam 2023-12-12 06:27:19 +01:00 committed by GitHub
parent 82337d0647
commit 94bad9ddcf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ui/routing/zcl_abapgit_services_abapgit.clas.abap
View File

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