diff --git a/src/apack/zcl_abapgit_apack_migration.clas.abap b/src/apack/zcl_abapgit_apack_migration.clas.abap index 885b479af..b5092bd26 100644 --- a/src/apack/zcl_abapgit_apack_migration.clas.abap +++ b/src/apack/zcl_abapgit_apack_migration.clas.abap @@ -244,7 +244,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION. SELECT SINGLE clsname FROM seoclass INTO lv_interface_name WHERE clsname = zif_abapgit_apack_definitions=>c_apack_interface_cust. - rv_interface_exists = boolc( sy-subrc = 0 ). + rv_interface_exists = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -254,7 +254,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION. FIELD-SYMBOLS: TYPE i. ASSIGN (zif_abapgit_apack_definitions=>c_apack_interface_cust)=>('CO_INTERFACE_VERSION') TO . - rv_interface_valid = boolc( IS ASSIGNED + rv_interface_valid = xsdbool( IS ASSIGNED AND >= c_apack_interface_version ). ENDMETHOD. @@ -275,7 +275,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION. DATA: lo_apack_migration TYPE REF TO zcl_abapgit_apack_migration. - CREATE OBJECT lo_apack_migration. + lo_apack_migration = NEW #( ). lo_apack_migration->perform_migration( ). ENDMETHOD. diff --git a/src/apack/zcl_abapgit_apack_reader.clas.abap b/src/apack/zcl_abapgit_apack_reader.clas.abap index 9e15a5590..8666bff74 100644 --- a/src/apack/zcl_abapgit_apack_reader.clas.abap +++ b/src/apack/zcl_abapgit_apack_reader.clas.abap @@ -145,9 +145,7 @@ CLASS zcl_abapgit_apack_reader IMPLEMENTATION. IF sy-subrc <> 0. ls_instance-package = iv_package_name. - CREATE OBJECT ls_instance-instance - EXPORTING - iv_package_name = iv_package_name. + ls_instance-instance = NEW #( iv_package_name = iv_package_name ). INSERT ls_instance INTO TABLE gt_instances. ENDIF. @@ -247,7 +245,7 @@ CLASS zcl_abapgit_apack_reader IMPLEMENTATION. ls_returned_manifest = get_manifest_descriptor( ). - rv_has_manifest = boolc( ls_returned_manifest IS NOT INITIAL ). + rv_has_manifest = xsdbool( ls_returned_manifest IS NOT INITIAL ). ENDMETHOD. diff --git a/src/apack/zcl_abapgit_apack_writer.clas.abap b/src/apack/zcl_abapgit_apack_writer.clas.abap index b818ea887..7df13be47 100644 --- a/src/apack/zcl_abapgit_apack_writer.clas.abap +++ b/src/apack/zcl_abapgit_apack_writer.clas.abap @@ -35,7 +35,7 @@ CLASS zcl_abapgit_apack_writer IMPLEMENTATION. METHOD create_instance. - CREATE OBJECT ro_manifest_writer EXPORTING is_apack_manifest_descriptor = is_apack_manifest_descriptor. + ro_manifest_writer = NEW #( is_apack_manifest_descriptor = is_apack_manifest_descriptor ). ENDMETHOD. diff --git a/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap b/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap index bb70e1e31..fdf8a58f5 100644 --- a/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap +++ b/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap @@ -22,15 +22,15 @@ CLASS ltcl_apack_manifest_writer IMPLEMENTATION. lv_actual_xml = lo_manifest_writer->serialize( ). cl_abap_unit_assert=>assert_not_initial( lv_actual_xml ). - lv_bool = boolc( contains( val = lv_actual_xml + lv_bool = xsdbool( contains( val = lv_actual_xml sub = 'abapGit' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). - lv_bool = boolc( contains( val = lv_actual_xml + lv_bool = xsdbool( contains( val = lv_actual_xml sub = 'github.com/larshp' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). - lv_bool = boolc( contains( val = lv_actual_xml + lv_bool = xsdbool( contains( val = lv_actual_xml sub = 'abapGit' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). diff --git a/src/background/zcl_abapgit_background.clas.abap b/src/background/zcl_abapgit_background.clas.abap index e3f3c0aef..ddf9cdd96 100644 --- a/src/background/zcl_abapgit_background.clas.abap +++ b/src/background/zcl_abapgit_background.clas.abap @@ -118,13 +118,13 @@ CLASS zcl_abapgit_background IMPLEMENTATION. RETURN. ENDTRY. - CREATE OBJECT lo_per. + lo_per = NEW #( ). lt_list = lo_per->list( ). WRITE: / 'Background mode'. LOOP AT lt_list ASSIGNING . - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). TRY. lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( -key ). diff --git a/src/background/zcl_abapgit_background_push_au.clas.abap b/src/background/zcl_abapgit_background_push_au.clas.abap index 97e9c65a7..7fc6c808c 100644 --- a/src/background/zcl_abapgit_background_push_au.clas.abap +++ b/src/background/zcl_abapgit_background_push_au.clas.abap @@ -132,7 +132,7 @@ CLASS zcl_abapgit_background_push_au IMPLEMENTATION. * Fill user details ls_comment-committer = determine_user_details( lv_changed_by ). - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). CLEAR ls_user_files. @@ -193,7 +193,7 @@ CLASS zcl_abapgit_background_push_au IMPLEMENTATION. ASSERT lines( is_files-remote ) > 0. - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). ls_comment-comment = 'BG: Deletion'. diff --git a/src/background/zcl_abapgit_background_push_fi.clas.abap b/src/background/zcl_abapgit_background_push_fi.clas.abap index d1d49911e..2fb0f36ff 100644 --- a/src/background/zcl_abapgit_background_push_fi.clas.abap +++ b/src/background/zcl_abapgit_background_push_fi.clas.abap @@ -77,7 +77,7 @@ CLASS zcl_abapgit_background_push_fi IMPLEMENTATION. ASSERT lines( ls_files-local ) > 0 OR lines( ls_files-remote ) > 0. - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). LOOP AT ls_files-local ASSIGNING . mi_log->add_info( |stage: { -file-path } { -file-filename }| ). diff --git a/src/cts/zcl_abapgit_cts_api.clas.abap b/src/cts/zcl_abapgit_cts_api.clas.abap index db06c840e..48205a426 100644 --- a/src/cts/zcl_abapgit_cts_api.clas.abap +++ b/src/cts/zcl_abapgit_cts_api.clas.abap @@ -173,7 +173,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. zcx_abapgit_exception=>raise_t100( ). ENDIF. - rv_locked = boolc( lv_lock_flag <> space ). + rv_locked = xsdbool( lv_lock_flag <> space ). ENDMETHOD. @@ -191,7 +191,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. IMPORTING pe_result = lv_type_check_result. - rv_lockable = boolc( lv_type_check_result = 'L' ). + rv_lockable = xsdbool( lv_type_check_result = 'L' ). ENDMETHOD. @@ -209,7 +209,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. IMPORTING pe_result = lv_type_check_result. - rv_transportable = boolc( lv_type_check_result CA 'RTL' ). + rv_transportable = xsdbool( lv_type_check_result CA 'RTL' ). ENDMETHOD. diff --git a/src/cts/zcl_abapgit_transport.clas.abap b/src/cts/zcl_abapgit_transport.clas.abap index 0dfc63b0f..2e0f363ff 100644 --- a/src/cts/zcl_abapgit_transport.clas.abap +++ b/src/cts/zcl_abapgit_transport.clas.abap @@ -305,9 +305,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION. lv_message TYPE string. FIELD-SYMBOLS: TYPE sprot_u. - CREATE OBJECT li_log TYPE zcl_abapgit_log - EXPORTING - iv_title = iv_title. + li_log = NEW zcl_abapgit_log( iv_title = iv_title ). LOOP AT it_log ASSIGNING . diff --git a/src/cts/zcl_abapgit_transport_2_branch.clas.abap b/src/cts/zcl_abapgit_transport_2_branch.clas.abap index 133cd3f05..1cb67c59a 100644 --- a/src/cts/zcl_abapgit_transport_2_branch.clas.abap +++ b/src/cts/zcl_abapgit_transport_2_branch.clas.abap @@ -48,7 +48,7 @@ CLASS zcl_abapgit_transport_2_branch IMPLEMENTATION. io_repository->create_branch( lv_branch_name ). - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). ls_stage_objects = zcl_abapgit_factory=>get_stage_logic( )->get( io_repository ). @@ -76,9 +76,7 @@ CLASS zcl_abapgit_transport_2_branch IMPLEMENTATION. METHOD stage_transport_objects. DATA lo_transport_objects TYPE REF TO zcl_abapgit_transport_objects. - CREATE OBJECT lo_transport_objects - EXPORTING - it_transport_objects = it_transport_objects. + lo_transport_objects = NEW #( it_transport_objects = it_transport_objects ). lo_transport_objects->to_stage( io_stage = io_stage diff --git a/src/cts/zcl_abapgit_transport_mass.clas.abap b/src/cts/zcl_abapgit_transport_mass.clas.abap index 4b1f10f74..d7d65160e 100644 --- a/src/cts/zcl_abapgit_transport_mass.clas.abap +++ b/src/cts/zcl_abapgit_transport_mass.clas.abap @@ -40,9 +40,7 @@ CLASS zcl_abapgit_transport_mass IMPLEMENTATION. ENDIF. * Instantiate transport zipper object that will also create the timestamped output folder - CREATE OBJECT lo_transport_zipper TYPE lcl_transport_zipper - EXPORTING - iv_folder = lv_folder. + lo_transport_zipper = NEW lcl_transport_zipper( iv_folder = lv_folder ). * Generate the local zip files from the given list of transport requests lo_transport_zipper->generate_files( diff --git a/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap b/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap index a30d84e96..9cf409e57 100644 --- a/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap +++ b/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap @@ -57,7 +57,7 @@ ENDCLASS. CLASS ltcl_transport_objects IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_stage. + mo_stage = NEW #( ). ENDMETHOD. METHOD add_new_to_local_files. @@ -308,9 +308,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION. ENDMETHOD. METHOD when_staging. - CREATE OBJECT mo_transport_objects - EXPORTING - it_transport_objects = mt_transport_objects. + mo_transport_objects = NEW #( it_transport_objects = mt_transport_objects ). mo_transport_objects->to_stage( io_stage = mo_stage is_stage_objects = ms_stage_objects diff --git a/src/data/zcl_abapgit_data_config.clas.testclasses.abap b/src/data/zcl_abapgit_data_config.clas.testclasses.abap index 291778a63..c3be633a0 100644 --- a/src/data/zcl_abapgit_data_config.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_config.clas.testclasses.abap @@ -38,7 +38,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA li_config TYPE REF TO zif_abapgit_data_config. DATA ls_config TYPE zif_abapgit_data_config=>ty_config. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_config = NEW zcl_abapgit_data_config( ). ls_config-name = 'HELLO'. ls_config-type = zif_abapgit_data_config=>c_data_type-tabu. @@ -64,7 +64,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA lv_json TYPE string. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_config = NEW zcl_abapgit_data_config( ). li_config->add_config( ms_config ). lt_files = li_config->to_json( ). @@ -92,7 +92,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA li_config TYPE REF TO zif_abapgit_data_config. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_config = NEW zcl_abapgit_data_config( ). li_config->from_json( it_files ). diff --git a/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap b/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap index ce9da092b..4e15bb8e6 100644 --- a/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap @@ -21,8 +21,8 @@ CLASS ltcl_test IMPLEMENTATION. DATA lt_files TYPE zif_abapgit_git_definitions=>ty_files_tt. DATA ls_config TYPE zif_abapgit_data_config=>ty_config. - CREATE OBJECT li_cut TYPE zcl_abapgit_data_deserializer. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_cut = NEW zcl_abapgit_data_deserializer( ). + li_config = NEW zcl_abapgit_data_config( ). ls_config-type = zif_abapgit_data_config=>c_data_type-tabu. ls_config-name = 'T100'. @@ -70,7 +70,7 @@ CLASS ltcl_test IMPLEMENTATION. ls_t100-text = |abapGit aunit test|. INSERT ls_t100 INTO TABLE . - CREATE OBJECT li_cut TYPE zcl_abapgit_data_deserializer. + li_cut = NEW zcl_abapgit_data_deserializer( ). ls_result = li_cut->preview_database_changes( iv_name = ls_config-name ir_db_data = lr_db_data @@ -138,7 +138,7 @@ CLASS ltcl_test IMPLEMENTATION. ls_t100-text = |abapGit aunit test UPDATE|. INSERT ls_t100 INTO TABLE . - CREATE OBJECT li_cut TYPE zcl_abapgit_data_deserializer. + li_cut = NEW zcl_abapgit_data_deserializer( ). ls_result = li_cut->preview_database_changes( iv_name = ls_config-name ir_db_data = lr_db_data @@ -200,7 +200,7 @@ CLASS ltcl_test IMPLEMENTATION. ls_t100-text = |abapGit aunit test DELETE|. INSERT ls_t100 INTO TABLE . - CREATE OBJECT li_cut TYPE zcl_abapgit_data_deserializer. + li_cut = NEW zcl_abapgit_data_deserializer( ). ls_result = li_cut->preview_database_changes( iv_name = ls_config-name ir_db_data = lr_db_data diff --git a/src/data/zcl_abapgit_data_factory.clas.abap b/src/data/zcl_abapgit_data_factory.clas.abap index 42533cffd..69a6acb6c 100644 --- a/src/data/zcl_abapgit_data_factory.clas.abap +++ b/src/data/zcl_abapgit_data_factory.clas.abap @@ -31,14 +31,14 @@ CLASS zcl_abapgit_data_factory IMPLEMENTATION. METHOD get_config. - CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. + ri_config = NEW zcl_abapgit_data_config( ). ENDMETHOD. METHOD get_deserializer. IF gi_deserializer IS INITIAL. - CREATE OBJECT gi_deserializer TYPE zcl_abapgit_data_deserializer. + gi_deserializer = NEW zcl_abapgit_data_deserializer( ). ENDIF. ri_deserializer = gi_deserializer. @@ -49,7 +49,7 @@ CLASS zcl_abapgit_data_factory IMPLEMENTATION. METHOD get_serializer. IF gi_serializer IS INITIAL. - CREATE OBJECT gi_serializer TYPE zcl_abapgit_data_serializer. + gi_serializer = NEW zcl_abapgit_data_serializer( ). ENDIF. ri_serializer = gi_serializer. @@ -60,7 +60,7 @@ CLASS zcl_abapgit_data_factory IMPLEMENTATION. METHOD get_supporter. IF gi_supporter IS INITIAL. - CREATE OBJECT gi_supporter TYPE zcl_abapgit_data_supporter. + gi_supporter = NEW zcl_abapgit_data_supporter( ). ENDIF. ri_supporter = gi_supporter. diff --git a/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap b/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap index 8fa5c1caa..bed13a762 100644 --- a/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap @@ -18,8 +18,8 @@ ENDCLASS. CLASS ltcl_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mi_cut TYPE zcl_abapgit_data_serializer. - CREATE OBJECT mi_config TYPE zcl_abapgit_data_config. + mi_cut = NEW zcl_abapgit_data_serializer( ). + mi_config = NEW zcl_abapgit_data_config( ). ENDMETHOD. METHOD serialize. diff --git a/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap b/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap index 82c5a0d03..8066335ee 100644 --- a/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap @@ -50,8 +50,8 @@ CLASS ltcl_supporter IMPLEMENTATION. DATA lv_act TYPE abap_bool. " Mock sets table T005 to be supported - CREATE OBJECT lo_mock. - CREATE OBJECT lo_inject. + lo_mock = NEW #( ). + lo_inject = NEW #( ). lo_inject->set_supporter( lo_mock ). lv_act = zcl_abapgit_data_factory=>get_supporter( )->is_object_supported( diff --git a/src/env/zcl_abapgit_abap_language_vers.clas.testclasses.abap b/src/env/zcl_abapgit_abap_language_vers.clas.testclasses.abap index ef1eb9011..a9e6702e1 100644 --- a/src/env/zcl_abapgit_abap_language_vers.clas.testclasses.abap +++ b/src/env/zcl_abapgit_abap_language_vers.clas.testclasses.abap @@ -58,7 +58,7 @@ ENDCLASS. CLASS lcl_persist_settings IMPLEMENTATION. METHOD constructor. - CREATE OBJECT mo_settings. + mo_settings = NEW #( ). ENDMETHOD. METHOD zif_abapgit_persist_settings~modify. @@ -129,10 +129,10 @@ ENDCLASS. CLASS ltcl_abap_language_version IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_environment. + mo_environment = NEW #( ). zcl_abapgit_injector=>set_environment( mo_environment ). - CREATE OBJECT mi_persistency TYPE lcl_persist_settings. + mi_persistency = NEW lcl_persist_settings( ). zcl_abapgit_persist_injector=>set_settings( mi_persistency ). APPEND zif_abapgit_dot_abapgit=>c_abap_language_version-undefined TO mt_versions. @@ -148,9 +148,7 @@ CLASS ltcl_abap_language_version IMPLEMENTATION. mo_dot_abapgit = zcl_abapgit_dot_abapgit=>build_default( ). mo_dot_abapgit->set_abap_language_version( iv_abap_language_version ). - CREATE OBJECT mo_cut - EXPORTING - io_dot_abapgit = mo_dot_abapgit. + mo_cut = NEW #( io_dot_abapgit = mo_dot_abapgit ). ENDMETHOD. METHOD set_environment. diff --git a/src/env/zcl_abapgit_environment.clas.abap b/src/env/zcl_abapgit_environment.clas.abap index e9277f22f..2fcc4e257 100644 --- a/src/env/zcl_abapgit_environment.clas.abap +++ b/src/env/zcl_abapgit_environment.clas.abap @@ -67,7 +67,7 @@ CLASS zcl_abapgit_environment IMPLEMENTATION. " Changes to repository objects are not permitted in this client (TK 729) " Shadow system " Running upgrade - rv_result = boolc( + rv_result = xsdbool( lv_systemedit <> 'N' AND lv_sys_cliinddep_edit NA '23' AND lv_is_shadow <> abap_true AND @@ -209,7 +209,7 @@ CLASS zcl_abapgit_environment IMPLEMENTATION. " Memory is set in LSVARF08 / EXPORT_SCREEN_TABLES. IMPORT variscreens = lt_variscreens FROM MEMORY ID '%_SCRNR_%'. - rv_is_variant_maintenance = boolc( lines( lt_variscreens ) > 0 ). + rv_is_variant_maintenance = xsdbool( lines( lt_variscreens ) > 0 ). ENDMETHOD. diff --git a/src/env/zcl_abapgit_environment.clas.testclasses.abap b/src/env/zcl_abapgit_environment.clas.testclasses.abap index b544e1195..da574c41c 100644 --- a/src/env/zcl_abapgit_environment.clas.testclasses.abap +++ b/src/env/zcl_abapgit_environment.clas.testclasses.abap @@ -24,7 +24,7 @@ CLASS ltcl_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mi_cut TYPE zcl_abapgit_environment. + mi_cut = NEW zcl_abapgit_environment( ). ENDMETHOD. diff --git a/src/env/zcl_abapgit_feature.clas.abap b/src/env/zcl_abapgit_feature.clas.abap index 0ce0f6ba6..b1dc2a59b 100644 --- a/src/env/zcl_abapgit_feature.clas.abap +++ b/src/env/zcl_abapgit_feature.clas.abap @@ -36,12 +36,12 @@ CLASS zcl_abapgit_feature IMPLEMENTATION. lv_features = zcl_abapgit_persist_factory=>get_settings( )->read( )->get_experimental_features( ). CONDENSE lv_features NO-GAPS. - rv_run = boolc( lv_features = abap_true ). + rv_run = xsdbool( lv_features = abap_true ). IF iv_feature IS NOT INITIAL. SPLIT lv_features AT ',' INTO TABLE lt_features. READ TABLE lt_features TRANSPORTING NO FIELDS WITH TABLE KEY table_line = iv_feature. - rv_run = boolc( rv_run = abap_true OR sy-subrc = 0 ). + rv_run = xsdbool( rv_run = abap_true OR sy-subrc = 0 ). ENDIF. ENDMETHOD. diff --git a/src/env/zcl_abapgit_feature.clas.testclasses.abap b/src/env/zcl_abapgit_feature.clas.testclasses.abap index 006bafe09..39a90edae 100644 --- a/src/env/zcl_abapgit_feature.clas.testclasses.abap +++ b/src/env/zcl_abapgit_feature.clas.testclasses.abap @@ -17,7 +17,7 @@ ENDCLASS. CLASS ltcl_feature IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). mo_settings = zcl_abapgit_persist_factory=>get_settings( )->read( ). ENDMETHOD. diff --git a/src/env/zcl_abapgit_settings.clas.abap b/src/env/zcl_abapgit_settings.clas.abap index f6738c3a1..bda21eebd 100644 --- a/src/env/zcl_abapgit_settings.clas.abap +++ b/src/env/zcl_abapgit_settings.clas.abap @@ -290,7 +290,7 @@ CLASS zcl_abapgit_settings IMPLEMENTATION. DATA: li_output TYPE REF TO zif_abapgit_xml_output. - CREATE OBJECT li_output TYPE zcl_abapgit_xml_output. + li_output = NEW zcl_abapgit_xml_output( ). li_output->add( iv_name = zcl_abapgit_persistence_db=>c_type_settings ig_data = ms_settings ). @@ -492,7 +492,7 @@ CLASS zcl_abapgit_settings IMPLEMENTATION. DATA: lo_input TYPE REF TO zif_abapgit_xml_input. - CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = iv_settings_xml. + lo_input = NEW zcl_abapgit_xml_input( iv_xml = iv_settings_xml ). CLEAR ms_settings. diff --git a/src/env/zcl_abapgit_user_record.clas.abap b/src/env/zcl_abapgit_user_record.clas.abap index ca51be4f4..e4bd92e7f 100644 --- a/src/env/zcl_abapgit_user_record.clas.abap +++ b/src/env/zcl_abapgit_user_record.clas.abap @@ -151,9 +151,7 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION. IF sy-subrc = 0. ro_user = -o_user. ELSE. - CREATE OBJECT ro_user - EXPORTING - iv_user = iv_user. + ro_user = NEW #( iv_user = iv_user ). ENDIF. ENDMETHOD. diff --git a/src/exits/zcl_abapgit_exit.clas.abap b/src/exits/zcl_abapgit_exit.clas.abap index 885cff57a..2c875ed8a 100644 --- a/src/exits/zcl_abapgit_exit.clas.abap +++ b/src/exits/zcl_abapgit_exit.clas.abap @@ -52,7 +52,7 @@ CLASS zcl_abapgit_exit IMPLEMENTATION. ENDTRY. ENDIF. - CREATE OBJECT gi_global_exit TYPE zcl_abapgit_exit. " this class + gi_global_exit = NEW zcl_abapgit_exit( ). " this class ri_exit = gi_global_exit. @@ -76,7 +76,7 @@ CLASS zcl_abapgit_exit IMPLEMENTATION. EXCEPTIONS type_not_found = 1 OTHERS = 2 ). - rv_running_in_test_context = boolc( sy-subrc = 0 ). + rv_running_in_test_context = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/git/v2/zcl_abapgit_gitv2_porcelain.clas.abap b/src/git/v2/zcl_abapgit_gitv2_porcelain.clas.abap index 05e98f106..da5599e72 100644 --- a/src/git/v2/zcl_abapgit_gitv2_porcelain.clas.abap +++ b/src/git/v2/zcl_abapgit_gitv2_porcelain.clas.abap @@ -185,9 +185,7 @@ CLASS ZCL_ABAPGIT_GITV2_PORCELAIN IMPLEMENTATION. " add dummy packet so the v1 branch parsing can be reused lv_data = |0004\n{ zcl_abapgit_convert=>xstring_to_string_utf8( lv_xstring ) }|. - CREATE OBJECT ro_list - EXPORTING - iv_data = lv_data. + ro_list = NEW #( iv_data = lv_data ). ENDMETHOD. diff --git a/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap b/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap index 07782d2e1..ba2975649 100644 --- a/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap +++ b/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap @@ -667,9 +667,7 @@ CLASS ltcl_calculate_patch IMPLEMENTATION. DATA: lo_git_add_patch TYPE REF TO zcl_abapgit_git_add_patch. - CREATE OBJECT lo_git_add_patch - EXPORTING - it_diff = mt_diff. + lo_git_add_patch = NEW #( it_diff = mt_diff ). TRY. mt_patch = lo_git_add_patch->get_patch( ). diff --git a/src/git/zcl_abapgit_git_commit.clas.abap b/src/git/zcl_abapgit_git_commit.clas.abap index 34f5b5fdd..c076e83c7 100644 --- a/src/git/zcl_abapgit_git_commit.clas.abap +++ b/src/git/zcl_abapgit_git_commit.clas.abap @@ -221,7 +221,7 @@ CLASS zcl_abapgit_git_commit IMPLEMENTATION. READ TABLE it_commits TRANSPORTING NO FIELDS WITH KEY sha1 = iv_sha1. - rv_result = boolc( sy-subrc <> 0 ). + rv_result = xsdbool( sy-subrc <> 0 ). ENDIF. diff --git a/src/git/zcl_abapgit_git_factory.clas.abap b/src/git/zcl_abapgit_git_factory.clas.abap index c6f558f9e..bb745e144 100644 --- a/src/git/zcl_abapgit_git_factory.clas.abap +++ b/src/git/zcl_abapgit_git_factory.clas.abap @@ -25,14 +25,14 @@ ENDCLASS. CLASS zcl_abapgit_git_factory IMPLEMENTATION. METHOD get_v2_porcelain. - CREATE OBJECT ri_v2 TYPE zcl_abapgit_gitv2_porcelain. + ri_v2 = NEW zcl_abapgit_gitv2_porcelain( ). ENDMETHOD. METHOD get_git_transport. IF gi_git_transport IS INITIAL. - CREATE OBJECT gi_git_transport TYPE zcl_abapgit_git_transport. + gi_git_transport = NEW zcl_abapgit_git_transport( ). ENDIF. ri_git_transport = gi_git_transport. diff --git a/src/git/zcl_abapgit_git_pack.clas.abap b/src/git/zcl_abapgit_git_pack.clas.abap index 18b81a2c1..704ebadb3 100644 --- a/src/git/zcl_abapgit_git_pack.clas.abap +++ b/src/git/zcl_abapgit_git_pack.clas.abap @@ -522,9 +522,7 @@ CLASS zcl_abapgit_git_pack IMPLEMENTATION. FIELD-SYMBOLS: LIKE LINE OF ct_objects. - CREATE OBJECT lo_stream - EXPORTING - iv_data = is_object-data. + lo_stream = NEW #( iv_data = is_object-data ). * find base READ TABLE ct_objects ASSIGNING diff --git a/src/git/zcl_abapgit_git_pack.clas.testclasses.abap b/src/git/zcl_abapgit_git_pack.clas.testclasses.abap index fcfe52e0b..1a0b65b0a 100644 --- a/src/git/zcl_abapgit_git_pack.clas.testclasses.abap +++ b/src/git/zcl_abapgit_git_pack.clas.testclasses.abap @@ -282,7 +282,7 @@ CLASS ltcl_pack IMPLEMENTATION. METHOD setup. DATA lo_progress_double TYPE REF TO ltcl_progress_double. - CREATE OBJECT lo_progress_double TYPE ltcl_progress_double. + lo_progress_double = NEW ltcl_progress_double( ). zcl_abapgit_progress=>set_instance( lo_progress_double ). ENDMETHOD. diff --git a/src/git/zcl_abapgit_git_transport.clas.abap b/src/git/zcl_abapgit_git_transport.clas.abap index 60512203c..b516c3dc6 100644 --- a/src/git/zcl_abapgit_git_transport.clas.abap +++ b/src/git/zcl_abapgit_git_transport.clas.abap @@ -144,9 +144,7 @@ CLASS zcl_abapgit_git_transport IMPLEMENTATION. lv_data = eo_client->get_cdata( ). - CREATE OBJECT eo_branch_list - EXPORTING - iv_data = lv_data. + eo_branch_list = NEW #( iv_data = lv_data ). ENDMETHOD. diff --git a/src/git/zcl_abapgit_git_utils.clas.testclasses.abap b/src/git/zcl_abapgit_git_utils.clas.testclasses.abap index 5f559f8af..8a50cf3eb 100644 --- a/src/git/zcl_abapgit_git_utils.clas.testclasses.abap +++ b/src/git/zcl_abapgit_git_utils.clas.testclasses.abap @@ -14,7 +14,7 @@ ENDCLASS. CLASS ltcl_git_utils IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD get_null. diff --git a/src/git/zlib/zcl_abapgit_zlib.clas.abap b/src/git/zlib/zcl_abapgit_zlib.clas.abap index 3a55f9fd8..e3ccff65c 100644 --- a/src/git/zlib/zcl_abapgit_zlib.clas.abap +++ b/src/git/zlib/zcl_abapgit_zlib.clas.abap @@ -142,9 +142,7 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. ENDIF. CLEAR gv_out. - CREATE OBJECT go_stream - EXPORTING - iv_data = iv_compressed. + go_stream = NEW #( iv_data = iv_compressed ). DO. lv_bfinal = go_stream->take_bits( 1 ). @@ -227,9 +225,7 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. = go_stream->take_int( 3 ). ENDDO. - CREATE OBJECT go_lencode - EXPORTING - it_lengths = lt_lengths. + go_lencode = NEW #( it_lengths = lt_lengths ). CLEAR lt_lengths. WHILE lines( lt_lengths ) < lv_nlen + lv_ndist. @@ -258,13 +254,9 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. DELETE lt_lengths FROM lv_nlen + 1. DELETE lt_dists TO lv_nlen. - CREATE OBJECT go_lencode - EXPORTING - it_lengths = lt_lengths. + go_lencode = NEW #( it_lengths = lt_lengths ). - CREATE OBJECT go_distcode - EXPORTING - it_lengths = lt_dists. + go_distcode = NEW #( it_lengths = lt_dists ). ENDMETHOD. @@ -287,18 +279,14 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - CREATE OBJECT go_lencode - EXPORTING - it_lengths = lt_lengths. + go_lencode = NEW #( it_lengths = lt_lengths ). CLEAR lt_lengths. DO c_maxdcodes TIMES. APPEND 5 TO lt_lengths. ENDDO. - CREATE OBJECT go_distcode - EXPORTING - it_lengths = lt_lengths. + go_distcode = NEW #( it_lengths = lt_lengths ). ENDMETHOD. diff --git a/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap b/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap index 130e0cbb0..db87b22e4 100644 --- a/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap @@ -18,7 +18,7 @@ ENDCLASS. CLASS ltcl_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD bits_to_int. diff --git a/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap b/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap index fa660827a..ca6a7dd8b 100644 --- a/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap @@ -18,9 +18,7 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - CREATE OBJECT lo_huffman - EXPORTING - it_lengths = lt_lengths. + lo_huffman = NEW #( it_lengths = lt_lengths ). ENDMETHOD. @@ -43,9 +41,7 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - CREATE OBJECT lo_huffman - EXPORTING - it_lengths = lt_lengths. + lo_huffman = NEW #( it_lengths = lt_lengths ). ENDMETHOD. diff --git a/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap b/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap index 288723d4a..42e1b1676 100644 --- a/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap @@ -20,9 +20,7 @@ CLASS ltcl_test IMPLEMENTATION. lv_bytes TYPE xstring. - CREATE OBJECT lo_stream - EXPORTING - iv_data = '112233445566'. + lo_stream = NEW #( iv_data = '112233445566' ). lv_bits = lo_stream->take_bits( 8 ). diff --git a/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap b/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap index 36b2112ea..7cee498d4 100644 --- a/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap +++ b/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap @@ -27,7 +27,7 @@ CLASS ltcl_repo_online IMPLEMENTATION. FIELD-SYMBOLS TYPE ty_show_url_test. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). ls_provider_urls-repo_url = |https://github.com/abapGit/abapGit.git|. ls_provider_urls-show_url = |https://github.com/abapGit/abapGit/commit/{ lv_testhash }|. diff --git a/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap b/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap index 6d731a02f..27451eb39 100644 --- a/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap +++ b/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap @@ -72,10 +72,8 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION. val = lv_repo regex = '\.git$' with = '' ). - CREATE OBJECT ri_provider TYPE zcl_abapgit_pr_enum_github - EXPORTING - iv_user_and_repo = |{ lv_user }/{ lv_repo }| - ii_http_agent = li_agent. + ri_provider = NEW zcl_abapgit_pr_enum_github( iv_user_and_repo = |{ lv_user }/{ lv_repo }| + ii_http_agent = li_agent ). ELSE. zcx_abapgit_exception=>raise( |PR enumeration is not supported for { iv_repo_url }| ). ENDIF. @@ -97,6 +95,6 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance EXPORTING iv_url = iv_url. + ro_instance = NEW #( iv_url = iv_url ). ENDMETHOD. ENDCLASS. diff --git a/src/http/zcl_abapgit_http.clas.abap b/src/http/zcl_abapgit_http.clas.abap index a30bcfe79..91a48eeea 100644 --- a/src/http/zcl_abapgit_http.clas.abap +++ b/src/http/zcl_abapgit_http.clas.abap @@ -118,11 +118,9 @@ CLASS zcl_abapgit_http IMPLEMENTATION. WHEN c_scheme-digest. * https://en.wikipedia.org/wiki/Digest_access_authentication * e.g. used by https://www.gerritcodereview.com/ - CREATE OBJECT lo_digest - EXPORTING - ii_client = ii_client - iv_username = lv_user - iv_password = lv_pass. + lo_digest = NEW #( ii_client = ii_client + iv_username = lv_user + iv_password = lv_pass ). lo_digest->run( ii_client ). io_client->set_digest( lo_digest ). WHEN OTHERS. @@ -164,9 +162,7 @@ CLASS zcl_abapgit_http IMPLEMENTATION. li_client = get_http_client( iv_url ). - CREATE OBJECT ro_client - EXPORTING - ii_client = li_client. + ro_client = NEW #( ii_client = li_client ). IF is_local_system( iv_url ) = abap_true. li_client->send_sap_logon_ticket( ). @@ -299,7 +295,7 @@ CLASS zcl_abapgit_http IMPLEMENTATION. lv_proxy_service TYPE string, lo_proxy_configuration TYPE REF TO zcl_abapgit_proxy_config. - CREATE OBJECT lo_proxy_configuration. + lo_proxy_configuration = NEW #( ). ri_client = zcl_abapgit_exit=>get_instance( )->create_http_client( iv_url ). @@ -372,7 +368,7 @@ CLASS zcl_abapgit_http IMPLEMENTATION. FIND REGEX 'https?://([^/^:]*)' IN iv_url SUBMATCHES lv_host. READ TABLE lt_list WITH KEY table_line = lv_host TRANSPORTING NO FIELDS. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. ENDCLASS. diff --git a/src/http/zcl_abapgit_http_agent.clas.abap b/src/http/zcl_abapgit_http_agent.clas.abap index 6e85e1cb6..649ae1a69 100644 --- a/src/http/zcl_abapgit_http_agent.clas.abap +++ b/src/http/zcl_abapgit_http_agent.clas.abap @@ -51,14 +51,14 @@ CLASS ZCL_ABAPGIT_HTTP_AGENT IMPLEMENTATION. METHOD constructor. - CREATE OBJECT mo_global_headers. + mo_global_headers = NEW #( ). ENDMETHOD. METHOD create. - CREATE OBJECT ri_instance TYPE zcl_abapgit_http_agent. + ri_instance = NEW zcl_abapgit_http_agent( ). ENDMETHOD. @@ -78,7 +78,7 @@ CLASS ZCL_ABAPGIT_HTTP_AGENT IMPLEMENTATION. DATA lv_message TYPE string. FIELD-SYMBOLS LIKE LINE OF io_query->mt_entries. - CREATE OBJECT lo_proxy_configuration. + lo_proxy_configuration = NEW #( ). cl_http_client=>create_by_url( EXPORTING diff --git a/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap b/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap index 08df2d526..4c6c7005e 100644 --- a/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap +++ b/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap @@ -18,7 +18,7 @@ CLASS lcl_http_response IMPLEMENTATION. METHOD create. DATA lo_response TYPE REF TO lcl_http_response. - CREATE OBJECT lo_response. + lo_response = NEW #( ). lo_response->mi_client = ii_client. lo_response->mi_response = ii_client->response. ri_response ?= lo_response. @@ -31,7 +31,7 @@ CLASS lcl_http_response IMPLEMENTATION. METHOD zif_abapgit_http_response~is_ok. DATA lv_code TYPE i. lv_code = zif_abapgit_http_response~code( ). - rv_yes = boolc( lv_code >= 200 AND lv_code < 300 ). + rv_yes = xsdbool( lv_code >= 200 AND lv_code < 300 ). ENDMETHOD. METHOD zif_abapgit_http_response~data. @@ -65,7 +65,7 @@ CLASS lcl_http_response IMPLEMENTATION. DATA lt_headers TYPE tihttpnvp. FIELD-SYMBOLS LIKE LINE OF lt_headers. - CREATE OBJECT ro_headers. + ro_headers = NEW #( ). mi_response->get_header_fields( CHANGING fields = lt_headers ). LOOP AT lt_headers ASSIGNING . diff --git a/src/inspect/zcl_abapgit_code_inspector.clas.abap b/src/inspect/zcl_abapgit_code_inspector.clas.abap index 9044cb34c..86e9aa750 100644 --- a/src/inspect/zcl_abapgit_code_inspector.clas.abap +++ b/src/inspect/zcl_abapgit_code_inspector.clas.abap @@ -302,7 +302,7 @@ CLASS zcl_abapgit_code_inspector IMPLEMENTATION. FROM trdir WHERE name = is_obj-objname. - rv_skip = boolc( ls_program_type = 'I' ). " Include program. + rv_skip = xsdbool( ls_program_type = 'I' ). " Include program. WHEN OTHERS. rv_skip = abap_false. @@ -379,7 +379,7 @@ CLASS zcl_abapgit_code_inspector IMPLEMENTATION. IF iv_save = abap_true. READ TABLE rt_list TRANSPORTING NO FIELDS WITH KEY kind = 'E'. - mv_success = boolc( sy-subrc <> 0 ). + mv_success = xsdbool( sy-subrc <> 0 ). ENDIF. CATCH zcx_abapgit_exception INTO lx_error. diff --git a/src/inspect/zcl_abapgit_where_used_tools.clas.abap b/src/inspect/zcl_abapgit_where_used_tools.clas.abap index e6a34c7aa..f51a31734 100644 --- a/src/inspect/zcl_abapgit_where_used_tools.clas.abap +++ b/src/inspect/zcl_abapgit_where_used_tools.clas.abap @@ -410,7 +410,7 @@ CLASS ZCL_ABAPGIT_WHERE_USED_TOOLS IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. diff --git a/src/json/zcl_abapgit_ajson.clas.abap b/src/json/zcl_abapgit_ajson.clas.abap index d59af1358..c59b3f9aa 100644 --- a/src/json/zcl_abapgit_ajson.clas.abap +++ b/src/json/zcl_abapgit_ajson.clas.abap @@ -138,11 +138,9 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD create_empty. - CREATE OBJECT ro_instance - EXPORTING - iv_to_abap_corresponding_only = iv_to_abap_corresponding_only - iv_format_datetime = iv_format_datetime - iv_keep_item_order = iv_keep_item_order. + ro_instance = NEW #( iv_to_abap_corresponding_only = iv_to_abap_corresponding_only + iv_format_datetime = iv_format_datetime + iv_keep_item_order = iv_keep_item_order ). ro_instance->mi_custom_mapping = ii_custom_mapping. ENDMETHOD. @@ -155,16 +153,14 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. zcx_abapgit_ajson_error=>raise( 'Source not bound' ). ENDIF. - CREATE OBJECT ro_instance - EXPORTING - iv_to_abap_corresponding_only = ii_source_json->opts( )-to_abap_corresponding_only - iv_format_datetime = ii_source_json->opts( )-format_datetime - iv_keep_item_order = ii_source_json->opts( )-keep_item_order. + ro_instance = NEW #( iv_to_abap_corresponding_only = ii_source_json->opts( )-to_abap_corresponding_only + iv_format_datetime = ii_source_json->opts( )-format_datetime + iv_keep_item_order = ii_source_json->opts( )-keep_item_order ). IF ii_filter IS NOT BOUND AND ii_mapper IS NOT BOUND. ro_instance->mt_json_tree = ii_source_json->mt_json_tree. ELSE. - CREATE OBJECT lo_mutator_queue. + lo_mutator_queue = NEW #( ). IF ii_mapper IS BOUND. " Mapping goes first. But maybe it should be a freely definable queue of processors ? lo_mutator_queue->add( lcl_mapper_runner=>new( ii_mapper ) ). @@ -234,11 +230,9 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance - EXPORTING - iv_to_abap_corresponding_only = iv_to_abap_corresponding_only - iv_format_datetime = iv_format_datetime - iv_keep_item_order = iv_keep_item_order. + ro_instance = NEW #( iv_to_abap_corresponding_only = iv_to_abap_corresponding_only + iv_format_datetime = iv_format_datetime + iv_keep_item_order = iv_keep_item_order ). ENDMETHOD. @@ -246,8 +240,8 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lo_parser TYPE REF TO lcl_json_parser. - CREATE OBJECT ro_instance. - CREATE OBJECT lo_parser. + ro_instance = NEW #( ). + lo_parser = NEW #( ). ro_instance->mt_json_tree = lo_parser->parse( iv_json = iv_json iv_keep_item_order = iv_keep_item_order ). @@ -379,7 +373,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD zif_abapgit_ajson~exists. - rv_exists = boolc( get_item( iv_path ) IS NOT INITIAL ). + rv_exists = xsdbool( get_item( iv_path ) IS NOT INITIAL ). ENDMETHOD. @@ -419,7 +413,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. IF lr_item IS INITIAL OR lr_item->type = zif_abapgit_ajson_types=>node_type-null. RETURN. ELSEIF lr_item->type = zif_abapgit_ajson_types=>node_type-boolean. - rv_value = boolc( lr_item->value = 'true' ). + rv_value = xsdbool( lr_item->value = 'true' ). ELSEIF lr_item->value IS NOT INITIAL. rv_value = abap_true. ENDIF. @@ -501,7 +495,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_to_abap. + lo_to_abap = NEW #( ). TRY. rv_value = lo_to_abap->to_timestamp( lr_item->value ). @@ -513,7 +507,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD zif_abapgit_ajson~is_empty. - rv_yes = boolc( lines( mt_json_tree ) = 0 ). + rv_yes = xsdbool( lines( mt_json_tree ) = 0 ). ENDMETHOD. @@ -706,7 +700,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. ENDIF. IF go_float_regex IS NOT BOUND. - CREATE OBJECT go_float_regex EXPORTING pattern = '^([1-9][0-9]*|0)\.[0-9]+$'. + go_float_regex = NEW #( pattern = '^([1-9][0-9]*|0)\.[0-9]+$' ). " expects fractional, because ints are detected separately ENDIF. @@ -760,7 +754,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. ri_json = me. DATA lv_bool TYPE abap_bool. - lv_bool = boolc( iv_val IS NOT INITIAL ). + lv_bool = xsdbool( iv_val IS NOT INITIAL ). zif_abapgit_ajson~set( iv_ignore_empty = abap_false iv_path = iv_path @@ -847,7 +841,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lv_path_len TYPE i. DATA lv_path_pattern TYPE string. - CREATE OBJECT lo_section. + lo_section = NEW #( ). lv_normalized_path = lcl_utils=>normalize_path( iv_path ). lv_path_len = strlen( lv_normalized_path ). ls_path_parts = lcl_utils=>split_path( lv_normalized_path ). @@ -948,10 +942,8 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lo_to_abap TYPE REF TO lcl_json_to_abap. CLEAR ev_container. - CREATE OBJECT lo_to_abap - EXPORTING - iv_corresponding = boolc( iv_corresponding = abap_true OR ms_opts-to_abap_corresponding_only = abap_true ) - ii_custom_mapping = mi_custom_mapping. + lo_to_abap = NEW #( iv_corresponding = xsdbool( iv_corresponding = abap_true OR ms_opts-to_abap_corresponding_only = abap_true ) + ii_custom_mapping = mi_custom_mapping ). lo_to_abap->to_abap( EXPORTING diff --git a/src/json/zcl_abapgit_ajson.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson.clas.locals_imp.abap index b05631de3..dd1b5770e 100644 --- a/src/json/zcl_abapgit_ajson.clas.locals_imp.abap +++ b/src/json/zcl_abapgit_ajson.clas.locals_imp.abap @@ -462,7 +462,7 @@ CLASS lcl_json_serializer IMPLEMENTATION. METHOD stringify. DATA lo TYPE REF TO lcl_json_serializer. - CREATE OBJECT lo. + lo = NEW #( ). lo->mt_json_tree = it_json_tree. lo->mv_indent_step = iv_indent. lo->mv_keep_item_order = iv_keep_item_order. @@ -987,7 +987,7 @@ CLASS lcl_json_to_abap IMPLEMENTATION. " Do nothing WHEN zif_abapgit_ajson_types=>node_type-boolean. " TODO: check type ? - = boolc( is_node-value = 'true' ). + = xsdbool( is_node-value = 'true' ). WHEN zif_abapgit_ajson_types=>node_type-number. " TODO: check type ? = is_node-value. @@ -1294,7 +1294,7 @@ CLASS lcl_abap_to_json IMPLEMENTATION. lo_type = cl_abap_typedescr=>describe_by_data( iv_data ). - CREATE OBJECT lo_converter. + lo_converter = NEW #( ). lo_converter->mi_custom_mapping = ii_custom_mapping. lo_converter->mv_keep_item_order = is_opts-keep_item_order. lo_converter->mv_format_datetime = is_opts-format_datetime. @@ -1674,7 +1674,7 @@ CLASS lcl_abap_to_json IMPLEMENTATION. lo_type = cl_abap_typedescr=>describe_by_data( iv_data ). - CREATE OBJECT lo_converter. + lo_converter = NEW #( ). lo_converter->mi_custom_mapping = ii_custom_mapping. lo_converter->mv_keep_item_order = is_opts-keep_item_order. lo_converter->mv_format_datetime = is_opts-format_datetime. @@ -1790,7 +1790,7 @@ ENDCLASS. CLASS lcl_filter_runner IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance EXPORTING ii_filter = ii_filter. + ro_instance = NEW #( ii_filter = ii_filter ). ENDMETHOD. METHOD constructor. @@ -1902,7 +1902,7 @@ ENDCLASS. CLASS lcl_mapper_runner IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance EXPORTING ii_mapper = ii_mapper. + ro_instance = NEW #( ii_mapper = ii_mapper ). ENDMETHOD. METHOD constructor. @@ -2010,7 +2010,7 @@ CLASS lcl_mutator_queue IMPLEMENTATION. ENDMETHOD. METHOD new. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. METHOD lif_mutator_runner~run. diff --git a/src/json/zcl_abapgit_ajson.clas.testclasses.abap b/src/json/zcl_abapgit_ajson.clas.testclasses.abap index 44f28ff91..f3bab0891 100644 --- a/src/json/zcl_abapgit_ajson.clas.testclasses.abap +++ b/src/json/zcl_abapgit_ajson.clas.testclasses.abap @@ -93,8 +93,8 @@ ENDCLASS. CLASS ltcl_parser_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. - CREATE OBJECT mo_nodes. + mo_cut = NEW #( ). + mo_nodes = NEW #( ). ENDMETHOD. METHOD parse_bare_values. @@ -197,7 +197,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. mo_nodes->add( '/ |float |num |123.45 | |0' ). DATA lt_act TYPE zif_abapgit_ajson_types=>ty_nodes_tt. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). lt_act = mo_cut->parse( '{"float": 123.45}' ). cl_abap_unit_assert=>assert_equals( act = lt_act @@ -299,7 +299,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lt_act TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -330,7 +330,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. lo_nodes->add( '/issues/2/end/ |col |num |22 | |0' ). lo_nodes->add( '/issues/2/ |filename |str |./zxxx.prog.abap | |0' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lt_act = lo_cut->parse( sample_json( ) ). cl_abap_unit_assert=>assert_equals( act = lt_act @@ -354,7 +354,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lt_act TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8 |0' ). lo_nodes->add( '/ |string |str |abc | |0 |1' ). lo_nodes->add( '/ |number |num |123 | |0 |2' ). @@ -385,7 +385,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. lo_nodes->add( '/issues/2/end/ |col |num |22 | |0 |2' ). lo_nodes->add( '/issues/2/ |filename |str |./zxxx.prog.abap | |0 |5' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lt_act = lo_cut->parse( iv_json = sample_json( ) iv_keep_item_order = abap_true ). @@ -415,7 +415,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. TRY. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->parse( '{ "a" = 1, "a" = 1 }' ). cl_abap_unit_assert=>fail( ). CATCH zcx_abapgit_ajson_error INTO lx. @@ -430,7 +430,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. TRY. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->parse( 'X

Y

' ). cl_abap_unit_assert=>fail( ). CATCH zcx_abapgit_ajson_error INTO lx. @@ -527,7 +527,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -635,7 +635,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |3' ). lo_nodes->add( '/ |1 |str |abc |2 |0' ). lo_nodes->add( '/ |2 |num |123 |1 |0' ). @@ -656,7 +656,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |3 |0' ). lo_nodes->add( '/ |beta |str |b | |0 |3' ). lo_nodes->add( '/ |zulu |str |z | |0 |1' ). @@ -686,7 +686,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |3' ). lo_nodes->add( '/ |1 |object | |2 |2' ). lo_nodes->add( '/1/ |a |num |1 | |0' ). @@ -723,7 +723,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |0' ). lv_act = lcl_json_serializer=>stringify( @@ -753,7 +753,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_val TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lv_val = 'a' && '"' && '\' && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. lo_nodes->add( | \| \|str \|{ lv_val }\| \|0| ). @@ -772,7 +772,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lv_act = lcl_json_serializer=>stringify( lo_nodes->sorted( ) ). lv_exp = ''. @@ -960,7 +960,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_cut TYPE REF TO zcl_abapgit_ajson. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |2' ). lo_nodes->add( '/ |1 |object | |1 |5' ). lo_nodes->add( '/1/ |message |str |Indentation problem ... | |0' ). @@ -992,7 +992,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " ********************************************************************** - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -1031,7 +1031,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " ********************************************************************** - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |2' ). lo_nodes->add( '/ |row |num |3 | |0' ). lo_nodes->add( '/ |col |num |21 | |0' ). @@ -1108,10 +1108,10 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lv_exp TYPE d. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lv_exp = '20200728'. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |2020-07-28 | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1120,7 +1120,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. act = lo_cut->zif_abapgit_ajson~get_date( '/date1' ) exp = lv_exp ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |2020-07-28T01:00:00Z | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1129,7 +1129,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. act = lo_cut->zif_abapgit_ajson~get_date( '/date1' ) exp = lv_exp ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |20200728 | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1146,9 +1146,9 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lv_exp TYPE timestamp VALUE `20200728000000`. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |timestamp|str |2020-07-28T00:00:00Z | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1296,7 +1296,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lt_act TYPE string_table. DATA lt_exp TYPE string_table. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |6' ). lo_nodes->add( '/ |1 |num |123 |1|0' ). lo_nodes->add( '/ |2 |num |234 |2|0' ). @@ -1312,7 +1312,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. APPEND '' TO lt_exp. APPEND '' TO lt_exp. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. lt_act = lo_cut->zif_abapgit_ajson~array_to_string_table( '/' ). @@ -1323,7 +1323,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " negative DATA lx TYPE REF TO zcx_abapgit_ajson_error. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |a |str |abc | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1355,7 +1355,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. exp = 'Array expected at: /a' ). ENDTRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |1' ). lo_nodes->add( '/ |1 |object | |1|0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1496,7 +1496,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_exp_timestamp TYPE timestamp VALUE '20200728000000'. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |str |str |hello | ' ). lo_nodes->add( '/ |int |num |5 | ' ). @@ -1512,7 +1512,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/ |timestamp3 |str |2020-07-28T01:00:00+01:00 | ' ). lo_nodes->add( '/ |timestamp4 |str |2020-07-28T01:00:00+01:00 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1543,10 +1543,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE timestamp. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |0000-00-00T00:00:00Z| ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1565,10 +1565,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE t. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |11:11:11| ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1581,10 +1581,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock_init TYPE t. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str || ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1603,10 +1603,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_act TYPE p LENGTH 10 DECIMALS 3. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |1.3333 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1625,10 +1625,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |hello | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1648,12 +1648,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1677,14 +1677,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_tmp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |array | |1' ). lo_nodes->add( '/ |2 |array | |2' ). lo_nodes->add( '/1/ |1 |str |One |1' ). lo_nodes->add( '/2/ |1 |str |Two |1' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1711,7 +1711,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_tmp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |array | |1' ). lo_nodes->add( '/ |2 |array | |2' ). @@ -1720,7 +1720,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |1 |str |Three |1' ). lo_nodes->add( '/2/ |2 |str |Four |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1748,7 +1748,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_complex. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |tab |array | | ' ). lo_nodes->add( '/tab/ |1 |object | |1' ). @@ -1756,7 +1756,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/tab/ |2 |object | |2' ). lo_nodes->add( '/tab/2/|a |str |Two | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1782,13 +1782,13 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_complex. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |tab_plain |array | | ' ). lo_nodes->add( '/tab_plain/ |1 |str |One |1' ). lo_nodes->add( '/tab_plain/ |2 |str |Two |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1811,12 +1811,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1839,7 +1839,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE tty_struc_hashed. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |object | |1' ). lo_nodes->add( '/ |2 |object | |2' ). @@ -1848,7 +1848,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |a |str |Two | ' ). lo_nodes->add( '/2/ |b |num |2 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1876,7 +1876,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE tty_struc_sorted. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |object | |1' ). lo_nodes->add( '/ |2 |object | |2' ). @@ -1885,7 +1885,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |a |str |Two | ' ). lo_nodes->add( '/2/ |b |num |2 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1912,12 +1912,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. DATA ls_mock TYPE ty_complex. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). DATA lo_nodes TYPE REF TO lcl_nodes_helper. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |object | ' ). @@ -1934,7 +1934,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |array | ' ). @@ -1951,7 +1951,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |int |str |hello ' ). @@ -1968,7 +1968,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |date1 |str |baddate ' ). @@ -1985,7 +1985,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |missing |str |123 ' ). @@ -2003,7 +2003,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lt_str TYPE string_table. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |a |str |hello |1' ). @@ -2021,7 +2021,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lr_obj TYPE REF TO object. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |hello | ' ). lo_cut->to_abap( @@ -2038,7 +2038,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lr_data TYPE REF TO data. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |hello | ' ). lo_cut->to_abap( @@ -2055,7 +2055,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lt_hashed TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |One |2' ). @@ -2081,16 +2081,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_struc. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - CREATE OBJECT lo_cut - EXPORTING - iv_corresponding = abap_true. + lo_cut = NEW #( iv_corresponding = abap_true ). lo_cut->to_abap( EXPORTING @@ -2112,7 +2110,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lx TYPE REF TO zcx_abapgit_ajson_error. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). @@ -2121,7 +2119,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ls_exp-b = 24022022. TRY. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -2144,14 +2142,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA li_json TYPE REF TO zif_abapgit_ajson. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. lo_cut->to_abap( @@ -2182,14 +2180,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lx TYPE REF TO zcx_abapgit_ajson_error. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. TRY. @@ -2435,7 +2433,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2447,7 +2445,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2465,7 +2463,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2474,7 +2472,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2495,7 +2493,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2504,7 +2502,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2514,7 +2512,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2523,7 +2521,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2547,7 +2545,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2570,7 +2568,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 2 - assign deep - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2588,7 +2586,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 3 - assign rewrite - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2615,7 +2613,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2643,7 +2641,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |num |1 ||0' ). @@ -2657,7 +2655,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = li_cut->mt_json_tree exp = lo_nodes->sorted( ) ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||2' ). lo_nodes->add( '/ |a |num |1 ||0' ). lo_nodes->add( '/ |b |num |0 ||0' ). @@ -2689,7 +2687,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||3' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2725,7 +2723,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||6' ). lo_nodes->add( '/ |d |str |2022-04-01 ||0' ). lo_nodes->add( '/ |d_empty |str | ||0' ). @@ -2757,7 +2755,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. APPEND 'world' TO lt_tab. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2786,7 +2784,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT `world` INTO TABLE lt_tab. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2831,7 +2829,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT ls_tab INTO TABLE lt_tab. " prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | |0|2' ). lo_nodes->add( '/ |1 |object | |1|3' ). lo_nodes->add( '/ |2 |object | |2|3' ). @@ -2861,7 +2859,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " touch - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2872,7 +2870,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add string - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |1' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2886,7 +2884,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add obj - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2914,7 +2912,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " re-touch with clear - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2927,7 +2925,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " free-add array item (index must be updated) - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |object | |1|1' ). @@ -3047,7 +3045,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " object - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -3060,7 +3058,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " object empty path - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -3074,7 +3072,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " array - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |1' ). lo_nodes_exp->add( '/ |1 |str |hello|1|0' ). @@ -3089,7 +3087,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " value - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |hello||0' ). li_writer->clear( ). @@ -3112,7 +3110,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " abap_bool lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3139,7 +3137,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " int lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3167,7 +3165,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " tab lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3196,7 +3194,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||3' ). lo_nodes_exp->add( '/ |a |str |123 ||0' ). lo_nodes_exp->add( '/ |b |str |X ||0' ). @@ -3227,7 +3225,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |num |123 ||0' ). @@ -3250,7 +3248,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |str |2020-07-05 ||0' ). lo_nodes_exp->add( '/ |b |str | ||0' ). @@ -3280,7 +3278,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |str |2021-05-05T12:00:00Z ||0' ). @@ -3356,7 +3354,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. DATA lo_nodes_exp TYPE REF TO lcl_nodes_helper. DATA li_writer TYPE REF TO zif_abapgit_ajson. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |issues |array | | |2' ). lo_nodes_exp->add( '/issues/ |1 |object | |1 |1' ). @@ -4139,7 +4137,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lo_src TYPE REF TO zcl_abapgit_ajson. lo_src = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -4161,7 +4159,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " number - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 1 ). @@ -4178,7 +4176,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " string - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |abc ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 'abc' ). @@ -4195,7 +4193,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " true - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |bool |true ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_true ). @@ -4212,7 +4210,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " false - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |bool |false ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_false ). @@ -4229,7 +4227,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_xsdboolean TYPE xsdboolean. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |bool |true ||' ). lv_xsdboolean = 'X'. @@ -4248,7 +4246,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_null_ref TYPE REF TO data. " null - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |null |null ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = lv_null_ref ). @@ -4266,7 +4264,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_timezone TYPE timezone VALUE ''. DATA lv_timestamp TYPE timestamp. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |2022-08-31T00:00:00Z||' ). CONVERT DATE '20220831' TIME '000000' @@ -4285,7 +4283,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_timestamp TYPE timestamp. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |0000-00-00T00:00:00Z||' ). lv_timestamp = 0. @@ -4305,7 +4303,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_prefix-path = '/a/'. ls_prefix-name = 'b'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( '/a/ |b |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( @@ -4329,7 +4327,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-c = abap_true. ls_struc-d = 'X'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||4' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4368,7 +4366,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND INITIAL LINE TO ls_struc-tab ASSIGNING . -a = 'bcd'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||8' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4417,7 +4415,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-d_suf = 'X'. ls_struc-el = 'elem'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||5' ). lo_nodes_exp->add( '/ |a_suf |str |abc ||0' ). lo_nodes_exp->add( '/ |b_suf |num |10 ||0' ). @@ -4448,7 +4446,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. -a = 'bcd'. -b = 20. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|4' ). lo_nodes_exp->add( '/1/ |a |str |abc | |0' ). @@ -4471,7 +4469,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND 'abc' TO lt_strtab. APPEND 'bcd' TO lt_strtab. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |str |abc |1|0' ). lo_nodes_exp->add( '/ |2 |str |bcd |2|0' ). @@ -4527,7 +4525,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. APPEND ls_visit_history TO mt_visit_history. ENDIF. - rv_keep = boolc( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). + rv_keep = xsdbool( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). ENDMETHOD. @@ -4558,7 +4556,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |3' ). lo_nodes_exp->add( '/ |a |num |1 | |0' ). lo_nodes_exp->add( '/ |b |num |1 | |0' ). @@ -4617,7 +4615,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |10' ). lo_nodes_exp->add( '/ |1 |str |a |1|0' ). lo_nodes_exp->add( '/ |2 |str |b |2|0' ). @@ -4762,7 +4760,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |4' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). @@ -4804,7 +4802,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|2' ). lo_nodes_exp->add( '/ |2 |object | |2|2' ). @@ -4863,7 +4861,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |num |1 | |0' ). cl_abap_unit_assert=>assert_equals( act = lo_json_filtered->mt_json_tree @@ -4937,7 +4935,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->clone( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -4978,7 +4976,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->filter( me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). @@ -5004,7 +5002,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->map( me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -5030,7 +5028,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_ajson_filter~keep_node. - rv_keep = boolc( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). + rv_keep = xsdbool( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). ENDMETHOD. METHOD mapper_and_filter. @@ -5055,7 +5053,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ii_filter = me ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). diff --git a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap index 275768640..f4ceb00f2 100644 --- a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap +++ b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap @@ -37,22 +37,18 @@ CLASS zcl_abapgit_ajson_filter_lib IMPLEMENTATION. METHOD create_and_filter. - CREATE OBJECT ri_filter TYPE lcl_and_filter - EXPORTING - it_filters = it_filters. + ri_filter = NEW lcl_and_filter( it_filters = it_filters ). ENDMETHOD. METHOD create_empty_filter. - CREATE OBJECT ri_filter TYPE lcl_empty_filter. + ri_filter = NEW lcl_empty_filter( ). ENDMETHOD. METHOD create_path_filter. - CREATE OBJECT ri_filter TYPE lcl_paths_filter - EXPORTING - iv_pattern_search = iv_pattern_search - it_skip_paths = it_skip_paths - iv_skip_paths = iv_skip_paths. + ri_filter = NEW lcl_paths_filter( iv_pattern_search = iv_pattern_search + it_skip_paths = it_skip_paths + iv_skip_paths = iv_skip_paths ). ENDMETHOD. ENDCLASS. diff --git a/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap index 20458079e..b51b9399b 100644 --- a/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap +++ b/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap @@ -10,7 +10,7 @@ ENDCLASS. CLASS lcl_empty_filter IMPLEMENTATION. METHOD zif_abapgit_ajson_filter~keep_node. - rv_keep = boolc( + rv_keep = xsdbool( ( iv_visit = zif_abapgit_ajson_filter=>visit_type-value AND is_node-value IS NOT INITIAL ) OR ( iv_visit <> zif_abapgit_ajson_filter=>visit_type-value AND is_node-children > 0 ) ). " children = 0 on open for initially empty nodes and on close for filtered ones @@ -56,7 +56,7 @@ CLASS lcl_paths_filter IMPLEMENTATION. ENDLOOP. ELSE. READ TABLE mt_skip_paths WITH KEY table_line = lv_full_path TRANSPORTING NO FIELDS. - rv_keep = boolc( sy-subrc <> 0 ). + rv_keep = xsdbool( sy-subrc <> 0 ). ENDIF. ENDMETHOD. @@ -67,7 +67,7 @@ CLASS lcl_paths_filter IMPLEMENTATION. DATA lt_tab TYPE string_table. FIELD-SYMBOLS TYPE string. - IF boolc( iv_skip_paths IS INITIAL ) = boolc( it_skip_paths IS INITIAL ). " XOR + IF xsdbool( iv_skip_paths IS INITIAL ) = xsdbool( it_skip_paths IS INITIAL ). " XOR zcx_abapgit_ajson_error=>raise( 'no filter path specified' ). ENDIF. diff --git a/src/json/zcl_abapgit_ajson_mapping.clas.abap b/src/json/zcl_abapgit_ajson_mapping.clas.abap index 22bee5934..09163f9dd 100644 --- a/src/json/zcl_abapgit_ajson_mapping.clas.abap +++ b/src/json/zcl_abapgit_ajson_mapping.clas.abap @@ -77,10 +77,8 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. METHOD create_camel_case. - CREATE OBJECT ri_mapping TYPE lcl_mapping_camel - EXPORTING - it_mapping_fields = it_mapping_fields - iv_first_json_upper = iv_first_json_upper. + ri_mapping = NEW lcl_mapping_camel( it_mapping_fields = it_mapping_fields + iv_first_json_upper = iv_first_json_upper ). ENDMETHOD. @@ -95,62 +93,50 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. APPEND LINES OF it_more TO lt_queue. DELETE lt_queue WHERE table_line IS INITIAL. - CREATE OBJECT ri_mapping TYPE lcl_compound_mapper - EXPORTING - it_queue = lt_queue. + ri_mapping = NEW lcl_compound_mapper( it_queue = lt_queue ). ENDMETHOD. METHOD create_field_mapping. - CREATE OBJECT ri_mapping TYPE lcl_mapping_fields - EXPORTING - it_mapping_fields = it_mapping_fields. + ri_mapping = NEW lcl_mapping_fields( it_mapping_fields = it_mapping_fields ). ENDMETHOD. METHOD create_lower_case. - CREATE OBJECT ri_mapping TYPE lcl_mapping_to_lower - EXPORTING - it_mapping_fields = it_mapping_fields. + ri_mapping = NEW lcl_mapping_to_lower( it_mapping_fields = it_mapping_fields ). ENDMETHOD. METHOD create_rename. - CREATE OBJECT ri_mapping TYPE lcl_rename - EXPORTING - it_rename_map = it_rename_map - iv_rename_by = iv_rename_by. + ri_mapping = NEW lcl_rename( it_rename_map = it_rename_map + iv_rename_by = iv_rename_by ). ENDMETHOD. METHOD create_to_camel_case. - CREATE OBJECT ri_mapping TYPE lcl_to_camel - EXPORTING - iv_first_json_upper = iv_first_json_upper. + ri_mapping = NEW lcl_to_camel( iv_first_json_upper = iv_first_json_upper ). ENDMETHOD. METHOD create_to_snake_case. - CREATE OBJECT ri_mapping TYPE lcl_to_snake. + ri_mapping = NEW lcl_to_snake( ). ENDMETHOD. METHOD create_upper_case. - CREATE OBJECT ri_mapping TYPE lcl_mapping_to_upper - EXPORTING - it_mapping_fields = it_mapping_fields. + ri_mapping = NEW lcl_mapping_to_upper( it_mapping_fields = it_mapping_fields ). ENDMETHOD. ENDCLASS. diff --git a/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap index 937b2618e..6b9ceefcb 100644 --- a/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap +++ b/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap @@ -69,11 +69,11 @@ CLASS lcl_rename IMPLEMENTATION. CASE mv_rename_by. WHEN zcl_abapgit_ajson_mapping=>rename_by-attr_name. READ TABLE mt_rename_map ASSIGNING WITH TABLE KEY by_name COMPONENTS from = cv_name. - lv_pair_found = boolc( sy-subrc = 0 ). + lv_pair_found = xsdbool( sy-subrc = 0 ). WHEN zcl_abapgit_ajson_mapping=>rename_by-full_path. lv_full_path = is_node-path && cv_name. READ TABLE mt_rename_map ASSIGNING WITH TABLE KEY by_name COMPONENTS from = lv_full_path. - lv_pair_found = boolc( sy-subrc = 0 ). + lv_pair_found = xsdbool( sy-subrc = 0 ). WHEN zcl_abapgit_ajson_mapping=>rename_by-pattern. lv_full_path = is_node-path && cv_name. LOOP AT mt_rename_map ASSIGNING . diff --git a/src/json/zcl_abapgit_ajson_utilities.clas.abap b/src/json/zcl_abapgit_ajson_utilities.clas.abap index 7a41bbfd6..cf6cf6973 100644 --- a/src/json/zcl_abapgit_ajson_utilities.clas.abap +++ b/src/json/zcl_abapgit_ajson_utilities.clas.abap @@ -308,7 +308,7 @@ CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION. eo_delete = li_del eo_change = li_mod ). - rv_yes = boolc( + rv_yes = xsdbool( li_ins->is_empty( ) = abap_true AND li_del->is_empty( ) = abap_true AND li_mod->is_empty( ) = abap_true ). @@ -342,13 +342,13 @@ CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. METHOD normalize_input. - IF boolc( iv_json IS INITIAL ) = boolc( io_json IS INITIAL ). + IF xsdbool( iv_json IS INITIAL ) = xsdbool( io_json IS INITIAL ). zcx_abapgit_ajson_error=>raise( 'Either supply JSON string or instance, but not both' ). ENDIF. diff --git a/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap b/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap index 4ee90fa9b..382bc2850 100644 --- a/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap +++ b/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap @@ -192,7 +192,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_insert_exp. + lo_insert_exp = NEW #( ). lo_insert_exp->add( ' | |object | |0|3' ). lo_insert_exp->add( '/ |boolean |str |true |0|0' ). " changed type (insert new) lo_insert_exp->add( '/ |issues |array | |0|1' ). @@ -201,7 +201,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_insert_exp->add( '/issues/1/ |end |object | |0|1' ). lo_insert_exp->add( '/issues/1/end/ |new |num |1 |0|0' ). " array insert - CREATE OBJECT lo_delete_exp. + lo_delete_exp = NEW #( ). lo_delete_exp->add( ' | |object | |0|3' ). lo_delete_exp->add( '/ |boolean |bool |true |0|0' ). " changed type (delete old) lo_delete_exp->add( '/ |false |bool |false |0|0' ). " delete @@ -210,7 +210,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_delete_exp->add( '/issues/1/ |end |object | |0|1' ). lo_delete_exp->add( '/issues/1/end/ |row |num |4 |0|0' ). " array delete - CREATE OBJECT lo_change_exp. + lo_change_exp = NEW #( ). lo_change_exp->add( ' | |object | |0|2' ). lo_change_exp->add( '/ |issues |array | |0|1' ). lo_change_exp->add( '/ |number |num |789 |0|0' ). " changed value @@ -218,7 +218,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_change_exp->add( '/issues/1/ |start |object | |0|1' ). lo_change_exp->add( '/issues/1/start/|row |num |5 |0|0' ). " array change - CREATE OBJECT lo_util. + lo_util = NEW #( ). lo_util->diff( EXPORTING @@ -275,18 +275,18 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_insert_exp. + lo_insert_exp = NEW #( ). lo_insert_exp->add( ' | |object | |0|1' ). lo_insert_exp->add( '/ |string |array | |0|3' ). lo_insert_exp->add( '/string/ |1 |str |a |1|0' ). lo_insert_exp->add( '/string/ |2 |str |b |2|0' ). lo_insert_exp->add( '/string/ |3 |str |c |3|0' ). - CREATE OBJECT lo_delete_exp. + lo_delete_exp = NEW #( ). lo_delete_exp->add( ' | |object | |0|1' ). lo_delete_exp->add( '/ |string |str |abc |0|0' ). - CREATE OBJECT lo_util. + lo_util = NEW #( ). lo_util->diff( EXPORTING @@ -359,7 +359,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_util. + lo_util = NEW #( ). " Empty arrays are ignored by default lo_util->diff( @@ -394,7 +394,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. eo_delete = lo_delete eo_change = lo_change ). - CREATE OBJECT lo_insert_exp. + lo_insert_exp = NEW #( ). lo_insert_exp->add( ' | |object | |0|1' ). lo_insert_exp->add( '/ |names |array | |0|0' ). @@ -444,7 +444,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_merge_exp. + lo_merge_exp = NEW #( ). lo_merge_exp->add( ' | |object | |0|3' ). lo_merge_exp->add( '/ |float |num |123.45 |0|0' ). lo_merge_exp->add( '/ |number |num |123 |0|0' ). @@ -453,7 +453,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_merge_exp->add( '/string/ |2 |str |c |2|0' ). lo_merge_exp->add( '/string/ |3 |str |b |3|0' ). - CREATE OBJECT lo_util. + lo_util = NEW #( ). lo_merge = lo_util->merge( iv_json_a = lv_json_a @@ -501,7 +501,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_sorted_exp WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_util. + lo_util = NEW #( ). lv_sorted = lo_util->sort( iv_json = lv_json ). diff --git a/src/json/zcx_abapgit_ajson_error.clas.abap b/src/json/zcx_abapgit_ajson_error.clas.abap index c51e9b749..52047c853 100644 --- a/src/json/zcx_abapgit_ajson_error.clas.abap +++ b/src/json/zcx_abapgit_ajson_error.clas.abap @@ -92,7 +92,7 @@ method raise. data lx type ref to zcx_abapgit_ajson_error. - create object lx exporting message = iv_msg. + lx = NEW #( message = iv_msg ). lx->set_location( iv_location = iv_location is_node = is_node ). diff --git a/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap index 3fbd7682c..0acd38072 100644 --- a/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap @@ -37,7 +37,7 @@ CLASS ltcl_aff_registry IMPLEMENTATION. lo_settings_stub->set_experimental_features( '' ). ENDIF. - CREATE OBJECT lo_cut TYPE zcl_abapgit_aff_registry. + lo_cut = NEW zcl_abapgit_aff_registry( ). lv_act = lo_cut->is_supported_object_type( iv_obj_type ). cl_abap_unit_assert=>assert_equals( exp = iv_is_supported act = lv_act ). diff --git a/src/objects/aff/zcl_abapgit_json_handler.clas.abap b/src/objects/aff/zcl_abapgit_json_handler.clas.abap index 738d017f9..729f2cb52 100644 --- a/src/objects/aff/zcl_abapgit_json_handler.clas.abap +++ b/src/objects/aff/zcl_abapgit_json_handler.clas.abap @@ -246,7 +246,7 @@ CLASS zcl_abapgit_json_handler IMPLEMENTATION. map2json_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings CHANGING co_ajson = lo_ajson ). - CREATE OBJECT lo_filter EXPORTING iv_skip_paths = iv_skip_paths. + lo_filter = NEW #( iv_skip_paths = iv_skip_paths ). " files end with an empty line (EOF) lv_json = lo_ajson->clone( )->filter( lo_filter )->stringify( 2 ) && cl_abap_char_utilities=>newline. diff --git a/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap b/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap index 5c3e73eb5..a567f5dd8 100644 --- a/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap +++ b/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap @@ -24,13 +24,13 @@ CLASS lcl_aff_filter IMPLEMENTATION. lv_path = is_node-path && is_node-name. READ TABLE mt_skip_paths WITH KEY path = lv_path value = is_node-value TRANSPORTING NO FIELDS. - IF boolc( sy-subrc = 0 ) = abap_true + IF xsdbool( sy-subrc = 0 ) = abap_true AND iv_visit = zif_abapgit_ajson_filter=>visit_type-value. rv_keep = abap_false. RETURN. ELSE. READ TABLE mt_skip_paths WITH KEY path = lv_path TRANSPORTING NO FIELDS. - IF boolc( sy-subrc = 0 ) = abap_true + IF xsdbool( sy-subrc = 0 ) = abap_true AND iv_visit = zif_abapgit_ajson_filter=>visit_type-value. rv_keep = abap_true. RETURN. diff --git a/src/objects/aff/zcl_abapgit_json_path.clas.abap b/src/objects/aff/zcl_abapgit_json_path.clas.abap index 3f1b1f834..ff512f69c 100644 --- a/src/objects/aff/zcl_abapgit_json_path.clas.abap +++ b/src/objects/aff/zcl_abapgit_json_path.clas.abap @@ -44,7 +44,7 @@ CLASS zcl_abapgit_json_path IMPLEMENTATION. APPEND `$` TO lt_root_path. - CREATE OBJECT lo_json_path. + lo_json_path = NEW #( ). lo_json_path->serialize_rec( EXPORTING io_reader = lo_reader it_path = lt_root_path CHANGING ct_json_paths = rt_result ). diff --git a/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap b/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap index 9ff0f0bb7..fe18fb750 100644 --- a/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap +++ b/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap @@ -98,7 +98,7 @@ CLASS lcl_json_path IMPLEMENTATION. METHOD path_contains_array. DATA lv_array_pattern TYPE string VALUE `.*\[.*\].*`. - rv_result = boolc( matches( val = iv_path + rv_result = xsdbool( matches( val = iv_path regex = lv_array_pattern ) ). ENDMETHOD. @@ -170,7 +170,7 @@ CLASS lcl_json_path IMPLEMENTATION. METHOD is_primitiv. FIND REGEX `^.\w+` IN iv_string. " string start with . - rv_result = boolc( sy-subrc = 0 ). + rv_result = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -200,15 +200,15 @@ CLASS lcl_json_path IMPLEMENTATION. ENDMETHOD. METHOD is_array. - rv_result = boolc( io_reader->name = 'array' ). + rv_result = xsdbool( io_reader->name = 'array' ). ENDMETHOD. METHOD is_string_open. - rv_result = boolc( io_reader->name = 'str' AND io_reader->node_type = if_sxml_node=>co_nt_element_open ). + rv_result = xsdbool( io_reader->name = 'str' AND io_reader->node_type = if_sxml_node=>co_nt_element_open ). ENDMETHOD. METHOD is_object. - rv_result = boolc( io_reader->name = 'object' ). + rv_result = xsdbool( io_reader->name = 'object' ). ENDMETHOD. METHOD serialize_rec. diff --git a/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap index eba81a4af..3b6d38dfe 100644 --- a/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap @@ -39,7 +39,7 @@ CLASS ltcl_json_path IMPLEMENTATION. lo_ajson->delete( '/category/' ). lo_ajson->delete( '/proxy/' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). rt_result = lo_cut->serialize( lo_ajson->stringify( ) ). ENDMETHOD. @@ -154,7 +154,7 @@ CLASS ltcl_json_path IMPLEMENTATION. APPEND `$.descriptions.methods[?(@.name=='METH1')].description=Sonne` TO lt_file. APPEND `$.descriptions.methods[?(@.name=='METH1')].parameters[?(@.name=='param2')].description=ABC` TO lt_file. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lv_act = lo_cut->deserialize( lt_file ). APPEND `{ "header": { "description": "Text" } ,` TO lt_exp. @@ -185,7 +185,7 @@ CLASS ltcl_json_path IMPLEMENTATION. APPEND `$.header.description=Text` TO lt_file. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lv_act = lo_cut->deserialize( lt_file ). lv_is_equal = zcl_abapgit_ajson_utilities=>new( )->is_equal( @@ -206,7 +206,7 @@ CLASS ltcl_json_path IMPLEMENTATION. APPEND `!this is a comment [abc]` TO lt_file. APPEND `` TO lt_file. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lv_act = lo_cut->deserialize( lt_file ). cl_abap_unit_assert=>assert_initial( lv_act ). diff --git a/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap b/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap index 9ab7c2101..6f4e9a2db 100644 --- a/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap +++ b/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap @@ -96,7 +96,7 @@ CLASS zcl_abapgit_object_common_aff IMPLEMENTATION. TRY. lo_handler = get_object_handler( ). - CREATE OBJECT li_aff_registry TYPE zcl_abapgit_aff_registry. + li_aff_registry = NEW zcl_abapgit_aff_registry( ). lv_is_supported = li_aff_registry->is_supported_object_type( is_item-obj_type ). CATCH cx_root. diff --git a/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap index 488c13ea8..e54226954 100644 --- a/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap @@ -221,10 +221,8 @@ CLASS ltcl_aff_settings_deserialize IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = 'E'. + lo_cut = NEW #( is_item = ls_item + iv_language = 'E' ). lo_settings_deserialize = lo_cut->create_aff_setting_deserialize( ). CALL METHOD lo_settings_deserialize->('IF_AFF_SETTINGS_DESERIALIZE~GET_ABAP_LANGUAGE_VERSION') diff --git a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap index 38310a5df..606ebd8df 100644 --- a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap @@ -177,9 +177,7 @@ CLASS ltcl_resolve_packages IMPLEMENTATION. DATA: lo_mock_sap_package TYPE REF TO ltcl_sap_package. - CREATE OBJECT lo_mock_sap_package - EXPORTING - iv_package = 'Z_MAIN'. + lo_mock_sap_package = NEW #( iv_package = 'Z_MAIN' ). lo_mock_sap_package->set_sub_packages( mt_sub_packages ). diff --git a/src/objects/core/zcl_abapgit_file_deserialize.clas.abap b/src/objects/core/zcl_abapgit_file_deserialize.clas.abap index 52dc4b90e..9f947648d 100644 --- a/src/objects/core/zcl_abapgit_file_deserialize.clas.abap +++ b/src/objects/core/zcl_abapgit_file_deserialize.clas.abap @@ -175,7 +175,7 @@ CLASS zcl_abapgit_file_deserialize IMPLEMENTATION. lt_items = map_results_to_items( it_results ). - CREATE OBJECT lo_graph EXPORTING it_items = lt_items. + lo_graph = NEW #( it_items = lt_items ). LOOP AT lt_items INTO ls_item. CLEAR lt_requires. diff --git a/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap b/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap index c7de5afe6..6f1eb3a62 100644 --- a/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap @@ -36,7 +36,7 @@ CLASS ltcl_filter_files_to_deser IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_objects. + mo_objects = NEW #( ). ENDMETHOD. @@ -259,7 +259,7 @@ ENDCLASS. CLASS ltcl_prio_deserialization IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_objects. + mo_objects = NEW #( ). mv_exp_output_tabix = 0. ENDMETHOD. @@ -434,7 +434,7 @@ CLASS ltcl_prio_deserialization IMPLEMENTATION. DATA lo_log TYPE REF TO zcl_abapgit_log. - CREATE OBJECT lo_log. + lo_log = NEW #( ). mt_output = mo_objects->prioritize_deser( ii_log = lo_log diff --git a/src/objects/core/zcl_abapgit_filename_logic.clas.abap b/src/objects/core/zcl_abapgit_filename_logic.clas.abap index 3edf57042..6e41b25eb 100644 --- a/src/objects/core/zcl_abapgit_filename_logic.clas.abap +++ b/src/objects/core/zcl_abapgit_filename_logic.clas.abap @@ -130,8 +130,8 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. METHOD detect_obj_definition. - ev_is_xml = boolc( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ). - ev_is_json = boolc( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ). + ev_is_xml = xsdbool( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ). + ev_is_json = xsdbool( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ). ENDMETHOD. @@ -153,7 +153,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. " Assume AFF namespace convention IF go_aff_registry IS INITIAL. - CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry. + go_aff_registry = NEW zcl_abapgit_aff_registry( ). ENDIF. IF go_aff_registry->is_supported_object_type( |{ lv_type }| ) = abap_true. @@ -233,7 +233,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ev_is_xml = lv_xml ev_is_json = lv_json ). - rv_yes = boolc( lv_json = abap_true OR lv_xml = abap_true ). + rv_yes = xsdbool( lv_json = abap_true OR lv_xml = abap_true ). ENDMETHOD. @@ -348,7 +348,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ENDTRY. " Handle namespaces - CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry. + go_aff_registry = NEW zcl_abapgit_aff_registry( ). IF go_aff_registry->is_supported_object_type( is_item-obj_type ) = abap_true. FIND ALL OCCURRENCES OF `/` IN rv_filename MATCH COUNT lv_nb_of_slash. diff --git a/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap b/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap index 486c8410c..915298c63 100644 --- a/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap @@ -12,7 +12,7 @@ CLASS lcl_memory_settings IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_persist_settings~read. - CREATE OBJECT ro_settings. + ro_settings = NEW #( ). ENDMETHOD. ENDCLASS. @@ -46,7 +46,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. " Assume for unit tests that starting folder is /src/ with prefix logic mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). - CREATE OBJECT li_memory. + li_memory = NEW #( ). zcl_abapgit_persist_injector=>set_settings( li_memory ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_folder_logic.clas.abap b/src/objects/core/zcl_abapgit_folder_logic.clas.abap index 45e086779..9ee4b3615 100644 --- a/src/objects/core/zcl_abapgit_folder_logic.clas.abap +++ b/src/objects/core/zcl_abapgit_folder_logic.clas.abap @@ -56,7 +56,7 @@ CLASS zcl_abapgit_folder_logic IMPLEMENTATION. METHOD get_instance. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap b/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap index d9bb1bc55..16f7aab23 100644 --- a/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap @@ -207,7 +207,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION. DATA lo_top_foo TYPE REF TO ltcl_folder_logic_package. - CREATE OBJECT lo_top_foo. + lo_top_foo = NEW #( ). zcl_abapgit_injector=>set_sap_package( iv_package = c_top ii_sap_package = me ). diff --git a/src/objects/core/zcl_abapgit_item_graph.clas.abap b/src/objects/core/zcl_abapgit_item_graph.clas.abap index 6b199cba2..22cd8655c 100644 --- a/src/objects/core/zcl_abapgit_item_graph.clas.abap +++ b/src/objects/core/zcl_abapgit_item_graph.clas.abap @@ -88,7 +88,7 @@ CLASS ZCL_ABAPGIT_ITEM_GRAPH IMPLEMENTATION. METHOD has_vertices. - rv_bool = boolc( lines( mt_vertices ) > 0 ). + rv_bool = xsdbool( lines( mt_vertices ) > 0 ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap b/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap index 660fa90e5..60484b0c6 100644 --- a/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap @@ -17,7 +17,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA ls_item2 LIKE LINE OF lt_items. DATA ls_next LIKE LINE OF lt_items. - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). ls_item1-obj_type = 'TYPE'. ls_item1-obj_type = '1111'. @@ -27,7 +27,7 @@ CLASS ltcl_test IMPLEMENTATION. ls_item2-obj_type = '2222'. APPEND ls_item2 TO lt_items. - CREATE OBJECT lo_graph EXPORTING it_items = lt_items. + lo_graph = NEW #( it_items = lt_items ). lo_graph->add_edge( is_from = ls_item1 diff --git a/src/objects/core/zcl_abapgit_objects_activation.clas.abap b/src/objects/core/zcl_abapgit_objects_activation.clas.abap index e4aa845c7..06e4044ae 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.abap @@ -283,7 +283,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_popup = abap_false. ENDIF. - lv_no_ui = boolc( lv_popup = abap_false ). + lv_no_ui = xsdbool( lv_popup = abap_false ). IF iv_ddic = abap_true. lv_msg = |(with DDIC)|. @@ -538,7 +538,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_active = boolc( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). + rv_active = xsdbool( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). ENDMETHOD. @@ -581,7 +581,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. p_e071 = lt_e071 p_xmsg = lt_messages. - rv_active = boolc( lt_messages IS INITIAL ). + rv_active = xsdbool( lt_messages IS INITIAL ). ENDMETHOD. @@ -603,10 +603,8 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_include = cl_oo_classname_service=>get_interfacepool_name( ls_class-clsname ). ENDCASE. - CREATE OBJECT lo_cross - EXPORTING - p_name = lv_include - p_include = lv_include. + lo_cross = NEW #( p_name = lv_include + p_include = lv_include ). lo_cross->index_actualize( IMPORTING p_error = lv_error ). diff --git a/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap index ff6d29118..799db5387 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap @@ -18,7 +18,7 @@ ENDCLASS. CLASS ltcl_tests IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD is_active. diff --git a/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap index 1ba862168..30a31beba 100644 --- a/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap @@ -37,7 +37,7 @@ CLASS ltcl_warning_overwrite_find IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_objects. + mo_objects = NEW #( ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_objects_files.clas.abap b/src/objects/core/zcl_abapgit_objects_files.clas.abap index 89c91c31e..111d8d5f5 100644 --- a/src/objects/core/zcl_abapgit_objects_files.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_files.clas.abap @@ -325,10 +325,8 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_files - EXPORTING - is_item = is_item - iv_path = iv_path. + ro_files = NEW #( is_item = is_item + iv_path = iv_path ). ENDMETHOD. @@ -414,11 +412,11 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. CASE lv_ext. WHEN 'po'. - CREATE OBJECT lo_po EXPORTING iv_lang = lv_lang. + lo_po = NEW #( iv_lang = lv_lang ). lo_po->parse( -data ). APPEND lo_po TO rt_i18n_files. WHEN 'properties'. - CREATE OBJECT lo_properties EXPORTING iv_lang = lv_lang. + lo_properties = NEW #( iv_lang = lv_lang ). lo_properties->parse( -data ). APPEND lo_properties TO rt_i18n_files. WHEN OTHERS. @@ -481,11 +479,8 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ). - CREATE OBJECT ri_xml - TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = lv_xml - iv_filename = lv_filename. + ri_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_xml + iv_filename = lv_filename ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_serialize.clas.abap b/src/objects/core/zcl_abapgit_serialize.clas.abap index 21dae0a50..b3e3e500c 100644 --- a/src/objects/core/zcl_abapgit_serialize.clas.abap +++ b/src/objects/core/zcl_abapgit_serialize.clas.abap @@ -217,7 +217,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. ii_log = ii_log it_filter = it_filter ). - CREATE OBJECT lo_filter. + lo_filter = NEW #( ). lo_filter->apply( EXPORTING it_filter = it_filter CHANGING ct_tadir = lt_tadir ). @@ -225,7 +225,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. * if there are less than 10 objects run in single thread * this helps a lot when debugging, plus performance gain * with low number of objects does not matter much - lv_force = boolc( lines( lt_tadir ) < 10 ). + lv_force = xsdbool( lines( lt_tadir ) < 10 ). lt_found = serialize( iv_package = iv_package @@ -271,9 +271,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. ms_i18n_params-main_language_only = is_local_settings-main_language_only. ENDIF. - CREATE OBJECT mo_abap_language_version - EXPORTING - io_dot_abapgit = mo_dot_abapgit. + mo_abap_language_version = NEW #( io_dot_abapgit = mo_dot_abapgit ). ENDMETHOD. @@ -481,7 +479,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. METHOD is_parallelization_possible. - rv_result = boolc( zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false + rv_result = xsdbool( zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false AND zcl_abapgit_persist_factory=>get_settings( )->read( )->get_parallel_proc_disabled( ) = abap_false AND mv_group IS NOT INITIAL " The function module below should always exist here as is_merged evaluated to false above. diff --git a/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap b/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap index a224ff5da..c82a2be13 100644 --- a/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap @@ -27,7 +27,7 @@ CLASS ltd_settings IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_persist_settings~read. - CREATE OBJECT ro_settings. + ro_settings = NEW #( ). ro_settings->set_parallel_proc_disabled( mv_parallel_proc_disabled ). ENDMETHOD. @@ -291,20 +291,20 @@ CLASS ltcl_determine_max_processes IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_settings_double. + mo_settings_double = NEW #( ). zcl_abapgit_persist_injector=>set_settings( mo_settings_double ). - CREATE OBJECT mo_environment_double. + mo_environment_double = NEW #( ). zcl_abapgit_injector=>set_environment( mo_environment_double ). - CREATE OBJECT mo_function_module_double. + mo_function_module_double = NEW #( ). zcl_abapgit_injector=>set_function_module( mo_function_module_double ). - CREATE OBJECT mo_exit. + mo_exit = NEW #( ). zcl_abapgit_injector=>set_exit( mo_exit ). TRY. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -470,9 +470,7 @@ CLASS ltcl_serialize IMPLEMENTATION. mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). TRY. - CREATE OBJECT mo_cut - EXPORTING - io_dot_abapgit = mo_dot. + mo_cut = NEW #( io_dot_abapgit = mo_dot ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -523,13 +521,13 @@ CLASS ltcl_serialize IMPLEMENTATION. -object = 'ABCD'. -obj_name = 'OBJECT'. - CREATE OBJECT li_log1 TYPE zcl_abapgit_log. + li_log1 = NEW zcl_abapgit_log( ). mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - CREATE OBJECT li_log2 TYPE zcl_abapgit_log. + li_log2 = NEW zcl_abapgit_log( ). mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log2 @@ -577,14 +575,14 @@ CLASS ltcl_serialize IMPLEMENTATION. -obj_name = 'ZCL_TEST_IGNORE'. -devclass = '$ZTEST'. - CREATE OBJECT li_log1 TYPE zcl_abapgit_log. + li_log1 = NEW zcl_abapgit_log( ). mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - CREATE OBJECT li_log2 TYPE zcl_abapgit_log. + li_log2 = NEW zcl_abapgit_log( ). mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir @@ -640,13 +638,9 @@ CLASS ltcl_i18n IMPLEMENTATION. " ls_data-i18n_languages needs to be initial to get classic I18N data TRY. - CREATE OBJECT mo_dot_abapgit - EXPORTING - is_data = ls_data. + mo_dot_abapgit = NEW #( is_data = ls_data ). - CREATE OBJECT mo_cut - EXPORTING - io_dot_abapgit = mo_dot_abapgit. + mo_cut = NEW #( io_dot_abapgit = mo_dot_abapgit ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -683,9 +677,7 @@ CLASS ltcl_i18n IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( -file-data ). - CREATE OBJECT lo_input - EXPORTING - iv_xml = lv_xml. + lo_input = NEW #( iv_xml = lv_xml ). lo_input->zif_abapgit_xml_input~read( EXPORTING iv_name = 'DD02V' CHANGING cg_data = ls_dd02v ). diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap index 82f341a22..abbf549df 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap @@ -77,10 +77,8 @@ CLASS zcl_abapgit_ecatt_data_upload IMPLEMENTATION. IF ex_ecatt_object->object_type <> ms_current_object-s_obj_type OR ex_ecatt_object->object_name <> ms_current_object-d_obj_name OR ex_ecatt_object->object_version <> ms_current_object-d_obj_ver. - CREATE OBJECT mx_ecatt_apl - EXPORTING - textid = cx_ecatt_apl=>any_text - free_text = 'Unexpected object in save sequence'. + mx_ecatt_apl = NEW #( textid = cx_ecatt_apl=>any_text + free_text = 'Unexpected object in save sequence' ). RETURN. ENDIF. diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap index e4244297e..8bb0e2170 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap @@ -53,9 +53,7 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION. "download method will create the xml stream "note: it's the redefined download( ) of each object type specific download, which is called TRY. - CREATE OBJECT lo_load_help_dummy - EXPORTING - im_maintain_function = ''. + lo_load_help_dummy = NEW #( im_maintain_function = '' ). io_download->download( im_object_name = iv_object_name im_object_version = iv_object_version diff --git a/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap b/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap index 3de4932e0..4555f5e27 100644 --- a/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap +++ b/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap @@ -261,7 +261,7 @@ CLASS ZCL_ABAPGIT_OBJECT_ENHO_HOOK IMPLEMENTATION. IF ls_original_object-org_main_type = 'PROG' OR ls_original_object-org_main_type = 'REPS'. TRY. ls_progdir = zcl_abapgit_factory=>get_sap_report( )->read_progdir( ls_original_object-org_main_name ). - ls_original_object-include_bound = boolc( ls_progdir-subc = 'I' ). + ls_original_object-include_bound = xsdbool( ls_progdir-subc = 'I' ). CATCH zcx_abapgit_exception. ls_original_object-include_bound = abap_false. ENDTRY. diff --git a/src/objects/jump/zcl_abapgit_adt_link.clas.abap b/src/objects/jump/zcl_abapgit_adt_link.clas.abap index 32f5bd3be..e5a9a5f4b 100644 --- a/src/objects/jump/zcl_abapgit_adt_link.clas.abap +++ b/src/objects/jump/zcl_abapgit_adt_link.clas.abap @@ -218,7 +218,7 @@ CLASS zcl_abapgit_adt_link IMPLEMENTATION. RECEIVING result = lv_vit_wb_request. - rv_is_adt_jump_possible = boolc( NOT lv_vit_wb_request = abap_true ). + rv_is_adt_jump_possible = xsdbool( NOT lv_vit_wb_request = abap_true ). CATCH cx_root. zcx_abapgit_exception=>raise( 'ADT Jump Error' ). diff --git a/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap b/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap index 247961df6..6d8b3d269 100644 --- a/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap +++ b/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap @@ -116,7 +116,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -135,7 +135,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -160,7 +160,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDIF. diff --git a/src/objects/oo/zcl_abapgit_oo_base.clas.abap b/src/objects/oo/zcl_abapgit_oo_base.clas.abap index 078bce0b7..61c386424 100644 --- a/src/objects/oo/zcl_abapgit_oo_base.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_base.clas.abap @@ -260,7 +260,7 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION. METHOD zif_abapgit_oo_object_fnc~serialize_abap. DATA lo_oo_serializer TYPE REF TO zcl_abapgit_oo_serializer. - CREATE OBJECT lo_oo_serializer. + lo_oo_serializer = NEW #( ). CASE iv_type. WHEN seop_ext_class_locals_def. rt_source = lo_oo_serializer->serialize_locals_def( is_class_key ). diff --git a/src/objects/oo/zcl_abapgit_oo_class.clas.abap b/src/objects/oo/zcl_abapgit_oo_class.clas.abap index 7d7091a3b..431ec801a 100644 --- a/src/objects/oo/zcl_abapgit_oo_class.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_class.clas.abap @@ -806,7 +806,7 @@ CLASS zcl_abapgit_oo_class IMPLEMENTATION. no_text = 4 inconsistent = 5 OTHERS = 6. - rv_exists = boolc( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). ENDMETHOD. diff --git a/src/objects/oo/zcl_abapgit_oo_factory.clas.abap b/src/objects/oo/zcl_abapgit_oo_factory.clas.abap index a47c00f83..dba196f8b 100644 --- a/src/objects/oo/zcl_abapgit_oo_factory.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_factory.clas.abap @@ -24,9 +24,9 @@ CLASS zcl_abapgit_oo_factory IMPLEMENTATION. METHOD get_by_type. IF iv_object_type = 'CLAS'. - CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_class. + ri_object_oriented_object = NEW zcl_abapgit_oo_class( ). ELSEIF iv_object_type = 'INTF'. - CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_interface. + ri_object_oriented_object = NEW zcl_abapgit_oo_interface( ). ENDIF. ENDMETHOD. @@ -40,13 +40,13 @@ CLASS zcl_abapgit_oo_factory IMPLEMENTATION. ls_object_name-clsname = to_upper( iv_object_name ). - CREATE OBJECT li_class TYPE zcl_abapgit_oo_class. + li_class = NEW zcl_abapgit_oo_class( ). IF li_class->exists( ls_object_name ) = abap_true. ri_object_oriented_object = li_class. RETURN. ENDIF. - CREATE OBJECT li_interface TYPE zcl_abapgit_oo_interface. + li_interface = NEW zcl_abapgit_oo_interface( ). IF li_interface->exists( ls_object_name ) = abap_true. ri_object_oriented_object = li_interface. RETURN. diff --git a/src/objects/oo/zcl_abapgit_oo_interface.clas.abap b/src/objects/oo/zcl_abapgit_oo_interface.clas.abap index a4852bee2..55668236b 100644 --- a/src/objects/oo/zcl_abapgit_oo_interface.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_interface.clas.abap @@ -301,7 +301,7 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION. no_text = 4 inconsistent = 5 OTHERS = 6. - rv_exists = boolc( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). ENDMETHOD. diff --git a/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap b/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap index 41571bf04..8f8ae4ac8 100644 --- a/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap +++ b/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap @@ -36,7 +36,7 @@ CLASS ltcl_oo_serialize IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_oo_serializer. + mo_oo_serializer = NEW #( ). ENDMETHOD. diff --git a/src/objects/rules/zcl_abapgit_field_rules.clas.abap b/src/objects/rules/zcl_abapgit_field_rules.clas.abap index 784fb3b48..2e3a695f7 100644 --- a/src/objects/rules/zcl_abapgit_field_rules.clas.abap +++ b/src/objects/rules/zcl_abapgit_field_rules.clas.abap @@ -36,7 +36,7 @@ CLASS zcl_abapgit_field_rules IMPLEMENTATION. METHOD create. - CREATE OBJECT ro_result TYPE zcl_abapgit_field_rules. + ro_result = NEW zcl_abapgit_field_rules( ). ENDMETHOD. diff --git a/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap b/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap index 840bf7262..eb99d8e21 100644 --- a/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap +++ b/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap @@ -46,7 +46,7 @@ CLASS zcl_abapgit_field_rules DEFINITION LOCAL FRIENDS ltcl_field_rules. CLASS ltcl_field_rules IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD fill_value. diff --git a/src/objects/sap/zcl_abapgit_function_module.clas.abap b/src/objects/sap/zcl_abapgit_function_module.clas.abap index 2b6e425e4..e7400293d 100644 --- a/src/objects/sap/zcl_abapgit_function_module.clas.abap +++ b/src/objects/sap/zcl_abapgit_function_module.clas.abap @@ -31,7 +31,7 @@ CLASS zcl_abapgit_function_module IMPLEMENTATION. EXCEPTIONS function_not_exist = 1 OTHERS = 2. - rv_exists = boolc( sy-subrc = 0 ). + rv_exists = xsdbool( sy-subrc = 0 ). CATCH cx_sy_dyn_call_illegal_func. * then its running in ABAP Cloud Programming Model, assume nothing is released * I could not find any way to check for this -Hvam diff --git a/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap b/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap index f02a0ab48..f5669a391 100644 --- a/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap +++ b/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap @@ -21,7 +21,7 @@ CLASS ZCL_ABAPGIT_SAP_NAMESPACE IMPLEMENTATION. FIELD-SYMBOLS TYPE any. TRY. SELECT SINGLE editflag FROM ('TRNSPACE') INTO lv_editflag WHERE namespace = iv_namespace. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). CATCH cx_sy_dynamic_osql_error. ASSIGN ('XCO_CP_SYSTEM=>NAMESPACE') TO . lo_obj = . @@ -44,7 +44,7 @@ CLASS ZCL_ABAPGIT_SAP_NAMESPACE IMPLEMENTATION. FIELD-SYMBOLS TYPE any. TRY. SELECT SINGLE editflag FROM ('TRNSPACE') INTO lv_editflag WHERE namespace = iv_namespace. - rv_yes = boolc( sy-subrc = 0 AND lv_editflag = 'X' ). + rv_yes = xsdbool( sy-subrc = 0 AND lv_editflag = 'X' ). CATCH cx_sy_dynamic_osql_error. ASSIGN ('XCO_CP_SYSTEM=>NAMESPACE') TO . lo_obj = . diff --git a/src/objects/sap/zcl_abapgit_sap_package.clas.abap b/src/objects/sap/zcl_abapgit_sap_package.clas.abap index 1129e52bb..bd9f0c963 100644 --- a/src/objects/sap/zcl_abapgit_sap_package.clas.abap +++ b/src/objects/sap/zcl_abapgit_sap_package.clas.abap @@ -54,7 +54,7 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION. rv_are_changes_rec_in_tr_req = li_package->wbo_korr_flag. WHEN 1. " For new packages, derive from package name - rv_are_changes_rec_in_tr_req = boolc( mv_package(1) <> '$' AND mv_package(1) <> 'T' ). + rv_are_changes_rec_in_tr_req = xsdbool( mv_package(1) <> '$' AND mv_package(1) <> 'T' ). WHEN OTHERS. zcx_abapgit_exception=>raise_t100( ). ENDCASE. @@ -231,7 +231,7 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION. intern_err = 3 no_access = 4 object_locked_and_modified = 5 ). - rv_bool = boolc( sy-subrc <> 1 ). + rv_bool = xsdbool( sy-subrc <> 1 ). ENDMETHOD. diff --git a/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap b/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap index 321331d10..91af551af 100644 --- a/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap +++ b/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap @@ -452,7 +452,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. METHOD is_db_table_category. " values from domain TABCLASS - rv_is_db_table_type = boolc( iv_tabclass = 'TRANSP' + rv_is_db_table_type = xsdbool( iv_tabclass = 'TRANSP' OR iv_tabclass = 'CLUSTER' OR iv_tabclass = 'POOL' ). @@ -469,7 +469,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. FROM edisegment INTO lv_segment_type WHERE segtyp = lv_segment_type. - rv_is_idoc_segment = boolc( sy-subrc = 0 ). + rv_is_idoc_segment = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -836,7 +836,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. SELECT SINGLE tabname FROM dd02l INTO lv_tabname WHERE tabname = lv_tabname. "#EC CI_NOORDER ENDIF. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -847,18 +847,13 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. li_local_version_input TYPE REF TO zif_abapgit_xml_input. - CREATE OBJECT li_local_version_output TYPE zcl_abapgit_xml_output. + li_local_version_output = NEW zcl_abapgit_xml_output( ). zif_abapgit_object~serialize( li_local_version_output ). - CREATE OBJECT li_local_version_input - TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = li_local_version_output->render( ). + li_local_version_input = NEW zcl_abapgit_xml_input( iv_xml = li_local_version_output->render( ) ). - CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar - EXPORTING - ii_local = li_local_version_input. + ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = li_local_version_input ). ENDMETHOD. diff --git a/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap b/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap index 3a5bccd54..68318f580 100644 --- a/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap +++ b/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap @@ -140,7 +140,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL_COMPAR IMPLEMENTATION. DELETE lt_founds WHERE object_cls <> 'DT'. - rv_is_structure_used_in_db_tab = boolc( lines( lt_founds ) > 0 ). + rv_is_structure_used_in_db_tab = xsdbool( lines( lt_founds ) > 0 ). ENDMETHOD. diff --git a/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap b/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap index e9050a887..46eb4813c 100644 --- a/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap +++ b/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap @@ -31,7 +31,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA lv_result TYPE string. lv_text = |hello ' world|. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lv_result = lo_cut->escape_string( lv_text ). cl_abap_unit_assert=>assert_equals( @@ -53,7 +53,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA lv_xml TYPE string. - CREATE OBJECT lo_format. + lo_format = NEW #( ). CALL TRANSFORMATION id OPTIONS value_handling = 'accept_data_loss' diff --git a/src/objects/texts/zcl_abapgit_i18n_params.clas.abap b/src/objects/texts/zcl_abapgit_i18n_params.clas.abap index 6c6360fc5..3c3199e7f 100644 --- a/src/objects/texts/zcl_abapgit_i18n_params.clas.abap +++ b/src/objects/texts/zcl_abapgit_i18n_params.clas.abap @@ -120,7 +120,7 @@ CLASS zcl_abapgit_i18n_params IMPLEMENTATION. METHOD is_lxe_applicable. - rv_yes = boolc( ms_params-main_language_only = abap_false AND + rv_yes = xsdbool( ms_params-main_language_only = abap_false AND ms_params-use_lxe = abap_true AND ms_params-translation_languages IS NOT INITIAL ). @@ -128,13 +128,11 @@ CLASS zcl_abapgit_i18n_params IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance - EXPORTING - iv_main_language = iv_main_language - iv_main_language_only = iv_main_language_only - it_translation_langs = it_translation_langs - iv_use_lxe = iv_use_lxe - is_params = is_params. + ro_instance = NEW #( iv_main_language = iv_main_language + iv_main_language_only = iv_main_language_only + it_translation_langs = it_translation_langs + iv_use_lxe = iv_use_lxe + is_params = is_params ). ENDMETHOD. diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.abap index da4f6047e..6de65cae0 100644 --- a/src/objects/texts/zcl_abapgit_longtexts.clas.abap +++ b/src/objects/texts/zcl_abapgit_longtexts.clas.abap @@ -214,7 +214,7 @@ CLASS zcl_abapgit_longtexts IMPLEMENTATION. LOOP AT lt_longtexts ASSIGNING . - lv_no_main_lang = boolc( iv_main_language <> -dokil-langu ). + lv_no_main_lang = xsdbool( iv_main_language <> -dokil-langu ). CALL FUNCTION 'DOCU_UPDATE' EXPORTING diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap index 5e0e26e3b..2bc2097c0 100644 --- a/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap @@ -15,7 +15,7 @@ CLASS zcl_abapgit_longtexts DEFINITION LOCAL FRIENDS ltcl_longtexts. CLASS ltcl_longtexts IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD escape_name. diff --git a/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap b/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap index 57284020b..e7ef53d47 100644 --- a/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap +++ b/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap @@ -518,7 +518,7 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION. METHOD is_object_supported. READ TABLE gt_supported_obj_types TRANSPORTING NO FIELDS WITH KEY table_line = iv_object_type. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -643,9 +643,7 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION. LOOP AT mo_i18n_params->ms_params-translation_languages INTO lv_lang. lv_lang = to_lower( lv_lang ). - CREATE OBJECT lo_po_file - EXPORTING - iv_lang = lv_lang. + lo_po_file = NEW #( iv_lang = lv_lang ). LOOP AT lt_lxe_texts ASSIGNING . IF iso4_to_iso2( -target_lang ) = lv_lang. lo_po_file->push_text_pairs( diff --git a/src/objects/texts/zcl_abapgit_po_file.clas.abap b/src/objects/texts/zcl_abapgit_po_file.clas.abap index d4a6a1f72..c7d155112 100644 --- a/src/objects/texts/zcl_abapgit_po_file.clas.abap +++ b/src/objects/texts/zcl_abapgit_po_file.clas.abap @@ -93,7 +93,7 @@ CLASS zcl_abapgit_po_file IMPLEMENTATION. FIELD-SYMBOLS LIKE LINE OF mt_pairs. FIELD-SYMBOLS LIKE LINE OF -comments. - CREATE OBJECT ro_buf. + ro_buf = NEW #( ). LOOP AT mt_pairs ASSIGNING . IF sy-tabix <> 1. @@ -116,7 +116,7 @@ CLASS zcl_abapgit_po_file IMPLEMENTATION. METHOD build_po_head. - CREATE OBJECT ro_buf. + ro_buf = NEW #( ). " TODO, more headers ? sample: https://www.gnu.org/software/trans-coord/manual/gnun/html_node/PO-Header.html " TODO, does \n really necessary ? check editors support for non-\n diff --git a/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap index b03b275a0..363e72580 100644 --- a/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap @@ -26,7 +26,7 @@ CLASS ltcl_po_file IMPLEMENTATION. FIELD-SYMBOLS LIKE LINE OF lt_lxe_pairs. - CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. + lo_po = NEW #( iv_lang = 'xx' ). APPEND INITIAL LINE TO lt_lxe_pairs ASSIGNING . -textkey = 'K1'. @@ -51,7 +51,7 @@ CLASS ltcl_po_file IMPLEMENTATION. lv_act = lo_po->build_po_body( )->join_w_newline_and_flush( ). - CREATE OBJECT lo_buf. + lo_buf = NEW #( ). lo_buf->add( '#: T1/OBJ1/K1, maxlen=10' )->add( '#: T1/OBJ1/K2 X, maxlen=11' @@ -98,7 +98,7 @@ CLASS ltcl_po_file IMPLEMENTATION. CLEAR -t_text. ENDLOOP. - CREATE OBJECT lo_buf. + lo_buf = NEW #( ). lo_buf->add( 'msgid ""' )->add( 'msgstr ""' @@ -113,7 +113,7 @@ CLASS ltcl_po_file IMPLEMENTATION. )->add( 'msgid "World"' )->add( 'msgstr "World DE"' ). - CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. + lo_po = NEW #( iv_lang = 'xx' ). lo_po->parse_po( lo_buf->join_w_newline_and_flush( ) ). lo_po->zif_abapgit_i18n_file~translate( CHANGING ct_text_pairs = lt_lxe_pairs_act ). @@ -127,7 +127,7 @@ CLASS ltcl_po_file IMPLEMENTATION. DATA lo_po TYPE REF TO zcl_abapgit_po_file. - CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. + lo_po = NEW #( iv_lang = 'xx' ). TRY. lo_po->parse_po( zcl_abapgit_string_buffer=>new( @@ -223,7 +223,7 @@ CLASS ltcl_po_file IMPLEMENTATION. DATA lo_po TYPE REF TO zcl_abapgit_po_file. FIELD-SYMBOLS LIKE LINE OF lo_po->mt_pairs. - CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. + lo_po = NEW #( iv_lang = 'xx' ). lo_po->parse_po( zcl_abapgit_string_buffer=>new( )->add( 'msgid "a"' )->add( 'msgstr "1\n"' @@ -239,7 +239,7 @@ CLASS ltcl_po_file IMPLEMENTATION. act = -target exp = |1{ cl_abap_char_utilities=>newline }2| ). - CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. + lo_po = NEW #( iv_lang = 'xx' ). lo_po->parse_po( zcl_abapgit_string_buffer=>new( )->add( 'msgid "a"' )->add( 'msgstr ""' diff --git a/src/objects/texts/zcl_abapgit_properties_file.clas.abap b/src/objects/texts/zcl_abapgit_properties_file.clas.abap index 53827fb2c..d6c55c961 100644 --- a/src/objects/texts/zcl_abapgit_properties_file.clas.abap +++ b/src/objects/texts/zcl_abapgit_properties_file.clas.abap @@ -54,7 +54,7 @@ CLASS zcl_abapgit_properties_file IMPLEMENTATION. lo_json_path TYPE REF TO zcl_abapgit_json_path, lx_exception TYPE REF TO cx_static_check. - CREATE OBJECT lo_json_path. + lo_json_path = NEW #( ). TRY. lv_translation = lo_json_path->deserialize( mt_translation ). diff --git a/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap index c18ccd38b..09ebc5a72 100644 --- a/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap @@ -13,9 +13,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA: lo_cut TYPE REF TO zcl_abapgit_properties_file. DATA: lv_act TYPE laiso. - CREATE OBJECT lo_cut - EXPORTING - iv_lang = 'DE'. + lo_cut = NEW #( iv_lang = 'DE' ). lv_act = lo_cut->zif_abapgit_i18n_file~lang( ). cl_abap_unit_assert=>assert_equals( diff --git a/src/objects/zcl_abapgit_object_acid.clas.abap b/src/objects/zcl_abapgit_object_acid.clas.abap index 6a7becf84..2b0efa80b 100644 --- a/src/objects/zcl_abapgit_object_acid.clas.abap +++ b/src/objects/zcl_abapgit_object_acid.clas.abap @@ -138,7 +138,7 @@ CLASS zcl_abapgit_object_acid IMPLEMENTATION. lo_aab = create_object( ). lo_aab->get_state( IMPORTING ex_state = lv_state ). - rv_bool = boolc( lv_state = abap_true ). + rv_bool = xsdbool( lv_state = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqbg.clas.abap b/src/objects/zcl_abapgit_object_aqbg.clas.abap index 965e86a17..483abec97 100644 --- a/src/objects/zcl_abapgit_object_aqbg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqbg.clas.abap @@ -57,11 +57,9 @@ CLASS zcl_abapgit_object_aqbg IMPLEMENTATION. METHOD get_generic. " transaction SQ03 - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqqu.clas.abap b/src/objects/zcl_abapgit_object_aqqu.clas.abap index e34b5b3f6..9ef5faef0 100644 --- a/src/objects/zcl_abapgit_object_aqqu.clas.abap +++ b/src/objects/zcl_abapgit_object_aqqu.clas.abap @@ -36,11 +36,9 @@ CLASS zcl_abapgit_object_aqqu IMPLEMENTATION. METHOD get_generic. " transaction SQ01 - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqsg.clas.abap b/src/objects/zcl_abapgit_object_aqsg.clas.abap index 3ae816885..6fe8a2a26 100644 --- a/src/objects/zcl_abapgit_object_aqsg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqsg.clas.abap @@ -36,11 +36,9 @@ CLASS zcl_abapgit_object_aqsg IMPLEMENTATION. METHOD get_generic. " transaction SQ02 - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_asfc.clas.abap b/src/objects/zcl_abapgit_object_asfc.clas.abap index 692297b9a..92e98cb9e 100644 --- a/src/objects/zcl_abapgit_object_asfc.clas.abap +++ b/src/objects/zcl_abapgit_object_asfc.clas.abap @@ -23,10 +23,8 @@ CLASS zcl_abapgit_object_asfc IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_auth.clas.abap b/src/objects/zcl_abapgit_object_auth.clas.abap index 4241eec8b..5aea917f5 100644 --- a/src/objects/zcl_abapgit_object_auth.clas.abap +++ b/src/objects/zcl_abapgit_object_auth.clas.abap @@ -54,7 +54,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. lo_auth TYPE REF TO cl_auth_tools. " authority check - CREATE OBJECT lo_auth. + lo_auth = NEW #( ). IF lo_auth->authority_check_suso( actvt = '06' fieldname = mv_fieldname ) <> 0. MESSAGE e463(01) WITH mv_fieldname INTO zcx_abapgit_exception=>null. @@ -96,7 +96,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. tadir_insert( iv_package ). - CREATE OBJECT lo_auth. + lo_auth = NEW #( ). IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0. zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ). @@ -118,7 +118,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. SELECT SINGLE fieldname FROM authx INTO mv_fieldname WHERE fieldname = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_avar.clas.abap b/src/objects/zcl_abapgit_object_avar.clas.abap index abf93319e..a4eed329a 100644 --- a/src/objects/zcl_abapgit_object_avar.clas.abap +++ b/src/objects/zcl_abapgit_object_avar.clas.abap @@ -153,7 +153,7 @@ CLASS zcl_abapgit_object_avar IMPLEMENTATION. lo_aab = create_object( ). lo_aab->get_state( IMPORTING ex_state = lv_state ). - rv_bool = boolc( lv_state = abap_true ). + rv_bool = xsdbool( lv_state = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_avas.clas.abap b/src/objects/zcl_abapgit_object_avas.clas.abap index 8dcaaaaef..12c81b16a 100644 --- a/src/objects/zcl_abapgit_object_avas.clas.abap +++ b/src/objects/zcl_abapgit_object_avas.clas.abap @@ -79,9 +79,7 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. lv_id = ms_item-obj_name. TRY. - CREATE OBJECT ro_avas - EXPORTING - im_assignment_id = lv_id. + ro_avas = NEW #( im_assignment_id = lv_id ). CATCH cx_pak_wb_object_locked INTO lx_err. zcx_abapgit_exception=>raise( |AVAS { lv_id }: locked: { lx_err->get_longtext( ) }| ). CATCH cx_pak_not_authorized INTO lx_err. @@ -166,7 +164,7 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. SELECT SINGLE guid FROM cls_assignment INTO lv_guid WHERE guid = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_char.clas.abap b/src/objects/zcl_abapgit_object_char.clas.abap index 671783fe7..c9d042a12 100644 --- a/src/objects/zcl_abapgit_object_char.clas.abap +++ b/src/objects/zcl_abapgit_object_char.clas.abap @@ -43,16 +43,14 @@ CLASS ZCL_ABAPGIT_OBJECT_CHAR IMPLEMENTATION. SELECT SINGLE name FROM cls_attribute INTO lv_name WHERE name = ms_item-obj_name. - lv_new = boolc( sy-subrc <> 0 ). + lv_new = xsdbool( sy-subrc <> 0 ). lv_name = ms_item-obj_name. TRY. - CREATE OBJECT ro_char - EXPORTING - im_name = lv_name - im_type_group = iv_type_group - im_new = lv_new - im_activation_state = iv_activation_state. + ro_char = NEW #( im_name = lv_name + im_type_group = iv_type_group + im_new = lv_new + im_activation_state = iv_activation_state ). CATCH cx_pak_invalid_data cx_pak_not_authorized cx_pak_invalid_state diff --git a/src/objects/zcl_abapgit_object_chdo.clas.abap b/src/objects/zcl_abapgit_object_chdo.clas.abap index 4b0f31323..aaa1263ce 100644 --- a/src/objects/zcl_abapgit_object_chdo.clas.abap +++ b/src/objects/zcl_abapgit_object_chdo.clas.abap @@ -304,7 +304,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. FROM tcdrp WHERE object = mv_object. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cmod.clas.abap b/src/objects/zcl_abapgit_object_cmod.clas.abap index 9091272b2..33b642199 100644 --- a/src/objects/zcl_abapgit_object_cmod.clas.abap +++ b/src/objects/zcl_abapgit_object_cmod.clas.abap @@ -125,7 +125,7 @@ CLASS zcl_abapgit_object_cmod IMPLEMENTATION. DATA: lv_name TYPE modact-name. SELECT SINGLE name FROM modact INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus0.clas.abap b/src/objects/zcl_abapgit_object_cus0.clas.abap index 399f62fab..0d0c8cc47 100644 --- a/src/objects/zcl_abapgit_object_cus0.clas.abap +++ b/src/objects/zcl_abapgit_object_cus0.clas.abap @@ -111,7 +111,7 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION. IMPORTING message = ls_message. - rv_bool = boolc( ls_message IS INITIAL ). + rv_bool = xsdbool( ls_message IS INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus1.clas.abap b/src/objects/zcl_abapgit_object_cus1.clas.abap index e1dea2449..1098bc9c4 100644 --- a/src/objects/zcl_abapgit_object_cus1.clas.abap +++ b/src/objects/zcl_abapgit_object_cus1.clas.abap @@ -129,7 +129,7 @@ CLASS zcl_abapgit_object_cus1 IMPLEMENTATION. activity_exists_not = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus2.clas.abap b/src/objects/zcl_abapgit_object_cus2.clas.abap index 8d453e086..cee074cff 100644 --- a/src/objects/zcl_abapgit_object_cus2.clas.abap +++ b/src/objects/zcl_abapgit_object_cus2.clas.abap @@ -126,7 +126,7 @@ CLASS zcl_abapgit_object_cus2 IMPLEMENTATION. attributes_exists_not = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ddls.clas.abap b/src/objects/zcl_abapgit_object_ddls.clas.abap index e91b09de8..af5cfeae7 100644 --- a/src/objects/zcl_abapgit_object_ddls.clas.abap +++ b/src/objects/zcl_abapgit_object_ddls.clas.abap @@ -367,7 +367,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION. name = ms_item-obj_name IMPORTING got_state = lv_state. - rv_bool = boolc( NOT lv_state IS INITIAL ). + rv_bool = xsdbool( NOT lv_state IS INITIAL ). CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_devc.clas.abap b/src/objects/zcl_abapgit_object_devc.clas.abap index eb5e5dc37..aeedda563 100644 --- a/src/objects/zcl_abapgit_object_devc.clas.abap +++ b/src/objects/zcl_abapgit_object_devc.clas.abap @@ -139,7 +139,7 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. WHERE pgmid = 'R3TR' AND NOT ( ( object = 'DEVC' OR object = 'SOTR' ) AND obj_name = iv_package_name ) AND devclass = iv_package_name. - rv_is_empty = boolc( sy-subrc <> 0 ). + rv_is_empty = xsdbool( sy-subrc <> 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dial.clas.abap b/src/objects/zcl_abapgit_object_dial.clas.abap index 22204582a..55c2fb2f9 100644 --- a/src/objects/zcl_abapgit_object_dial.clas.abap +++ b/src/objects/zcl_abapgit_object_dial.clas.abap @@ -126,7 +126,7 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. ls_tdct = _read_tdct( ). - rv_bool = boolc( ls_tdct IS NOT INITIAL ). + rv_bool = xsdbool( ls_tdct IS NOT INITIAL ). ENDMETHOD. @@ -177,7 +177,7 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. object_not_found = 1 OTHERS = 2. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_doct.clas.abap b/src/objects/zcl_abapgit_object_doct.clas.abap index ae4a3ee05..468acbcee 100644 --- a/src/objects/zcl_abapgit_object_doct.clas.abap +++ b/src/objects/zcl_abapgit_object_doct.clas.abap @@ -90,7 +90,7 @@ CLASS zcl_abapgit_object_doct IMPLEMENTATION. WHERE id = c_id AND object = lv_object. "#EC CI_GENBUFF "#EC CI_NOORDER - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_docv.clas.abap b/src/objects/zcl_abapgit_object_docv.clas.abap index 109ba1288..dc6445134 100644 --- a/src/objects/zcl_abapgit_object_docv.clas.abap +++ b/src/objects/zcl_abapgit_object_docv.clas.abap @@ -155,7 +155,7 @@ CLASS zcl_abapgit_object_docv IMPLEMENTATION. WHERE id = mv_id AND object = mv_doc_object. "#EC CI_GENBUFF "#EC CI_NOORDER - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_doma.clas.abap b/src/objects/zcl_abapgit_object_doma.clas.abap index 8bc1f7280..c86b80606 100644 --- a/src/objects/zcl_abapgit_object_doma.clas.abap +++ b/src/objects/zcl_abapgit_object_doma.clas.abap @@ -406,7 +406,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. SELECT SINGLE domname FROM dd01l INTO lv_domname WHERE domname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dsys.clas.abap b/src/objects/zcl_abapgit_object_dsys.clas.abap index fd862d6f2..468dd6a8e 100644 --- a/src/objects/zcl_abapgit_object_dsys.clas.abap +++ b/src/objects/zcl_abapgit_object_dsys.clas.abap @@ -180,7 +180,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. WHERE id = c_id AND object = mv_doc_object. "#EC CI_GENBUFF "#EC CI_NOORDER - rv_bool = boolc( lv_count > 0 ). + rv_bool = xsdbool( lv_count > 0 ). ENDMETHOD. @@ -232,7 +232,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. no_editor = 2 OTHERS = 3. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dtel.clas.abap b/src/objects/zcl_abapgit_object_dtel.clas.abap index 061e4cc8d..c5e766538 100644 --- a/src/objects/zcl_abapgit_object_dtel.clas.abap +++ b/src/objects/zcl_abapgit_object_dtel.clas.abap @@ -244,7 +244,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION. SELECT SINGLE rollname FROM dd04l INTO lv_rollname WHERE rollname = lv_rollname. ENDIF. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ecat.clas.abap b/src/objects/zcl_abapgit_object_ecat.clas.abap index 1a91f6a79..0d31bf529 100644 --- a/src/objects/zcl_abapgit_object_ecat.clas.abap +++ b/src/objects/zcl_abapgit_object_ecat.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_script_downl. + ro_download = NEW zcl_abapgit_ecatt_script_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_script_upl. + ro_upload = NEW zcl_abapgit_ecatt_script_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecsd.clas.abap b/src/objects/zcl_abapgit_object_ecsd.clas.abap index e9e5e9ced..f99143551 100644 --- a/src/objects/zcl_abapgit_object_ecsd.clas.abap +++ b/src/objects/zcl_abapgit_object_ecsd.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_system_downl. + ro_download = NEW zcl_abapgit_ecatt_system_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_system_upl. + ro_upload = NEW zcl_abapgit_ecatt_system_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecsp.clas.abap b/src/objects/zcl_abapgit_object_ecsp.clas.abap index a4e2d7ae0..9a152ec92 100644 --- a/src/objects/zcl_abapgit_object_ecsp.clas.abap +++ b/src/objects/zcl_abapgit_object_ecsp.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_sp_download. + ro_download = NEW zcl_abapgit_ecatt_sp_download( ). ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_sp_upload. + ro_upload = NEW zcl_abapgit_ecatt_sp_upload( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ectc.clas.abap b/src/objects/zcl_abapgit_object_ectc.clas.abap index 457f2d081..242a3f979 100644 --- a/src/objects/zcl_abapgit_object_ectc.clas.abap +++ b/src/objects/zcl_abapgit_object_ectc.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_config_downl. + ro_download = NEW zcl_abapgit_ecatt_config_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_config_upl. + ro_upload = NEW zcl_abapgit_ecatt_config_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ectd.clas.abap b/src/objects/zcl_abapgit_object_ectd.clas.abap index 86ca112ed..941c7810c 100644 --- a/src/objects/zcl_abapgit_object_ectd.clas.abap +++ b/src/objects/zcl_abapgit_object_ectd.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_data_downl. + ro_download = NEW zcl_abapgit_ecatt_data_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_data_upload. + ro_upload = NEW zcl_abapgit_ecatt_data_upload( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecvo.clas.abap b/src/objects/zcl_abapgit_object_ecvo.clas.abap index 7b49e4c59..5bcf00ce0 100644 --- a/src/objects/zcl_abapgit_object_ecvo.clas.abap +++ b/src/objects/zcl_abapgit_object_ecvo.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_val_obj_down. + ro_download = NEW zcl_abapgit_ecatt_val_obj_down( ). ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_val_obj_upl. + ro_upload = NEW zcl_abapgit_ecatt_val_obj_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_enho.clas.abap b/src/objects/zcl_abapgit_object_enho.clas.abap index 66c77ee82..7ad286893 100644 --- a/src/objects/zcl_abapgit_object_enho.clas.abap +++ b/src/objects/zcl_abapgit_object_enho.clas.abap @@ -25,37 +25,23 @@ CLASS zcl_abapgit_object_enho IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_impl=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_badi - EXPORTING - is_item = ms_item. + ri_enho = NEW zcl_abapgit_object_enho_badi( is_item = ms_item ). WHEN cl_enh_tool_hook_impl=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_hook - EXPORTING - is_item = ms_item - io_files = mo_files. + ri_enho = NEW zcl_abapgit_object_enho_hook( is_item = ms_item + io_files = mo_files ). WHEN cl_enh_tool_class=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_class - EXPORTING - is_item = ms_item - io_files = mo_files. + ri_enho = NEW zcl_abapgit_object_enho_class( is_item = ms_item + io_files = mo_files ). WHEN cl_enh_tool_intf=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_intf - EXPORTING - is_item = ms_item - io_files = mo_files. + ri_enho = NEW zcl_abapgit_object_enho_intf( is_item = ms_item + io_files = mo_files ). WHEN cl_wdr_cfg_enhancement=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyc - EXPORTING - is_item = ms_item. + ri_enho = NEW zcl_abapgit_object_enho_wdyc( is_item = ms_item ). WHEN 'FUGRENH'. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_fugr - EXPORTING - is_item = ms_item - io_files = mo_files. + ri_enho = NEW zcl_abapgit_object_enho_fugr( is_item = ms_item + io_files = mo_files ). WHEN 'WDYENH'. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyn - EXPORTING - is_item = ms_item. + ri_enho = NEW zcl_abapgit_object_enho_wdyn( is_item = ms_item ). WHEN OTHERS. zcx_abapgit_exception=>raise( |Unsupported ENHO type { iv_tool }| ). ENDCASE. diff --git a/src/objects/zcl_abapgit_object_enhs.clas.abap b/src/objects/zcl_abapgit_object_enhs.clas.abap index 6fdec9eeb..833128ac5 100644 --- a/src/objects/zcl_abapgit_object_enhs.clas.abap +++ b/src/objects/zcl_abapgit_object_enhs.clas.abap @@ -24,9 +24,9 @@ CLASS zcl_abapgit_object_enhs IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_def=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_badi_d. + ri_enho = NEW zcl_abapgit_object_enhs_badi_d( ). WHEN cl_enh_tool_hook_def=>tool_type. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_hook_d. + ri_enho = NEW zcl_abapgit_object_enhs_hook_d( ). WHEN OTHERS. zcx_abapgit_exception=>raise( |ENHS: Unsupported tool { iv_tool }| ). ENDCASE. diff --git a/src/objects/zcl_abapgit_object_enqu.clas.abap b/src/objects/zcl_abapgit_object_enqu.clas.abap index cc5ba1fb6..071b6e2d1 100644 --- a/src/objects/zcl_abapgit_object_enqu.clas.abap +++ b/src/objects/zcl_abapgit_object_enqu.clas.abap @@ -93,7 +93,7 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_fdt0.clas.abap b/src/objects/zcl_abapgit_object_fdt0.clas.abap index 4c28e378a..04117f6a5 100644 --- a/src/objects/zcl_abapgit_object_fdt0.clas.abap +++ b/src/objects/zcl_abapgit_object_fdt0.clas.abap @@ -82,7 +82,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. WHERE object_type = 'AP' AND id = lv_application_id AND deleted = ''. - ev_create = boolc( lv_count = 0 ). + ev_create = xsdbool( lv_count = 0 ). ENDIF. " Fill in user/time/system-specific fields @@ -588,7 +588,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. AND name = ms_item-obj_name AND deleted = ''. - rv_bool = boolc( lv_count > 0 ). + rv_bool = xsdbool( lv_count > 0 ). ENDMETHOD. @@ -598,16 +598,12 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. DATA lo_local_version_output TYPE REF TO zcl_abapgit_xml_output. DATA lo_local_version_input TYPE REF TO zcl_abapgit_xml_input. - CREATE OBJECT lo_local_version_output. + lo_local_version_output = NEW #( ). zif_abapgit_object~serialize( lo_local_version_output ). - CREATE OBJECT lo_local_version_input - EXPORTING - iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ). + lo_local_version_input = NEW #( iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ) ). - CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar - EXPORTING - ii_local = lo_local_version_input. + ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = lo_local_version_input ). ENDMETHOD. @@ -654,7 +650,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. lv_index = lines( lt_version ). READ TABLE lt_version ASSIGNING INDEX lv_index. - rv_active = boolc( -state = 'A' ). + rv_active = xsdbool( -state = 'A' ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_form.clas.abap b/src/objects/zcl_abapgit_object_form.clas.abap index 83bb5e900..8f15f5f96 100644 --- a/src/objects/zcl_abapgit_object_form.clas.abap +++ b/src/objects/zcl_abapgit_object_form.clas.abap @@ -130,7 +130,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. DATA lv_string TYPE string. DATA li_xml TYPE REF TO zif_abapgit_xml_output. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). li_xml->add( iv_name = c_objectname_tdlines ig_data = it_lines ). lv_string = li_xml->render( ). @@ -174,7 +174,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. ENDTRY. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_input EXPORTING iv_xml = lv_string. + li_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_string ). li_xml->read( EXPORTING iv_name = c_objectname_tdlines CHANGING cg_data = rt_lines ). @@ -329,7 +329,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. IMPORTING olanguage = lv_lang. - rv_bool = boolc( lv_lang IS NOT INITIAL ). + rv_bool = xsdbool( lv_lang IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_fugr.clas.abap b/src/objects/zcl_abapgit_object_fugr.clas.abap index fba1c2e05..4617f2818 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -1048,10 +1048,8 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. LOOP AT it_includes INTO lv_include. - CREATE OBJECT lo_cross - EXPORTING - p_name = lv_include - p_include = lv_include. + lo_cross = NEW #( p_name = lv_include + p_include = lv_include ). lo_cross->index_actualize( ). @@ -1262,7 +1260,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. function_pool = lv_pool EXCEPTIONS pool_not_exists = 1. - rv_bool = boolc( sy-subrc <> 1 ). + rv_bool = xsdbool( sy-subrc <> 1 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_g4ba.clas.abap b/src/objects/zcl_abapgit_object_g4ba.clas.abap index 54af7e9f5..809de5582 100644 --- a/src/objects/zcl_abapgit_object_g4ba.clas.abap +++ b/src/objects/zcl_abapgit_object_g4ba.clas.abap @@ -65,11 +65,9 @@ CLASS zcl_abapgit_object_g4ba IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_g4bs.clas.abap b/src/objects/zcl_abapgit_object_g4bs.clas.abap index 108d0555d..f9a106e6a 100644 --- a/src/objects/zcl_abapgit_object_g4bs.clas.abap +++ b/src/objects/zcl_abapgit_object_g4bs.clas.abap @@ -65,11 +65,9 @@ CLASS zcl_abapgit_object_g4bs IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_idoc.clas.abap b/src/objects/zcl_abapgit_object_idoc.clas.abap index e01d7db1a..e0a45e311 100644 --- a/src/objects/zcl_abapgit_object_idoc.clas.abap +++ b/src/objects/zcl_abapgit_object_idoc.clas.abap @@ -97,7 +97,7 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. db_error = 2 no_authority = 3 OTHERS = 4. - rv_closed = boolc( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). + rv_closed = xsdbool( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). ENDMETHOD. @@ -260,7 +260,7 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. db_error = 2 OTHERS = 3. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iext.clas.abap b/src/objects/zcl_abapgit_object_iext.clas.abap index e0f681080..775242c14 100644 --- a/src/objects/zcl_abapgit_object_iext.clas.abap +++ b/src/objects/zcl_abapgit_object_iext.clas.abap @@ -122,7 +122,7 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION. EXCEPTIONS OTHERS = 1. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_intf.clas.abap b/src/objects/zcl_abapgit_object_intf.clas.abap index c0fd72372..1402d8f86 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.abap @@ -139,7 +139,7 @@ CLASS zcl_abapgit_object_intf IMPLEMENTATION. mi_object_oriented_object_fct = zcl_abapgit_oo_factory=>get_by_type( ms_item-obj_type ). - CREATE OBJECT li_aff_registry TYPE zcl_abapgit_aff_registry. + li_aff_registry = NEW zcl_abapgit_aff_registry( ). mv_aff_enabled = li_aff_registry->is_supported_object_type( 'INTF' ). @@ -296,7 +296,7 @@ CLASS zcl_abapgit_object_intf IMPLEMENTATION. lv_json_data = mo_files->read_string( 'json' ). ls_intf_aff = lcl_aff_metadata_handler=>deserialize( lv_json_data ). - CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping. + lo_aff_mapper = NEW lcl_aff_type_mapping( ). lo_aff_mapper->to_abapgit( EXPORTING iv_data = ls_intf_aff iv_object_name = ms_item-obj_name IMPORTING es_data = rs_intf ). diff --git a/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap b/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap index 8bd144843..0774bd17a 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap @@ -546,14 +546,14 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. lt_paths_to_skip TYPE zcl_abapgit_json_handler=>ty_skip_paths. - CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping. + lo_aff_mapper = NEW lcl_aff_type_mapping( ). lo_aff_mapper->to_aff( EXPORTING iv_data = is_intf IMPORTING es_data = ls_data_aff ). lt_enum_mappings = get_mappings( ). lt_paths_to_skip = get_paths_to_skip( ). - CREATE OBJECT lo_aff_handler. + lo_aff_handler = NEW #( ). TRY. rv_result = lo_aff_handler->serialize( iv_data = ls_data_aff iv_enum_mappings = lt_enum_mappings @@ -622,7 +622,7 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. lt_enum_mappings = get_mappings( ). - CREATE OBJECT lo_ajson. + lo_ajson = NEW #( ). TRY. lo_ajson->deserialize( EXPORTING @@ -669,11 +669,10 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. ENDTRY. - CREATE OBJECT lo_json_path. + lo_json_path = NEW #( ). lt_translation = lo_json_path->serialize( lv_json ). - CREATE OBJECT lo_trans_file - EXPORTING iv_lang = lv_langu. + lo_trans_file = NEW #( iv_lang = lv_langu ). lo_trans_file->push_text_pairs( lt_translation ). @@ -722,7 +721,7 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. ls_aff_data-header-original_language = lv_sap1. - CREATE OBJECT lo_type_mapper TYPE lcl_aff_type_mapping. + lo_type_mapper = NEW lcl_aff_type_mapping( ). lo_type_mapper->to_abapgit( EXPORTING iv_data = ls_aff_data diff --git a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap index 2fcca3de8..de2f2fbdf 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap @@ -148,15 +148,13 @@ CLASS ltcl_unit_test IMPLEMENTATION. mo_files = zcl_abapgit_objects_files=>new( ms_item ). - CREATE OBJECT lo_cut - EXPORTING - is_item = ms_item - iv_language = 'E' - io_files = mo_files. + lo_cut = NEW #( is_item = ms_item + iv_language = 'E' + io_files = mo_files ). - CREATE OBJECT mo_log. + mo_log = NEW #( ). - CREATE OBJECT mo_object_fnc. + mo_object_fnc = NEW #( ). lo_cut->mi_object_oriented_object_fct = mo_object_fnc. mo_cut = lo_cut. @@ -172,9 +170,7 @@ CLASS ltcl_unit_test IMPLEMENTATION. DATA ls_expected_docu_line TYPE tline. DATA lt_expected_docu_lines TYPE tlinetab. - CREATE OBJECT lo_xmlin TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = get_xml( ). + lo_xmlin = NEW zcl_abapgit_xml_input( iv_xml = get_xml( ) ). mo_files->add_abap( get_source( ) ). diff --git a/src/objects/zcl_abapgit_object_iobj.clas.abap b/src/objects/zcl_abapgit_object_iobj.clas.abap index ae70908a1..93df661e7 100644 --- a/src/objects/zcl_abapgit_object_iobj.clas.abap +++ b/src/objects/zcl_abapgit_object_iobj.clas.abap @@ -268,7 +268,7 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION. INTO lv_iobjnm WHERE iobjnm = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwmo.clas.abap b/src/objects/zcl_abapgit_object_iwmo.clas.abap index c72ae8f2f..4595b9ce0 100644 --- a/src/objects/zcl_abapgit_object_iwmo.clas.abap +++ b/src/objects/zcl_abapgit_object_iwmo.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwmo IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwom.clas.abap b/src/objects/zcl_abapgit_object_iwom.clas.abap index bdabf98ed..9d8b356da 100644 --- a/src/objects/zcl_abapgit_object_iwom.clas.abap +++ b/src/objects/zcl_abapgit_object_iwom.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwom IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwpr.clas.abap b/src/objects/zcl_abapgit_object_iwpr.clas.abap index 1701dc6ec..6b983f3ad 100644 --- a/src/objects/zcl_abapgit_object_iwpr.clas.abap +++ b/src/objects/zcl_abapgit_object_iwpr.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwpr IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwsg.clas.abap b/src/objects/zcl_abapgit_object_iwsg.clas.abap index 9f2646964..068d9c934 100644 --- a/src/objects/zcl_abapgit_object_iwsg.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsg.clas.abap @@ -49,11 +49,9 @@ CLASS zcl_abapgit_object_iwsg IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwsv.clas.abap b/src/objects/zcl_abapgit_object_iwsv.clas.abap index 9e53ba0a2..48cd5af1e 100644 --- a/src/objects/zcl_abapgit_object_iwsv.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsv.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwsv IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwvb.clas.abap b/src/objects/zcl_abapgit_object_iwvb.clas.abap index 78b21145d..bcf4641a6 100644 --- a/src/objects/zcl_abapgit_object_iwvb.clas.abap +++ b/src/objects/zcl_abapgit_object_iwvb.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwvb IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_msag.clas.abap b/src/objects/zcl_abapgit_object_msag.clas.abap index 995788751..68a6d857a 100644 --- a/src/objects/zcl_abapgit_object_msag.clas.abap +++ b/src/objects/zcl_abapgit_object_msag.clas.abap @@ -420,7 +420,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. SELECT SINGLE arbgb FROM t100a INTO lv_arbgb WHERE arbgb = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_nrob.clas.abap b/src/objects/zcl_abapgit_object_nrob.clas.abap index f774f0027..448cb8a08 100644 --- a/src/objects/zcl_abapgit_object_nrob.clas.abap +++ b/src/objects/zcl_abapgit_object_nrob.clas.abap @@ -243,7 +243,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION. SELECT SINGLE object FROM tnro INTO lv_object WHERE object = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_nspc.clas.abap b/src/objects/zcl_abapgit_object_nspc.clas.abap index f16d6bd78..57dfb0f80 100644 --- a/src/objects/zcl_abapgit_object_nspc.clas.abap +++ b/src/objects/zcl_abapgit_object_nspc.clas.abap @@ -371,7 +371,7 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. namespace_not_valid = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -430,7 +430,7 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. view_not_found = 13 OTHERS = 14. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_oa2p.clas.abap b/src/objects/zcl_abapgit_object_oa2p.clas.abap index 3a2d26068..12904d48e 100644 --- a/src/objects/zcl_abapgit_object_oa2p.clas.abap +++ b/src/objects/zcl_abapgit_object_oa2p.clas.abap @@ -211,7 +211,7 @@ CLASS zcl_abapgit_object_oa2p IMPLEMENTATION. enq = lt_locks. " Number of chosen lock entries - rv_is_locked = boolc( lv_lock_number > 0 ). + rv_is_locked = xsdbool( lv_lock_number > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_odso.clas.abap b/src/objects/zcl_abapgit_object_odso.clas.abap index 1eded78d9..e1f938029 100644 --- a/src/objects/zcl_abapgit_object_odso.clas.abap +++ b/src/objects/zcl_abapgit_object_odso.clas.abap @@ -232,7 +232,7 @@ CLASS zcl_abapgit_object_odso IMPLEMENTATION. INTO lv_iobjnm WHERE odsobject = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_otgr.clas.abap b/src/objects/zcl_abapgit_object_otgr.clas.abap index 73e22c19a..a62107248 100644 --- a/src/objects/zcl_abapgit_object_otgr.clas.abap +++ b/src/objects/zcl_abapgit_object_otgr.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION. lv_name = ms_item-obj_name. TRY. - CREATE OBJECT ro_otgr - EXPORTING - im_name = lv_name - im_new = lv_new - im_activation_state = lv_state. + ro_otgr = NEW #( im_name = lv_name + im_new = lv_new + im_activation_state = lv_state ). CATCH cx_pak_invalid_data cx_pak_not_authorized cx_pak_invalid_state diff --git a/src/objects/zcl_abapgit_object_para.clas.abap b/src/objects/zcl_abapgit_object_para.clas.abap index 9f72c478a..5ca4632db 100644 --- a/src/objects/zcl_abapgit_object_para.clas.abap +++ b/src/objects/zcl_abapgit_object_para.clas.abap @@ -156,7 +156,7 @@ CLASS zcl_abapgit_object_para IMPLEMENTATION. SELECT SINGLE paramid FROM tpara INTO lv_paramid WHERE paramid = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap b/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap index e8ccc60e4..a4cd0faca 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap @@ -73,7 +73,7 @@ CLASS lcl_task_definition IMPLEMENTATION. DATA lo_taskdef TYPE REF TO lcl_task_definition. - CREATE OBJECT lo_taskdef. + lo_taskdef = NEW #( ). lo_taskdef->mv_objid = iv_objid. lo_taskdef->supply_instance( ). @@ -185,7 +185,7 @@ CLASS lcl_task_definition IMPLEMENTATION. METHOD create. DATA lo_task TYPE REF TO lcl_task_definition. - CREATE OBJECT lo_task TYPE lcl_task_definition. + lo_task = NEW lcl_task_definition( ). lo_task->mv_objid = iv_objid. lo_task->ms_task = is_task_data. ri_result = lo_task. diff --git a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap index 0464b5cb3..7a2b34963 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap @@ -61,10 +61,8 @@ CLASS ltc_smoke_test IMPLEMENTATION. ls_item-obj_name = '99999999'. TRY. - CREATE OBJECT mo_cut TYPE zcl_abapgit_object_pdts - EXPORTING - is_item = ls_item - iv_language = sy-langu. + mo_cut = NEW zcl_abapgit_object_pdts( is_item = ls_item + iv_language = sy-langu ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( ). ENDTRY. diff --git a/src/objects/zcl_abapgit_object_pdxx_super.clas.abap b/src/objects/zcl_abapgit_object_pdxx_super.clas.abap index 004a4b501..c3bef42eb 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.abap @@ -105,7 +105,7 @@ CLASS zcl_abapgit_object_pdxx_super IMPLEMENTATION. not_found = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap index 51d6993b0..bc318c3e3 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap @@ -46,10 +46,8 @@ CLASS ltc_lock IMPLEMENTATION. ls_item-obj_type = 'PDXX'. ls_item-obj_name = 'XX' && lc_dummy. - CREATE OBJECT lo_cut TYPE lth_object_pdxx - EXPORTING - is_item = ls_item - iv_language = sy-langu. + lo_cut = NEW lth_object_pdxx( is_item = ls_item + iv_language = sy-langu ). cl_abap_unit_assert=>assert_equals( act = lo_cut->is_locked( ) exp = abap_true ). @@ -105,10 +103,8 @@ CLASS ltc_general_tests IMPLEMENTATION. ls_item-obj_type = 'PDZZ'. ls_item-obj_name = 'ZZ99999999'. - CREATE OBJECT lo_cut TYPE lth_object_pdxx - EXPORTING - is_item = ls_item - iv_language = sy-langu. + lo_cut = NEW lth_object_pdxx( is_item = ls_item + iv_language = sy-langu ). cl_abap_unit_assert=>assert_equals( act = lo_cut->get_objkey( )-otype exp = 'ZZ' ). diff --git a/src/objects/zcl_abapgit_object_pers.clas.abap b/src/objects/zcl_abapgit_object_pers.clas.abap index 5437635db..3d4c3fd0d 100644 --- a/src/objects/zcl_abapgit_object_pers.clas.abap +++ b/src/objects/zcl_abapgit_object_pers.clas.abap @@ -151,7 +151,7 @@ CLASS zcl_abapgit_object_pers IMPLEMENTATION. pers_key_does_not_exist = 1 OTHERS = 2 ). - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pinf.clas.abap b/src/objects/zcl_abapgit_object_pinf.clas.abap index eb4f10d85..5902f3442 100644 --- a/src/objects/zcl_abapgit_object_pinf.clas.abap +++ b/src/objects/zcl_abapgit_object_pinf.clas.abap @@ -61,9 +61,7 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. METHOD create_facade. - CREATE OBJECT ri_facade TYPE lcl_package_interface_facade - EXPORTING - ii_interface = ii_interface. + ri_facade = NEW lcl_package_interface_facade( ii_interface = ii_interface ). ENDMETHOD. @@ -297,12 +295,12 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. SELECT SINGLE pack_name FROM intf INTO lv_pack_name WHERE intf_name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). IF rv_bool = abap_true. SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack WHERE devclass = lv_pack_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDIF. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_prog.clas.abap b/src/objects/zcl_abapgit_object_prog.clas.abap index 5009c4e46..1d3b14d42 100644 --- a/src/objects/zcl_abapgit_object_prog.clas.abap +++ b/src/objects/zcl_abapgit_object_prog.clas.abap @@ -277,7 +277,7 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION. SELECT SINGLE progname FROM reposrc INTO lv_progname WHERE progname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_scp1.clas.abap b/src/objects/zcl_abapgit_object_scp1.clas.abap index 00bfe1355..79541671b 100644 --- a/src/objects/zcl_abapgit_object_scp1.clas.abap +++ b/src/objects/zcl_abapgit_object_scp1.clas.abap @@ -389,7 +389,7 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION. profid = lv_profid IMPORTING rc = lv_rc. - rv_bool = boolc( lv_rc = 0 ). + rv_bool = xsdbool( lv_rc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_scvi.clas.abap b/src/objects/zcl_abapgit_object_scvi.clas.abap index 93efe4992..4ef5874b0 100644 --- a/src/objects/zcl_abapgit_object_scvi.clas.abap +++ b/src/objects/zcl_abapgit_object_scvi.clas.abap @@ -117,7 +117,7 @@ CLASS zcl_abapgit_object_scvi IMPLEMENTATION. EXCEPTIONS no_variant = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sfpf.clas.abap b/src/objects/zcl_abapgit_object_sfpf.clas.abap index b6775aa08..aea7c2485 100644 --- a/src/objects/zcl_abapgit_object_sfpf.clas.abap +++ b/src/objects/zcl_abapgit_object_sfpf.clas.abap @@ -286,7 +286,7 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION. INTO lv_name WHERE name = ms_item-obj_name AND state = 'A'. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sfpi.clas.abap b/src/objects/zcl_abapgit_object_sfpi.clas.abap index df9c7c150..a6e44daf0 100644 --- a/src/objects/zcl_abapgit_object_sfpi.clas.abap +++ b/src/objects/zcl_abapgit_object_sfpi.clas.abap @@ -129,7 +129,7 @@ CLASS zcl_abapgit_object_sfpi IMPLEMENTATION. SELECT SINGLE name FROM fpinterface INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shi3.clas.abap b/src/objects/zcl_abapgit_object_shi3.clas.abap index bdef8477a..0003efdb9 100644 --- a/src/objects/zcl_abapgit_object_shi3.clas.abap +++ b/src/objects/zcl_abapgit_object_shi3.clas.abap @@ -364,7 +364,7 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. structure_header = ls_header structure_tadir = ls_tadir. - rv_bool = boolc( ls_header-id IS NOT INITIAL ). + rv_bool = xsdbool( ls_header-id IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shi5.clas.abap b/src/objects/zcl_abapgit_object_shi5.clas.abap index bf786fc52..ca027d2c4 100644 --- a/src/objects/zcl_abapgit_object_shi5.clas.abap +++ b/src/objects/zcl_abapgit_object_shi5.clas.abap @@ -174,7 +174,7 @@ CLASS zcl_abapgit_object_shi5 IMPLEMENTATION. IMPORTING extension_header = ls_extension_header. - rv_bool = boolc( ls_extension_header IS NOT INITIAL ). + rv_bool = xsdbool( ls_extension_header IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shlp.clas.abap b/src/objects/zcl_abapgit_object_shlp.clas.abap index 02dd0c9b6..1ab9808dd 100644 --- a/src/objects/zcl_abapgit_object_shlp.clas.abap +++ b/src/objects/zcl_abapgit_object_shlp.clas.abap @@ -169,7 +169,7 @@ CLASS zcl_abapgit_object_shlp IMPLEMENTATION. SELECT SINGLE shlpname FROM dd30l INTO lv_shlpname WHERE shlpname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shma.clas.abap b/src/objects/zcl_abapgit_object_shma.clas.abap index 1d9397b04..843b3968d 100644 --- a/src/objects/zcl_abapgit_object_shma.clas.abap +++ b/src/objects/zcl_abapgit_object_shma.clas.abap @@ -167,7 +167,7 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION. INTO lv_area_name WHERE area_name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sicf.clas.abap b/src/objects/zcl_abapgit_object_sicf.clas.abap index c0e708ea3..9757c4481 100644 --- a/src/objects/zcl_abapgit_object_sicf.clas.abap +++ b/src/objects/zcl_abapgit_object_sicf.clas.abap @@ -549,7 +549,7 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. SELECT SINGLE icfaltnme FROM icfservice INTO ls_key-icf_name WHERE icf_name = ms_item-obj_name(15) AND icfparguid = ms_item-obj_name+15. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_smim.clas.abap b/src/objects/zcl_abapgit_object_smim.clas.abap index a1ad570a4..15ec98937 100644 --- a/src/objects/zcl_abapgit_object_smim.clas.abap +++ b/src/objects/zcl_abapgit_object_smim.clas.abap @@ -259,7 +259,7 @@ CLASS zcl_abapgit_object_smim IMPLEMENTATION. SELECT SINGLE loio_id FROM smimloio INTO lv_loio WHERE loio_id = lv_loio. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sobj.clas.abap b/src/objects/zcl_abapgit_object_sobj.clas.abap index 9d662f581..bff9b8ee2 100644 --- a/src/objects/zcl_abapgit_object_sobj.clas.abap +++ b/src/objects/zcl_abapgit_object_sobj.clas.abap @@ -85,11 +85,9 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. @@ -100,7 +98,7 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD is_locked. - rv_is_locked = boolc( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). + rv_is_locked = xsdbool( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_splo.clas.abap b/src/objects/zcl_abapgit_object_splo.clas.abap index c952c764e..2cfebe50d 100644 --- a/src/objects/zcl_abapgit_object_splo.clas.abap +++ b/src/objects/zcl_abapgit_object_splo.clas.abap @@ -69,7 +69,7 @@ CLASS zcl_abapgit_object_splo IMPLEMENTATION. SELECT SINGLE papart INTO lv_papart FROM tsp1d WHERE papart = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sppf.clas.abap b/src/objects/zcl_abapgit_object_sppf.clas.abap index 4f3001c34..88e6749f2 100644 --- a/src/objects/zcl_abapgit_object_sppf.clas.abap +++ b/src/objects/zcl_abapgit_object_sppf.clas.abap @@ -23,10 +23,8 @@ CLASS zcl_abapgit_object_sppf IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sprx.clas.abap b/src/objects/zcl_abapgit_object_sprx.clas.abap index 605b48727..ae81e67bf 100644 --- a/src/objects/zcl_abapgit_object_sprx.clas.abap +++ b/src/objects/zcl_abapgit_object_sprx.clas.abap @@ -321,7 +321,7 @@ CLASS zcl_abapgit_object_sprx IMPLEMENTATION. status = lv_status status_text = lv_status_text ). - rv_bool = boolc( lv_status = if_proxy=>c_state_active ). + rv_bool = xsdbool( lv_status = if_proxy=>c_state_active ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sqsc.clas.abap b/src/objects/zcl_abapgit_object_sqsc.clas.abap index 1e1189db1..1d277aef3 100644 --- a/src/objects/zcl_abapgit_object_sqsc.clas.abap +++ b/src/objects/zcl_abapgit_object_sqsc.clas.abap @@ -156,12 +156,10 @@ CLASS zcl_abapgit_object_sqsc IMPLEMENTATION. IF zcl_abapgit_objects=>exists( ls_item ) = abap_true. - CREATE OBJECT lo_interface - EXPORTING - is_item = ls_item - iv_language = mv_language - io_files = mo_files - io_i18n_params = mo_i18n_params. + lo_interface = NEW #( is_item = ls_item + iv_language = mv_language + io_files = mo_files + io_i18n_params = mo_i18n_params ). lo_interface->zif_abapgit_object~delete( iv_package = iv_package iv_transport = iv_transport ). diff --git a/src/objects/zcl_abapgit_object_srvb.clas.abap b/src/objects/zcl_abapgit_object_srvb.clas.abap index a76dbfa01..459a05f81 100644 --- a/src/objects/zcl_abapgit_object_srvb.clas.abap +++ b/src/objects/zcl_abapgit_object_srvb.clas.abap @@ -423,7 +423,7 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION. p_object_data = lo_object_data ). ENDIF. - rv_bool = boolc( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_srvd.clas.abap b/src/objects/zcl_abapgit_object_srvd.clas.abap index ef6da47cb..53057ceef 100644 --- a/src/objects/zcl_abapgit_object_srvd.clas.abap +++ b/src/objects/zcl_abapgit_object_srvd.clas.abap @@ -467,7 +467,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION. data_selection = 'P' IMPORTING eo_object_data = lo_object_data. - rv_bool = boolc( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_ssfo.clas.abap b/src/objects/zcl_abapgit_object_ssfo.clas.abap index 3416b487d..b2c175717 100644 --- a/src/objects/zcl_abapgit_object_ssfo.clas.abap +++ b/src/objects/zcl_abapgit_object_ssfo.clas.abap @@ -313,7 +313,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. lv_text TYPE string, lv_within_code_section TYPE abap_bool. - CREATE OBJECT lo_sf. + lo_sf = NEW #( ). * set "created by" and "changed by" to current user li_iterator = io_xml->get_raw( )->get_root_element( )->create_iterator( ). @@ -372,7 +372,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. SELECT SINGLE formname FROM stxfadm INTO lv_formname WHERE formname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -410,7 +410,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. IMPORTING o_inactive = lv_inactive. - rv_active = boolc( lv_inactive = abap_false ). + rv_active = xsdbool( lv_inactive = abap_false ). ENDMETHOD. @@ -503,7 +503,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. li_ixml = cl_ixml=>create( ). li_xml_doc = li_ixml->create_document( ). - CREATE OBJECT lo_sf. + lo_sf = NEW #( ). lv_formname = ms_item-obj_name. " convert type TRY. lo_sf->load( im_formname = lv_formname diff --git a/src/objects/zcl_abapgit_object_ssst.clas.abap b/src/objects/zcl_abapgit_object_ssst.clas.abap index 1431ff9be..d8bde82fc 100644 --- a/src/objects/zcl_abapgit_object_ssst.clas.abap +++ b/src/objects/zcl_abapgit_object_ssst.clas.abap @@ -148,7 +148,7 @@ CLASS zcl_abapgit_object_ssst IMPLEMENTATION. WHERE active = c_style_active AND stylename = ms_item-obj_name AND vari = ''. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_styl.clas.abap b/src/objects/zcl_abapgit_object_styl.clas.abap index 6ef28118f..99c7af6a6 100644 --- a/src/objects/zcl_abapgit_object_styl.clas.abap +++ b/src/objects/zcl_abapgit_object_styl.clas.abap @@ -100,7 +100,7 @@ CLASS zcl_abapgit_object_styl IMPLEMENTATION. strings = ls_style-strings tabs = ls_style-tabs. - rv_bool = boolc( lv_found = abap_true ). + rv_bool = xsdbool( lv_found = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sucu.clas.abap b/src/objects/zcl_abapgit_object_sucu.clas.abap index 723496091..5e21fab35 100644 --- a/src/objects/zcl_abapgit_object_sucu.clas.abap +++ b/src/objects/zcl_abapgit_object_sucu.clas.abap @@ -23,10 +23,8 @@ CLASS zcl_abapgit_object_sucu IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_susc.clas.abap b/src/objects/zcl_abapgit_object_susc.clas.abap index c80e5ef35..fc54e138b 100644 --- a/src/objects/zcl_abapgit_object_susc.clas.abap +++ b/src/objects/zcl_abapgit_object_susc.clas.abap @@ -179,7 +179,7 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION. SELECT SINGLE oclss FROM tobc INTO lv_oclss WHERE oclss = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sush.clas.abap b/src/objects/zcl_abapgit_object_sush.clas.abap index d9e0cc92d..27c50e5bc 100644 --- a/src/objects/zcl_abapgit_object_sush.clas.abap +++ b/src/objects/zcl_abapgit_object_sush.clas.abap @@ -245,7 +245,7 @@ CLASS zcl_abapgit_object_sush IMPLEMENTATION. SELECT SINGLE * FROM usobhash INTO ls_usobhash "#EC CI_ALL_FIELDS_NEEDED WHERE name = ms_item-obj_name. "#EC CI_SGLSELECT - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_suso.clas.abap b/src/objects/zcl_abapgit_object_suso.clas.abap index 21b291782..1cc41d1ff 100644 --- a/src/objects/zcl_abapgit_object_suso.clas.abap +++ b/src/objects/zcl_abapgit_object_suso.clas.abap @@ -286,7 +286,7 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION. SELECT SINGLE objct FROM tobj INTO lv_objct WHERE objct = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sxci.clas.abap b/src/objects/zcl_abapgit_object_sxci.clas.abap index 518dae604..8cf43045c 100644 --- a/src/objects/zcl_abapgit_object_sxci.clas.abap +++ b/src/objects/zcl_abapgit_object_sxci.clas.abap @@ -86,10 +86,8 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. lv_package = iv_package. - CREATE OBJECT lo_filter_values_object - EXPORTING - filter_object = lo_filter_object - filter_values = ls_classic_badi_implementation-filters. + lo_filter_values_object = NEW #( filter_object = lo_filter_object + filter_values = ls_classic_badi_implementation-filters ). CALL FUNCTION 'SXO_IMPL_SAVE' EXPORTING @@ -150,7 +148,7 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. data_inconsistency = 2 OTHERS = 3. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sxsd.clas.abap b/src/objects/zcl_abapgit_object_sxsd.clas.abap index 8d37c05f8..ad4f8b4c7 100644 --- a/src/objects/zcl_abapgit_object_sxsd.clas.abap +++ b/src/objects/zcl_abapgit_object_sxsd.clas.abap @@ -66,7 +66,7 @@ CLASS zcl_abapgit_object_sxsd IMPLEMENTATION. METHOD zif_abapgit_object~exists. - rv_bool = boolc( ms_badi_attr IS NOT INITIAL ). + rv_bool = xsdbool( ms_badi_attr IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tobj.clas.abap b/src/objects/zcl_abapgit_object_tobj.clas.abap index ba78356d0..5d3454201 100644 --- a/src/objects/zcl_abapgit_object_tobj.clas.abap +++ b/src/objects/zcl_abapgit_object_tobj.clas.abap @@ -214,7 +214,7 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. SELECT SINGLE objectname FROM objh INTO lv_objectname WHERE objectname = ms_item-obj_name(lv_type_pos) AND objecttype = ms_item-obj_name+lv_type_pos. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -264,7 +264,7 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tran.clas.abap b/src/objects/zcl_abapgit_object_tran.clas.abap index 04060fdfa..23413baa0 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.abap @@ -373,7 +373,7 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD is_variant_transaction. - rv_variant_transaction = boolc( is_tstcp-param(1) = '@' ). + rv_variant_transaction = xsdbool( is_tstcp-param(1) = '@' ). ENDMETHOD. @@ -803,7 +803,7 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. SELECT SINGLE tcode FROM tstc INTO lv_tcode WHERE tcode = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap index c1126bd7b..9bc9601b6 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap @@ -52,10 +52,8 @@ CLASS ltcl_split_parameters IMPLEMENTATION. ls_item-obj_name = 'ZDUMMY'. ls_item-obj_type = 'TRAN'. - CREATE OBJECT mo_cut - EXPORTING - is_item = ls_item - iv_language = sy-langu. + mo_cut = NEW #( is_item = ls_item + iv_language = sy-langu ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ttyp.clas.abap b/src/objects/zcl_abapgit_object_ttyp.clas.abap index 204c44ab1..b19931b2c 100644 --- a/src/objects/zcl_abapgit_object_ttyp.clas.abap +++ b/src/objects/zcl_abapgit_object_ttyp.clas.abap @@ -105,7 +105,7 @@ CLASS zcl_abapgit_object_ttyp IMPLEMENTATION. SELECT SINGLE typename FROM dd40l INTO lv_typename WHERE typename = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_udmo.clas.abap b/src/objects/zcl_abapgit_object_udmo.clas.abap index ac6e3ed92..79de01dac 100644 --- a/src/objects/zcl_abapgit_object_udmo.clas.abap +++ b/src/objects/zcl_abapgit_object_udmo.clas.abap @@ -666,7 +666,7 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. SELECT COUNT( * ) FROM dm40l WHERE dmoid = mv_data_model AND as4local = mv_activation_state. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). diff --git a/src/objects/zcl_abapgit_object_ueno.clas.abap b/src/objects/zcl_abapgit_object_ueno.clas.abap index 1816aba86..7f2d95de8 100644 --- a/src/objects/zcl_abapgit_object_ueno.clas.abap +++ b/src/objects/zcl_abapgit_object_ueno.clas.abap @@ -451,11 +451,9 @@ CLASS zcl_abapgit_object_ueno IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_vcls.clas.abap b/src/objects/zcl_abapgit_object_vcls.clas.abap index 20144196e..d4806ea64 100644 --- a/src/objects/zcl_abapgit_object_vcls.clas.abap +++ b/src/objects/zcl_abapgit_object_vcls.clas.abap @@ -133,7 +133,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. SELECT SINGLE changedate INTO lv_changedate FROM vcldir WHERE vclname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -166,7 +166,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. WHERE vclname = ms_item-obj_name. * see logic in function module VIEWCLUSTER_GET_DEFINITION - rv_active = boolc( lv_changedate IS NOT INITIAL ). + rv_active = xsdbool( lv_changedate IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_view.clas.abap b/src/objects/zcl_abapgit_object_view.clas.abap index b42c2b637..bf44d12a9 100644 --- a/src/objects/zcl_abapgit_object_view.clas.abap +++ b/src/objects/zcl_abapgit_object_view.clas.abap @@ -364,7 +364,7 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). IF rv_bool = abap_true. TRY. diff --git a/src/objects/zcl_abapgit_object_wapa.clas.abap b/src/objects/zcl_abapgit_object_wapa.clas.abap index 4f3fecc04..0a17d79f3 100644 --- a/src/objects/zcl_abapgit_object_wapa.clas.abap +++ b/src/objects/zcl_abapgit_object_wapa.clas.abap @@ -544,7 +544,7 @@ CLASS zcl_abapgit_object_wapa IMPLEMENTATION. object_not_existing = 1 permission_failure = 2 error_occured = 3 ). - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdca.clas.abap b/src/objects/zcl_abapgit_object_wdca.clas.abap index f5f8a1276..3184a454f 100644 --- a/src/objects/zcl_abapgit_object_wdca.clas.abap +++ b/src/objects/zcl_abapgit_object_wdca.clas.abap @@ -68,10 +68,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - CREATE OBJECT lo_cfg - EXPORTING - config_key = ls_key - object_name = lv_name. + lo_cfg = NEW #( config_key = ls_key + object_name = lv_name ). MOVE-CORRESPONDING ls_key TO ls_outline. @@ -130,10 +128,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - CREATE OBJECT lo_cfg - EXPORTING - config_key = ls_key - object_name = lv_name. + lo_cfg = NEW #( config_key = ls_key + object_name = lv_name ). MOVE-CORRESPONDING ls_key TO es_outline. @@ -188,10 +184,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. MOVE-CORRESPONDING is_outline TO ls_key. TRY. - CREATE OBJECT lo_cfg - EXPORTING - config_key = ls_key - object_name = lv_name. + lo_cfg = NEW #( config_key = ls_key + object_name = lv_name ). READ TABLE it_data INDEX 1 INTO ls_data. ASSERT sy-subrc = 0. @@ -335,7 +329,7 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. WHERE config_id = ls_wdy_config_key-config_id AND config_type = ls_wdy_config_key-config_type AND config_var = ls_wdy_config_key-config_var. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdcc.clas.abap b/src/objects/zcl_abapgit_object_wdcc.clas.abap index 7ce5617de..374b8282f 100644 --- a/src/objects/zcl_abapgit_object_wdcc.clas.abap +++ b/src/objects/zcl_abapgit_object_wdcc.clas.abap @@ -309,7 +309,7 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. zcx_abapgit_exception=>raise( 'Error check object lock WDCC: ' && ms_item-obj_name ). ENDIF. - rv_is_locked = boolc( lines( lt_enq ) > 0 ). + rv_is_locked = xsdbool( lines( lt_enq ) > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdya.clas.abap b/src/objects/zcl_abapgit_object_wdya.clas.abap index c22c52742..61b1ca489 100644 --- a/src/objects/zcl_abapgit_object_wdya.clas.abap +++ b/src/objects/zcl_abapgit_object_wdya.clas.abap @@ -72,11 +72,9 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYA IMPLEMENTATION. TRY. - CREATE OBJECT lo_app - EXPORTING - name = is_app-application_name - definition = is_app - devclass = iv_package. + lo_app = NEW #( name = is_app-application_name + definition = is_app + devclass = iv_package ). LOOP AT it_properties ASSIGNING . li_prop = lo_app->if_wdy_md_application~create_property( -name ). diff --git a/src/objects/zcl_abapgit_object_wdyn.clas.abap b/src/objects/zcl_abapgit_object_wdyn.clas.abap index 129543cad..6ac70dd39 100644 --- a/src/objects/zcl_abapgit_object_wdyn.clas.abap +++ b/src/objects/zcl_abapgit_object_wdyn.clas.abap @@ -803,14 +803,12 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. lv_object_name TYPE seu_objkey. - CREATE OBJECT lo_component. + lo_component = NEW #( ). lv_object_name = ms_item-obj_name. - CREATE OBJECT lo_request - EXPORTING - p_object_type = 'YC' - p_object_name = lv_object_name - p_operation = swbm_c_op_delete_no_dialog. + lo_request = NEW #( p_object_type = 'YC' + p_object_name = lv_object_name + p_operation = swbm_c_op_delete_no_dialog ). lo_component->if_wb_program~process_wb_request( p_wb_request = lo_request @@ -879,7 +877,7 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. SELECT SINGLE component_name FROM wdy_component INTO lv_component_name WHERE component_name = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_webi.clas.abap b/src/objects/zcl_abapgit_object_webi.clas.abap index 651d93814..7389d499e 100644 --- a/src/objects/zcl_abapgit_object_webi.clas.abap +++ b/src/objects/zcl_abapgit_object_webi.clas.abap @@ -360,7 +360,7 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION. lv_name = ms_item-obj_name. - CREATE OBJECT lo_vif. + lo_vif = NEW #( ). TRY. lo_vif->if_ws_md_vif_root~delete_virtual_interface( lv_name ). CATCH cx_ws_md_exception. diff --git a/src/objects/zcl_abapgit_object_xinx.clas.abap b/src/objects/zcl_abapgit_object_xinx.clas.abap index 305e7cef9..13acd9c73 100644 --- a/src/objects/zcl_abapgit_object_xinx.clas.abap +++ b/src/objects/zcl_abapgit_object_xinx.clas.abap @@ -318,7 +318,7 @@ CLASS zcl_abapgit_object_xinx IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_bool = boolc( ls_dd12v IS NOT INITIAL ). + rv_bool = xsdbool( ls_dd12v IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_xslt.clas.abap b/src/objects/zcl_abapgit_object_xslt.clas.abap index 4b887d410..6a4ce4d64 100644 --- a/src/objects/zcl_abapgit_object_xslt.clas.abap +++ b/src/objects/zcl_abapgit_object_xslt.clas.abap @@ -174,7 +174,7 @@ CLASS zcl_abapgit_object_xslt IMPLEMENTATION. lv_name = ms_item-obj_name. rv_bool = cl_o2_api_xsltdesc=>exists( lv_name ). - rv_bool = boolc( rv_bool = '1' ). + rv_bool = xsdbool( rv_bool = '1' ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects.clas.abap b/src/objects/zcl_abapgit_objects.clas.abap index 218529719..3b5f42c17 100644 --- a/src/objects/zcl_abapgit_objects.clas.abap +++ b/src/objects/zcl_abapgit_objects.clas.abap @@ -414,11 +414,8 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT li_remote_version - TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data ) - iv_filename = ls_remote_file-filename. + li_remote_version = NEW zcl_abapgit_xml_input( iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data ) + iv_filename = ls_remote_file-filename ). ls_result = li_comparator->compare( ii_remote = li_remote_version ii_log = ii_log ). @@ -511,15 +508,11 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. IF iv_native_only = abap_false. TRY. " 2nd step, try looking for plugins IF io_files IS BOUND AND io_i18n_params IS BOUND. - CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge - EXPORTING - is_item = is_item - io_files = io_files - io_i18n_params = io_i18n_params. + ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item + io_files = io_files + io_i18n_params = io_i18n_params ). ELSE. - CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge - EXPORTING - is_item = is_item. + ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item ). ENDIF. CATCH cx_sy_create_object_error. zcx_abapgit_exception=>raise( lv_message ). @@ -731,9 +724,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. ii_log->add_info( |>>> Deserializing { lines( lt_items ) } objects| ). ENDIF. - CREATE OBJECT lo_abap_language_vers - EXPORTING - io_dot_abapgit = lo_dot. + lo_abap_language_vers = NEW #( io_dot_abapgit = lo_dot ). lo_folder_logic = zcl_abapgit_folder_logic=>get_instance( ). LOOP AT lt_results ASSIGNING . @@ -1216,14 +1207,14 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. io_files = lo_files io_i18n_params = io_i18n_params ). - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). rs_files_and_item-item = is_item. TRY. li_obj->serialize( li_xml ). CATCH zcx_abapgit_exception INTO lx_error. - rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). RAISE EXCEPTION lx_error. ENDTRY. @@ -1246,7 +1237,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. check_duplicates( rs_files_and_item-files ). - rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). LOOP AT rs_files_and_item-files ASSIGNING . -sha1 = zcl_abapgit_hash=>sha1_blob( -data ). diff --git a/src/objects/zcl_abapgit_objects.clas.testclasses.abap b/src/objects/zcl_abapgit_objects.clas.testclasses.abap index ae2704279..18423238f 100644 --- a/src/objects/zcl_abapgit_objects.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects.clas.testclasses.abap @@ -73,7 +73,7 @@ CLASS lcl_settings_with_features IMPLEMENTATION. METHOD zif_abapgit_persist_settings~read. - CREATE OBJECT ro_settings. + ro_settings = NEW #( ). ro_settings->set_experimental_features( mv_features ). ENDMETHOD. @@ -209,9 +209,7 @@ CLASS ltcl_serialize IMPLEMENTATION. ls_item-obj_name = 'IF_BADI_TADIR_CHANGED'. lv_features = |{ zcl_abapgit_aff_registry=>c_aff_feature }, { zcl_abapgit_properties_file=>c_properties_feature }|. - CREATE OBJECT lo_settings - EXPORTING - iv_features = lv_features. + lo_settings = NEW #( iv_features = lv_features ). zcl_abapgit_persist_injector=>set_settings( lo_settings ). diff --git a/src/objects/zcl_abapgit_objects_factory.clas.abap b/src/objects/zcl_abapgit_objects_factory.clas.abap index 11a781863..08568a6e8 100644 --- a/src/objects/zcl_abapgit_objects_factory.clas.abap +++ b/src/objects/zcl_abapgit_objects_factory.clas.abap @@ -21,7 +21,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_FACTORY IMPLEMENTATION. METHOD get_gui_jumper. IF gi_gui_jumper IS INITIAL. - CREATE OBJECT gi_gui_jumper TYPE zcl_abapgit_gui_jumper. + gi_gui_jumper = NEW zcl_abapgit_gui_jumper( ). ENDIF. ri_gui_jumper = gi_gui_jumper. diff --git a/src/objects/zcl_abapgit_objects_generic.clas.abap b/src/objects/zcl_abapgit_objects_generic.clas.abap index 1106374f3..5bf46ed22 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.abap @@ -422,7 +422,7 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION. ASSIGN lr_table_line->* TO . SELECT SINGLE * FROM (lv_primary) INTO WHERE (lv_where_clause). - rv_bool = boolc( sy-dbcnt > 0 ). + rv_bool = xsdbool( sy-dbcnt > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap index 3094e97a6..4dda78e06 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap @@ -28,11 +28,9 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_001'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item. + lo_cut = NEW #( is_item = ls_item ). - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). lo_cut->serialize( li_xml ). * checks that it does not dump @@ -48,10 +46,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). cl_abap_unit_assert=>assert_equals( exp = 'AGR_DEFINE' @@ -70,10 +66,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). lt_key_fields = lo_cut->get_key_fields( 'AGR_HIER' ). @@ -98,10 +92,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'NSPC'. ls_item-obj_name = '/BIC/'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). cl_abap_unit_assert=>assert_equals( exp = `NAMESPACE = '/BIC/'` @@ -128,10 +120,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_name+32 = '09'. ls_item-obj_name+34 = 'TEST'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). lt_key_fields = lo_cut->get_key_fields( 'WDY_CONFIG_DATA' ). @@ -186,10 +176,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_002'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). lt_key_fields = lo_cut->get_key_fields( 'AIND_STR4' ). diff --git a/src/objects/zcl_abapgit_objects_program.clas.abap b/src/objects/zcl_abapgit_objects_program.clas.abap index c2b7352ce..26ddbbe86 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.abap @@ -903,7 +903,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. IF io_xml IS BOUND. li_xml = io_xml. ELSE. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). ENDIF. li_xml->add( iv_name = 'PROGDIR' diff --git a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap index d746c3945..46d438649 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap @@ -34,10 +34,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'PROG'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -47,10 +45,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 2, FUGR ls_item-obj_type = 'FUGR'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -70,10 +66,8 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 'some code starts here' TO lt_src_orig. ls_item-obj_type = 'FUGR'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -107,10 +101,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'FUGR'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). diff --git a/src/persist/zcl_abapgit_persist_factory.clas.abap b/src/persist/zcl_abapgit_persist_factory.clas.abap index 64d82b806..5b646d093 100644 --- a/src/persist/zcl_abapgit_persist_factory.clas.abap +++ b/src/persist/zcl_abapgit_persist_factory.clas.abap @@ -30,7 +30,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_repo. IF gi_repo IS INITIAL. - CREATE OBJECT gi_repo TYPE zcl_abapgit_persistence_repo. + gi_repo = NEW zcl_abapgit_persistence_repo( ). ENDIF. ri_repo = gi_repo. @@ -41,7 +41,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_repo_cs. IF gi_repo_cs IS INITIAL. - CREATE OBJECT gi_repo_cs TYPE zcl_abapgit_persistence_repo. + gi_repo_cs = NEW zcl_abapgit_persistence_repo( ). ENDIF. ri_repo_cs = gi_repo_cs. @@ -52,7 +52,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_settings. IF gi_settings IS INITIAL. - CREATE OBJECT gi_settings TYPE zcl_abapgit_persist_settings. + gi_settings = NEW zcl_abapgit_persist_settings( ). ENDIF. ri_settings = gi_settings. diff --git a/src/persist/zcl_abapgit_persist_migrate.clas.abap b/src/persist/zcl_abapgit_persist_migrate.clas.abap index 77ef0989d..451399376 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.abap @@ -96,7 +96,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. ENDTRY. " New exists and differs from own - then it is really new, needs to be installed - rv_exists = boolc( lv_h_own = lv_h_new ). + rv_exists = xsdbool( lv_h_own = lv_h_new ). ENDMETHOD. @@ -194,7 +194,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = zcl_abapgit_persistence_db=>c_lock. - rv_exists = boolc( sy-subrc = 0 ). + rv_exists = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -315,7 +315,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. SELECT SINGLE tabname FROM dd02l INTO lv_tabname WHERE tabname = zcl_abapgit_persistence_db=>c_tabname. "#EC CI_NOORDER - rv_exists = boolc( sy-subrc = 0 ). + rv_exists = xsdbool( sy-subrc = 0 ). ENDMETHOD. ENDCLASS. diff --git a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap index 5d0cf3e83..9652bb2b6 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap @@ -27,10 +27,8 @@ CLASS lcl_cua_interface IMPLEMENTATION. AND object = 'PROG' AND obj_name = sy-cprog. - CREATE OBJECT ro_instance - EXPORTING - iv_language = 'E' - is_item = ls_item. + ro_instance = NEW #( iv_language = 'E' + is_item = ls_item ). ENDMETHOD. @@ -48,7 +46,7 @@ CLASS lcl_cua_interface IMPLEMENTATION. is_cua = is_cua iv_program_name = ms_item-obj_name ). - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). zcl_abapgit_objects_activation=>activate( li_log ). zcl_abapgit_objects_activation=>clear( ). diff --git a/src/persist/zcl_abapgit_persist_packages.clas.abap b/src/persist/zcl_abapgit_persist_packages.clas.abap index 425d44737..1abe63540 100644 --- a/src/persist/zcl_abapgit_persist_packages.clas.abap +++ b/src/persist/zcl_abapgit_persist_packages.clas.abap @@ -61,7 +61,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. DATA lo_input TYPE REF TO zif_abapgit_xml_input. - CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = iv_xml. + lo_input = NEW zcl_abapgit_xml_input( iv_xml = iv_xml ). lo_input->read( EXPORTING @@ -75,7 +75,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. METHOD get_instance. IF go_persist IS NOT BOUND. - CREATE OBJECT go_persist. + go_persist = NEW #( ). ENDIF. ro_persist = go_persist. @@ -144,7 +144,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. DATA li_output TYPE REF TO zif_abapgit_xml_output. - CREATE OBJECT li_output TYPE zcl_abapgit_xml_output. + li_output = NEW zcl_abapgit_xml_output( ). li_output->add( iv_name = zcl_abapgit_persistence_db=>c_type_packages diff --git a/src/persist/zcl_abapgit_persist_settings.clas.abap b/src/persist/zcl_abapgit_persist_settings.clas.abap index 125dc3af9..2174e8f79 100644 --- a/src/persist/zcl_abapgit_persist_settings.clas.abap +++ b/src/persist/zcl_abapgit_persist_settings.clas.abap @@ -52,7 +52,7 @@ CLASS ZCL_ABAPGIT_PERSIST_SETTINGS IMPLEMENTATION. ENDIF. " Settings have changed or have not yet been loaded - CREATE OBJECT ro_settings. + ro_settings = NEW #( ). TRY. diff --git a/src/persist/zcl_abapgit_persistence_db.clas.abap b/src/persist/zcl_abapgit_persistence_db.clas.abap index 2a645b986..37503ff10 100644 --- a/src/persist/zcl_abapgit_persistence_db.clas.abap +++ b/src/persist/zcl_abapgit_persistence_db.clas.abap @@ -131,7 +131,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION. METHOD get_instance. IF go_db IS NOT BOUND. - CREATE OBJECT go_db. + go_db = NEW #( ). ENDIF. ro_db = go_db. diff --git a/src/persist/zcl_abapgit_persistence_repo.clas.abap b/src/persist/zcl_abapgit_persistence_repo.clas.abap index 48d8fef62..28d1a727d 100644 --- a/src/persist/zcl_abapgit_persistence_repo.clas.abap +++ b/src/persist/zcl_abapgit_persistence_repo.clas.abap @@ -242,7 +242,7 @@ CLASS zcl_abapgit_persistence_repo IMPLEMENTATION. DATA: lo_background TYPE REF TO zcl_abapgit_persist_background. - CREATE OBJECT lo_background. + lo_background = NEW #( ). lo_background->delete( iv_key ). mo_db->delete( iv_type = zcl_abapgit_persistence_db=>c_type_repo @@ -262,7 +262,7 @@ CLASS zcl_abapgit_persistence_repo IMPLEMENTATION. it_keys = lt_keys iv_type = zcl_abapgit_persistence_db=>c_type_repo ). - rv_yes = boolc( lines( lt_content ) > 0 ). + rv_yes = xsdbool( lines( lt_content ) > 0 ). ENDMETHOD. diff --git a/src/persist/zcl_abapgit_persistence_user.clas.abap b/src/persist/zcl_abapgit_persistence_user.clas.abap index 751a0bba3..81f47ef0b 100644 --- a/src/persist/zcl_abapgit_persistence_user.clas.abap +++ b/src/persist/zcl_abapgit_persistence_user.clas.abap @@ -116,13 +116,11 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. IF iv_user = sy-uname ##USER_OK. IF gi_current_user IS NOT BOUND. - CREATE OBJECT gi_current_user TYPE zcl_abapgit_persistence_user. + gi_current_user = NEW zcl_abapgit_persistence_user( ). ENDIF. ri_user = gi_current_user. ELSE. - CREATE OBJECT ri_user TYPE zcl_abapgit_persistence_user - EXPORTING - iv_user = iv_user. + ri_user = NEW zcl_abapgit_persistence_user( iv_user = iv_user ). ENDIF. ENDMETHOD. @@ -337,7 +335,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. READ TABLE ms_user-favorites TRANSPORTING NO FIELDS WITH KEY table_line = iv_repo_key. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -451,7 +449,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_changes_only. - ms_user-changes_only = boolc( ms_user-changes_only = abap_false ). + ms_user-changes_only = xsdbool( ms_user-changes_only = abap_false ). update( ). rv_changes_only = ms_user-changes_only. @@ -461,7 +459,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_diff_unified. - ms_user-diff_unified = boolc( ms_user-diff_unified = abap_false ). + ms_user-diff_unified = xsdbool( ms_user-diff_unified = abap_false ). update( ). rv_diff_unified = ms_user-diff_unified. @@ -487,7 +485,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_hide_files. - ms_user-hide_files = boolc( ms_user-hide_files = abap_false ). + ms_user-hide_files = xsdbool( ms_user-hide_files = abap_false ). update( ). rv_hide = ms_user-hide_files. @@ -496,7 +494,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_show_folders. - ms_user-show_folders = boolc( ms_user-show_folders = abap_false ). + ms_user-show_folders = xsdbool( ms_user-show_folders = abap_false ). update( ). rv_folders = ms_user-show_folders. diff --git a/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap b/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap index ba0e65057..51e31fe93 100644 --- a/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap +++ b/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap @@ -24,7 +24,7 @@ ENDCLASS. CLASS ltcl_adjust_filter IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD teardown. diff --git a/src/repo/stage/zcl_abapgit_merge.clas.abap b/src/repo/stage/zcl_abapgit_merge.clas.abap index f9b716c60..cfe84fa74 100644 --- a/src/repo/stage/zcl_abapgit_merge.clas.abap +++ b/src/repo/stage/zcl_abapgit_merge.clas.abap @@ -92,9 +92,7 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. lt_files = all_files( ). - CREATE OBJECT ms_merge-stage - EXPORTING - iv_merge_source = ms_merge-source-sha1. + ms_merge-stage = NEW #( iv_merge_source = ms_merge-source-sha1 ). LOOP AT lt_files ASSIGNING . @@ -112,9 +110,9 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. WITH KEY path_name COMPONENTS path = -path name = -name. "#EC CI_SUBRC - lv_found_source = boolc( IS ASSIGNED ). - lv_found_target = boolc( IS ASSIGNED ). - lv_found_common = boolc( IS ASSIGNED ). + lv_found_source = xsdbool( IS ASSIGNED ). + lv_found_target = xsdbool( IS ASSIGNED ). + lv_found_common = xsdbool( IS ASSIGNED ). IF lv_found_source = abap_false AND lv_found_target = abap_false. @@ -371,7 +369,7 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. METHOD zif_abapgit_merge~has_conflicts. - rv_conflicts_exists = boolc( lines( mt_conflicts ) > 0 ). + rv_conflicts_exists = xsdbool( lines( mt_conflicts ) > 0 ). ENDMETHOD. diff --git a/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap b/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap index 34a56fb7d..580ad16bd 100644 --- a/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap +++ b/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap @@ -48,7 +48,7 @@ CLASS zcl_abapgit_repo_item_state IMPLEMENTATION. METHOD is_unchanged. - rv_is_unchanged = boolc( mv_is_reassigned = abap_false + rv_is_unchanged = xsdbool( mv_is_reassigned = abap_false AND mv_lstate = zif_abapgit_definitions=>c_state-unchanged AND mv_rstate = zif_abapgit_definitions=>c_state-unchanged ). ENDMETHOD. @@ -86,7 +86,7 @@ CLASS zcl_abapgit_repo_item_state IMPLEMENTATION. mv_rstate = reduce( iv_prev = mv_rstate iv_cur = is_repo_item-rstate ). - mv_is_reassigned = boolc( mv_is_reassigned = abap_true OR is_repo_item-packmove = abap_true ). + mv_is_reassigned = xsdbool( mv_is_reassigned = abap_true OR is_repo_item-packmove = abap_true ). ENDMETHOD. @@ -99,7 +99,7 @@ CLASS zcl_abapgit_repo_item_state IMPLEMENTATION. mv_rstate = reduce( iv_prev = mv_rstate iv_cur = is_status_item-rstate ). - mv_is_reassigned = boolc( mv_is_reassigned = abap_true OR is_status_item-packmove = abap_true ). + mv_is_reassigned = xsdbool( mv_is_reassigned = abap_true OR is_status_item-packmove = abap_true ). ENDMETHOD. ENDCLASS. diff --git a/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap b/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap index 477f0ec8f..272d338c7 100644 --- a/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap +++ b/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap @@ -13,7 +13,7 @@ CLASS ltcl_state_test IMPLEMENTATION. DATA ls_item TYPE zif_abapgit_definitions=>ty_result. DATA lo_cut TYPE REF TO zcl_abapgit_repo_item_state. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). cl_abap_unit_assert=>assert_equals( act = lo_cut->local( ) @@ -123,7 +123,7 @@ CLASS ltcl_state_test IMPLEMENTATION. DATA ls_item TYPE zif_abapgit_definitions=>ty_repo_item. DATA lo_cut TYPE REF TO zcl_abapgit_repo_item_state. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). cl_abap_unit_assert=>assert_equals( act = lo_cut->local( ) diff --git a/src/repo/utils/zcl_abapgit_repo_news.clas.abap b/src/repo/utils/zcl_abapgit_repo_news.clas.abap index 875c75b47..3ddbe6f92 100644 --- a/src/repo/utils/zcl_abapgit_repo_news.clas.abap +++ b/src/repo/utils/zcl_abapgit_repo_news.clas.abap @@ -157,11 +157,9 @@ CLASS zcl_abapgit_repo_news IMPLEMENTATION. LOOP AT lt_remote ASSIGNING WHERE path = lc_log_path AND ( filename CP lc_log_filename OR filename CP lc_log_filename_up ). - CREATE OBJECT ro_instance - EXPORTING - iv_rawdata = -data - iv_current_version = lv_version - iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ). + ro_instance = NEW #( iv_rawdata = -data + iv_current_version = lv_version + iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ) ). EXIT. @@ -183,24 +181,24 @@ CLASS zcl_abapgit_repo_news IMPLEMENTATION. METHOD has_important. READ TABLE mt_log WITH KEY is_important = abap_true TRANSPORTING NO FIELDS. - rv_boolean = boolc( sy-subrc IS INITIAL ). + rv_boolean = xsdbool( sy-subrc IS INITIAL ). ENDMETHOD. METHOD has_news. - rv_boolean = boolc( lines( mt_log ) > 0 ). + rv_boolean = xsdbool( lines( mt_log ) > 0 ). ENDMETHOD. METHOD has_unseen. - rv_boolean = boolc( zcl_abapgit_version=>compare( + rv_boolean = xsdbool( zcl_abapgit_version=>compare( iv_a = mv_latest_version iv_b = mv_lastseen_version ) > 0 ). ENDMETHOD. METHOD has_updates. - rv_boolean = boolc( zcl_abapgit_version=>compare( + rv_boolean = xsdbool( zcl_abapgit_version=>compare( iv_a = mv_latest_version iv_b = mv_current_version ) > 0 ). ENDMETHOD. @@ -279,7 +277,7 @@ CLASS zcl_abapgit_repo_news IMPLEMENTATION. iv_b = iv_current_version ). ELSE. FIND FIRST OCCURRENCE OF REGEX '^\s*!' IN iv_line. - rs_log-is_important = boolc( sy-subrc IS INITIAL ). " Change is important + rs_log-is_important = xsdbool( sy-subrc IS INITIAL ). " Change is important ENDIF. rs_log-text = iv_line. diff --git a/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap b/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap index fac2c0c4c..eef570087 100644 --- a/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap +++ b/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap @@ -152,7 +152,7 @@ CLASS ltcl_news IMPLEMENTATION. DATA lo_log_entries TYPE REF TO lcl_log_entries. " Generate test data - CREATE OBJECT lo_src_text_buf. + lo_src_text_buf = NEW #( ). lo_src_text_buf->add( '======' ). lo_src_text_buf->add( '------' ). lo_src_text_buf->add( ` ` ). @@ -169,7 +169,7 @@ CLASS ltcl_news IMPLEMENTATION. " Case 1 " Generate expected results - CREATE OBJECT lo_log_entries. + lo_log_entries = NEW #( ). " VERSION HEAD IMP POS TEXT lo_log_entries->add( '1.28.0 /X / /1 /2017-02-13 v1.28.0' ). lo_log_entries->add( '1.28.0 / / /0 /+ Staging page redesigned' ). @@ -187,7 +187,7 @@ CLASS ltcl_news IMPLEMENTATION. " Case 2 (exect version match) - CREATE OBJECT lo_log_entries. + lo_log_entries = NEW #( ). " VERSION HEAD IMP UPD TEXT lo_log_entries->add( '1.28.0 /X / /1 /2017-02-13 v1.28.0' ). lo_log_entries->add( '1.28.0 / / /0 /+ Staging page redesigned' ). @@ -202,7 +202,7 @@ CLASS ltcl_news IMPLEMENTATION. msg = ' Error during parsing: Case 2.' ). " Case 3 (display tail) - CREATE OBJECT lo_log_entries. + lo_log_entries = NEW #( ). " VERSION HEAD IMP UPD TEXT lo_log_entries->add( '1.28.0 /X / /0 /2017-02-13 v1.28.0' ). lo_log_entries->add( '1.28.0 / / /0 /+ Staging page redesigned' ). diff --git a/src/repo/utils/zcl_abapgit_zip.clas.abap b/src/repo/utils/zcl_abapgit_zip.clas.abap index e6275549d..e399f761d 100644 --- a/src/repo/utils/zcl_abapgit_zip.clas.abap +++ b/src/repo/utils/zcl_abapgit_zip.clas.abap @@ -88,7 +88,7 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. FIELD-SYMBOLS: LIKE LINE OF it_files. - CREATE OBJECT lo_zip. + lo_zip = NEW #( ). LOOP AT it_files ASSIGNING . CONCATENATE -file-path+1 -file-filename INTO lv_filename. @@ -107,17 +107,15 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. DATA lt_zip TYPE zif_abapgit_definitions=>ty_files_item_tt. DATA lo_serialize TYPE REF TO zcl_abapgit_serialize. - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). li_log->set_title( 'Zip Export Log' ). IF zcl_abapgit_factory=>get_sap_package( iv_package )->exists( ) = abap_false. zcx_abapgit_exception=>raise( |Package { iv_package } doesn't exist| ). ENDIF. - CREATE OBJECT lo_serialize - EXPORTING - io_dot_abapgit = io_dot_abapgit - is_local_settings = is_local_settings. + lo_serialize = NEW #( io_dot_abapgit = io_dot_abapgit + is_local_settings = is_local_settings ). lt_zip = lo_serialize->files_local( iv_package = iv_package @@ -315,7 +313,7 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. LIKE LINE OF rt_files. - CREATE OBJECT lo_zip. + lo_zip = NEW #( ). lo_zip->load( EXPORTING zip = iv_xstr EXCEPTIONS diff --git a/src/repo/zcl_abapgit_dot_abapgit.clas.abap b/src/repo/zcl_abapgit_dot_abapgit.clas.abap index cea1dc0b6..db8ee9264 100644 --- a/src/repo/zcl_abapgit_dot_abapgit.clas.abap +++ b/src/repo/zcl_abapgit_dot_abapgit.clas.abap @@ -170,9 +170,7 @@ CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION. ls_data-starting_folder = '/src/'. ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix. - CREATE OBJECT ro_dot_abapgit - EXPORTING - is_data = ls_data. + ro_dot_abapgit = NEW #( is_data = ls_data ). ENDMETHOD. @@ -192,9 +190,7 @@ CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION. ls_data = from_xml( lv_xml ). - CREATE OBJECT ro_dot_abapgit - EXPORTING - is_data = ls_data. + ro_dot_abapgit = NEW #( is_data = ls_data ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo.clas.abap b/src/repo/zcl_abapgit_repo.clas.abap index b24ecf3d4..9df77bd70 100644 --- a/src/repo/zcl_abapgit_repo.clas.abap +++ b/src/repo/zcl_abapgit_repo.clas.abap @@ -205,9 +205,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. DATA lo_abapgit_abap_language_vers TYPE REF TO zcl_abapgit_abap_language_vers. DATA lv_text TYPE string. - CREATE OBJECT lo_abapgit_abap_language_vers - EXPORTING - io_dot_abapgit = get_dot_abapgit( ). + lo_abapgit_abap_language_vers = NEW #( io_dot_abapgit = get_dot_abapgit( ) ). IF lo_abapgit_abap_language_vers->is_import_allowed( ms_data-package ) = abap_false. lv_text = |Repository cannot be imported. | && @@ -272,7 +270,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD create_new_log. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). mi_log->set_title( iv_title ). ri_log = mi_log. @@ -370,7 +368,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. + ri_config = NEW zcl_abapgit_data_config( ). mi_data_config = ri_config. " Assume remote data has been loaded already @@ -470,7 +468,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. CLEAR lt_tadir. INSERT ls_tadir INTO TABLE lt_tadir. - CREATE OBJECT lo_serialize. + lo_serialize = NEW #( ). lt_new_local_files = lo_serialize->serialize( iv_package = ms_data-package it_tadir = lt_tadir ). @@ -679,9 +677,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~checksums. - CREATE OBJECT ri_checksums TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = ms_data-key. + ri_checksums = NEW zcl_abapgit_repo_checksums( iv_repo_key = ms_data-key ). ENDMETHOD. @@ -781,9 +777,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~get_dot_abapgit. - CREATE OBJECT ro_dot_abapgit - EXPORTING - is_data = ms_data-dot_abapgit. + ro_dot_abapgit = NEW #( is_data = ms_data-dot_abapgit ). ENDMETHOD. @@ -797,10 +791,8 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_serialize - EXPORTING - io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ). + lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ) ). rt_files = lo_serialize->files_local( iv_package = get_package( ) @@ -821,10 +813,8 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt. - CREATE OBJECT lo_serialize - EXPORTING - io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ). + lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ) ). lt_filter = ii_obj_filter->get_filter( ). @@ -853,7 +843,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. IF ii_obj_filter IS NOT INITIAL. lt_filter = ii_obj_filter->get_filter( ). - CREATE OBJECT lr_filter. + lr_filter = NEW #( ). lr_filter->apply_object_filter( EXPORTING it_filter = lt_filter @@ -907,7 +897,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~has_remote_source. - rv_yes = boolc( lines( mt_remote ) > 0 ). + rv_yes = xsdbool( lines( mt_remote ) > 0 ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo.clas.testclasses.abap b/src/repo/zcl_abapgit_repo.clas.testclasses.abap index fb92cc1af..3ad6e045d 100644 --- a/src/repo/zcl_abapgit_repo.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo.clas.testclasses.abap @@ -64,9 +64,7 @@ CLASS ltcl_find_remote_dot_abapgit IMPLEMENTATION. ls_data-key = c_dummy_repo_key. " online/offline doesn't matter... - CREATE OBJECT mo_repo TYPE zcl_abapgit_repo_offline - EXPORTING - is_data = ls_data. + mo_repo = NEW zcl_abapgit_repo_offline( is_data = ls_data ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap index 3b91ca498..53dc36b18 100644 --- a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap @@ -364,15 +364,13 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA li_cut TYPE REF TO zif_abapgit_repo_checksums. DATA lt_checksums_exp TYPE zif_abapgit_persistence=>ty_local_checksum_tt. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). ltcl_test_checksum_serializer=>get_mock( IMPORTING et_checksums = lt_checksums_exp ). - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). cl_abap_unit_assert=>assert_equals( act = li_cut->get( ) @@ -388,27 +386,25 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_r_builder TYPE REF TO lcl_remote_file_builder. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - CREATE OBJECT lo_l_builder. + lo_l_builder = NEW #( ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.abap hash1' ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.xml hash2' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). lo_mock->mt_local_files = lo_l_builder->mt_tab. " Remote - CREATE OBJECT lo_r_builder. + lo_r_builder = NEW #( ). lo_r_builder->add( '/ zhello.prog.abap hash1' ). lo_r_builder->add( '/ zhello.prog.xml hash2' ). lo_r_builder->add( '/ $pkg.devc.xml hash3' ). lo_mock->mt_remote_files = lo_r_builder->mt_tab. - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). li_cut->rebuild( ). @@ -435,18 +431,16 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lv_cs_exp TYPE string. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). - CREATE OBJECT lo_f_builder. + lo_f_builder = NEW #( ). lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). li_cut->update( lo_f_builder->mt_tab ). @@ -492,27 +486,25 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_r_builder TYPE REF TO lcl_remote_file_builder. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - CREATE OBJECT lo_l_builder. + lo_l_builder = NEW #( ). lo_l_builder->add( '@ @ @ / .abapgit.xml hashZ' ). lo_l_builder->add( '@ @ @ / .gitignore whatever' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). lo_mock->mt_local_files = lo_l_builder->mt_tab. " Remote - CREATE OBJECT lo_r_builder. + lo_r_builder = NEW #( ). lo_r_builder->add( '/ .abapgit.xml hashZ' ). lo_r_builder->add( '/ .gitignore whatever' ). lo_r_builder->add( '/ $pkg.devc.xml hash3' ). lo_mock->mt_remote_files = lo_r_builder->mt_tab. - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). li_cut->rebuild( ). @@ -555,11 +547,11 @@ CLASS ltcl_update_calculator_test IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - CREATE OBJECT lo_f_builder. + lo_f_builder = NEW #( ). lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - CREATE OBJECT lo_l_builder. + lo_l_builder = NEW #( ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.abap hash1' ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.xml hash2' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). diff --git a/src/repo/zcl_abapgit_repo_content_list.clas.abap b/src/repo/zcl_abapgit_repo_content_list.clas.abap index 70a7233cc..76b4deec4 100644 --- a/src/repo/zcl_abapgit_repo_content_list.clas.abap +++ b/src/repo/zcl_abapgit_repo_content_list.clas.abap @@ -92,7 +92,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. ls_folder-path = -path. ls_folder-sortkey = c_sortkey-dir. " Directory ls_folder-is_dir = abap_true. - CREATE OBJECT lo_state. + lo_state = NEW #( ). ENDAT. ls_folder-changes = ls_folder-changes + -changes. @@ -136,12 +136,12 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. -changes = 0. -path = -path. -srcsystem = -srcsystem. - CREATE OBJECT lo_state. + lo_state = NEW #( ). ENDAT. IF -filename IS NOT INITIAL. MOVE-CORRESPONDING TO ls_file. - ls_file-is_changed = boolc( -match = abap_false ). " TODO refactor + ls_file-is_changed = xsdbool( -match = abap_false ). " TODO refactor APPEND ls_file TO -files. IF -inactive = abap_true AND -sortkey > c_sortkey-changed. @@ -204,7 +204,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. METHOD constructor. mo_repo = io_repo. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_cs_migration.clas.abap b/src/repo/zcl_abapgit_repo_cs_migration.clas.abap index 6dd5f1ac5..87e6488b1 100644 --- a/src/repo/zcl_abapgit_repo_cs_migration.clas.abap +++ b/src/repo/zcl_abapgit_repo_cs_migration.clas.abap @@ -71,7 +71,7 @@ CLASS ZCL_ABAPGIT_REPO_CS_MIGRATION IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_cs EXPORTING iv_repo_key = iv_repo_key. + lo_cs = NEW #( iv_repo_key = iv_repo_key ). lo_cs->force_write( ls_repo_extract-local_checksums ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_srv.clas.abap b/src/repo/zcl_abapgit_repo_srv.clas.abap index 7d8e3191f..ccd51407e 100644 --- a/src/repo/zcl_abapgit_repo_srv.clas.abap +++ b/src/repo/zcl_abapgit_repo_srv.clas.abap @@ -114,7 +114,7 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD get_instance. IF gi_ref IS INITIAL. - CREATE OBJECT gi_ref TYPE zcl_abapgit_repo_srv. + gi_ref = NEW zcl_abapgit_repo_srv( ). ENDIF. ri_srv = gi_ref. ENDMETHOD. @@ -128,13 +128,9 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD instantiate_and_add. IF is_repo_meta-offline = abap_false. - CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_online - EXPORTING - is_data = is_repo_meta. + ri_repo = NEW zcl_abapgit_repo_online( is_data = is_repo_meta ). ELSE. - CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_offline - EXPORTING - is_data = is_repo_meta. + ri_repo = NEW zcl_abapgit_repo_offline( is_data = is_repo_meta ). ENDIF. add( ri_repo ). diff --git a/src/repo/zcl_abapgit_repo_status.clas.abap b/src/repo/zcl_abapgit_repo_status.clas.abap index 533bef8f5..f542c40e8 100644 --- a/src/repo/zcl_abapgit_repo_status.clas.abap +++ b/src/repo/zcl_abapgit_repo_status.clas.abap @@ -136,7 +136,7 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. rs_result-path = is_local-file-path. rs_result-filename = is_local-file-filename. - rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ). + rs_result-match = xsdbool( is_local-file-sha1 = is_remote-sha1 ). IF rs_result-match = abap_true. RETURN. ENDIF. @@ -288,10 +288,8 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. ct_local = lt_local ct_remote = lt_remote ). - CREATE OBJECT lo_instance - EXPORTING - iv_root_package = ii_repo->get_package( ) - io_dot = ii_repo->get_dot_abapgit( ). + lo_instance = NEW #( iv_root_package = ii_repo->get_package( ) + io_dot = ii_repo->get_dot_abapgit( ) ). rt_results = lo_instance->calculate_status( it_local = lt_local @@ -300,10 +298,8 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. IF ii_log IS BOUND. " This method just adds messages to the log. No log, nothing to do here - CREATE OBJECT lo_consistency_checks - EXPORTING - iv_root_package = ii_repo->get_package( ) - io_dot = ii_repo->get_dot_abapgit( ). + lo_consistency_checks = NEW #( iv_root_package = ii_repo->get_package( ) + io_dot = ii_repo->get_dot_abapgit( ) ). ii_log->merge_with( lo_consistency_checks->run_checks( rt_results ) ). ENDIF. diff --git a/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap b/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap index 938bab5f4..69e5d4b91 100644 --- a/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap +++ b/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap @@ -65,7 +65,7 @@ CLASS lcl_status_consistency_checks IMPLEMENTATION. METHOD run_checks. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). " Find all objects which were assigned to a different package check_package_move( it_results ). diff --git a/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap b/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap index b4a6be9af..4af21c2cb 100644 --- a/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap @@ -118,7 +118,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_sap_namespace~exists. - rv_yes = boolc( iv_namespace <> 'NOTEXIST' ). + rv_yes = xsdbool( iv_namespace <> 'NOTEXIST' ). ENDMETHOD. METHOD zif_abapgit_sap_namespace~is_editable. @@ -149,7 +149,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. METHOD setup. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). mo_dot->set_starting_folder( '/' ). " assumed by unit tests @@ -162,10 +162,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. zcl_abapgit_injector=>set_sap_namespace( me ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '$Z$' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '$Z$' + io_dot = mo_dot ). ENDMETHOD. @@ -505,10 +503,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '#notexist#zclass1.clas.xml' ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot ). mi_log = mo_instance->run_checks( mt_results ). @@ -534,10 +530,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '(notexist)zclass1.clas.json' ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot ). mi_log = mo_instance->run_checks( mt_results ). @@ -571,10 +565,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '' iv_filename = 'package.devc.xml' ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '$MAIN' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '$MAIN' + io_dot = mo_dot ). mi_log = mo_instance->run_checks( mt_results ). @@ -779,19 +771,15 @@ CLASS ltcl_status_helper IMPLEMENTATION. lo_dot = zcl_abapgit_dot_abapgit=>build_default( ). lo_dot->set_starting_folder( '/' ). " assumed by unit tests - CREATE OBJECT lo_instance - EXPORTING - iv_root_package = iv_devclass - io_dot = lo_dot. + lo_instance = NEW #( iv_root_package = iv_devclass + io_dot = lo_dot ). lt_results = lo_instance->calculate_status( it_local = mt_local it_remote = mt_remote it_cur_state = mt_state ). - CREATE OBJECT ro_result - EXPORTING - it_results = lt_results. + ro_result = NEW #( it_results = lt_results ). ENDMETHOD. @@ -832,7 +820,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). zcl_abapgit_injector=>set_tadir( mo_helper ). ENDMETHOD. @@ -932,7 +920,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD diff. " Modified both - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -960,7 +948,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-modified ). " Modified local only - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -988,7 +976,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-unchanged ). " Modified remote only - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' diff --git a/src/syntax/zcl_abapgit_syntax_abap.clas.abap b/src/syntax/zcl_abapgit_syntax_abap.clas.abap index da17dce0f..ddb4c1aac 100644 --- a/src/syntax/zcl_abapgit_syntax_abap.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_abap.clas.abap @@ -206,7 +206,7 @@ CLASS ZCL_ABAPGIT_SYNTAX_ABAP IMPLEMENTATION. lv_str = to_upper( iv_chunk ). READ TABLE gt_keywords WITH KEY table_line = lv_str TRANSPORTING NO FIELDS. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap index 2f258d464..5e4e5a283 100644 --- a/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap @@ -17,7 +17,7 @@ CLASS ltcl_abapgit_syntax_abap IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. @@ -64,7 +64,7 @@ ENDCLASS. CLASS ltcl_syntax_basic_logic IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_syntax_highlighter. + mo_syntax_highlighter = NEW #( ). ENDMETHOD. METHOD format_line. @@ -182,7 +182,7 @@ CLASS ltcl_syntax_cases IMPLEMENTATION. lo_syntax TYPE REF TO zcl_abapgit_syntax_abap. - CREATE OBJECT lo_syntax. + lo_syntax = NEW #( ). lt_matches_act = lo_syntax->parse_line( iv_line ). SORT lt_matches_act BY offset. diff --git a/src/syntax/zcl_abapgit_syntax_css.clas.abap b/src/syntax/zcl_abapgit_syntax_css.clas.abap index 30bad99b2..5d16feeef 100644 --- a/src/syntax/zcl_abapgit_syntax_css.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_css.clas.abap @@ -365,7 +365,7 @@ CLASS zcl_abapgit_syntax_css IMPLEMENTATION. lv_str = to_lower( iv_chunk ). READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_factory.clas.abap b/src/syntax/zcl_abapgit_syntax_factory.clas.abap index f24868e77..3f78edb35 100644 --- a/src/syntax/zcl_abapgit_syntax_factory.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_factory.clas.abap @@ -24,17 +24,17 @@ CLASS zcl_abapgit_syntax_factory IMPLEMENTATION. " Create instance of highlighter dynamically dependent on syntax type IF iv_filename CP '*.abap'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_abap. + ro_instance = NEW zcl_abapgit_syntax_abap( ). ELSEIF iv_filename CP '*.xml' OR iv_filename CP '*.html'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_xml. + ro_instance = NEW zcl_abapgit_syntax_xml( ). ELSEIF iv_filename CP '*.css'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_css. + ro_instance = NEW zcl_abapgit_syntax_css( ). ELSEIF iv_filename CP '*.js'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_js. + ro_instance = NEW zcl_abapgit_syntax_js( ). ELSEIF iv_filename CP '*.json' OR iv_filename CP '*.jsonc'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_json. + ro_instance = NEW zcl_abapgit_syntax_json( ). ELSEIF iv_filename CP '*.txt' OR iv_filename CP '*.ini' OR iv_filename CP '*.text'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_txt. + ro_instance = NEW zcl_abapgit_syntax_txt( ). ELSE. CLEAR ro_instance. ENDIF. diff --git a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap index 6507128e6..8bd1501bb 100644 --- a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap @@ -93,10 +93,8 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. DATA ls_rule LIKE LINE OF mt_rules. IF NOT iv_regex IS INITIAL. - CREATE OBJECT ls_rule-regex - EXPORTING - pattern = iv_regex - ignore_case = abap_true. + ls_rule-regex = NEW #( pattern = iv_regex + ignore_case = abap_true ). ENDIF. ls_rule-token = iv_token. @@ -194,7 +192,7 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. "/^\s+$/ lv_whitespace = ` ` && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. - rv_result = boolc( iv_string CO lv_whitespace ). + rv_result = xsdbool( iv_string CO lv_whitespace ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_js.clas.abap b/src/syntax/zcl_abapgit_syntax_js.clas.abap index 862def9bd..93d6f417d 100644 --- a/src/syntax/zcl_abapgit_syntax_js.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_js.clas.abap @@ -174,7 +174,7 @@ CLASS zcl_abapgit_syntax_js IMPLEMENTATION. lv_str = to_lower( iv_chunk ). READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap index dd12c12fd..d4141262c 100644 --- a/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap @@ -19,7 +19,7 @@ CLASS ltcl_abapgit_syntax_json IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap index 587c5d464..37a3e4fc4 100644 --- a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap @@ -24,7 +24,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. @@ -121,7 +121,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. act = mo_cut->process_line( |