Merge branch 'main' into mbtools/extended_check_3

src/apack/zcl_abapgit_apack_migration.clas.abap

@@ -178,7 +178,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION.
             component_error = 4
             no_access       = 5
             other           = 6
-            OTHERS          = 7.
+            OTHERS          = 7 ##FM_SUBRC_OK.
       CATCH cx_sy_dyn_call_param_not_found.
         CALL FUNCTION 'SEO_INTERFACE_CREATE_COMPLETE'
           EXPORTING

src/cts/zcl_abapgit_cts_api.clas.abap

@@ -623,7 +623,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION.
                   ev_object   = ls_list-object
                   ev_obj_name = ls_list-obj_name ).
               INSERT ls_list INTO TABLE rt_list.
-            CATCH zcx_abapgit_exception.
+            CATCH zcx_abapgit_exception ##NO_HANDLER.
           ENDTRY.
       ENDCASE.
     ENDLOOP.

src/data/zcl_abapgit_data_utils.clas.abap

@@ -49,7 +49,7 @@ ENDCLASS.
 
 
 
-CLASS ZCL_ABAPGIT_DATA_UTILS IMPLEMENTATION.
+CLASS zcl_abapgit_data_utils IMPLEMENTATION.
 
 
   METHOD build_config_filename.
@@ -196,7 +196,7 @@ CLASS ZCL_ABAPGIT_DATA_UTILS IMPLEMENTATION.
         db_not_exists      = 3
         no_permission      = 4
         no_change_allowed  = 5
-        table_is_gtt       = 6
+*        table_is_gtt       = 6 " not in lower releases
         OTHERS             = 7.
     IF sy-subrc <> 0.
       zcx_abapgit_exception=>raise( |Table { is_item-obj_name } cannot be displayed| ).

src/env/zcl_abapgit_abap_language_vers.clas.testclasses.abap

@@ -77,10 +77,12 @@ CLASS ltcl_abap_language_version DEFINITION FOR TESTING RISK LEVEL HARMLESS
   PRIVATE SECTION.
     " Cloud package hardcoded in cl_abap_language_version
     CONSTANTS c_cloud_package TYPE devclass VALUE 'TEST_LANGUAGE_VERSION_SCP'.
+    CONSTANTS c_language_cfg TYPE seoclsname VALUE 'CL_ABAP_LANGUAGE_VERSION_CFG'.
 
     DATA:
       mt_versions          TYPE string_table,
       mv_has_cloud_package TYPE abap_bool,
+      mv_has_language_cfg  TYPE abap_bool,
       mo_environment       TYPE REF TO lcl_environment,
       mi_persistency       TYPE REF TO zif_abapgit_persist_settings,
       mo_dot_abapgit       TYPE REF TO zcl_abapgit_dot_abapgit,
@@ -364,9 +366,11 @@ CLASS ltcl_abap_language_version IMPLEMENTATION.
     " Assume on-prem (no cloud)
     set_environment( abap_false ).
 
+    IF mv_has_language_cfg = abap_true.
       cl_abap_unit_assert=>assert_equals(
         act = mo_cut->is_import_allowed( '$TMP' ) " existing standard package
         exp = iv_standard ).
