From 14fc9a2413c0a0d9c11b548bfd41b93f768bfe28 Mon Sep 17 00:00:00 2001 From: larshp Date: Wed, 24 Aug 2016 14:14:01 +0000 Subject: [PATCH] remove global _raise macro, close #298 --- src/zabapgit.prog.abap | 8 +--- src/zabapgit_background.prog.abap | 4 +- src/zabapgit_exceptions.prog.abap | 9 ++++ src/zabapgit_forms.prog.abap | 2 +- src/zabapgit_git.prog.abap | 74 +++++++++++++++--------------- src/zabapgit_gui.prog.abap | 20 ++++---- src/zabapgit_object.prog.abap | 64 +++++++++++++------------- src/zabapgit_object_acid.prog.abap | 4 +- src/zabapgit_object_auth.prog.abap | 8 ++-- src/zabapgit_object_doct.prog.abap | 4 +- src/zabapgit_object_docv.prog.abap | 4 +- src/zabapgit_object_doma.prog.abap | 6 +-- src/zabapgit_object_dtel.prog.abap | 6 +-- src/zabapgit_object_enho.prog.abap | 12 ++--- src/zabapgit_object_enhs.prog.abap | 6 +-- src/zabapgit_object_enqu.prog.abap | 6 +-- src/zabapgit_object_ensc.prog.abap | 6 +-- src/zabapgit_object_iarp.prog.abap | 8 ++-- src/zabapgit_object_iasp.prog.abap | 8 ++-- src/zabapgit_object_iatu.prog.abap | 8 ++-- src/zabapgit_object_msag.prog.abap | 4 +- src/zabapgit_object_nrob.prog.abap | 12 ++--- src/zabapgit_object_para.prog.abap | 6 +-- src/zabapgit_object_pinf.prog.abap | 6 +-- src/zabapgit_object_sfbf.prog.abap | 6 +-- src/zabapgit_object_sfbs.prog.abap | 6 +-- src/zabapgit_object_sfsw.prog.abap | 8 ++-- src/zabapgit_object_shi3.prog.abap | 12 ++--- src/zabapgit_object_shlp.prog.abap | 6 +-- src/zabapgit_object_sicf.prog.abap | 12 ++--- src/zabapgit_object_smim.prog.abap | 12 ++--- src/zabapgit_object_splo.prog.abap | 2 +- src/zabapgit_object_ssfo.prog.abap | 2 +- src/zabapgit_object_ssst.prog.abap | 10 ++-- src/zabapgit_object_susc.prog.abap | 2 +- src/zabapgit_object_suso.prog.abap | 2 +- src/zabapgit_object_tabl.prog.abap | 8 ++-- src/zabapgit_object_tobj.prog.abap | 8 ++-- src/zabapgit_object_tran.prog.abap | 10 ++-- src/zabapgit_object_ttyp.prog.abap | 6 +-- src/zabapgit_object_type.prog.abap | 8 ++-- src/zabapgit_object_vcls.prog.abap | 6 +-- src/zabapgit_object_view.prog.abap | 6 +-- src/zabapgit_object_w3xx.prog.abap | 26 +++++------ src/zabapgit_object_wdya.prog.abap | 8 ++-- src/zabapgit_object_wdyn.prog.abap | 22 ++++----- src/zabapgit_object_webi.prog.abap | 12 ++--- src/zabapgit_object_xslt.prog.abap | 8 ++-- src/zabapgit_objects.prog.abap | 48 +++++++++---------- src/zabapgit_page_commit.prog.abap | 6 +-- src/zabapgit_page_merge.prog.abap | 8 ++-- src/zabapgit_persistence.prog.abap | 64 ++++++++++++-------------- src/zabapgit_popups.prog.abap | 14 +++--- src/zabapgit_repo_impl.prog.abap | 20 ++++---- src/zabapgit_sap_package.prog.abap | 7 ++- src/zabapgit_stage.prog.abap | 2 +- src/zabapgit_transport.prog.abap | 8 ++-- src/zabapgit_util.prog.abap | 6 +-- src/zabapgit_xml.prog.abap | 9 ++-- src/zabapgit_zip.prog.abap | 30 ++++++------ 60 files changed, 361 insertions(+), 364 deletions(-) diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index b33fa7940..2b406956d 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -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. diff --git a/src/zabapgit_background.prog.abap b/src/zabapgit_background.prog.abap index 16dd141b5..cd729c657 100644 --- a/src/zabapgit_background.prog.abap +++ b/src/zabapgit_background.prog.abap @@ -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 = ). WHEN OTHERS. - _raise 'background, unknown mode'. + lcx_exception=>raise( 'background, unknown mode' ). ENDCASE. ENDLOOP. diff --git a/src/zabapgit_exceptions.prog.abap b/src/zabapgit_exceptions.prog.abap index a668bdfd8..19f7542f0 100644 --- a/src/zabapgit_exceptions.prog.abap +++ b/src/zabapgit_exceptions.prog.abap @@ -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 *----------------------------------------------------------------------* diff --git a/src/zabapgit_forms.prog.abap b/src/zabapgit_forms.prog.abap index 83767f9d4..14c7788af 100644 --- a/src/zabapgit_forms.prog.abap +++ b/src/zabapgit_forms.prog.abap @@ -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' diff --git a/src/zabapgit_git.prog.abap b/src/zabapgit_git.prog.abap index d2d0ad450..e89190541 100644 --- a/src/zabapgit_git.prog.abap +++ b/src/zabapgit_git.prog.abap @@ -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 = -data. ENDIF. * sanity check IF -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 = -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 && -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 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( -data ). @@ -1828,7 +1828,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION. READ TABLE it_objects ASSIGNING WITH KEY sha1 = -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. diff --git a/src/zabapgit_gui.prog.abap b/src/zabapgit_gui.prog.abap index e7fbd7122..e10bf51b8 100644 --- a/src/zabapgit_gui.prog.abap +++ b/src/zabapgit_gui.prog.abap @@ -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 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'. diff --git a/src/zabapgit_object.prog.abap b/src/zabapgit_object.prog.abap index af635acb2..87fc73c4e 100644 --- a/src/zabapgit_object.prog.abap +++ b/src/zabapgit_object.prog.abap @@ -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'. -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 . @@ -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' diff --git a/src/zabapgit_object_acid.prog.abap b/src/zabapgit_object_acid.prog.abap index 5e63888f3..a840bd035 100644 --- a/src/zabapgit_object_acid.prog.abap +++ b/src/zabapgit_object_acid.prog.abap @@ -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( ). diff --git a/src/zabapgit_object_auth.prog.abap b/src/zabapgit_object_auth.prog.abap index 0544c7034..de8abb6ff 100644 --- a/src/zabapgit_object_auth.prog.abap +++ b/src/zabapgit_object_auth.prog.abap @@ -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 diff --git a/src/zabapgit_object_doct.prog.abap b/src/zabapgit_object_doct.prog.abap index cb13d2114..27f2b2fa1 100644 --- a/src/zabapgit_object_doct.prog.abap +++ b/src/zabapgit_object_doct.prog.abap @@ -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 diff --git a/src/zabapgit_object_docv.prog.abap b/src/zabapgit_object_docv.prog.abap index e51412e53..6416fc0ec 100644 --- a/src/zabapgit_object_docv.prog.abap +++ b/src/zabapgit_object_docv.prog.abap @@ -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 diff --git a/src/zabapgit_object_doma.prog.abap b/src/zabapgit_object_doma.prog.abap index 24a89b0a8..cce6ddc68 100644 --- a/src/zabapgit_object_doma.prog.abap +++ b/src/zabapgit_object_doma.prog.abap @@ -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 ). diff --git a/src/zabapgit_object_dtel.prog.abap b/src/zabapgit_object_dtel.prog.abap index cf94eab7a..22f1f0baa 100644 --- a/src/zabapgit_object_dtel.prog.abap +++ b/src/zabapgit_object_dtel.prog.abap @@ -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 ). diff --git a/src/zabapgit_object_enho.prog.abap b/src/zabapgit_object_enho.prog.abap index 2c982541f..d895fb6cd 100644 --- a/src/zabapgit_object_enho.prog.abap +++ b/src/zabapgit_object_enho.prog.abap @@ -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 diff --git a/src/zabapgit_object_enhs.prog.abap b/src/zabapgit_object_enhs.prog.abap index e43da9bf5..10d60f91b 100644 --- a/src/zabapgit_object_enhs.prog.abap +++ b/src/zabapgit_object_enhs.prog.abap @@ -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 diff --git a/src/zabapgit_object_enqu.prog.abap b/src/zabapgit_object_enqu.prog.abap index a5cfb9e81..1177b01fc 100644 --- a/src/zabapgit_object_enqu.prog.abap +++ b/src/zabapgit_object_enqu.prog.abap @@ -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 ). diff --git a/src/zabapgit_object_ensc.prog.abap b/src/zabapgit_object_ensc.prog.abap index 2a6353854..2379dd1f6 100644 --- a/src/zabapgit_object_ensc.prog.abap +++ b/src/zabapgit_object_ensc.prog.abap @@ -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 diff --git a/src/zabapgit_object_iarp.prog.abap b/src/zabapgit_object_iarp.prog.abap index e3e61015f..356326b09 100644 --- a/src/zabapgit_object_iarp.prog.abap +++ b/src/zabapgit_object_iarp.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_iasp.prog.abap b/src/zabapgit_object_iasp.prog.abap index e6020a41b..add9d0522 100644 --- a/src/zabapgit_object_iasp.prog.abap +++ b/src/zabapgit_object_iasp.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_iatu.prog.abap b/src/zabapgit_object_iatu.prog.abap index 3c594e529..9cddad81e 100644 --- a/src/zabapgit_object_iatu.prog.abap +++ b/src/zabapgit_object_iatu.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_msag.prog.abap b/src/zabapgit_object_msag.prog.abap index 846885618..0206b22fe 100644 --- a/src/zabapgit_object_msag.prog.abap +++ b/src/zabapgit_object_msag.prog.abap @@ -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 . diff --git a/src/zabapgit_object_nrob.prog.abap b/src/zabapgit_object_nrob.prog.abap index 40a96d22a..e3934a7ff 100644 --- a/src/zabapgit_object_nrob.prog.abap +++ b/src/zabapgit_object_nrob.prog.abap @@ -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 diff --git a/src/zabapgit_object_para.prog.abap b/src/zabapgit_object_para.prog.abap index 9fb403ddc..968f87445 100644 --- a/src/zabapgit_object_para.prog.abap +++ b/src/zabapgit_object_para.prog.abap @@ -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 diff --git a/src/zabapgit_object_pinf.prog.abap b/src/zabapgit_object_pinf.prog.abap index 3ed3be3ab..6275f2149 100644 --- a/src/zabapgit_object_pinf.prog.abap +++ b/src/zabapgit_object_pinf.prog.abap @@ -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 diff --git a/src/zabapgit_object_sfbf.prog.abap b/src/zabapgit_object_sfbf.prog.abap index 92d5e7993..22700d2cc 100644 --- a/src/zabapgit_object_sfbf.prog.abap +++ b/src/zabapgit_object_sfbf.prog.abap @@ -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 diff --git a/src/zabapgit_object_sfbs.prog.abap b/src/zabapgit_object_sfbs.prog.abap index 8cd6c735f..fe506fbd3 100644 --- a/src/zabapgit_object_sfbs.prog.abap +++ b/src/zabapgit_object_sfbs.prog.abap @@ -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 diff --git a/src/zabapgit_object_sfsw.prog.abap b/src/zabapgit_object_sfsw.prog.abap index de0cb7b42..e3808237d 100644 --- a/src/zabapgit_object_sfsw.prog.abap +++ b/src/zabapgit_object_sfsw.prog.abap @@ -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 diff --git a/src/zabapgit_object_shi3.prog.abap b/src/zabapgit_object_shi3.prog.abap index bfb4aae30..4201d8f6d 100644 --- a/src/zabapgit_object_shi3.prog.abap +++ b/src/zabapgit_object_shi3.prog.abap @@ -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 diff --git a/src/zabapgit_object_shlp.prog.abap b/src/zabapgit_object_shlp.prog.abap index 261230457..b2e9287b4 100644 --- a/src/zabapgit_object_shlp.prog.abap +++ b/src/zabapgit_object_shlp.prog.abap @@ -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 ). diff --git a/src/zabapgit_object_sicf.prog.abap b/src/zabapgit_object_sicf.prog.abap index 07216adbe..f52120d69 100644 --- a/src/zabapgit_object_sicf.prog.abap +++ b/src/zabapgit_object_sicf.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_smim.prog.abap b/src/zabapgit_object_smim.prog.abap index b06d2bd27..4155ca697 100644 --- a/src/zabapgit_object_smim.prog.abap +++ b/src/zabapgit_object_smim.prog.abap @@ -134,7 +134,7 @@ CLASS lcl_object_smim IMPLEMENTATION. READ TABLE lt_files ASSIGNING WITH KEY filename = lv_filename. IF sy-subrc <> 0. - _raise 'SMIM, file not found'. + lcx_exception=>raise( 'SMIM, file not found' ). ENDIF. rv_content = -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 \ No newline at end of file diff --git a/src/zabapgit_object_splo.prog.abap b/src/zabapgit_object_splo.prog.abap index 69d959102..929c4579a 100644 --- a/src/zabapgit_object_splo.prog.abap +++ b/src/zabapgit_object_splo.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_ssfo.prog.abap b/src/zabapgit_object_ssfo.prog.abap index aac3ab3d8..a8f62b563 100644 --- a/src/zabapgit_object_ssfo.prog.abap +++ b/src/zabapgit_object_ssfo.prog.abap @@ -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 diff --git a/src/zabapgit_object_ssst.prog.abap b/src/zabapgit_object_ssst.prog.abap index 040205e20..c4817f1f8 100644 --- a/src/zabapgit_object_ssst.prog.abap +++ b/src/zabapgit_object_ssst.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_susc.prog.abap b/src/zabapgit_object_susc.prog.abap index e65350a4e..863dc6cfb 100644 --- a/src/zabapgit_object_susc.prog.abap +++ b/src/zabapgit_object_susc.prog.abap @@ -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' diff --git a/src/zabapgit_object_suso.prog.abap b/src/zabapgit_object_suso.prog.abap index 70da44ff0..06f9e0d12 100644 --- a/src/zabapgit_object_suso.prog.abap +++ b/src/zabapgit_object_suso.prog.abap @@ -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 diff --git a/src/zabapgit_object_tabl.prog.abap b/src/zabapgit_object_tabl.prog.abap index b5d98c935..c37109e43 100644 --- a/src/zabapgit_object_tabl.prog.abap +++ b/src/zabapgit_object_tabl.prog.abap @@ -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' diff --git a/src/zabapgit_object_tobj.prog.abap b/src/zabapgit_object_tobj.prog.abap index 7415a244e..2dd8e159c 100644 --- a/src/zabapgit_object_tobj.prog.abap +++ b/src/zabapgit_object_tobj.prog.abap @@ -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 \ No newline at end of file diff --git a/src/zabapgit_object_tran.prog.abap b/src/zabapgit_object_tran.prog.abap index 38e0741c0..eba7dc246 100644 --- a/src/zabapgit_object_tran.prog.abap +++ b/src/zabapgit_object_tran.prog.abap @@ -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 diff --git a/src/zabapgit_object_ttyp.prog.abap b/src/zabapgit_object_ttyp.prog.abap index c994ba877..1c7ca97ab 100644 --- a/src/zabapgit_object_ttyp.prog.abap +++ b/src/zabapgit_object_ttyp.prog.abap @@ -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 ). diff --git a/src/zabapgit_object_type.prog.abap b/src/zabapgit_object_type.prog.abap index 1dea89d95..b03973692 100644 --- a/src/zabapgit_object_type.prog.abap +++ b/src/zabapgit_object_type.prog.abap @@ -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 diff --git a/src/zabapgit_object_vcls.prog.abap b/src/zabapgit_object_vcls.prog.abap index bc433eeb7..49fce52fc 100644 --- a/src/zabapgit_object_vcls.prog.abap +++ b/src/zabapgit_object_vcls.prog.abap @@ -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 diff --git a/src/zabapgit_object_view.prog.abap b/src/zabapgit_object_view.prog.abap index fc8dc49c5..987bf43f2 100644 --- a/src/zabapgit_object_view.prog.abap +++ b/src/zabapgit_object_view.prog.abap @@ -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 ). diff --git a/src/zabapgit_object_w3xx.prog.abap b/src/zabapgit_object_w3xx.prog.abap index 51ad7e707..6c4b83b37 100644 --- a/src/zabapgit_object_w3xx.prog.abap +++ b/src/zabapgit_object_w3xx.prog.abap @@ -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 diff --git a/src/zabapgit_object_wdya.prog.abap b/src/zabapgit_object_wdya.prog.abap index 68c62e8a6..47953fccd 100644 --- a/src/zabapgit_object_wdya.prog.abap +++ b/src/zabapgit_object_wdya.prog.abap @@ -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 diff --git a/src/zabapgit_object_wdyn.prog.abap b/src/zabapgit_object_wdyn.prog.abap index 3d39344e8..53e05e70a 100644 --- a/src/zabapgit_object_wdyn.prog.abap +++ b/src/zabapgit_object_wdyn.prog.abap @@ -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 . diff --git a/src/zabapgit_object_webi.prog.abap b/src/zabapgit_object_webi.prog.abap index 24898f80a..8c4026924 100644 --- a/src/zabapgit_object_webi.prog.abap +++ b/src/zabapgit_object_webi.prog.abap @@ -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 . @@ -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 diff --git a/src/zabapgit_object_xslt.prog.abap b/src/zabapgit_object_xslt.prog.abap index a3a3cc42d..5afd418da 100644 --- a/src/zabapgit_object_xslt.prog.abap +++ b/src/zabapgit_object_xslt.prog.abap @@ -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. diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap index 87eb6fb8e..07879fa8c 100644 --- a/src/zabapgit_objects.prog.abap +++ b/src/zabapgit_objects.prog.abap @@ -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. -object = iv_type. -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 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( -data ). @@ -294,7 +294,7 @@ CLASS lcl_objects_files IMPLEMENTATION. READ TABLE mt_files ASSIGNING 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 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( -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 . @@ -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 diff --git a/src/zabapgit_page_commit.prog.abap b/src/zabapgit_page_commit.prog.abap index 97827cb68..97b972e3b 100644 --- a/src/zabapgit_page_commit.prog.abap +++ b/src/zabapgit_page_commit.prog.abap @@ -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. diff --git a/src/zabapgit_page_merge.prog.abap b/src/zabapgit_page_merge.prog.abap index 1936c928c..95e129579 100644 --- a/src/zabapgit_page_merge.prog.abap +++ b/src/zabapgit_page_merge.prog.abap @@ -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 diff --git a/src/zabapgit_persistence.prog.abap b/src/zabapgit_persistence.prog.abap index 27bf6fdd9..05fa30cec 100644 --- a/src/zabapgit_persistence.prog.abap +++ b/src/zabapgit_persistence.prog.abap @@ -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 . @@ -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 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. -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 = -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 . IF -tdline IS INITIAL. - _raise 'Persistence, text broken'. + lcx_exception=>raise( 'Persistence, text broken' ). ENDIF. IF ls_repo-url IS INITIAL. ls_repo-url = -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. diff --git a/src/zabapgit_popups.prog.abap b/src/zabapgit_popups.prog.abap index 8b05200cf..132f51197 100644 --- a/src/zabapgit_popups.prog.abap +++ b/src/zabapgit_popups.prog.abap @@ -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. diff --git a/src/zabapgit_repo_impl.prog.abap b/src/zabapgit_repo_impl.prog.abap index b69bdc36d..6ac4788ff 100644 --- a/src/zabapgit_repo_impl.prog.abap +++ b/src/zabapgit_repo_impl.prog.abap @@ -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. diff --git a/src/zabapgit_sap_package.prog.abap b/src/zabapgit_sap_package.prog.abap index 78def964c..4da99248e 100644 --- a/src/zabapgit_sap_package.prog.abap +++ b/src/zabapgit_sap_package.prog.abap @@ -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 ). diff --git a/src/zabapgit_stage.prog.abap b/src/zabapgit_stage.prog.abap index ebab34549..99576b8a4 100644 --- a/src/zabapgit_stage.prog.abap +++ b/src/zabapgit_stage.prog.abap @@ -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 diff --git a/src/zabapgit_transport.prog.abap b/src/zabapgit_transport.prog.abap index 657949cb2..055a4ef63 100644 --- a/src/zabapgit_transport.prog.abap +++ b/src/zabapgit_transport.prog.abap @@ -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. diff --git a/src/zabapgit_util.prog.abap b/src/zabapgit_util.prog.abap index 7bb739479..7c6496d9b 100644 --- a/src/zabapgit_util.prog.abap +++ b/src/zabapgit_util.prog.abap @@ -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 diff --git a/src/zabapgit_xml.prog.abap b/src/zabapgit_xml.prog.abap index aa6bcaafb..0de3049a8 100644 --- a/src/zabapgit_xml.prog.abap +++ b/src/zabapgit_xml.prog.abap @@ -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( ). diff --git a/src/zabapgit_zip.prog.abap b/src/zabapgit_zip.prog.abap index c19f10233..e50f6d450 100644 --- a/src/zabapgit_zip.prog.abap +++ b/src/zabapgit_zip.prog.abap @@ -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 . @@ -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 . @@ -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