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

remove global _raise macro, close #298

Browse Source
This commit is contained in:
larshp 2016-08-24 14:14:01 +00:00
parent 5a3adbef95
commit 14fc9a2413
60 changed files with 361 additions and 364 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.17.0'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.17.1'. "#EC NOTEXT
********************************************************************************
* The MIT License (MIT)
@ -37,12 +37,6 @@ DEFINE _add.
ro_html->add( &1 ) ##NO_TEXT.
END-OF-DEFINITION.
DEFINE _raise.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
iv_text = &1. "#EC NOTEXT
END-OF-DEFINITION.
INCLUDE zabapgit_definitions.
INCLUDE zabapgit_exceptions.
INCLUDE zabapgit_zlib.

4
src/zabapgit_background.prog.abap
View File

@ -40,7 +40,7 @@ CLASS lcl_background IMPLEMENTATION.
WHEN lcl_persistence_background=>c_amethod-auto.
push_auto( io_repo ).
WHEN OTHERS.
_raise 'unknown push method'.
lcx_exception=>raise( 'unknown push method' ).
ENDCASE.
ENDMETHOD.
@ -164,7 +164,7 @@ CLASS lcl_background IMPLEMENTATION.
push( io_repo = lo_repo
is_settings = <ls_list> ).
WHEN OTHERS.
_raise 'background, unknown mode'.
lcx_exception=>raise( 'background, unknown mode' ).
ENDCASE.
ENDLOOP.

9
src/zabapgit_exceptions.prog.abap
View File

@ -16,6 +16,9 @@ CLASS lcx_exception DEFINITION INHERITING FROM cx_static_check FINAL.
IMPORTING iv_text TYPE string
ix_previous TYPE REF TO cx_root OPTIONAL.
CLASS-METHODS: raise IMPORTING iv_text TYPE clike
RAISING lcx_exception.
PRIVATE SECTION.
DATA mx_previous TYPE REF TO cx_root.
@ -34,6 +37,12 @@ CLASS lcx_exception IMPLEMENTATION.
mx_previous = previous.
ENDMETHOD. "CONSTRUCTOR
METHOD raise.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
iv_text = iv_text.
ENDMETHOD.
ENDCLASS. "lcx_exception IMPLEMENTATION
*----------------------------------------------------------------------*

2
src/zabapgit_forms.prog.abap
View File

@ -98,7 +98,7 @@ FORM branch_popup TABLES tt_fields TYPE ty_sval_tt
IF sy-subrc = 1.
* looks like the function module used does not exist on all
* versions since 702, so show an error
_raise 'Function module PB_POPUP_PACKAGE_CREATE does not exist'.
lcx_exception=>raise( 'Function module PB_POPUP_PACKAGE_CREATE does not exist' ).
ENDIF.
CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE'

74
src/zabapgit_git.prog.abap
View File

@ -263,17 +263,17 @@ CLASS lcl_git_transport IMPLEMENTATION.
WHEN 200.
RETURN.
WHEN 302.
_raise 'HTTP redirect, check URL'.
lcx_exception=>raise( 'HTTP redirect, check URL' ).
WHEN 401.
_raise 'HTTP 401, unauthorized'.
lcx_exception=>raise( 'HTTP 401, unauthorized' ).
WHEN 403.
_raise 'HTTP 403, forbidden'.
lcx_exception=>raise( 'HTTP 403, forbidden' ).
WHEN 404.
_raise 'HTTP 404, not found'.
lcx_exception=>raise( 'HTTP 404, not found' ).
WHEN 415.
_raise 'HTTP 415, unsupported media type'.
lcx_exception=>raise( 'HTTP 415, unsupported media type' ).
WHEN OTHERS.
_raise 'HTTP error code'.
lcx_exception=>raise( 'HTTP error code' ).
ENDCASE.
ENDMETHOD. "http_200
@ -303,7 +303,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_hash = lv_data+4.
lv_name = lv_data+45.
ELSEIF sy-tabix = 2 AND strlen( lv_data ) = 8 AND lv_data(8) = '00000000'.
_raise 'No branches, create branch manually by adding file'.
lcx_exception=>raise( 'No branches, create branch manually by adding file' ).
ELSE.
CONTINUE.
ENDIF.
@ -335,13 +335,13 @@ CLASS lcl_git_transport IMPLEMENTATION.
IF ev_branch IS SUPPLIED.
IF iv_branch_name IS INITIAL.
_raise 'branch empty'.
lcx_exception=>raise( 'branch empty' ).
ENDIF.
READ TABLE lt_branch_list INTO ls_branch_list
WITH KEY name = iv_branch_name.
IF sy-subrc <> 0.
_raise 'Branch not found'.
lcx_exception=>raise( 'Branch not found' ).
ENDIF.
ev_branch = ls_branch_list-sha1.
@ -488,9 +488,9 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_string = lcl_convert=>xstring_to_string_utf8( lv_xstring ).
IF NOT lv_string CP '*unpack ok*'.
_raise 'unpack not ok'.
lcx_exception=>raise( 'unpack not ok' ).
ELSEIF lv_string CP '*pre-receive hook declined*'.
_raise 'pre-receive hook declined'.
lcx_exception=>raise( 'pre-receive hook declined' ).
ENDIF.
ENDMETHOD. "receive_pack
@ -517,7 +517,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lo_obj->read( EXPORTING n = lv_len
IMPORTING data = lv_string ).
CATCH cx_sy_conversion_codepage.
_raise 'error converting to hex, LENGTH_UTF8_HEX'.
lcx_exception=>raise( 'error converting to hex, LENGTH_UTF8_HEX' ).
ENDTRY.
lv_char4 = lv_string.
@ -540,7 +540,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_len = length_utf8_hex( cv_data ).
IF lv_len > xstrlen( cv_data ).
_raise 'parse, string length too large'.
lcx_exception=>raise( 'parse, string length too large' ).
ENDIF.
lv_contents = cv_data(lv_len).
@ -630,7 +630,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
CHANGING cv_data = lv_xstring ).
IF lv_pack IS INITIAL.
_raise 'empty pack'.
lcx_exception=>raise( 'empty pack' ).
ENDIF.
et_objects = lcl_git_pack=>decode( lv_pack ).
@ -646,7 +646,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_len = strlen( iv_string ).
IF lv_len >= 255.
_raise 'PKT, todo'.
lcx_exception=>raise( 'PKT, todo' ).
ENDIF.
lv_x = lv_len + 4.
@ -717,7 +717,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
WHEN gc_type-ref_d.
lv_type = '111'.
WHEN OTHERS.
_raise 'Unexpected object type while encoding pack'.
lcx_exception=>raise( 'Unexpected object type while encoding pack' ).
ENDCASE.
lv_x4 = xstrlen( is_object-data ).
@ -742,7 +742,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
CONCATENATE lv_result '0' lv_bits+7(7) INTO lv_result.
ELSE.
* this IF can be refactored, use shifting?
_raise 'Todo, encoding length'.
lcx_exception=>raise( 'Todo, encoding length' ).
ENDIF.
* convert bit string to xstring
@ -879,7 +879,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
WHEN '111'.
rv_type = gc_type-ref_d.
WHEN OTHERS.
_raise 'Todo, unknown type'.
lcx_exception=>raise( 'Todo, unknown type' ).
ENDCASE.
ENDMETHOD. "get_type
@ -931,7 +931,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
IF rs_commit-author IS INITIAL
OR rs_commit-committer IS INITIAL
OR rs_commit-tree IS INITIAL.
_raise 'multiple parents? not supported'.
lcx_exception=>raise( 'multiple parents? not supported' ).
ENDIF.
ENDMETHOD. "decode_commit
@ -980,14 +980,14 @@ CLASS lcl_git_pack IMPLEMENTATION.
IF sy-subrc <> 0.
CONCATENATE 'Base not found,' is_object-sha1 INTO lv_message
SEPARATED BY space. "#EC NOTEXT
_raise lv_message.
lcx_exception=>raise( lv_message ).
ELSE.
lv_base = <ls_object>-data.
ENDIF.
* sanity check
IF <ls_object>-type = gc_type-ref_d.
_raise 'Delta, base eq delta'.
lcx_exception=>raise( 'Delta, base eq delta' ).
ENDIF.
* skip the 2 headers
@ -1119,7 +1119,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
IF ls_node-chmod <> gc_chmod-dir
AND ls_node-chmod <> gc_chmod-file
AND ls_node-chmod <> gc_chmod-executable.
_raise 'Unknown chmod'.
lcx_exception=>raise( 'Unknown chmod' ).
ENDIF.
ls_node-name = lv_name.
@ -1161,13 +1161,13 @@ CLASS lcl_git_pack IMPLEMENTATION.
* header
IF NOT xstrlen( lv_data ) > 4 OR lv_data(4) <> c_pack_start.
_raise 'Unexpected pack header'.
lcx_exception=>raise( 'Unexpected pack header' ).
ENDIF.
lv_data = lv_data+4.
* version
IF lv_data(4) <> c_version.
_raise 'Version not supported'.
lcx_exception=>raise( 'Version not supported' ).
ENDIF.
lv_data = lv_data+4.
@ -1193,7 +1193,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
* strip header, '789C', CMF + FLG
lv_zlib = lv_data(2).
IF lv_zlib <> c_zlib AND lv_zlib <> c_zlib_hmm.
_raise 'Unexpected zlib header'.
lcx_exception=>raise( 'Unexpected zlib header' ).
ENDIF.
lv_data = lv_data+2.
@ -1208,7 +1208,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
raw_out_len = lv_decompress_len ).
IF lv_expected <> lv_decompress_len.
_raise 'Decompression falied'.
lcx_exception=>raise( 'Decompression falied' ).
ENDIF.
cl_abap_gzip=>compress_binary(
@ -1219,7 +1219,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
gzip_out_len = lv_compressed_len ).
IF lv_compressed(lv_compressed_len) <> lv_data(lv_compressed_len).
_raise 'Compressed data doesnt match'.
lcx_exception=>raise( 'Compressed data doesnt match' ).
ENDIF.
lv_data = lv_data+lv_compressed_len.
@ -1234,7 +1234,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_decompressed = ls_data-raw.
IF lv_compressed_len IS INITIAL.
_raise 'Decompression falied :o/'.
lcx_exception=>raise( 'Decompression falied :o/' ).
ENDIF.
lv_data = lv_data+lv_compressed_len.
@ -1247,7 +1247,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_data = lv_data+1.
ENDIF.
IF lv_data(4) <> lv_adler32.
_raise 'Wrong Adler checksum'.
lcx_exception=>raise( 'Wrong Adler checksum' ).
ENDIF.
ENDIF.
@ -1275,7 +1275,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_xstring = iv_data(lv_len).
lv_sha1 = lcl_hash=>sha1_raw( lv_xstring ).
IF to_upper( lv_sha1 ) <> lv_data.
_raise 'SHA1 at end of pack doesnt match'.
lcx_exception=>raise( 'SHA1 at end of pack doesnt match' ).
ENDIF.
decode_deltas( CHANGING ct_objects = rt_objects ).
@ -1609,7 +1609,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
AND path = <ls_stage>-file-path.
ASSERT sy-subrc = 0.
WHEN OTHERS.
_raise 'stage method not supported, todo'.
lcx_exception=>raise( 'stage method not supported, todo' ).
ENDCASE.
ENDLOOP.
@ -1637,7 +1637,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
WITH KEY sha1 = iv_tree
type = gc_type-tree.
IF sy-subrc <> 0.
_raise 'tree not found'.
lcx_exception=>raise( 'tree not found' ).
ENDIF.
lt_nodes = lcl_git_pack=>decode_tree( ls_object-data ).
@ -1657,7 +1657,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
iv_base = iv_base && <ls_node>-name && '/' ).
APPEND LINES OF lt_expanded TO rt_expanded.
WHEN OTHERS.
_raise 'walk_tree: unknown chmod'.
lcx_exception=>raise( 'walk_tree: unknown chmod' ).
ENDCASE.
ENDLOOP.
@ -1671,7 +1671,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects INTO ls_object WITH KEY sha1 = iv_branch type = gc_type-commit.
IF sy-subrc <> 0.
_raise 'commit not found'.
lcx_exception=>raise( 'commit not found' ).
ENDIF.
ls_commit = lcl_git_pack=>decode_commit( ls_object-data ).
@ -1697,7 +1697,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE et_objects INTO ls_object WITH KEY sha1 = ev_branch type = gc_type-commit.
IF sy-subrc <> 0.
_raise 'Commit/branch not found'.
lcx_exception=>raise( 'Commit/branch not found' ).
ENDIF.
ls_commit = lcl_git_pack=>decode_commit( ls_object-data ).
@ -1818,7 +1818,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects ASSIGNING <ls_tree> WITH KEY sha1 = iv_sha1 type = gc_type-tree.
IF sy-subrc <> 0.
_raise 'Walk, tree not found'.
lcx_exception=>raise( 'Walk, tree not found' ).
ENDIF.
lt_nodes = lcl_git_pack=>decode_tree( <ls_tree>-data ).
@ -1828,7 +1828,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects ASSIGNING <ls_blob>
WITH KEY sha1 = <ls_node>-sha1 type = gc_type-blob.
IF sy-subrc <> 0.
_raise 'Walk, blob not found'.
lcx_exception=>raise( 'Walk, blob not found' ).
ENDIF.
CLEAR ls_file.