+    ENDIF.
 
     IF mv_has_cloud_package = abap_true.
       cl_abap_unit_assert=>assert_equals(
@@ -381,9 +385,11 @@ CLASS ltcl_abap_language_version IMPLEMENTATION.
     " Assume cloud platform
     set_environment( abap_true ).
 
+    IF mv_has_language_cfg = abap_true.
       cl_abap_unit_assert=>assert_equals(
         act = mo_cut->is_import_allowed( '$TMP' ) " existing standard package
         exp = iv_standard ).
+    ENDIF.
 
     IF mv_has_cloud_package = abap_true.
       cl_abap_unit_assert=>assert_equals(
@@ -401,6 +407,19 @@ CLASS ltcl_abap_language_version IMPLEMENTATION.
   METHOD is_import_allowed.
 
     DATA lv_version TYPE string.
+    DATA ls_clskey TYPE seoclskey.
+
+    ls_clskey-clsname = c_language_cfg.
+
+    " Tests using ABAP language version "standard" only work if the required
+    " SAP class is available. In older releases, all packages will have
+    " ABAP language version "undefined" and are handled like a new package
+    CALL FUNCTION 'SEO_CLASS_EXISTENCE_CHECK'
+      EXPORTING
+        clskey = ls_clskey
+      EXCEPTIONS
+        OTHERS = 1.
+    mv_has_language_cfg = boolc( sy-subrc = 0 ).
 
     LOOP AT mt_versions INTO lv_version.
 

src/git_platform/zcl_abapgit_pr_enumerator.clas.abap

@@ -50,7 +50,7 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION.
     mv_repo_url = to_lower( iv_url ).
     TRY.
         mi_enum_provider = create_provider( mv_repo_url ).
-      CATCH zcx_abapgit_exception.
+      CATCH zcx_abapgit_exception ##NO_HANDLER.
     ENDTRY.
 
   ENDMETHOD.

src/inspect/zcl_abapgit_where_used_tools.clas.abap

@@ -124,7 +124,7 @@ ENDCLASS.
 
 
 
-CLASS ZCL_ABAPGIT_WHERE_USED_TOOLS IMPLEMENTATION.
+CLASS zcl_abapgit_where_used_tools IMPLEMENTATION.
 
 
   METHOD build_package_scope.
@@ -311,7 +311,7 @@ CLASS ZCL_ABAPGIT_WHERE_USED_TOOLS IMPLEMENTATION.
         not_enough_input         = 1
         no_function_pool         = 2
         delimiter_wrong_position = 3
-        OTHERS                   = 4.
+        OTHERS                   = 4 ##FM_SUBRC_OK.
 
     IF lv_area IS INITIAL.
       SELECT SINGLE master FROM d010inc INTO lv_program
@@ -325,7 +325,7 @@ CLASS ZCL_ABAPGIT_WHERE_USED_TOOLS IMPLEMENTATION.
           not_enough_input         = 1
           no_function_pool         = 2
           delimiter_wrong_position = 3
-          OTHERS                   = 4.
+          OTHERS                   = 4 ##FM_SUBRC_OK.
     ENDIF.
 
     IF lv_area IS NOT INITIAL.

src/objects/core/zcl_abapgit_dependencies.clas.abap

@@ -119,7 +119,7 @@ CLASS zcl_abapgit_dependencies IMPLEMENTATION.
           " AUTH after DCLS
           <ls_tadir>-korrnum = '715000'.
         WHEN 'SUSH'.
-          " SUSH after SUSC
+          " SUSH after SUSC and SRVB
           <ls_tadir>-korrnum = '712000'.
         WHEN 'SUSC'.
           " SUSC after SUSO
@@ -130,6 +130,14 @@ CLASS zcl_abapgit_dependencies IMPLEMENTATION.
         WHEN 'DCLS'.
           " AUTH and SUSO after DCLS
           <ls_tadir>-korrnum = '705000'.
+        WHEN 'G4BA' OR 'G4BS' OR 'IWMO' OR 'IWSV' OR 'IWVB'.
+          " after SRVB
+          <ls_tadir>-korrnum = '610000'.
+        WHEN 'SRVB'.
+          " after SRVD
+          <ls_tadir>-korrnum = '600500'.
+        WHEN 'SRVD'.
+          <ls_tadir>-korrnum = '600000'.
         WHEN 'IASP'.
           <ls_tadir>-korrnum = '552000'.
         WHEN 'IARP'.

src/objects/core/zcl_abapgit_file_deserialize.clas.abap

@@ -245,6 +245,12 @@ CLASS zcl_abapgit_file_deserialize IMPLEMENTATION.
         WHEN 'ENSC'.
           lt_requires = lt_items.
           DELETE lt_requires WHERE obj_type <> 'ENHS'.
+        WHEN 'IWMO' OR 'IWSV' OR 'IWVB' OR 'SUSH'.
+          lt_requires = lt_items.
+          DELETE lt_requires WHERE obj_type <> 'SRVB'.
+        WHEN 'SRVB'.
+          lt_requires = lt_items.
+          DELETE lt_requires WHERE obj_type <> 'SRVD'.
       ENDCASE.
 * TODO: END extract to object handler method
 

src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap

@@ -37,10 +37,7 @@ CLASS ltcl_field_rules DEFINITION FOR TESTING RISK LEVEL HARMLESS
         RETURNING
           VALUE(ri_rules) TYPE REF TO zif_abapgit_field_rules,
       apply_clear_logic FOR TESTING,
-      apply_fill_logic FOR TESTING,
+      apply_fill_logic FOR TESTING.
-      get_utc_timestamp
-        RETURNING
-          VALUE(rv_timestamp) TYPE timestamp.
 
 ENDCLASS.
 
@@ -88,7 +85,7 @@ CLASS ltcl_field_rules IMPLEMENTATION.
 
   METHOD fill3.
     DATA lv_timestamp TYPE timestamp.
-    lv_timestamp = get_utc_timestamp( ).
+    GET TIME STAMP FIELD lv_timestamp.
     fill_value(
       iv_rule = zif_abapgit_field_rules=>c_fill_rule-timestamp
       iv_len  = 10
@@ -205,6 +202,8 @@ CLASS ltcl_field_rules IMPLEMENTATION.
       lv_ts        TYPE string,
       lv_timestamp TYPE timestamp.
 
+    GET TIME STAMP FIELD lv_timestamp.
+
     ls_act-key  = 1.
     INSERT ls_act INTO TABLE lt_act.
     ls_act-key  = 2.
@@ -241,17 +240,16 @@ CLASS ltcl_field_rules IMPLEMENTATION.
       act = ls_act-time(4)
       exp = sy-uzeit(4) ). " avoid comparing seconds
 
-    lv_timestamp = get_utc_timestamp( ).
     lv_ts = ls_act-ts.
-    lv_ts = lv_ts(12).
+    lv_ts = lv_ts(10).
     cl_abap_unit_assert=>assert_equals(
       act = lv_ts
-      exp = |{ lv_timestamp DIV 100 }| ). " avoid comparing second
+      exp = |{ lv_timestamp DIV 10000 }| ). " avoid comparing second
     lv_ts = ls_act-tl.
-    lv_ts = lv_ts(12).
+    lv_ts = lv_ts(10).
     cl_abap_unit_assert=>assert_equals(
       act = lv_ts
-      exp = |{ lv_timestamp DIV 100 }| ). " avoid comparing seconds
+      exp = |{ lv_timestamp DIV 10000 }| ). " avoid comparing seconds
 
     READ TABLE lt_act INTO ls_act INDEX 2.
 
