From 14705062dcb7b5381aade62e2c2ba9c138b89cd5 Mon Sep 17 00:00:00 2001
From: Marc Bernard <marc@marcbernardtools.com>
Date: Thu, 24 Apr 2025 10:02:30 +0000
Subject: [PATCH] Replace type

---
 src/zcx_abapgit_exception.clas.abap | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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