20
src/zabapgit_gui.prog.abap
View File

@ -188,7 +188,7 @@ CLASS lcl_gui IMPLEMENTATION.
WHEN gc_event_state-no_more_act.
" Do nothing, handling completed
WHEN OTHERS.
_raise 'Unknown action'.
lcx_exception=>raise( 'Unknown action' ).
ENDCASE.
CATCH lcx_exception INTO lx_exception.
@ -633,7 +633,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
cl_gui_frontend_services=>execute( EXPORTING document = gc_abapgit_homepage
EXCEPTIONS OTHERS = 1 ).
IF sy-subrc <> 0.
_raise 'Opening page in external browser failed.'.
lcx_exception=>raise( 'Opening page in external browser failed.' ).
ENDIF.
ev_state = gc_event_state-no_more_act.
WHEN 'abapgit_installation'.
@ -735,7 +735,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
CREATE OBJECT ri_page TYPE (lv_page_class).
CATCH cx_sy_create_object_error.
lv_message = |Cannot create page class { lv_page_class }|.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. " get_page_by_name
@ -756,7 +756,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
CATCH cx_sy_create_object_error.
lv_message = |Cannot create page class { lv_page_class }|.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. " get_page_db_by_name
@ -804,14 +804,14 @@ CLASS lcl_gui_router IMPLEMENTATION.
WITH KEY filename = ls_file-filename
path = ls_file-path.
IF sy-subrc <> 0.
_raise 'file not found remotely'.
lcx_exception=>raise( 'file not found remotely' ).
ENDIF.
READ TABLE lt_local ASSIGNING <ls_local>
WITH KEY file-filename = ls_file-filename
file-path = ls_file-path.
IF sy-subrc <> 0.
_raise 'file not found locally'.
lcx_exception=>raise( 'file not found locally' ).
ENDIF.
CREATE OBJECT lo_page
@ -923,7 +923,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
text_not_found = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from POPUP_TO_CONFIRM'.
lcx_exception=>raise( 'error from POPUP_TO_CONFIRM' ).
ENDIF.
IF lv_answer = '2'.
@ -972,7 +972,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
text_not_found = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from POPUP_TO_CONFIRM'.
lcx_exception=>raise( 'error from POPUP_TO_CONFIRM' ).
ENDIF.
IF lv_answer = '2'.
@ -1009,7 +1009,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
text_not_found = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from POPUP_TO_CONFIRM'.
lcx_exception=>raise( 'error from POPUP_TO_CONFIRM' ).
ENDIF.
IF lv_answer = '2'.
@ -1106,7 +1106,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
text_not_found = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from POPUP_TO_CONFIRM'.
lcx_exception=>raise( 'error from POPUP_TO_CONFIRM' ).
ENDIF.
IF lv_answer = '2'.

64
src/zabapgit_object.prog.abap
View File

@ -58,7 +58,7 @@ CLASS lcl_objects IMPLEMENTATION.
text_not_found = 1
OTHERS = 2 ##NO_TEXT.
IF sy-subrc <> 0.
_raise 'error from POPUP_TO_CONFIRM'.
lcx_exception=>raise( 'error from POPUP_TO_CONFIRM' ).
ENDIF.
IF lv_answer = '2'.
@ -101,7 +101,7 @@ CLASS lcl_objects IMPLEMENTATION.
text_not_found = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from POPUP_TO_CONFIRM'.
lcx_exception=>raise( 'error from POPUP_TO_CONFIRM' ).
ENDIF.
IF lv_answer = '2'.
@ -182,7 +182,7 @@ CLASS lcl_objects IMPLEMENTATION.
CONCATENATE 'Object type' is_item-obj_type 'not supported, serialize'
INTO lv_message
SEPARATED BY space. "#EC NOTEXT
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDTRY.
@ -442,7 +442,7 @@ CLASS lcl_objects IMPLEMENTATION.
WHEN 'DA'.
<ls_edge>-to-obj_type = 'TTYP'.
WHEN OTHERS.
_raise 'resolve_ddic, unknown object_cls'.
lcx_exception=>raise( 'resolve_ddic, unknown object_cls' ).
ENDCASE.
ENDLOOP.
@ -535,7 +535,7 @@ CLASS lcl_objects IMPLEMENTATION.
SORT lt_files BY path ASCENDING filename ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_files COMPARING path filename.
IF lines( lt_files ) <> lines( it_files ).
_raise 'Duplicates'.
lcx_exception=>raise( 'Duplicates' ).
ENDIF.
ENDMETHOD.
@ -617,7 +617,7 @@ CLASS lcl_objects IMPLEMENTATION.
lv_cancel = warning_package( is_item = ls_item
iv_package = lv_package ).
IF lv_cancel = abap_true.
_raise 'cancelled'.
lcx_exception=>raise( 'cancelled' ).
ENDIF.
CREATE OBJECT lo_files
@ -834,7 +834,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
other = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'Error from SEO_CLASS_DELETE_COMPLETE'.
lcx_exception=>raise( 'Error from SEO_CLASS_DELETE_COMPLETE' ).
ENDIF.
WHEN 'INTF'.
CALL FUNCTION 'SEO_INTERFACE_DELETE_COMPLETE'
@ -848,10 +848,10 @@ CLASS lcl_object_clas IMPLEMENTATION.
other = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'Error from SEO_INTERFACE_DELETE_COMPLETE'.
lcx_exception=>raise( 'Error from SEO_INTERFACE_DELETE_COMPLETE' ).
ENDIF.
WHEN OTHERS.
_raise 'class delete, unknown type'.
lcx_exception=>raise( 'class delete, unknown type' ).
ENDCASE.
ENDMETHOD. "delete
@ -971,7 +971,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
class_not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from CL_OO_SOURCE'.
lcx_exception=>raise( 'error from CL_OO_SOURCE' ).
ENDIF.
lo_source->read( 'A' ).
@ -1126,7 +1126,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
IF sy-subrc = 1.
RETURN. " in case only inactive version exists
ELSEIF sy-subrc <> 0.
_raise 'error from seo_clif_get'.
lcx_exception=>raise( 'error from seo_clif_get' ).
ENDIF.
CLEAR: ls_vseoclass-uuid,
@ -1232,7 +1232,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DOCU_UPD'.
lcx_exception=>raise( 'error from DOCU_UPD' ).
ENDIF.
ENDMETHOD. "deserialize_doku
@ -1261,7 +1261,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
LANGUAGE mv_language
STATE 'I'.
IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'.
lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF.
lcl_objects_activation=>add( iv_type = 'REPT'
@ -1318,7 +1318,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
other = 6
OTHERS = 7.
IF sy-subrc <> 0.
_raise 'error from SEO_CLASS_CREATE_COMPLETE'.
lcx_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ).
ENDIF.
WHEN 'INTF'.
@ -1340,7 +1340,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
other = 6
OTHERS = 7.
IF sy-subrc <> 0.
_raise 'Error from SEO_INTERFACE_CREATE_COMPLETE'.
lcx_exception=>raise( 'Error from SEO_INTERFACE_CREATE_COMPLETE' ).
ENDIF.
WHEN OTHERS.
@ -1363,7 +1363,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
locals_not_initialised = 4
OTHERS = 5.
IF sy-subrc <> 0.
_raise 'error from generate_locals'.
lcx_exception=>raise( 'error from generate_locals' ).
ENDIF.
ENDIF.
@ -1394,7 +1394,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
class_not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from CL_OO_SOURCE'.
lcx_exception=>raise( 'error from CL_OO_SOURCE' ).
ENDIF.
TRY.
@ -1403,9 +1403,9 @@ CLASS lcl_object_clas IMPLEMENTATION.
lo_source->save( ).
lo_source->access_permission( seok_access_free ).
CATCH cx_oo_access_permission.
_raise 'permission error'.
lcx_exception=>raise( 'permission error' ).
CATCH cx_oo_source_save_failure.
_raise 'save failure'.
lcx_exception=>raise( 'save failure' ).
ENDTRY.
ENDMETHOD.
@ -1429,7 +1429,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
TRY.
CALL METHOD lo_source->('IF_OO_CLIF_SOURCE~LOCK').
CATCH cx_oo_access_permission.
_raise 'source_new, access permission exception'.
lcx_exception=>raise( 'source_new, access permission exception' ).
ENDTRY.
CALL METHOD lo_source->('IF_OO_CLIF_SOURCE~SET_SOURCE')
@ -1590,7 +1590,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
error_message = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from FUNCTION_DELETE'.
lcx_exception=>raise( 'error from FUNCTION_DELETE' ).
ENDIF.
ENDIF.
@ -1625,7 +1625,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
canceled_in_corr = 10
OTHERS = 11.
IF sy-subrc <> 0.
_raise 'error from RS_FUNCTIONMODULE_INSERT'.
lcx_exception=>raise( 'error from RS_FUNCTIONMODULE_INSERT' ).
ENDIF.
INSERT REPORT lv_include FROM lt_source.
@ -1705,7 +1705,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
area_length_error = 11
OTHERS = 12.
IF sy-subrc <> 0.
_raise 'error from FUNCTION_INCLUDE_SPLIT'.
lcx_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'AREAT'
@ -1733,7 +1733,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
OTHERS = 12.
IF sy-subrc <> 0 AND sy-subrc <> 1 AND sy-subrc <> 3.
* todo, change description
_raise 'error from RS_FUNCTION_POOL_INSERT'.
lcx_exception=>raise( 'error from RS_FUNCTION_POOL_INSERT' ).
ENDIF.
ENDMETHOD. "deserialize_xml
@ -1750,7 +1750,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
WHERE spras = mv_language
AND area = ms_item-obj_name. "#EC CI_GENBUFF
IF sy-subrc <> 0.
_raise 'not found in TLIBT'.
lcx_exception=>raise( 'not found in TLIBT' ).
ENDIF.
lt_functab = functions( ).
@ -1791,7 +1791,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
no_program = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'Error from RS_GET_ALL_INCLUDES'.
lcx_exception=>raise( 'Error from RS_GET_ALL_INCLUDES' ).
ENDIF.
LOOP AT lt_functab ASSIGNING <ls_func>.
@ -1842,7 +1842,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
function_pool_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from RS_FUNCTION_POOL_CONTENTS'.
lcx_exception=>raise( 'Error from RS_FUNCTION_POOL_CONTENTS' ).
ENDIF.
ENDMETHOD. "functions
@ -1876,7 +1876,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
area_length_error = 11
OTHERS = 12.
IF sy-subrc <> 0.
_raise 'Error from FUNCTION_INCLUDE_SPLIT'.
lcx_exception=>raise( 'Error from FUNCTION_INCLUDE_SPLIT' ).
ENDIF.
CONCATENATE lv_namespace 'SAPL' lv_group INTO rv_program.
@ -1927,7 +1927,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
invalid_name = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'Error from RPY_FUNCTIONMODULE_READ_NEW'.
lcx_exception=>raise( 'Error from RPY_FUNCTIONMODULE_READ_NEW' ).
ENDIF.
IF NOT lt_new_source IS INITIAL.
@ -2055,7 +2055,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
cancelled = 9
OTHERS = 10.
IF sy-subrc <> 0.
_raise 'error from RS_FUNCTION_POOL_DELETE'.
lcx_exception=>raise( 'error from RS_FUNCTION_POOL_DELETE' ).
ENDIF.
ENDMETHOD. "delete
@ -2153,7 +2153,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
reject_deletion = 4
OTHERS = 5.
IF sy-subrc <> 0.
_raise 'error from RS_DELETE_PROGRAM'.
lcx_exception=>raise( 'error from RS_DELETE_PROGRAM' ).
ENDIF.
ENDMETHOD. "delete
@ -2170,7 +2170,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
LANGUAGE mv_language
STATE 'I'.
IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'.
lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF.
lcl_objects_activation=>add( iv_type = 'REPT'

4
src/zabapgit_object_acid.prog.abap
View File

@ -50,7 +50,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
name_not_allowed = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error creating CL_AAB_ID object'.
lcx_exception=>raise( 'error creating CL_AAB_ID object' ).
ENDIF.
ENDMETHOD. "create_object
@ -110,7 +110,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
where_used_error = 9
OTHERS = 10 ).
IF sy-subrc <> 0.
_raise 'error deleting ACID object'.
lcx_exception=>raise( 'error deleting ACID object' ).
ENDIF.
lo_aab->dequeue( ).