@@ -269,21 +267,4 @@ CLASS ltcl_field_rules IMPLEMENTATION.
       exp = sy-uzeit(4) ). " avoid comparing seconds
 
   ENDMETHOD.
-
-  METHOD get_utc_timestamp.
-    DATA lv_syst_timezone TYPE timezone.
-    CALL FUNCTION 'GET_SYSTEM_TIMEZONE'
-      IMPORTING
-        timezone            = lv_syst_timezone
-      EXCEPTIONS
-        customizing_missing = 1
-        OTHERS              = 2.
-    IF sy-subrc <> 0.
-      cl_abap_unit_assert=>fail( 'Could not get system timezone' ).
-    ENDIF.
-
-    CONVERT DATE sy-datum TIME sy-uzeit
-      INTO TIME STAMP rv_timestamp
-      TIME ZONE lv_syst_timezone.
-  ENDMETHOD.
 ENDCLASS.

src/objects/zcl_abapgit_object_aifc.clas.abap

@@ -383,7 +383,7 @@ CLASS zcl_abapgit_object_aifc IMPLEMENTATION.
                                                                     packages = '' ).
             CATCH cx_abap_not_a_table INTO lx_abap_not_a_table.
               zcx_abapgit_exception=>raise_with_text( lx_abap_not_a_table ).
-            CATCH cx_abap_not_in_package.
+            CATCH cx_abap_not_in_package ##NO_HANDLER.
               "that's fine
           ENDTRY.
 

src/objects/zcl_abapgit_object_auth.clas.abap

@@ -159,7 +159,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION.
       CALL FUNCTION 'SU20_MAINTAIN_SNGL'
         EXPORTING
           id_field    = mv_fieldname
-          id_wbo_mode = abap_false.
+          id_wbo_mode = abap_false ##EXISTS.
       rv_exit = abap_true.
     ENDIF.
   ENDMETHOD.

src/objects/zcl_abapgit_object_cmpt.clas.abap

@@ -38,6 +38,7 @@ CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
             r_ref_db_access = mo_cmp_db.
 
       CATCH cx_root.
+        zcx_abapgit_exception=>raise( 'CMPT not supported' ).
     ENDTRY.
 
     mv_name = ms_item-obj_name.

src/objects/zcl_abapgit_object_fugr.clas.abap

@@ -786,7 +786,8 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
         CHANGING
           include   = lv_include
         EXCEPTIONS
