Sabinvs
/
ABAP-ZBACKGROUND_DEBUGGER
mirror of https://github.com/asabino2/ABAP-ZBACKGROUND_DEBUGGER.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix description

This commit is contained in:
Alexander Sabino 2025-01-23 16:39:20 +00:00 committed by GitHub
parent a8240439fa
commit 2b7bf905b4
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/zcl_bgd_debugger.clas.abap
View File

@ -22,7 +22,8 @@ CLASS ZCL_BGD_DEBUGGER IMPLEMENTATION.
method DEBUG.
DATA: LT_CALLSTACK TYPE ABAP_CALLSTACK.
DATA: LS_CALLSTACK LIKE LINE OF LT_CALLSTACK.
DATA: LS_ZTBC_BGDEBUG_SP TYPE ZTBC_BGDEBUG_SP.
DATA: LS_ZTBC_BGDEBUG_SP TYPE ZTBC_BGDEBUG_SP,
LS_ZTBC_BGDEBUG_SPT TYPE ZTBC_BGDEBUG_SPT.
DATA: LN_LINE(6) TYPE N.
DATA: LC_WPINDEX(30) TYPE C.
DATA: LI_WPINDEX TYPE WPINFO-WP_INDEX.
@ -81,6 +82,16 @@ CLASS ZCL_BGD_DEBUGGER IMPLEMENTATION.
LS_ZTBC_BGDEBUG_SP-INCLUDE = LS_CALLSTACK-INCLUDE.
LS_ZTBC_BGDEBUG_SP-LINE = LN_LINE.
MODIFY ZTBC_BGDEBUG_SP FROM LS_ZTBC_BGDEBUG_SP.
IF DESCRIPTION IS NOT INITIAL.
LS_ZTBC_BGDEBUG_SPT-MANDT = SY-MANDT.
LS_ZTBC_BGDEBUG_SPT-MAINPROGRAM = LS_CALLSTACK-MAINPROGRAM.
LS_ZTBC_BGDEBUG_SPT-INCLUDE = LS_CALLSTACK-INCLUDE.
LS_ZTBC_BGDEBUG_SPT-LINE = LN_LINE.
LS_ZTBC_BGDEBUG_SPT-SPRAS = SY-LANGU.
LS_ZTBC_BGDEBUG_SPT-KTEXT = DESCRIPTION.
MODIFY ZTBC_BGDEBUG_SP FROM LS_ZTBC_BGDEBUG_SP.
ENDIF.
ENDIF.
EXIT.
ELSE.