8
src/zabapgit_object_auth.prog.abap
View File

@ -60,12 +60,12 @@ CLASS lcl_object_auth IMPLEMENTATION.
CREATE OBJECT lo_auth.
IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0.
_raise 'Error deserializing AUTH'.
lcx_exception=>raise( 'Error deserializing AUTH' ).
ENDIF.
MODIFY authx FROM ls_authx.
IF sy-subrc <> 0.
_raise 'Error deserializing AUTH'.
lcx_exception=>raise( 'Error deserializing AUTH' ).
ENDIF.
CALL FUNCTION 'DB_COMMIT'.
@ -92,7 +92,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
no_authority = 4
OTHERS = 5.
IF sy-subrc <> 0.
_raise 'error from SUSR_AUTF_DELETE_FIELD'.
lcx_exception=>raise( 'error from SUSR_AUTF_DELETE_FIELD' ).
ENDIF.
ENDMETHOD. "lif_object~delete
@ -111,7 +111,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
METHOD lif_object~jump.
_raise 'todo, AUTH jump'.
lcx_exception=>raise( 'todo, AUTH jump' ).
ENDMETHOD. "lif_object~jump

4
src/zabapgit_object_doct.prog.abap
View File

@ -80,7 +80,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
METHOD lif_object~jump.
_raise 'todo, jump DOCT'.
lcx_exception=>raise( 'todo, jump DOCT' ).
ENDMETHOD. "jump
@ -101,7 +101,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DOCU_DEL'.
lcx_exception=>raise( 'error from DOCU_DEL' ).
ENDIF.
ENDMETHOD. "delete

4
src/zabapgit_object_docv.prog.abap
View File

@ -82,7 +82,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
METHOD lif_object~jump.
_raise 'todo, jump DOCT'.
lcx_exception=>raise( 'todo, jump DOCT' ).
ENDMETHOD. "jump
@ -105,7 +105,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DOCU_DEL'.
lcx_exception=>raise( 'error from DOCU_DEL' ).
ENDIF.
ENDMETHOD. "delete

6
src/zabapgit_object_doma.prog.abap
View File