-          OTHERS    = 1.
+          OTHERS    = 1 ##FM_SUBRC_OK.
+
       IF lv_function_group(1) = 'X'.    " "EXIT"-function-module
         ls_tadir-object = 'FUGS'.
       ENDIF.

src/objects/zcl_abapgit_object_iext.clas.abap

@@ -53,8 +53,9 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION.
         pe_attributes = ls_attributes
       EXCEPTIONS
         OTHERS        = 1.
-
+    IF sy-subrc = 0.
       rv_user = ls_attributes-plast.
+    ENDIF.
 
   ENDMETHOD.
 

src/objects/zcl_abapgit_object_msag.clas.abap

@@ -37,13 +37,17 @@ CLASS zcl_abapgit_object_msag DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
         zcx_abapgit_exception .
     METHODS delete_msgid
       IMPORTING
-        !iv_message_id TYPE arbgb .
+        !iv_message_id TYPE arbgb
+      RAISING
+        zcx_abapgit_exception.
     METHODS free_access_permission
       IMPORTING
         !iv_message_id TYPE arbgb .
     METHODS delete_documentation
       IMPORTING
-        !iv_message_id TYPE arbgb .
+        !iv_message_id TYPE arbgb
+      RAISING
+        zcx_abapgit_exception.
 ENDCLASS.
 
 
@@ -61,9 +65,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
         element  = iv_message_id
         addition = '   '
       IMPORTING
-        object   = lv_key_s
+        object   = lv_key_s.
-      EXCEPTIONS
-        OTHERS   = 0.
 
     CALL FUNCTION 'DOKU_DELETE_ALL'
       EXPORTING
@@ -80,7 +82,11 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
         no_docu_found                  = 4
         object_is_already_enqueued     = 5
         object_is_enqueued_by_corr     = 6
-        user_break                     = 7.
+        user_break                     = 7
+        OTHERS                         = 8.
+    IF sy-subrc <> 0.
+      zcx_abapgit_exception=>raise( 'Error deleting longtext for message' ).
+    ENDIF.
 
   ENDMETHOD.
 

src/objects/zcl_abapgit_object_oa2p.clas.abap

@@ -90,7 +90,7 @@ CLASS zcl_abapgit_object_oa2p IMPLEMENTATION.
 
     "authority check
     AUTHORITY-CHECK OBJECT 'S_OA2C_ADM'
-      ID 'ACTVT'     FIELD lc_actvt.
+      ID 'ACTVT' FIELD lc_actvt ##AUTH_OBJ_OK.
     IF sy-subrc <> 0.
       MESSAGE e463(01) WITH mv_profile INTO zcx_abapgit_exception=>null.
       zcx_abapgit_exception=>raise_t100( ).
@@ -104,7 +104,7 @@ CLASS zcl_abapgit_object_oa2p IMPLEMENTATION.
         CALL METHOD lo_persist->('IF_WB_OBJECT_PERSIST~DELETE')
           EXPORTING
             p_object_key = lv_profile_key.   " Object Key
-      CATCH cx_swb_object_does_not_exist.
+      CATCH cx_swb_object_does_not_exist ##NO_HANDLER.
       CATCH cx_swb_exception.
         zcx_abapgit_exception=>raise( |Error when deleting OAuth2 Profile { lv_profile_key }.| ).
     ENDTRY.

src/objects/zcl_abapgit_object_otgr.clas.abap

@@ -137,7 +137,7 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION.
     TRY.
         CREATE DATA lo_parents TYPE TABLE OF ('CLS_TYGR_PARENT').
         ASSIGN lo_parents->* TO <lt_parents>.
-      CATCH cx_sy_create_data_error.
+      CATCH cx_sy_create_data_error ##NO_HANDLER.
     ENDTRY.
 
     IF <lt_parents> IS ASSIGNED.
@@ -288,7 +288,7 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION.
     TRY.
         CREATE DATA lo_parents TYPE TABLE OF ('CLS_TYGR_PARENT').
         ASSIGN lo_parents->* TO <lt_parents>.
-      CATCH cx_sy_create_data_error.
+      CATCH cx_sy_create_data_error ##NO_HANDLER.
     ENDTRY.
 
     TRY.

src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap

@@ -172,7 +172,7 @@ CLASS lcl_task_definition IMPLEMENTATION.
       IF sy-subrc <> 0.
         TRY.
             li_container->element_remove( name = lv_element ).
