From c22cacb197eea3eca383ac88d249fba1d2e89855 Mon Sep 17 00:00:00 2001
From: Gregor Wolf <gregor.wolf@gmail.com>
Date: Tue, 26 Feb 2019 11:11:36 +0000
Subject: [PATCH] Add sy-subrc to exception

---
 .../zcl_abapgit_oo_interface.clas.abap        | 47 +++++++++++--------
 1 file changed, 28 insertions(+), 19 deletions(-)

diff --git a/src/objects/zcl_abapgit_oo_interface.clas.abap b/src/objects/zcl_abapgit_oo_interface.clas.abap
index ebeaaf06a..2aeea7972 100644
--- a/src/objects/zcl_abapgit_oo_interface.clas.abap
+++ b/src/objects/zcl_abapgit_oo_interface.clas.abap
@@ -6,9 +6,15 @@ CLASS zcl_abapgit_oo_interface DEFINITION PUBLIC
       zif_abapgit_oo_object_fnc~get_includes REDEFINITION,
       zif_abapgit_oo_object_fnc~get_interface_properties REDEFINITION,
       zif_abapgit_oo_object_fnc~delete REDEFINITION.
+  PROTECTED SECTION.
+  PRIVATE SECTION.
 ENDCLASS.
 
-CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
+
+
+CLASS ZCL_ABAPGIT_OO_INTERFACE IMPLEMENTATION.
+
+
   METHOD zif_abapgit_oo_object_fnc~create.
     DATA: lt_vseoattrib TYPE seoo_attributes_r.
     FIELD-SYMBOLS: <lv_clsname> TYPE seoclsname.
@@ -36,16 +42,35 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
         other           = 6
         OTHERS          = 7.
     IF sy-subrc <> 0.
-      zcx_abapgit_exception=>raise( 'Error from SEO_INTERFACE_CREATE_COMPLETE' ).
+      zcx_abapgit_exception=>raise( |Error from SEO_INTERFACE_CREATE_COMPLETE. Subrc = { sy-subrc }| ).
     ENDIF.
   ENDMETHOD.
 
+
+  METHOD zif_abapgit_oo_object_fnc~delete.
+    CALL FUNCTION 'SEO_INTERFACE_DELETE_COMPLETE'
+      EXPORTING
+        intkey       = is_deletion_key
+      EXCEPTIONS
+        not_existing = 1
+        is_class     = 2
+        db_error     = 3
+        no_access    = 4
+        other        = 5
+        OTHERS       = 6.
+    IF sy-subrc <> 0.
+      zcx_abapgit_exception=>raise( |Error from SEO_INTERFACE_DELETE_COMPLETE. Subrc = { sy-subrc }| ).
+    ENDIF.
+  ENDMETHOD.
+
+
   METHOD zif_abapgit_oo_object_fnc~get_includes.
     DATA lv_interface_name TYPE seoclsname.
     lv_interface_name = iv_object_name.
     APPEND cl_oo_classname_service=>get_interfacepool_name( lv_interface_name ) TO rt_includes.
   ENDMETHOD.
 
+
   METHOD zif_abapgit_oo_object_fnc~get_interface_properties.
     CALL FUNCTION 'SEO_CLIF_GET'
       EXPORTING
@@ -61,23 +86,7 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
     IF sy-subrc = 1.
       RETURN. " in case only inactive version exists
     ELSEIF sy-subrc <> 0.
-      zcx_abapgit_exception=>raise( 'error from seo_clif_get' ).
-    ENDIF.
-  ENDMETHOD.
-
-  METHOD zif_abapgit_oo_object_fnc~delete.
-    CALL FUNCTION 'SEO_INTERFACE_DELETE_COMPLETE'
-      EXPORTING
-        intkey       = is_deletion_key
-      EXCEPTIONS
-        not_existing = 1
-        is_class     = 2
-        db_error     = 3
-        no_access    = 4
-        other        = 5
-        OTHERS       = 6.
-    IF sy-subrc <> 0.
-      zcx_abapgit_exception=>raise( 'Error from SEO_INTERFACE_DELETE_COMPLETE' ).
+      zcx_abapgit_exception=>raise( |Error from seo_clif_get. Subrc = { sy-subrc }| ).
     ENDIF.
   ENDMETHOD.
 ENDCLASS.