diff --git a/src/zcl_bgd_debugger.clas.abap b/src/zcl_bgd_debugger.clas.abap index dce91be..bd95afb 100644 --- a/src/zcl_bgd_debugger.clas.abap +++ b/src/zcl_bgd_debugger.clas.abap @@ -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.