-          CATCH cx_swf_cnt_container.
+          CATCH cx_swf_cnt_container ##NO_HANDLER.
             "Shouldn't happen, doesn't matter if it does
         ENDTRY.
       ENDIF.

src/objects/zcl_abapgit_object_pdxx_super.clas.abap

@@ -77,7 +77,7 @@ CLASS zcl_abapgit_object_pdxx_super IMPLEMENTATION.
         enqueue_failed      = 1
         object_not_deleted  = 2
         object_not_found    = 3
-        OTHERS              = 4.       "#EC SUBRC_OK
+        OTHERS              = 4 ##FM_SUBRC_OK.
 
     check_subrc_for( `RH_HRSOBJECT_DELETE` ).
 

src/objects/zcl_abapgit_object_scp1.clas.abap

@@ -486,7 +486,8 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION.
       TABLES
         texts         = ls_scp1-scprtext
       EXCEPTIONS
-        no_text_found = 1.
+        no_text_found = 1
+        OTHERS        = 2 ##FM_SUBRC_OK.
 
     IF ls_scp1-scprattr-type = 'TMP'.
       load_hier( CHANGING cs_scp1 = ls_scp1 ).

src/objects/zcl_abapgit_object_sfpf.clas.abap

@@ -134,7 +134,7 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION.
 
     TRY.
         rv_xstr = cl_fp_helper=>convert_form_to_xstring( li_fp_form ).
-      CATCH cx_fp_api INTO lx_fp_conv_err.
+      CATCH cx_fp_api INTO lx_fp_conv_err ##NO_HANDLER.
         " Pass - the exception is handled below!
     ENDTRY.
 

src/objects/zcl_abapgit_object_srvb.clas.abap

@@ -129,6 +129,18 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
       CHANGING
         cs_service_binding = cs_service_binding ).
 
+    clear_field(
+      EXPORTING
+        iv_fieldname       = 'METADATA-RESPONSIBLE'
+      CHANGING
+        cs_service_binding = cs_service_binding ).
+
+    clear_field(
+      EXPORTING
+        iv_fieldname       = 'METADATA-MASTER_LANGUAGE'
+      CHANGING
+        cs_service_binding = cs_service_binding ).
+
   ENDMETHOD.
 
 

src/objects/zcl_abapgit_object_ueno.clas.abap

@@ -569,7 +569,7 @@ CLASS zcl_abapgit_object_ueno IMPLEMENTATION.
           header  = ls_docu-header
           content = ls_docu-content
           itf     = ls_docu-itf
-          pstatus = lv_error_status.
+          pstatus = lv_error_status ##ARG_OK.
 
       CHECK lv_error_status = 'S'. "Success
 

src/objects/zcl_abapgit_object_wdca.clas.abap

@@ -303,7 +303,7 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION.
           WHERE config_id   = ls_outline-config_id
             AND config_type = ls_outline-config_type
             AND config_var  = ls_outline-config_var.
-      CATCH zcx_abapgit_exception.
+      CATCH zcx_abapgit_exception ##NO_HANDLER.
         " File not found
     ENDTRY.
 

src/objects/zcl_abapgit_object_xinx.clas.abap

@@ -100,7 +100,7 @@ CLASS zcl_abapgit_object_xinx IMPLEMENTATION.
         suppress_transport = 'X'
       EXCEPTIONS
         no_docu_found      = 1
-        OTHERS             = 2.
+        OTHERS             = 2 ##FM_SUBRC_OK.
 
   ENDMETHOD.
 
@@ -317,6 +317,9 @@ CLASS zcl_abapgit_object_xinx IMPLEMENTATION.
       EXCEPTIONS
         illegal_input = 1
         OTHERS        = 2.
+    IF sy-subrc <> 0.
+      zcx_abapgit_exception=>raise( 'Error reading index' ).
+    ENDIF.
 
     rv_bool = boolc( ls_dd12v IS NOT INITIAL ).
 

src/objects/zcl_abapgit_objects_program.clas.abap

@@ -650,7 +650,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
             cancelled         = 2
             name_not_allowed  = 3
             permission_error  = 4
-            OTHERS            = 5.
+            OTHERS            = 5 ##FM_SUBRC_OK.
       CATCH cx_sy_dyn_call_param_not_found.
         CALL FUNCTION 'RPY_PROGRAM_INSERT'
           EXPORTING
