diff --git a/src/zcx_abapgit_exception.clas.abap b/src/zcx_abapgit_exception.clas.abap index fb2f22590..cb88ff7a3 100644 --- a/src/zcx_abapgit_exception.clas.abap +++ b/src/zcx_abapgit_exception.clas.abap @@ -8,6 +8,13 @@ CLASS zcx_abapgit_exception DEFINITION INTERFACES if_t100_message . + TYPES: + BEGIN OF ty_scr_info, + program TYPE progname, + include TYPE progname, + line TYPE i, + END OF ty_scr_info. + CONSTANTS: BEGIN OF c_section_text, cause TYPE string VALUE `Cause`, @@ -32,7 +39,7 @@ CLASS zcx_abapgit_exception DEFINITION DATA mv_longtext TYPE string READ-ONLY. DATA mt_callstack TYPE abap_callstack READ-ONLY. DATA mi_log TYPE REF TO zif_abapgit_log READ-ONLY. - DATA ms_src_info TYPE tpda_sys_srcinfo READ-ONLY. + DATA ms_src_info TYPE ty_scr_info READ-ONLY. "! Raise exception with text "! @parameter iv_text | Text