@ -77,7 +77,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, DOMA'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, DOMA' ).
ENDIF.
ENDMETHOD. "delete
@ -103,7 +103,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DDIF_DOMA_GET'.
lcx_exception=>raise( 'error from DDIF_DOMA_GET' ).
ENDIF.
IF ls_dd01v IS INITIAL.
RETURN. " does not exist
@ -156,7 +156,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_DOMA_PUT'.
lcx_exception=>raise( 'error from DDIF_DOMA_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

6
src/zabapgit_object_dtel.prog.abap
View File

@ -76,7 +76,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, DTEL'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, DTEL' ).
ENDIF.
ENDMETHOD. "delete
@ -101,7 +101,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from DDIF_DTEL_GET'.
lcx_exception=>raise( 'Error from DDIF_DTEL_GET' ).
ENDIF.
IF ls_dd04v IS INITIAL.
RETURN. " does not exist
@ -146,7 +146,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_DTEL_PUT'.
lcx_exception=>raise( 'error from DDIF_DTEL_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

12
src/zabapgit_object_enho.prog.abap
View File

@ -80,7 +80,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
TRY.
li_enh_tool = cl_enh_factory=>get_enhancement( lv_enh_id ).
CATCH cx_enh_root.
_raise 'Error from CL_ENH_FACTORY'.
lcx_exception=>raise( 'Error from CL_ENH_FACTORY' ).
ENDTRY.
lv_tool = li_enh_tool->get_tool( ).
@ -100,7 +100,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
* WHEN cl_wdr_cfg_enhancement=>tooltype.
* WHEN 'ENHWDYN'. "cl_enh_tool_wdy
WHEN OTHERS.
_raise 'Unsupported ENHO type'.
lcx_exception=>raise( 'Unsupported ENHO type' ).
ENDCASE.
ENDMETHOD. "serialize
@ -130,7 +130,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
* WHEN cl_wdr_cfg_enhancement=>tooltype.
* WHEN 'ENHWDYN'. "cl_enh_tool_wdy
WHEN OTHERS.
_raise 'Unsupported ENHO type'.
lcx_exception=>raise( 'Unsupported ENHO type' ).
ENDCASE.
lcl_objects_activation=>add_item( ms_item ).
@ -179,7 +179,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
lo_badi->if_enh_object~save( ).
lo_badi->if_enh_object~unlock( ).
CATCH cx_enh_root.
_raise 'error deserializing ENHO badi'.
lcx_exception=>raise( 'error deserializing ENHO badi' ).
ENDTRY.
ENDMETHOD. "deserialize_badi
@ -241,7 +241,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
lo_hook_impl->if_enh_object~save( ).
lo_hook_impl->if_enh_object~unlock( ).
CATCH cx_enh_root.
_raise 'error deserializing ENHO hook'.
lcx_exception=>raise( 'error deserializing ENHO hook' ).
ENDTRY.
ENDMETHOD. "deserialize_hook
@ -318,7 +318,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
li_enh_object->save( ).
li_enh_object->unlock( ).
CATCH cx_enh_root.
_raise 'Error deleting ENHO'.
lcx_exception=>raise( 'Error deleting ENHO' ).
ENDTRY.
ENDMETHOD. "delete

6
src/zabapgit_object_enhs.prog.abap
View File

@ -76,7 +76,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deserializing EHNS: `
&& lx_root->get_text( ) ##NO_TEXT.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "deserialize
@ -115,7 +115,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while serializing EHNS: `
&& lx_root->get_text( ) ##NO_TEXT.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "serialize
@ -167,7 +167,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deleting EHNS: `
&& lx_root->get_text( ) ##NO_TEXT.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "delete

6
src/zabapgit_object_enqu.prog.abap
View File

@ -68,7 +68,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, ENQU'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, ENQU' ).
ENDIF.
ENDMETHOD. "delete
@ -97,7 +97,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DDIF_ENQU_GET'.
lcx_exception=>raise( 'error from DDIF_ENQU_GET' ).
ENDIF.
IF ls_dd25v IS INITIAL.
RETURN. " does not exist in system
@ -150,7 +150,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_ENQU_PUT'.
lcx_exception=>raise( 'error from DDIF_ENQU_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

6
src/zabapgit_object_ensc.prog.abap
View File

@ -76,7 +76,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deserializing ENSC: `
&& lx_root->get_text( ) ##NO_TEXT.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "deserialize
@ -121,7 +121,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while serializing ENSC: `
&& lx_root->get_text( ) ##NO_TEXT.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "serialize
@ -167,7 +167,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deleting ENSC: `
&& lx_root->get_text( ) ##NO_TEXT.
_raise lv_message.
lcx_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "delete

8
src/zabapgit_object_iarp.prog.abap
View File

@ -60,7 +60,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
_raise 'error from w3api_resource~load'.
lcx_exception=>raise( 'error from w3api_resource~load' ).
ENDIF.
li_resource->get_attributes( IMPORTING p_attributes = es_attr ).
@ -146,7 +146,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
_raise 'error from if_w3_api_resource~load'.
lcx_exception=>raise( 'error from if_w3_api_resource~load' ).
ENDIF.
li_resource->if_w3_api_object~set_changeable( abap_true ).
@ -173,7 +173,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
_raise 'error from w3_api_resource~load'.
lcx_exception=>raise( 'error from w3_api_resource~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.
@ -181,7 +181,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
_raise 'todo, IARP, jump'.
lcx_exception=>raise( 'todo, IARP, jump' ).
ENDMETHOD. "lif_object~jump
ENDCLASS. "lcl_object_iarp IMPLEMENTATION

8
src/zabapgit_object_iasp.prog.abap
View File

@ -60,7 +60,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
_raise 'error from w3api_service~load'.
lcx_exception=>raise( 'error from w3api_service~load' ).
ENDIF.
li_service->get_attributes( IMPORTING p_attributes = es_attr ).
@ -146,7 +146,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
_raise 'error from if_w3_api_service~load'.
lcx_exception=>raise( 'error from if_w3_api_service~load' ).
ENDIF.
li_service->if_w3_api_object~set_changeable( abap_true ).
@ -173,7 +173,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
_raise 'error from w3_api_service~load'.
lcx_exception=>raise( 'error from w3_api_service~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.
@ -181,7 +181,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
_raise 'todo, IASP, jump'.
lcx_exception=>raise( 'todo, IASP, jump' ).
ENDMETHOD. "lif_object~jump
ENDCLASS. "lcl_object_iasp IMPLEMENTATION

8
src/zabapgit_object_iatu.prog.abap
View File

@ -61,7 +61,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
_raise 'error from w3api_template~load'.
lcx_exception=>raise( 'error from w3api_template~load' ).
ENDIF.
li_template->get_attributes( IMPORTING p_attributes = es_attr ).
@ -163,7 +163,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
_raise 'error from if_w3_api_template~load'.
lcx_exception=>raise( 'error from if_w3_api_template~load' ).
ENDIF.
li_template->if_w3_api_object~set_changeable( abap_true ).
@ -190,7 +190,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
_raise 'error from w3_api_template~load'.
lcx_exception=>raise( 'error from w3_api_template~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.
@ -198,7 +198,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
_raise 'todo, IATU, jump'.
lcx_exception=>raise( 'todo, IATU, jump' ).
ENDMETHOD. "lif_object~jump
ENDCLASS. "lcl_object_iatu IMPLEMENTATION

4
src/zabapgit_object_msag.prog.abap
View File

@ -70,7 +70,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
no_permission = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'Error from RS_DELETE_MESSAGE_ID'.
lcx_exception=>raise( 'Error from RS_DELETE_MESSAGE_ID' ).
ENDIF.
ENDMETHOD. "delete
@ -103,7 +103,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
permission_failure = 02
unknown_objectclass = 03.
IF sy-subrc <> 0.
_raise 'Error from RS_CORR_INSERT'.
lcx_exception=>raise( 'Error from RS_CORR_INSERT' ).
ENDIF.
LOOP AT lt_t100 ASSIGNING <ls_t100>.

12
src/zabapgit_object_nrob.prog.abap
View File

@ -94,7 +94,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'error from NUMBER_RANGE_OBJECT_READ'.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_READ' ).
ENDIF.
io_xml->add( iv_name = 'ATTRIBUTES'
@ -131,7 +131,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
wrong_indicator = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from NUMBER_RANGE_OBJECT_UPDATE'.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_UPDATE' ).
ENDIF.
CALL FUNCTION 'NUMBER_RANGE_OBJECT_CLOSE'
@ -140,7 +140,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
EXCEPTIONS
object_not_initialized = 1.
IF sy-subrc <> 0.
_raise 'error from NUMBER_RANGE_OBJECT_CLOSE'.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ).
ENDIF.
CALL FUNCTION 'TR_TADIR_INTERFACE'
@ -156,7 +156,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
_raise 'error from TR_TADIR_INTERFACE'.
lcx_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
ENDIF.
ENDMETHOD. "deserialize
@ -178,14 +178,14 @@ CLASS lcl_object_nrob IMPLEMENTATION.
wrong_indicator = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from NUMBER_RANGE_OBJECT_DELETE'.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_DELETE' ).
ENDIF.
ENDMETHOD. "delete
METHOD lif_object~jump.
_raise 'todo'.
lcx_exception=>raise( 'todo' ).
ENDMETHOD. "jump

6
src/zabapgit_object_para.prog.abap
View File

@ -58,7 +58,7 @@ CLASS lcl_object_para IMPLEMENTATION.
WHERE paramid = ms_item-obj_name
AND sprache = mv_language. "#EC CI_GENBUFF
IF sy-subrc <> 0.
_raise 'PARA no english description'.
lcx_exception=>raise( 'PARA no english description' ).
ENDIF.
io_xml->add( iv_name = 'TPARA'
@ -103,7 +103,7 @@ CLASS lcl_object_para IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from RS_CORR_INSERT, PARA'.
lcx_exception=>raise( 'error from RS_CORR_INSERT, PARA' ).
ENDIF.
MODIFY tpara FROM ls_tpara. "#EC CI_SUBRC
@ -127,7 +127,7 @@ CLASS lcl_object_para IMPLEMENTATION.
cancelled = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from RS_PRAMETER_DELETE'.
lcx_exception=>raise( 'error from RS_PRAMETER_DELETE' ).
ENDIF.
ENDMETHOD. "delete

6
src/zabapgit_object_pinf.prog.abap
View File

@ -258,7 +258,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
unexpected_error = 4
OTHERS = 7 ).
IF sy-subrc <> 0.
_raise 'error creating new package interface'.
lcx_exception=>raise( 'error creating new package interface' ).
ENDIF.
ELSE.
cl_package_interface=>load_package_interface(
@ -275,7 +275,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
object_locked_and_modified = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
_raise 'error loading package interface'.
lcx_exception=>raise( 'error loading package interface' ).
ENDIF.
ENDIF.
@ -321,7 +321,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
object_locked_and_modified = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
_raise 'error loading package interface, delete'.
lcx_exception=>raise( 'error loading package interface, delete' ).
ENDIF.
* elements must be deleted before the package interface

6
src/zabapgit_object_sfbf.prog.abap
View File

@ -70,7 +70,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ro_bf->free( ).
ro_bf = cl_sfw_bf=>get_bf( lv_bf ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
_raise 'Error from CL_SFW_BF=>GET_BF'.
lcx_exception=>raise( 'Error from CL_SFW_BF=>GET_BF' ).
ENDTRY.
ENDMETHOD.
@ -177,7 +177,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
TRY.
lo_bf = cl_sfw_bf=>create_bf( lv_bf ).
CATCH cx_pak_not_authorized cx_pak_invalid_state cx_pak_invalid_data.
_raise 'error in CL_SFW_BF=>CREATE_BF'.
lcx_exception=>raise( 'error in CL_SFW_BF=>CREATE_BF' ).
ENDTRY.
ls_header-author = sy-uname.
@ -213,7 +213,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
lo_bf->set_delete_flag( lv_bf ).
lo_bf->save_all( ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
_raise 'Error deleting BF'.
lcx_exception=>raise( 'Error deleting BF' ).
ENDTRY.
ENDMETHOD. "delete

6
src/zabapgit_object_sfbs.prog.abap
View File

@ -45,7 +45,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ro_bfs->free( ).
ro_bfs = cl_sfw_bfs=>get_bfs( lv_bfset ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
_raise 'Error from CL_SFW_BFS=>GET_BFS'.
lcx_exception=>raise( 'Error from CL_SFW_BFS=>GET_BFS' ).
ENDTRY.
ENDMETHOD.
@ -155,7 +155,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
TRY.
lo_bfs = cl_sfw_bfs=>create_bfs( lv_bfset ).
CATCH cx_pak_not_authorized cx_pak_invalid_state cx_pak_invalid_data.
_raise 'error in CL_SFW_BFS=>CREATE_BFS'.
lcx_exception=>raise( 'error in CL_SFW_BFS=>CREATE_BFS' ).
ENDTRY.
ls_header-author = sy-uname.
@ -187,7 +187,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
lo_bfs->set_delete_flag( lv_bfset ).
lo_bfs->save_all( ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
_raise 'Error deleting BF'.
lcx_exception=>raise( 'Error deleting BF' ).
ENDTRY.
ENDMETHOD. "delete

8
src/zabapgit_object_sfsw.prog.abap
View File

@ -67,7 +67,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
TRY.
ro_switch = cl_sfw_sw=>get_switch_from_db( lv_switch_id ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
_raise 'Error from CL_SFW_SW=>GET_SWITCH'.
lcx_exception=>raise( 'Error from CL_SFW_SW=>GET_SWITCH' ).
ENDTRY.
ENDMETHOD.
@ -144,7 +144,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
TRY.
lo_switch = cl_sfw_sw=>create_switch( lv_switch_id ).
CATCH cx_pak_not_authorized cx_pak_invalid_state cx_pak_invalid_data.
_raise 'error in CL_SFW_SW=>CREATE_SWITCH'.
lcx_exception=>raise( 'error in CL_SFW_SW=>CREATE_SWITCH' ).
ENDTRY.
ls_header-author = sy-uname.
@ -162,7 +162,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
not_saved = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
_raise 'error in CL_SFW_SW->SAVE_ALL'.
lcx_exception=>raise( 'error in CL_SFW_SW->SAVE_ALL' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).
@ -181,7 +181,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
lo_switch->set_delete_flag( lv_switch_id ).
lo_switch->save_all( ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
_raise 'Error deleting Switch'.
lcx_exception=>raise( 'Error deleting Switch' ).
ENDTRY.
ENDMETHOD. "delete

12
src/zabapgit_object_shi3.prog.abap
View File

@ -100,7 +100,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from ABAP4_CALL_TRANSACTION, SHI3'.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SHI3' ).
ENDIF.
ENDMETHOD. "jump_se43
@ -140,7 +140,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from BMENU_DELETE_TREE, SHI3'.
lcx_exception=>raise( 'error from BMENU_DELETE_TREE, SHI3' ).
ENDIF.
ENDMETHOD. "delete
@ -164,7 +164,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
description = lt_titles.
IF sy-subrc <> 0.
_raise 'Error from STREE_STRUCTURE_READ, SHI3'.
lcx_exception=>raise( 'Error from STREE_STRUCTURE_READ, SHI3' ).
ENDIF.
CALL FUNCTION 'STREE_HIERARCHY_READ'
@ -179,7 +179,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
list_of_references = lt_refs
list_of_texts = lt_texts.
IF sy-subrc <> 0.
_raise 'Error from STREE_HIERARCHY_READ, SHI3'.
lcx_exception=>raise( 'Error from STREE_HIERARCHY_READ, SHI3' ).
ENDIF.
strip_stamps( CHANGING cs_head = ls_head
@ -267,7 +267,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
READ TABLE mt_map WITH TABLE KEY old = iv_id INTO ls_map.
IF sy-subrc <> 0.
_raise 'Cannot replace id, SHI3'.
lcx_exception=>raise( 'Cannot replace id, SHI3' ).
ENDIF.
rv_new_id = ls_map-new.
@ -321,7 +321,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
no_nodes_given = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from STREE_HIERARCHY_SAVE, SHI3'.
lcx_exception=>raise( 'Error from STREE_HIERARCHY_SAVE, SHI3' ).
ENDIF.
ENDMETHOD. "deserialize

6
src/zabapgit_object_shlp.prog.abap
View File

@ -74,7 +74,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, SHLP'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, SHLP' ).
ENDIF.
ENDMETHOD. "delete
@ -105,7 +105,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DDIF_SHLP_GET'.
lcx_exception=>raise( 'error from DDIF_SHLP_GET' ).
ENDIF.
IF ls_dd30v IS INITIAL.
RETURN. " does not exist in system
@ -164,7 +164,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_SHLP_PUT'.
lcx_exception=>raise( 'error from DDIF_SHLP_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

12
src/zabapgit_object_sicf.prog.abap
View File

@ -162,7 +162,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
_raise 'error from get_info_from_serv'.
lcx_exception=>raise( 'error from get_info_from_serv' ).
ENDIF.
ASSERT lines( lt_serv_info ) = 1.
@ -247,7 +247,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
_raise 'error from service_from_url'.
lcx_exception=>raise( 'error from service_from_url' ).
ENDIF.
ENDMETHOD. "find_parent
@ -308,7 +308,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 26
OTHERS = 27 ).
IF sy-subrc <> 0.
_raise 'error from insert_node'.
lcx_exception=>raise( 'error from insert_node' ).
ENDIF.
ENDMETHOD. "insert_sicf
@ -374,7 +374,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 26
OTHERS = 27 ).
IF sy-subrc <> 0.
_raise 'error from change_node'.
lcx_exception=>raise( 'error from change_node' ).
ENDIF.
ENDMETHOD. "change_sicf
@ -405,13 +405,13 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 11
OTHERS = 12 ).
IF sy-subrc <> 0.
_raise 'error from delete_node'.
lcx_exception=>raise( 'error from delete_node' ).
ENDIF.
ENDMETHOD. "delete
METHOD lif_object~jump.
_raise 'todo, SICF, jump'.
lcx_exception=>raise( 'todo, SICF, jump' ).
ENDMETHOD. "jump
ENDCLASS. "lcl_object_sicf IMPLEMENTATION

12
src/zabapgit_object_smim.prog.abap
View File

@ -134,7 +134,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
READ TABLE lt_files ASSIGNING <ls_file> WITH KEY filename = lv_filename.
IF sy-subrc <> 0.
_raise 'SMIM, file not found'.
lcx_exception=>raise( 'SMIM, file not found' ).
ENDIF.
rv_content = <ls_file>-data.
@ -188,7 +188,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
permission_failure = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
_raise 'error from mime api->get'.
lcx_exception=>raise( 'error from mime api->get' ).
ENDIF.
lv_filename = get_filename( lv_url ).
@ -242,7 +242,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
folder_exists = 5
OTHERS = 6 ).
IF sy-subrc <> 5 AND sy-subrc <> 0.
_raise 'error frrom SMIM create_folder'.
lcx_exception=>raise( 'error frrom SMIM create_folder' ).
ENDIF.
ELSE.
lv_filename = get_filename( lv_url ).
@ -271,7 +271,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
is_folder = 7
OTHERS = 8 ).
IF sy-subrc <> 0.
_raise 'error from SMIM put'.
lcx_exception=>raise( 'error from SMIM put' ).
ENDIF.
ENDIF.
@ -304,13 +304,13 @@ CLASS lcl_object_smim IMPLEMENTATION.
not_found = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
_raise 'error from delete'.
lcx_exception=>raise( 'error from delete' ).
ENDIF.
ENDMETHOD. "delete
METHOD lif_object~jump.
_raise 'todo, SMIM, jump'.
lcx_exception=>raise( 'todo, SMIM, jump' ).
ENDMETHOD. "jump
ENDCLASS. "lcl_object_smim IMPLEMENTATION

2
src/zabapgit_object_splo.prog.abap
View File

@ -127,7 +127,7 @@ CLASS lcl_object_splo IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
_raise 'todo, jump, SPLO'.
lcx_exception=>raise( 'todo, jump, SPLO' ).
ENDMETHOD. "lif_object~jump
ENDCLASS. "lcl_object_splo IMPLEMENTATION

2
src/zabapgit_object_ssfo.prog.abap
View File

@ -108,7 +108,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
illegal_formtype = 6
OTHERS = 7.
IF sy-subrc <> 0 AND sy-subrc <> 2.
_raise 'Error from FB_DELETE_FORM'.
lcx_exception=>raise( 'Error from FB_DELETE_FORM' ).
ENDIF.
ENDMETHOD. "delete

10
src/zabapgit_object_ssst.prog.abap
View File

@ -60,7 +60,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
SELECT SINGLE tdfamily FROM tfo01 INTO lv_tdfamily
WHERE tdfamily = iv_tdfamily.
IF sy-subrc <> 0.
_raise 'Font family not found'.
lcx_exception=>raise( 'Font family not found' ).
ENDIF.
ENDMETHOD. "validate_font
@ -102,7 +102,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
IF sy-subrc = 2.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'error from SSF_READ_STYLE'.
lcx_exception=>raise( 'error from SSF_READ_STYLE' ).
ENDIF.
CLEAR ls_header-version.
@ -163,7 +163,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
illegal_language = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from SSF_ACTIVATE_STYLE'.
lcx_exception=>raise( 'error from SSF_ACTIVATE_STYLE' ).
ENDIF.
ENDMETHOD. "deserialize
@ -189,13 +189,13 @@ CLASS lcl_object_ssst IMPLEMENTATION.
illegal_language = 6
OTHERS = 7.
IF sy-subrc <> 0 AND sy-subrc <> 2.
_raise 'error from SSF_DELETE_STYLE'.
lcx_exception=>raise( 'error from SSF_DELETE_STYLE' ).
ENDIF.
ENDMETHOD. "delete
METHOD lif_object~jump.
_raise 'todo'.
lcx_exception=>raise( 'todo' ).
ENDMETHOD. "jump
ENDCLASS. "lcl_object_ssst IMPLEMENTATION

2
src/zabapgit_object_susc.prog.abap
View File

@ -57,7 +57,7 @@ CLASS lcl_object_susc IMPLEMENTATION.
WHERE oclss = ms_item-obj_name
AND langu = mv_language.
IF sy-subrc <> 0.
_raise 'TOBCT no english description'.
lcx_exception=>raise( 'TOBCT no english description' ).
ENDIF.
io_xml->add( iv_name = 'TOBC'

2
src/zabapgit_object_suso.prog.abap
View File

@ -62,7 +62,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
WHERE object = ms_item-obj_name
AND langu = mv_language. "#EC CI_GENBUFF
IF sy-subrc <> 0.
_raise 'TOBJT no english description'.
lcx_exception=>raise( 'TOBJT no english description' ).
ENDIF.
SELECT SINGLE * FROM tobjvorflg INTO ls_tobjvorflg

8
src/zabapgit_object_tabl.prog.abap
View File

@ -76,7 +76,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, TABL'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, TABL' ).
ENDIF.
ENDMETHOD. "delete
@ -119,7 +119,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DDIF_TABL_GET'.
lcx_exception=>raise( 'error from DDIF_TABL_GET' ).
ENDIF.
IF ls_dd02v IS INITIAL.
RETURN. " object does not exits
@ -260,7 +260,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_TABL_PUT'.
lcx_exception=>raise( 'error from DDIF_TABL_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).
@ -291,7 +291,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_INDX_PUT'.
lcx_exception=>raise( 'error from DDIF_INDX_PUT' ).
ENDIF.
CALL FUNCTION 'DD_DD_TO_E071'

8
src/zabapgit_object_tobj.prog.abap
View File

@ -81,7 +81,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'error from CTO_OBJECT_GET'.
lcx_exception=>raise( 'error from CTO_OBJECT_GET' ).
ENDIF.
CLEAR: ls_objh-luser,
@ -142,7 +142,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
IF sy-subrc <> 0.
* TOBJ has to be saved/generated after the DDIC tables have been
* activated - fixed with late deserialization
_raise 'error from OBJ_GENERATE'.
lcx_exception=>raise( 'error from OBJ_GENERATE' ).
ENDIF.
ENDMETHOD. "deserialize
@ -170,13 +170,13 @@ CLASS lcl_object_tobj IMPLEMENTATION.
object_enqueue_failed = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from OBJ_GENERATE'.
lcx_exception=>raise( 'error from OBJ_GENERATE' ).
ENDIF.
ENDMETHOD. "delete
METHOD lif_object~jump.
_raise 'todo, TOBJ jump'.
lcx_exception=>raise( 'todo, TOBJ jump' ).
ENDMETHOD. "jump
ENDCLASS. "lcl_object_tobj IMPLEMENTATION

10
src/zabapgit_object_tran.prog.abap
View File

@ -259,7 +259,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
object_not_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'Error from RPY_TRANSACTION_DELETE'.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_DELETE' ).
ENDIF.
ENDMETHOD. "delete
@ -304,7 +304,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
lv_type = ststc_c_type_parameters.
* todo, or ststc_c_type_variant?
WHEN OTHERS.
_raise 'Transaction, unknown CINFO'.
lcx_exception=>raise( 'Transaction, unknown CINFO' ).
ENDCASE.
IF ls_tstcp IS NOT INITIAL.
@ -345,7 +345,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
db_access_error = 8
OTHERS = 9.
IF sy-subrc <> 0.
_raise 'Error from RPY_TRANSACTION_INSERT'.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_INSERT' ).
ENDIF.
ENDMETHOD. "deserialize
@ -378,14 +378,14 @@ CLASS lcl_object_tran IMPLEMENTATION.
IF sy-subrc = 4 OR sy-subrc = 3.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'Error from RPY_TRANSACTION_READ'.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_READ' ).
ENDIF.
SELECT SINGLE * FROM tstct INTO ls_tstct
WHERE sprsl = mv_language
AND tcode = lv_transaction. "#EC CI_GENBUFF
IF sy-subrc <> 0.
_raise 'Transaction description not found'.
lcx_exception=>raise( 'Transaction description not found' ).
ENDIF.
SELECT SINGLE * FROM tstcp INTO ls_tstcp

6
src/zabapgit_object_ttyp.prog.abap
View File

@ -74,7 +74,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, TTYP'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, TTYP' ).
ENDIF.
ENDMETHOD. "delete
@ -103,7 +103,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DDIF_TTYP_GET'.
lcx_exception=>raise( 'error from DDIF_TTYP_GET' ).
ENDIF.
IF ls_dd40v IS INITIAL.
RETURN. " does not exist in system
@ -156,7 +156,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_TTYP_PUT'.
lcx_exception=>raise( 'error from DDIF_TTYP_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

8
src/zabapgit_object_type.prog.abap
View File

@ -84,7 +84,7 @@ CLASS lcl_object_type IMPLEMENTATION.
reps_not_exist = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'error from TYPD_GET_OBJECT'.
lcx_exception=>raise( 'error from TYPD_GET_OBJECT' ).
ENDIF.
ENDMETHOD. "read
@ -138,14 +138,14 @@ CLASS lcl_object_type IMPLEMENTATION.
illegal_name = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from RS_DD_TYGR_INSERT_SOURCES'.
lcx_exception=>raise( 'error from RS_DD_TYGR_INSERT_SOURCES' ).
ENDIF.
CONCATENATE '%_C' lv_typegroup INTO lv_progname.
UPDATE progdir SET uccheck = abap_true
WHERE name = lv_progname.
IF sy-subrc <> 0.
_raise 'error setting uccheck'.
lcx_exception=>raise( 'error setting uccheck' ).
ENDIF.
ENDMETHOD. "create
@ -189,7 +189,7 @@ CLASS lcl_object_type IMPLEMENTATION.
dialog_needed = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error deleting TYPE'.
lcx_exception=>raise( 'error deleting TYPE' ).
ENDIF.
ENDMETHOD. "delete

6
src/zabapgit_object_vcls.prog.abap
View File

@ -73,7 +73,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
incomplete_viewcluster = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'error in VIEWCLUSTER_GET_DEFINITION'.
lcx_exception=>raise( 'error in VIEWCLUSTER_GET_DEFINITION' ).
ENDIF.
CLEAR ls_vcldir_entry-author.
@ -132,7 +132,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
object_enqueue_failed = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error in OBJ_GENERATE for VCLS'.
lcx_exception=>raise( 'error in OBJ_GENERATE for VCLS' ).
ENDIF.
ENDMETHOD. "deserialize
@ -180,7 +180,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
missing_corr_number = 15
OTHERS = 16.
IF sy-subrc <> 0.
_raise 'error in VIEWCLUSTER_MAINTENANCE_CALL'.
lcx_exception=>raise( 'error in VIEWCLUSTER_MAINTENANCE_CALL' ).
ENDIF.
ENDMETHOD. "jump

6
src/zabapgit_object_view.prog.abap
View File

@ -76,7 +76,7 @@ CLASS lcl_object_view IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
_raise 'error from RS_DD_DELETE_OBJ, VIEW'.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, VIEW' ).
ENDIF.
ENDMETHOD. "delete
@ -111,7 +111,7 @@ CLASS lcl_object_view IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from DDIF_VIEW_GET'.
lcx_exception=>raise( 'error from DDIF_VIEW_GET' ).
ENDIF.
IF ls_dd25v IS INITIAL.
RETURN. " does not exist in system
@ -186,7 +186,7 @@ CLASS lcl_object_view IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'error from DDIF_VIEW_PUT'.
lcx_exception=>raise( 'error from DDIF_VIEW_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

26
src/zabapgit_object_w3xx.prog.abap
View File

@ -35,7 +35,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
METHOD lif_object~jump.
" No idea how to just to SMW0
_raise 'Please go to SMW0 for W3MI object'.
lcx_exception=>raise( 'Please go to SMW0 for W3MI object' ).
ENDMETHOD. "jump
METHOD lif_object~get_metadata.
@ -101,7 +101,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
import_error = 2.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot read W3xx data'.
lcx_exception=>raise( 'Cannot read W3xx data' ).
ENDIF.
CALL FUNCTION 'WWWPARAMS_READ_ALL'
@ -114,12 +114,12 @@ CLASS lcl_object_w3super IMPLEMENTATION.
entry_not_exists = 1.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot read W3xx data'.
lcx_exception=>raise( 'Cannot read W3xx data' ).
ENDIF.
READ TABLE lt_w3params INTO ls_wwwparam WITH KEY name = 'filesize' ##NO_TEXT.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot read W3xx filesize'.
lcx_exception=>raise( 'Cannot read W3xx filesize' ).
ENDIF.
lv_size = ls_wwwparam-value.
@ -144,11 +144,11 @@ CLASS lcl_object_w3super IMPLEMENTATION.
EXCEPTIONS
failed = 1.
WHEN OTHERS.
_raise 'Wrong W3xx type'.
lcx_exception=>raise( 'Wrong W3xx type' ).
ENDCASE.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot convert W3xx to xstring'.
lcx_exception=>raise( 'Cannot convert W3xx to xstring' ).
ENDIF.
CREATE OBJECT lo_utility.
@ -226,12 +226,12 @@ CLASS lcl_object_w3super IMPLEMENTATION.
EXCEPTIONS
failed = 1.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot update W3xx params'.
lcx_exception=>raise( 'Cannot update W3xx params' ).
ENDIF.
CLEAR lt_w3mime.
WHEN OTHERS.
_raise 'Wrong W3xx type'.
lcx_exception=>raise( 'Wrong W3xx type' ).
ENDCASE.
CALL FUNCTION 'WWWPARAMS_UPDATE'
@ -241,7 +241,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
update_error = 1.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot update W3xx params'.
lcx_exception=>raise( 'Cannot update W3xx params' ).
ENDIF.
ls_key-tdate = sy-datum.
@ -260,7 +260,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
export_error = 2.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot upload W3xx data'.
lcx_exception=>raise( 'Cannot upload W3xx data' ).
ENDIF.
CONCATENATE 'W3' ls_key-relid INTO lv_tadir_obj.
@ -300,7 +300,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
OTHERS = 99.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot update TADIR for W3xx'.
lcx_exception=>raise( 'Cannot update TADIR for W3xx' ).
ENDIF.
ENDMETHOD. "lif_object~deserialize
@ -321,7 +321,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
delete_error = 2.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot delete W3xx data'.
lcx_exception=>raise( 'Cannot delete W3xx data' ).
ENDIF.
CALL FUNCTION 'WWWPARAMS_DELETE_ALL'
@ -331,7 +331,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
delete_error = 1.
IF sy-subrc IS NOT INITIAL.
_raise 'Cannot delete W3xx params'.
lcx_exception=>raise( 'Cannot delete W3xx params' ).
ENDIF.
ENDMETHOD. "lif_object~delete

8
src/zabapgit_object_wdya.prog.abap
View File

@ -57,7 +57,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
CATCH cx_wdy_md_not_existing.
rv_bool = abap_false.
CATCH cx_wdy_md_permission_failure.
_raise 'WDYA, permission failure'.
lcx_exception=>raise( 'WDYA, permission failure' ).
ENDTRY.
ENDMETHOD. "lif_object~exists
@ -82,7 +82,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
CATCH cx_wdy_md_not_existing.
RETURN.
CATCH cx_wdy_md_permission_failure.
_raise 'WDYA, permission failure'.
lcx_exception=>raise( 'WDYA, permission failure' ).
ENDTRY.
li_app->if_wdy_md_object~get_definition( IMPORTING definition = es_app ).
@ -138,7 +138,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
lo_app->if_wdy_md_lockable_object~save_to_database( ).
CATCH cx_wdy_md_exception.
_raise 'error saving WDYA'.
lcx_exception=>raise( 'error saving WDYA' ).
ENDTRY.
ENDMETHOD. "save
@ -191,7 +191,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
CATCH cx_wdy_md_not_existing.
RETURN.
CATCH cx_wdy_md_exception.
_raise 'WDYA, error deleting'.
lcx_exception=>raise( 'WDYA, error deleting' ).
ENDTRY.
ENDMETHOD. "delete

22
src/zabapgit_object_wdyn.prog.abap
View File

@ -111,7 +111,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
li_component->save_to_database( ).
li_component->unlock( ).
CATCH cx_wdy_md_exception.
_raise 'error creating dummy component'.
lcx_exception=>raise( 'error creating dummy component' ).
ENDTRY.
ENDIF.
@ -138,7 +138,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTIONS
inconsistent_objects = 1.
IF sy-subrc <> 0.
_raise 'error from SVRS_MAKE_OBJECT_DELTA'.
lcx_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
ENDIF.
ENDMETHOD. "delta_definition
@ -170,7 +170,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
li_controller->save_to_database( ).
li_controller->unlock( ).
CATCH cx_wdy_md_exception.
_raise 'error creating dummy controller'.
lcx_exception=>raise( 'error creating dummy controller' ).
ENDTRY.
ENDIF.
@ -214,7 +214,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTIONS
inconsistent_objects = 1.
IF sy-subrc <> 0.
_raise 'error from SVRS_MAKE_OBJECT_DELTA'.
lcx_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
ENDIF.
ENDMETHOD. "delta_controller
@ -245,7 +245,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
li_view->save_to_database( ).
li_view->unlock( ).
CATCH cx_wdy_md_exception.
_raise 'error creating dummy view'.
lcx_exception=>raise( 'error creating dummy view' ).
ENDTRY.
ENDIF.
@ -285,7 +285,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTIONS
inconsistent_objects = 1.
IF sy-subrc <> 0.
_raise 'error from SVRS_MAKE_OBJECT_DELTA'.
lcx_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
ENDIF.
ENDMETHOD. "delta_view
@ -383,7 +383,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from WDYC_GET_OBJECT'.
lcx_exception=>raise( 'error from WDYC_GET_OBJECT' ).
ENDIF.
APPEND LINES OF lt_components TO mt_components.
@ -391,7 +391,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
READ TABLE lt_definition INDEX 1 INTO rs_controller-definition.
IF sy-subrc <> 0.
_raise 'WDYC, definition not found'.
lcx_exception=>raise( 'WDYC, definition not found' ).
ENDIF.
CLEAR: rs_controller-definition-author,
@ -428,12 +428,12 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'error from WDYD_GET_OBJECT'.
lcx_exception=>raise( 'error from WDYD_GET_OBJECT' ).
ENDIF.
READ TABLE lt_definition INDEX 1 INTO rs_definition-definition.
IF sy-subrc <> 0.
_raise 'WDYD, definition not found'.
lcx_exception=>raise( 'WDYD, definition not found' ).
ENDIF.
CLEAR: rs_definition-definition-author,
@ -483,7 +483,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from WDYV_GET_OBJECT'.
lcx_exception=>raise( 'error from WDYV_GET_OBJECT' ).
ENDIF.
READ TABLE lt_definition INDEX 1 ASSIGNING <ls_definition>.

12
src/zabapgit_object_webi.prog.abap
View File

@ -102,7 +102,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
webi_not_exist = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'error from WEBI_GET_OBJECT'.
lcx_exception=>raise( 'error from WEBI_GET_OBJECT' ).
ENDIF.
SORT ls_webi-pveptype BY
@ -115,7 +115,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
li_vi = cl_ws_md_factory=>get_vif_root( )->get_virtual_interface( lv_name ).
ls_webi-veptext = li_vi->get_short_text( sews_c_vif_version-active ).
CATCH cx_ws_md_exception.
_raise 'error serializing WEBI'.
lcx_exception=>raise( 'error serializing WEBI' ).
ENDTRY.
LOOP AT ls_webi-pvepheader ASSIGNING <ls_header>.
@ -158,11 +158,11 @@ CLASS lcl_object_webi IMPLEMENTATION.
IF ls_endpoint-endpointtype = 'BAPI'.
* it looks like some special handling is needed when calling
* set_data, and looking at the cluster data LS_ENDPOINT-CLUSTD
_raise 'todo, WEBI BAPI'.
lcx_exception=>raise( 'todo, WEBI BAPI' ).
ENDIF.
IF lines( is_webi-pvepfunction ) <> 1.
_raise 'todo, WEBI, function name'.
lcx_exception=>raise( 'todo, WEBI, function name' ).
ENDIF.
* field ls_endpoint-endpointname does not exist in 702
@ -387,7 +387,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
CATCH cx_ws_md_exception ##no_handler.
ENDTRY.
lv_text = lx_root->if_message~get_text( ).
_raise 'error deserializing WEBI'.
lcx_exception=>raise( 'error deserializing WEBI' ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).
@ -406,7 +406,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
TRY.
lo_vif->if_ws_md_vif_root~delete_virtual_interface( lv_name ).
CATCH cx_ws_md_exception.
_raise 'error deleting WEBI'.
lcx_exception=>raise( 'error deleting WEBI' ).
ENDTRY.
ENDMETHOD. "lif_object~delete

8
src/zabapgit_object_xslt.prog.abap
View File

@ -49,7 +49,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
permission_failure = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
_raise 'error from cl_o2_api_xsltdesc=>load'.
lcx_exception=>raise( 'error from cl_o2_api_xsltdesc=>load' ).
ENDIF.
ENDMETHOD.
@ -118,7 +118,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
undefined_name = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
_raise 'error from cl_o2_api_xsltdesc=>create_new_from_string'.
lcx_exception=>raise( 'error from cl_o2_api_xsltdesc=>create_new_from_string' ).
ENDIF.
lo_xslt->save( ).
@ -149,7 +149,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
version_not_found = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
_raise 'error from cl_o2_api_xsltdesc=>load'.
lcx_exception=>raise( 'error from cl_o2_api_xsltdesc=>load' ).
ENDIF.
lo_xslt->set_changeable( abap_true ).
@ -175,7 +175,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
_raise 'XSLT, jump, todo'.
lcx_exception=>raise( 'XSLT, jump, todo' ).
ENDMETHOD. "lif_object~jump
METHOD lif_object~get_metadata.

48
src/zabapgit_objects.prog.abap
View File

@ -63,7 +63,7 @@ CLASS lcl_objects_activation IMPLEMENTATION.
insert_into_corr_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from RS_WORKING_OBJECTS_ACTIVATE'.
lcx_exception=>raise( 'error from RS_WORKING_OBJECTS_ACTIVATE' ).
ENDIF.
ENDIF.
@ -81,7 +81,7 @@ CLASS lcl_objects_activation IMPLEMENTATION.
insert_into_corr_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'error from RS_WORKING_OBJECTS_ACTIVATE'.
lcx_exception=>raise( 'error from RS_WORKING_OBJECTS_ACTIVATE' ).
ENDIF.
ENDIF.
@ -114,7 +114,7 @@ CLASS lcl_objects_activation IMPLEMENTATION.
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT'.
lcx_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ).
ENDIF.
APPEND LINES OF lt_objects TO gt_programs.
@ -132,7 +132,7 @@ CLASS lcl_objects_activation IMPLEMENTATION.
<ls_object>-object = iv_type.
<ls_object>-obj_name = lv_obj_name.
WHEN OTHERS.
_raise 'activate, unknown type'.
lcx_exception=>raise( 'activate, unknown type' ).
ENDCASE.
ENDMETHOD. "activate
@ -271,7 +271,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
READ TABLE mt_files ASSIGNING <ls_html> WITH KEY filename = lv_filename.
IF sy-subrc <> 0.
_raise 'html not found'.
lcx_exception=>raise( 'html not found' ).
ENDIF.
rv_string = lcl_convert=>xstring_to_string_utf8( <ls_html>-data ).
@ -294,7 +294,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
READ TABLE mt_files ASSIGNING <ls_abap> WITH KEY filename = lv_filename.
IF sy-subrc <> 0.
IF iv_error = abap_true.
_raise 'abap not found'.
lcx_exception=>raise( 'abap not found' ).
ELSE.
RETURN.
ENDIF.
@ -371,7 +371,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
READ TABLE mt_files ASSIGNING <ls_xml> WITH KEY filename = lv_filename.
IF sy-subrc <> 0.
_raise 'xml not found'.
lcx_exception=>raise( 'xml not found' ).
ENDIF.
lv_xml = lcl_convert=>xstring_to_string_utf8( <ls_xml>-data ).
@ -859,7 +859,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
IF sy-subrc = 2.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'Error reading program'.
lcx_exception=>raise( 'Error reading program' ).
ENDIF.
ls_progdir = read_progdir( lv_program_name ).
@ -927,9 +927,9 @@ CLASS lcl_objects_program IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
_raise 'Cancelled'.
lcx_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
_raise 'error from RS_CORR_INSERT'.
lcx_exception=>raise( 'error from RS_CORR_INSERT' ).
ENDIF.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. "#EC CI_SUBRC
@ -968,9 +968,9 @@ CLASS lcl_objects_program IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
IF sy-msgid = 'EU' AND sy-msgno = '510'.
_raise 'User is currently editing program'.
lcx_exception=>raise( 'User is currently editing program' ).
ELSE.
_raise 'PROG, error updating'.
lcx_exception=>raise( 'PROG, error updating' ).
ENDIF.
ENDIF.
ELSE.
@ -981,7 +981,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
STATE 'I'
PROGRAM TYPE is_progdir-subc.
IF sy-subrc <> 0.
_raise 'error from INSERT REPORT'.
lcx_exception=>raise( 'error from INSERT REPORT' ).
ENDIF.
IF NOT it_tpool[] IS INITIAL.
@ -990,7 +990,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
LANGUAGE mv_language
STATE 'I'.
IF sy-subrc <> 0.
_raise 'error from INSERT TEXTPOOL'.
lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF.
ENDIF.
@ -1006,7 +1006,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_exists = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'not found in PROGDIR'.
lcx_exception=>raise( 'not found in PROGDIR' ).
ENDIF.
* todo, package?
@ -1028,7 +1028,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_executed = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'PROG, error inserting'.
lcx_exception=>raise( 'PROG, error inserting' ).
ENDIF.
lcl_objects_activation=>add( iv_type = 'REPS'
@ -1090,7 +1090,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
unknown_version = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'error from RS_CUA_INTERNAL_FETCH'.
lcx_exception=>raise( 'error from RS_CUA_INTERNAL_FETCH' ).
ENDIF.
ENDMETHOD. "serialize_cua
@ -1119,7 +1119,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_found = 1
OTHERS = 2.
IF sy-subrc = 2.
_raise 'error from screen_list'.
lcx_exception=>raise( 'error from screen_list' ).
ENDIF.
* loop dynpros and skip generated selection screens
@ -1141,7 +1141,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
permission_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'Error while reading dynpro'.
lcx_exception=>raise( 'Error while reading dynpro' ).
ENDIF.
LOOP AT lt_fields_to_containers ASSIGNING <ls_field>.
@ -1201,7 +1201,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
illegal_field_position = 9
OTHERS = 10.
IF sy-subrc <> 2 AND sy-subrc <> 0.
_raise 'error from RPY_DYNPRO_INSERT'.
lcx_exception=>raise( 'error from RPY_DYNPRO_INSERT' ).
ENDIF.
* todo, RPY_DYNPRO_UPDATE?
@ -1266,7 +1266,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
AND object = ms_item-obj_type
AND obj_name = ms_item-obj_name. "#EC CI_GENBUFF
IF sy-subrc <> 0.
_raise 'not found in tadir'.
lcx_exception=>raise( 'not found in tadir' ).
ENDIF.
ls_tr_key-obj_type = ms_item-obj_type.
@ -1298,7 +1298,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from RS_CUA_INTERNAL_WRITE'.
lcx_exception=>raise( 'error from RS_CUA_INTERNAL_WRITE' ).
ENDIF.
lcl_objects_activation=>add( iv_type = 'CUAD'
@ -1389,9 +1389,9 @@ CLASS lcl_objects_super IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
_raise 'Cancelled'.
lcx_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
_raise 'error from RS_CORR_INSERT'.
lcx_exception=>raise( 'error from RS_CORR_INSERT' ).
ENDIF.
ENDMETHOD. "corr_insert

6
src/zabapgit_page_commit.prog.abap
View File

@ -249,11 +249,11 @@ CLASS lcl_gui_page_commit IMPLEMENTATION.
lo_user->set_email( ls_fields-email ).
IF ls_fields-username IS INITIAL.
_raise 'empty username'.
lcx_exception=>raise( 'empty username' ).
ELSEIF ls_fields-email IS INITIAL.
_raise 'empty email'.
lcx_exception=>raise( 'empty email' ).
ELSEIF ls_fields-comment IS INITIAL.
_raise 'empty comment'.
lcx_exception=>raise( 'empty comment' ).
ENDIF.
ls_comment-username = ls_fields-username.

8
src/zabapgit_page_merge.prog.abap
View File

@ -69,7 +69,7 @@ CLASS lcl_merge IMPLEMENTATION.
IF iv_source = iv_target.
_raise 'source = target'.
lcx_exception=>raise( 'source = target' ).
ENDIF.
CLEAR gs_merge.
@ -244,7 +244,7 @@ CLASS lcl_merge IMPLEMENTATION.
ENDLOOP.
ENDLOOP.
_raise 'error finding common ancestor'.
lcx_exception=>raise( 'error finding common ancestor' ).
ENDMETHOD.
@ -298,7 +298,7 @@ CLASS lcl_merge IMPLEMENTATION.
lv_name = 'refs/heads/' && &1 ##NO_TEXT.
READ TABLE lt_branches INTO &2 WITH KEY name = lv_name.
IF sy-subrc <> 0.
_raise 'branch not found'.
lcx_exception=>raise( 'branch not found' ).
ENDIF.
APPEND &2 TO lt_upload.
END-OF-DEFINITION.
@ -370,7 +370,7 @@ CLASS lcl_gui_page_merge IMPLEMENTATION.
CASE iv_action.
WHEN c_actions-merge.
IF ms_merge-stage->count( ) = 0.
_raise 'nothing to merge'.
lcx_exception=>raise( 'nothing to merge' ).
ENDIF.
CREATE OBJECT ei_page TYPE lcl_gui_page_commit

64
src/zabapgit_persistence.prog.abap
View File

@ -281,7 +281,7 @@ CLASS lcl_persistence IMPLEMENTATION.
OTHERS = 5.
IF sy-subrc <> 0.
ROLLBACK WORK. "#EC CI_ROLLBACK
_raise 'error from SAVE_TEXT'.
lcx_exception=>raise( 'error from SAVE_TEXT' ).
ENDIF.
ENDMETHOD. "save_text
@ -309,7 +309,7 @@ CLASS lcl_persistence IMPLEMENTATION.
DELETE lt_repos WHERE url = iv_url AND branch_name = iv_branch_name.
IF sy-subrc <> 0.
_raise 'repo not found, delete'.
lcx_exception=>raise( 'repo not found, delete' ).
ENDIF.
save_text_online( lt_repos ).
@ -386,7 +386,7 @@ CLASS lcl_persistence IMPLEMENTATION.
READ TABLE lt_repos WITH KEY url = iv_url branch_name = iv_branch_name
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
_raise 'already inserted'.
lcx_exception=>raise( 'already inserted' ).
ENDIF.
APPEND INITIAL LINE TO lt_repos ASSIGNING <ls_repo>.
@ -409,7 +409,7 @@ CLASS lcl_persistence IMPLEMENTATION.
IF iv_branch IS INITIAL.
_raise 'update, sha empty'.
lcx_exception=>raise( 'update, sha empty' ).
ENDIF.
lt_repos = list( ).
@ -417,7 +417,7 @@ CLASS lcl_persistence IMPLEMENTATION.
READ TABLE lt_repos ASSIGNING <ls_repo>
WITH KEY url = iv_url branch_name = iv_branch_name.
IF sy-subrc <> 0.
_raise 'persist update, repo not found'.
lcx_exception=>raise( 'persist update, repo not found' ).
ENDIF.
<ls_repo>-sha1 = iv_branch.
@ -454,7 +454,7 @@ CLASS lcl_persistence IMPLEMENTATION.
IF sy-subrc = 4.
RETURN.
ELSEIF sy-subrc <> 0.
_raise 'Error from READ_TEXT'.
lcx_exception=>raise( 'Error from READ_TEXT' ).
ENDIF.
ENDMETHOD. "read_text
@ -476,7 +476,7 @@ CLASS lcl_persistence IMPLEMENTATION.
IF lines( lt_lines ) MOD 4 <> 0.
* if this happens, delete text ZABAPGIT in SO10 or edit the text
* manually, so it contains the right information
_raise 'Persistence, text broken'.
lcx_exception=>raise( 'Persistence, text broken' ).
ENDIF.
CLEAR ls_repo.
@ -487,7 +487,7 @@ CLASS lcl_persistence IMPLEMENTATION.
ls_repo-package = <ls_line>-tdline.
IF ls_repo-url IS INITIAL OR ls_repo-branch_name IS INITIAL.
_raise 'Persistence, text broken 2'.
lcx_exception=>raise( 'Persistence, text broken 2' ).
ENDIF.
APPEND ls_repo TO rt_repos.
CLEAR ls_repo.
@ -521,13 +521,13 @@ CLASS lcl_persistence IMPLEMENTATION.
IF lines( lt_lines ) MOD 2 <> 0.
* if this happens, delete text ZABAPGIT in SO10 or edit the text
* manually, so it contains the right information
_raise 'Persistence, text broken'.
lcx_exception=>raise( 'Persistence, text broken' ).
ENDIF.
CLEAR ls_repo.
LOOP AT lt_lines ASSIGNING <ls_line>.
IF <ls_line>-tdline IS INITIAL.
_raise 'Persistence, text broken'.
lcx_exception=>raise( 'Persistence, text broken' ).
ENDIF.
IF ls_repo-url IS INITIAL.
ls_repo-url = <ls_line>-tdline.
@ -831,7 +831,7 @@ CLASS lcl_user IMPLEMENTATION.
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 4 AND sy-subrc <> 0.
_raise 'error from READ_TEXT'.
lcx_exception=>raise( 'error from READ_TEXT' ).
ENDIF.
READ TABLE lt_lines INTO ls_line INDEX 1.
@ -870,7 +870,7 @@ CLASS lcl_user IMPLEMENTATION.
OTHERS = 5.
IF sy-subrc <> 0.
ROLLBACK WORK. "#EC CI_ROLLBACK
_raise 'error from SAVE_TEXT'.
lcx_exception=>raise( 'error from SAVE_TEXT' ).
ENDIF.
COMMIT WORK.
@ -1076,9 +1076,6 @@ CLASS lcl_persistence_db IMPLEMENTATION.
METHOD lock.
DATA: lv_msg TYPE string.
CALL FUNCTION 'ENQUEUE_EZABAPGIT'
EXPORTING
mode_zabapgit = iv_mode
@ -1089,8 +1086,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
lv_msg = |Could not aquire lock { iv_type } { iv_value }|.
_raise lv_msg.
lcx_exception=>raise( |Could not aquire lock { iv_type } { iv_value }| ).
ENDIF.
* trigger dummy update task to automatically release locks at commit
@ -1121,7 +1117,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
_raise 'DB Delete failed'.
lcx_exception=>raise( 'DB Delete failed' ).
ENDIF.
ENDMETHOD.
@ -1145,7 +1141,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
_raise 'DB update failed'.
lcx_exception=>raise( 'DB update failed' ).
ENDIF.
ENDMETHOD.
@ -1163,7 +1159,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
MODIFY (c_tabname) FROM ls_content.
IF sy-subrc <> 0.
_raise 'DB modify failed'.
lcx_exception=>raise( 'DB modify failed' ).
ENDIF.
ENDMETHOD.
@ -1230,7 +1226,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
_raise 'key not found'.
lcx_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-local_checksums = it_checksums.
@ -1250,7 +1246,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
IF iv_url IS INITIAL.
_raise 'update, url empty'.
lcx_exception=>raise( 'update, url empty' ).
ENDIF.
ASSERT NOT iv_key IS INITIAL.
@ -1258,7 +1254,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
_raise 'key not found'.
lcx_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-url = iv_url.
@ -1278,7 +1274,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
IF iv_branch_name IS INITIAL.
_raise 'update, branch name empty'.
lcx_exception=>raise( 'update, branch name empty' ).
ENDIF.
ASSERT NOT iv_key IS INITIAL.
@ -1286,7 +1282,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
_raise 'key not found'.
lcx_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-branch_name = iv_branch_name.
@ -1306,7 +1302,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
IF iv_branch_sha1 IS INITIAL.
_raise 'update, sha empty'.
lcx_exception=>raise( 'update, sha empty' ).
ENDIF.
ASSERT NOT iv_key IS INITIAL.
@ -1314,7 +1310,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
_raise 'key not found'.
lcx_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-sha1 = iv_branch_sha1.
@ -1399,7 +1395,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
RESULT repo = rs_repo ##NO_TEXT.
IF rs_repo IS INITIAL.
_raise 'Inconsistent repo metadata'.
lcx_exception=>raise( 'Inconsistent repo metadata' ).
ENDIF.
* field master_language is new, so default it for old repositories
@ -1556,7 +1552,7 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'migrate, error from DDIF_ENQU_PUT'.
lcx_exception=>raise( 'migrate, error from DDIF_ENQU_PUT' ).
ENDIF.
lv_obj_name = lcl_persistence_db=>c_lock.
@ -1571,7 +1567,7 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
_raise 'migrate, error from TR_TADIR_INTERFACE'.
lcx_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
ENDIF.
CALL FUNCTION 'DDIF_ENQU_ACTIVATE'
@ -1582,7 +1578,7 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'migrate, error from DDIF_ENQU_ACTIVATE'.
lcx_exception=>raise( 'migrate, error from DDIF_ENQU_ACTIVATE' ).
ENDIF.
ENDMETHOD.
@ -1656,7 +1652,7 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
_raise 'migrate, error from DDIF_TABL_PUT'.
lcx_exception=>raise( 'migrate, error from DDIF_TABL_PUT' ).
ENDIF.
lv_obj_name = lcl_persistence_db=>c_tabname.
@ -1671,7 +1667,7 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
_raise 'migrate, error from TR_TADIR_INTERFACE'.
lcx_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
ENDIF.
CALL FUNCTION 'DDIF_TABL_ACTIVATE'
@ -1682,7 +1678,7 @@ CLASS lcl_persistence_migrate IMPLEMENTATION.
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
_raise 'migrate, error from DDIF_TABL_ACTIVATE'.
lcx_exception=>raise( 'migrate, error from DDIF_TABL_ACTIVATE' ).
ENDIF.
ENDMETHOD.

14
src/zabapgit_popups.prog.abap
View File

@ -82,7 +82,7 @@ CLASS lcl_popups IMPLEMENTATION.
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from POPUP_GET_VALUES'.
lcx_exception=>raise( 'Error from POPUP_GET_VALUES' ).
ENDIF.
IF lv_returncode = 'A'.
RETURN.
@ -129,7 +129,7 @@ CLASS lcl_popups IMPLEMENTATION.
error_in_fields = 1
OTHERS = 2 ##NO_TEXT.
IF sy-subrc <> 0.
_raise 'error from POPUP_GET_VALUES'.
lcx_exception=>raise( 'error from POPUP_GET_VALUES' ).
ENDIF.
IF lv_answer = 'A'.
@ -168,7 +168,7 @@ CLASS lcl_popups IMPLEMENTATION.
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from POPUP_GET_VALUES'.
lcx_exception=>raise( 'Error from POPUP_GET_VALUES' ).
ENDIF.
IF lv_returncode = 'A'.
RETURN.
@ -205,9 +205,9 @@ CLASS lcl_popups IMPLEMENTATION.
ENDIF.
IF ls_branch-name = 'HEAD'.
_raise 'cannot delete HEAD'.
lcx_exception=>raise( 'cannot delete HEAD' ).
ELSEIF ls_branch-name = lo_repo->get_branch_name( ).
_raise 'switch branch before deleting current'.
lcx_exception=>raise( 'switch branch before deleting current' ).
ENDIF.
lcl_git_porcelain=>delete_branch(
@ -251,7 +251,7 @@ CLASS lcl_popups IMPLEMENTATION.
too_much_marks = 3
OTHERS = 4. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'Error from POPUP_TO_DECIDE_LIST'.
lcx_exception=>raise( 'Error from POPUP_TO_DECIDE_LIST' ).
ENDIF.
IF lv_answer = 'A'. " cancel
@ -338,7 +338,7 @@ CLASS lcl_popups IMPLEMENTATION.
error_in_fields = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'Error from POPUP_GET_VALUES'.
lcx_exception=>raise( 'Error from POPUP_GET_VALUES' ).
ENDIF.
IF lv_returncode = 'A'.
rs_popup-cancel = abap_true.

20
src/zabapgit_repo_impl.prog.abap
View File

@ -290,7 +290,7 @@ CLASS lcl_repo IMPLEMENTATION.
mo_dot_abapgit = lcl_dot_abapgit=>build_default( ms_data-master_language ).
ENDIF.
IF mo_dot_abapgit->get_master_language( ) <> sy-langu.
_raise 'Current login language does not match master language'.
lcx_exception=>raise( 'Current login language does not match master language' ).
ENDIF.
lcl_objects=>deserialize( me ).
@ -440,7 +440,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
ENDIF.
ENDLOOP.
_raise 'repo not found, get'.
lcx_exception=>raise( 'repo not found, get' ).
ENDMETHOD. "get
@ -490,7 +490,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
TRY.
ls_repo = mo_persistence->read( lv_key ).
CATCH lcx_not_found.
_raise 'new_online not found'.
lcx_exception=>raise( 'new_online not found' ).
ENDTRY.
CREATE OBJECT ro_repo
@ -518,7 +518,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
TRY.
ls_repo = mo_persistence->read( lv_key ).
CATCH lcx_not_found.
_raise 'new_offline not found'.
lcx_exception=>raise( 'new_offline not found' ).
ENDTRY.
CREATE OBJECT ro_repo
@ -539,7 +539,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
IF lo_repo = io_repo.
RETURN.
ENDIF.
_raise 'identical keys'.
lcx_exception=>raise( 'identical keys' ).
ENDIF.
ENDLOOP.
@ -554,25 +554,25 @@ CLASS lcl_repo_srv IMPLEMENTATION.
IF iv_package IS INITIAL.
_raise 'add, package empty'.
lcx_exception=>raise( 'add, package empty' ).
ENDIF.
IF iv_package = '$TMP'.
_raise 'not possible to use $TMP, create new (local) package'.
lcx_exception=>raise( 'not possible to use $TMP, create new (local) package' ).
ENDIF.
SELECT SINGLE devclass FROM tdevc INTO lv_devclass
WHERE devclass = iv_package
AND as4user <> 'SAP'. "#EC CI_GENBUFF
IF sy-subrc <> 0.
_raise 'package not found or not allowed'.
lcx_exception=>raise( 'package not found or not allowed' ).
ENDIF.
" make sure its not already in use for a different repository
lt_repos = mo_persistence->list( ).
READ TABLE lt_repos WITH KEY package = iv_package TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
_raise 'Package already in use'.
lcx_exception=>raise( 'Package already in use' ).
ENDIF.
ENDMETHOD. "validate_package
@ -610,7 +610,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
IF iv_target_package IS NOT INITIAL AND iv_target_package <> lv_package.
lv_err = |Installation to package { lv_package } detected. |
&& |Cancelling installation|.
_raise lv_err.
lcx_exception=>raise( lv_err ).
ENDIF.
rv_installed = abap_true.

7
src/zabapgit_sap_package.prog.abap
View File

@ -180,7 +180,7 @@ CLASS lcl_sap_package IMPLEMENTATION.
no_access = 4
object_locked_and_modified = 5 ).
IF sy-subrc <> 0.
_raise 'error reading parent package'.
lcx_exception=>raise( 'error reading parent package' ).
ENDIF.
ls_child-devclass = iv_child.
@ -248,8 +248,7 @@ CLASS lcl_sap_package IMPLEMENTATION.
* error_in_cts_checks = 21
OTHERS = 18 ).
IF sy-subrc <> 0.
lv_err = |Package { is_package-devclass } could not be created|.
_raise lv_err.
lcx_exception=>raise( |Package { is_package-devclass } could not be created| ).
ENDIF.
ri_package->save(
@ -266,7 +265,7 @@ CLASS lcl_sap_package IMPLEMENTATION.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO lv_err.
_raise lv_err.
lcx_exception=>raise( lv_err ).
ENDIF.
ri_package->set_changeable( abap_false ).

2
src/zabapgit_stage.prog.abap
View File

@ -152,7 +152,7 @@ CLASS lcl_stage IMPLEMENTATION.
WHEN c_method-ignore.
rv_description = 'ignore' ##NO_TEXT.
WHEN OTHERS.
_raise 'unknown staging method type'.
lcx_exception=>raise( 'unknown staging method type' ).
ENDCASE.
ENDMETHOD. "method_description

8
src/zabapgit_transport.prog.abap
View File

@ -46,12 +46,12 @@ CLASS lcl_transport IMPLEMENTATION.
lt_requests = read_requests( lv_trkorr ).
lt_tadir = resolve( lt_requests ).
IF lines( lt_tadir ) = 0.
_raise 'empty transport'.
lcx_exception=>raise( 'empty transport' ).
ENDIF.
lv_package = find_top_package( lt_tadir ).
IF lv_package IS INITIAL.
_raise 'error finding super package'.
lcx_exception=>raise( 'error finding super package' ).
ENDIF.
ls_data-key = 'TZIP'.
@ -124,7 +124,7 @@ CLASS lcl_transport IMPLEMENTATION.
invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from TR_READ_REQUEST_WITH_TASKS'.
lcx_exception=>raise( 'error from TR_READ_REQUEST_WITH_TASKS' ).
ENDIF.
ENDMETHOD.
@ -154,7 +154,7 @@ CLASS lcl_transport IMPLEMENTATION.
no_mapping = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'error from GET_R3TR_OBJECT_FROM_LIMU_OBJ'.
lcx_exception=>raise( 'error from GET_R3TR_OBJECT_FROM_LIMU_OBJ' ).
ENDIF.
lv_obj_name = lv_trobj_name.
ELSE.

6
src/zabapgit_util.prog.abap
View File

@ -56,7 +56,7 @@ CLASS lcl_time IMPLEMENTATION.
conversion_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Timezone error'.
lcx_exception=>raise( 'Timezone error' ).
ENDIF.
CASE lv_utcsign.
@ -302,7 +302,7 @@ CLASS lcl_hash IMPLEMENTATION.
internal_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
_raise 'Error while calculating SHA1'.
lcx_exception=>raise( 'Error while calculating SHA1' ).
ENDIF.
rv_sha1 = lv_hash.
@ -405,7 +405,7 @@ CLASS lcl_url IMPLEMENTATION.
FIND REGEX '(.*://[^/]*)(.*/)(.*).git' IN iv_repo
SUBMATCHES ev_host ev_path ev_name.
IF sy-subrc <> 0.
_raise 'Malformed URL'.
lcx_exception=>raise( 'Malformed URL' ).
ENDIF.
ENDMETHOD. "url

9
src/zabapgit_xml.prog.abap
View File

@ -105,7 +105,7 @@ CLASS lcl_xml IMPLEMENTATION.
txt2 = 'See https://github.com/larshp/abapGit/wiki/XML-Mismatch'
txt3 = lv_version. "#EC NOTEXT
_raise 'XML error'.
lcx_exception=>raise( 'XML error' ).
ENDMETHOD. "display_xml_error
@ -160,7 +160,7 @@ CLASS lcl_xml IMPLEMENTATION.
ENDDO.
ENDIF.
_raise 'Error while parsing XML'.
lcx_exception=>raise( 'Error while parsing XML' ).
ENDMETHOD. "error
ENDCLASS. "lcl_xml IMPLEMENTATION
@ -342,8 +342,7 @@ CLASS lcl_xml_input IMPLEMENTATION.
SOURCE XML mi_xml_doc
RESULT (lt_rtab) ##no_text.
CATCH cx_transformation_error INTO lx_error.
lv_text = lx_error->if_message~get_text( ).
_raise lv_text.
lcx_exception=>raise( lx_error->if_message~get_text( ) ).
ENDTRY.
ENDMETHOD. "read
@ -394,7 +393,7 @@ CLASS lcl_xml_pretty IMPLEMENTATION.
rv_xml = iv_xml.
RETURN.
ELSE.
_raise 'error parsing xml'.
lcx_exception=>raise( 'error parsing xml' ).
ENDIF.
ENDIF.
li_istream->close( ).

30
src/zabapgit_zip.prog.abap
View File

@ -89,10 +89,10 @@ CLASS lcl_zip IMPLEMENTATION.
error_in_fields = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'Error from POPUP_GET_VALUES'.
lcx_exception=>raise( 'Error from POPUP_GET_VALUES' ).
ENDIF.
IF lv_returncode = 'A'.
_raise 'cancelled'.
lcx_exception=>raise( 'cancelled' ).
ENDIF.
READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>.
@ -129,10 +129,10 @@ CLASS lcl_zip IMPLEMENTATION.
not_supported_by_gui = 3
OTHERS = 4 ). "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from file_save_dialog'.
lcx_exception=>raise( 'error from file_save_dialog' ).
ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel.
_raise 'cancelled'.
lcx_exception=>raise( 'cancelled' ).
ENDIF.
lt_rawdata = cl_bcs_convert=>xstring_to_solix( iv_xstr ).
@ -170,7 +170,7 @@ CLASS lcl_zip IMPLEMENTATION.
error_no_gui = 23
OTHERS = 24 ).
IF sy-subrc <> 0.
_raise 'error from gui_download'.
lcx_exception=>raise( 'error from gui_download' ).
ENDIF.
ENDMETHOD. "file_download
@ -204,7 +204,7 @@ CLASS lcl_zip IMPLEMENTATION.
FIND REGEX '(.*/)(.*)' IN iv_str
SUBMATCHES lv_path rv_filename.
IF sy-subrc <> 0.
_raise 'Malformed path'.
lcx_exception=>raise( 'Malformed path' ).
ENDIF.
ELSE.
rv_filename = iv_str.
@ -239,10 +239,10 @@ CLASS lcl_zip IMPLEMENTATION.
not_supported_by_gui = 4
OTHERS = 5 ). "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from file_open_dialog'.
lcx_exception=>raise( 'error from file_open_dialog' ).
ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel.
_raise 'cancelled'.
lcx_exception=>raise( 'cancelled' ).
ENDIF.
READ TABLE lt_file_table INDEX 1 INTO ls_file_table.
@ -278,7 +278,7 @@ CLASS lcl_zip IMPLEMENTATION.
error_no_gui = 18
OTHERS = 19 ).
IF sy-subrc <> 0.
_raise 'error from gui_upload'.
lcx_exception=>raise( 'error from gui_upload' ).
ENDIF.
CONCATENATE LINES OF lt_data INTO rv_xstr IN BYTE MODE.
@ -303,7 +303,7 @@ CLASS lcl_zip IMPLEMENTATION.
zip_parse_error = 1
OTHERS = 2 ).
IF sy-subrc <> 0.
_raise 'error from zip'.
lcx_exception=>raise( 'error from zip' ).
ENDIF.
lt_splice = cl_abap_zip=>splice( iv_xstr ).
@ -319,7 +319,7 @@ CLASS lcl_zip IMPLEMENTATION.
zip_decompression_error = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
_raise 'error from zip get'.
lcx_exception=>raise( 'error from zip get' ).
ENDIF.
APPEND INITIAL LINE TO rt_files ASSIGNING <ls_file>.
@ -403,7 +403,7 @@ CLASS lcl_zip IMPLEMENTATION.
not_supported_by_gui = 3
OTHERS = 4 ). "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from directory_browser'.
lcx_exception=>raise( 'error from directory_browser' ).
ENDIF.
IF lv_folder IS INITIAL.
@ -450,7 +450,7 @@ CLASS lcl_zip IMPLEMENTATION.
error_no_gui = 23
OTHERS = 24 ).
IF sy-subrc <> 0.
_raise 'error from gui_download'.
lcx_exception=>raise( 'error from gui_download' ).
ENDIF.
ENDLOOP.
@ -474,7 +474,7 @@ CLASS lcl_zip IMPLEMENTATION.
not_supported_by_gui = 9
OTHERS = 10 ). "#EC NOTEXT
IF sy-subrc <> 0.
_raise 'error from execute'.
lcx_exception=>raise( 'error from execute' ).
ENDIF.
* make sure to set git user.email and user.name manually
@ -497,7 +497,7 @@ CLASS lcl_zip IMPLEMENTATION.
not_supported_by_gui = 9
OTHERS = 10 ).
IF sy-subrc <> 0.
_raise 'error from execute'.
lcx_exception=>raise( 'error from execute' ).
ENDIF.
ENDMETHOD. "files_commit