@@ -667,7 +667,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
             cancelled         = 2
             name_not_allowed  = 3
             permission_error  = 4
-            OTHERS            = 5.
+            OTHERS            = 5 ##FM_SUBRC_OK.
     ENDTRY.
     IF sy-subrc = 3.
 

src/objects/zcl_abapgit_objects_super.clas.abap

@@ -191,7 +191,7 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
             object_not_specified = 3
             permission_failure   = 4
             dialog_needed        = 5
-            OTHERS               = 6.
+            OTHERS               = 6 ##FM_SUBRC_OK.
       CATCH cx_sy_dyn_call_param_not_found.
         TRY.
             " try to force deletion for APPENDs
@@ -207,7 +207,7 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
                 object_not_specified = 3
                 permission_failure   = 4
                 dialog_needed        = 5
-                OTHERS               = 6.
+                OTHERS               = 6 ##FM_SUBRC_OK.
           CATCH cx_sy_dyn_call_param_not_found.
             " no_ask_delete_append and aie_force_deletion not available in lower releases
             CALL FUNCTION 'RS_DD_DELETE_OBJ'
@@ -221,7 +221,7 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
                 object_not_specified = 3
                 permission_failure   = 4
                 dialog_needed        = 5
-                OTHERS               = 6.
+                OTHERS               = 6 ##FM_SUBRC_OK.
         ENDTRY.
     ENDTRY.
 

src/persist/zcl_abapgit_persist_migrate.clas.abap

@@ -53,7 +53,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
 
     TRY.
         lcl_cua_interface=>new( )->put_own_cua( ls_cua ).
-      CATCH zcx_abapgit_exception.
+      CATCH zcx_abapgit_exception ##NO_HANDLER.
     ENDTRY.
 
   ENDMETHOD.
@@ -70,7 +70,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
 
     TRY.
         ls_own_cua = lcl_cua_interface=>new( )->get_own_cua( ).
-      CATCH zcx_abapgit_exception.
+      CATCH zcx_abapgit_exception ##NO_HANDLER.
     ENDTRY.
 
     IF ls_own_cua IS INITIAL.

src/repo/utils/zcl_abapgit_repo_labels.clas.abap

@@ -136,7 +136,7 @@ CLASS zcl_abapgit_repo_labels IMPLEMENTATION.
       TRY.
           validate_one_label_color( <ls_c> ).
           APPEND <ls_c> TO lt_normalized.
-        CATCH zcx_abapgit_exception.
+        CATCH zcx_abapgit_exception ##NO_HANDLER.
       ENDTRY.
     ENDLOOP.
 
@@ -225,7 +225,7 @@ CLASS zcl_abapgit_repo_labels IMPLEMENTATION.
           ro_map->set(
             iv_key = <ls_c>-label
             iv_val = <ls_c>-color ).
-        CATCH zcx_abapgit_exception.
+        CATCH zcx_abapgit_exception ##NO_HANDLER.
       ENDTRY.
     ENDLOOP.
 

src/ui/lib/zcl_abapgit_exception_viewer.clas.abap

@@ -146,6 +146,7 @@ CLASS zcl_abapgit_exception_viewer IMPLEMENTATION.
 
   METHOD goto_message.
 
+    DATA: lv_msg TYPE c LENGTH 100.
     DATA: lt_bdcdata TYPE STANDARD TABLE OF bdcdata,
           ls_bdcdata LIKE LINE OF lt_bdcdata.
 
@@ -182,12 +183,13 @@ CLASS zcl_abapgit_exception_viewer IMPLEMENTATION.
       TABLES
         using_tab             = lt_bdcdata
       EXCEPTIONS
-        call_transaction_denied = 1
+        system_failure        = 1 MESSAGE lv_msg
-        tcode_invalid           = 2
+        communication_failure = 2 MESSAGE lv_msg
-        OTHERS                  = 3.
+        resource_failure      = 3
+        OTHERS                = 4.
 
     IF sy-subrc <> 0.
-      zcx_abapgit_exception=>raise_t100( ).
+      zcx_abapgit_exception=>raise( lv_msg ).
     ENDIF.
 
   ENDMETHOD.

src/utils/zcl_abapgit_convert.clas.testclasses.abap

@@ -331,12 +331,15 @@ CLASS ltcl_bcp47_to_sap1 IMPLEMENTATION.
     DATA lv_result TYPE sy-langu.
     lv_result = zcl_abapgit_convert=>language_bcp47_to_sap1( im_from ).
 
