SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Add sy-subrc to exception

Browse Source
This commit is contained in:
Gregor Wolf 2019-02-26 11:11:36 +00:00 committed by Lars Hvam
parent af3b59b3f0
commit c22cacb197
1 changed files with 28 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/objects/zcl_abapgit_oo_interface.clas.abap
View File

@ -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_includes REDEFINITION,
zif_abapgit_oo_object_fnc~get_interface_properties REDEFINITION, zif_abapgit_oo_object_fnc~get_interface_properties REDEFINITION,
zif_abapgit_oo_object_fnc~delete REDEFINITION. zif_abapgit_oo_object_fnc~delete REDEFINITION.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OO_INTERFACE IMPLEMENTATION.
METHOD zif_abapgit_oo_object_fnc~create. METHOD zif_abapgit_oo_object_fnc~create.
DATA: lt_vseoattrib TYPE seoo_attributes_r. DATA: lt_vseoattrib TYPE seoo_attributes_r.
FIELD-SYMBOLS: <lv_clsname> TYPE seoclsname. FIELD-SYMBOLS: <lv_clsname> TYPE seoclsname.
@ -36,16 +42,35 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
other = 6 other = 6
OTHERS = 7. OTHERS = 7.
IF sy-subrc <> 0. 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. ENDIF.
ENDMETHOD. 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. METHOD zif_abapgit_oo_object_fnc~get_includes.
DATA lv_interface_name TYPE seoclsname. DATA lv_interface_name TYPE seoclsname.
lv_interface_name = iv_object_name. lv_interface_name = iv_object_name.
APPEND cl_oo_classname_service=>get_interfacepool_name( lv_interface_name ) TO rt_includes. APPEND cl_oo_classname_service=>get_interfacepool_name( lv_interface_name ) TO rt_includes.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_oo_object_fnc~get_interface_properties. METHOD zif_abapgit_oo_object_fnc~get_interface_properties.
CALL FUNCTION 'SEO_CLIF_GET' CALL FUNCTION 'SEO_CLIF_GET'
EXPORTING EXPORTING
@ -61,23 +86,7 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION.
IF sy-subrc = 1. IF sy-subrc = 1.
RETURN. " in case only inactive version exists RETURN. " in case only inactive version exists
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from seo_clif_get' ). zcx_abapgit_exception=>raise( |Error from seo_clif_get. 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' ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.