-    cl_abap_unit_assert=>assert_equals( exp = im_to
+    cl_abap_unit_assert=>assert_equals(
-                                        act = lv_result ).
+      exp = im_to
+      act = lv_result
+      msg = |Converting "{ im_from }" should result in "{ im_to }"| ).
   ENDMETHOD.
 
   METHOD assert_bcp47_to_sap1_fail.
     DATA lv_result TYPE string.
+    DATA lv_act TYPE sy-subrc.
 
     zcl_abapgit_convert=>language_bcp47_to_sap1(
       EXPORTING
@@ -347,8 +350,13 @@ CLASS ltcl_bcp47_to_sap1 IMPLEMENTATION.
         no_assignment = 1
         OTHERS        = 2 ).
 
-    cl_abap_unit_assert=>assert_equals( exp = 1
+    " Assert itself might change sy-subrc (it does in 702!)
-                                        act = sy-subrc ).
+    lv_act = sy-subrc.
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 1
+      act = lv_act
+      msg = |Converting "{ im_from }" should fail| ).
   ENDMETHOD.
 
   METHOD english.
@@ -466,14 +474,18 @@ CLASS ltcl_sap1_to_bcp47 IMPLEMENTATION.
 
   METHOD assert_sap1_to_bcp47.
     DATA lv_result TYPE string.
+
     lv_result = zcl_abapgit_convert=>language_sap1_to_bcp47( im_from ).
 
-    cl_abap_unit_assert=>assert_equals( exp = im_to
+    cl_abap_unit_assert=>assert_equals(
-                                        act = lv_result ).
+      exp = im_to
+      act = lv_result
+      msg = |Converting "{ im_from }" should result in "{ im_to }"| ).
   ENDMETHOD.
 
   METHOD assert_sap1_to_bcp47_fail.
     DATA lv_result TYPE string.
+    DATA lv_act TYPE sy-subrc.
 
     zcl_abapgit_convert=>language_sap1_to_bcp47(
       EXPORTING
@@ -484,8 +496,13 @@ CLASS ltcl_sap1_to_bcp47 IMPLEMENTATION.
         no_assignment = 1
         OTHERS        = 2 ).
 
-    cl_abap_unit_assert=>assert_equals( exp = 1
+    " Assert itself might change sy-subrc (it does in 702!)
-                                        act = sy-subrc ).
+    lv_act = sy-subrc.
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 1
+      act = lv_act
+      msg = |Converting "{ im_from }" should fail| ).
   ENDMETHOD.
 
   METHOD english.

src/zabapgit_forms.prog.abap

@@ -81,18 +81,18 @@ CLASS lcl_startup IMPLEMENTATION.
     "   - open a specific repo by package name provided by ADT
     " These overrule the last shown repo
 
-    GET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_repo_key FIELD lv_repo_key.
+    GET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_repo_key FIELD lv_repo_key ##EXISTS.
-    GET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_package  FIELD lv_package.
+    GET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_package  FIELD lv_package ##EXISTS.
     lv_package_adt = get_package_from_adt( ).
 
     IF lv_repo_key IS NOT INITIAL.
 
-      SET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_repo_key FIELD ''.
+      SET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_repo_key FIELD '' ##EXISTS.
       zcl_abapgit_persistence_user=>get_instance( )->set_repo_show( lv_repo_key ).
 
     ELSEIF lv_package IS NOT INITIAL.
 
-      SET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_package FIELD ''.
+      SET PARAMETER ID zif_abapgit_definitions=>c_spagpa_param_package FIELD '' ##EXISTS.
       set_start_repo_from_package( lv_package ).
 
     ELSEIF lv_package_adt IS NOT INITIAL.
@@ -198,7 +198,7 @@ CLASS lcl_startup IMPLEMENTATION.
 
         ENDIF.
 
-      CATCH cx_root.
+      CATCH cx_root ##NO_HANDLER.
         " Some problems with dynamic ADT access.
         " Let's ignore it for now and fail silently
     ENDTRY.

src/zabapgit_password_dialog.prog.abap

@@ -181,7 +181,7 @@ FORM password_popup
         pv_repo_url TYPE string
       CHANGING
         cv_user     TYPE string
-        cv_pass     TYPE string.
+        cv_pass     TYPE string ##CALLED.
 
   lcl_password_dialog=>popup(
     EXPORTING