From 0a99efb74013392e5295509897cd7f3aba943feb Mon Sep 17 00:00:00 2001 From: CI Date: Fri, 4 Oct 2024 18:17:42 +0000 Subject: [PATCH] update base --- .../zcl_abapgit_apack_migration.clas.abap | 6 +- src/apack/zcl_abapgit_apack_reader.clas.abap | 6 +- src/apack/zcl_abapgit_apack_writer.clas.abap | 2 +- ...abapgit_apack_writer.clas.testclasses.abap | 6 +- .../zcl_abapgit_background.clas.abap | 4 +- .../zcl_abapgit_background_push_au.clas.abap | 4 +- .../zcl_abapgit_background_push_fi.clas.abap | 2 +- src/cts/zcl_abapgit_cts_api.clas.abap | 6 +- src/cts/zcl_abapgit_transport.clas.abap | 4 +- .../zcl_abapgit_transport_2_branch.clas.abap | 6 +- src/cts/zcl_abapgit_transport_mass.clas.abap | 4 +- ...it_transport_objects.clas.testclasses.abap | 6 +- ..._abapgit_data_config.clas.testclasses.abap | 6 +- ...it_data_deserializer.clas.testclasses.abap | 10 +- src/data/zcl_abapgit_data_factory.clas.abap | 8 +- ...pgit_data_serializer.clas.testclasses.abap | 4 +- ...apgit_data_supporter.clas.testclasses.abap | 4 +- ...t_abap_language_vers.clas.testclasses.abap | 10 +- src/env/zcl_abapgit_environment.clas.abap | 4 +- ..._abapgit_environment.clas.testclasses.abap | 2 +- src/env/zcl_abapgit_feature.clas.abap | 4 +- .../zcl_abapgit_feature.clas.testclasses.abap | 2 +- src/env/zcl_abapgit_settings.clas.abap | 4 +- src/env/zcl_abapgit_user_record.clas.abap | 4 +- src/exits/zcl_abapgit_exit.clas.abap | 4 +- .../v2/zcl_abapgit_gitv2_porcelain.clas.abap | 4 +- ...bapgit_git_add_patch.clas.testclasses.abap | 4 +- src/git/zcl_abapgit_git_commit.clas.abap | 2 +- src/git/zcl_abapgit_git_factory.clas.abap | 4 +- src/git/zcl_abapgit_git_pack.clas.abap | 4 +- ...zcl_abapgit_git_pack.clas.testclasses.abap | 2 +- src/git/zcl_abapgit_git_transport.clas.abap | 4 +- ...cl_abapgit_git_utils.clas.testclasses.abap | 2 +- src/git/zlib/zcl_abapgit_zlib.clas.abap | 24 +- ...abapgit_zlib_convert.clas.testclasses.abap | 2 +- ...abapgit_zlib_huffman.clas.testclasses.abap | 8 +- ..._abapgit_zlib_stream.clas.testclasses.abap | 4 +- .../zcl_abapgit_git_url.clas.testclasses.abap | 2 +- .../zcl_abapgit_pr_enumerator.clas.abap | 8 +- src/http/zcl_abapgit_http.clas.abap | 16 +- src/http/zcl_abapgit_http_agent.clas.abap | 6 +- ...cl_abapgit_http_agent.clas.locals_imp.abap | 6 +- .../zcl_abapgit_code_inspector.clas.abap | 4 +- .../zcl_abapgit_where_used_tools.clas.abap | 2 +- src/json/zcl_abapgit_ajson.clas.abap | 50 ++-- .../zcl_abapgit_ajson.clas.locals_imp.abap | 14 +- .../zcl_abapgit_ajson.clas.testclasses.abap | 276 +++++++++--------- .../zcl_abapgit_ajson_filter_lib.clas.abap | 14 +- ...pgit_ajson_filter_lib.clas.locals_imp.abap | 6 +- src/json/zcl_abapgit_ajson_mapping.clas.abap | 34 ++- ...abapgit_ajson_mapping.clas.locals_imp.abap | 4 +- .../zcl_abapgit_ajson_utilities.clas.abap | 6 +- ...pgit_ajson_utilities.clas.testclasses.abap | 24 +- src/json/zcx_abapgit_ajson_error.clas.abap | 2 +- ...abapgit_aff_registry.clas.testclasses.abap | 2 +- .../aff/zcl_abapgit_json_handler.clas.abap | 2 +- ..._abapgit_json_handler.clas.locals_imp.abap | 4 +- .../aff/zcl_abapgit_json_path.clas.abap | 2 +- ...zcl_abapgit_json_path.clas.locals_imp.abap | 10 +- ...cl_abapgit_json_path.clas.testclasses.abap | 8 +- .../zcl_abapgit_object_common_aff.clas.abap | 2 +- ...it_object_common_aff.clas.testclasses.abap | 6 +- ...abapgit_dependencies.clas.testclasses.abap | 4 +- .../zcl_abapgit_file_deserialize.clas.abap | 2 +- ...git_file_deserialize.clas.testclasses.abap | 6 +- .../core/zcl_abapgit_filename_logic.clas.abap | 10 +- ...apgit_filename_logic.clas.testclasses.abap | 4 +- .../core/zcl_abapgit_folder_logic.clas.abap | 2 +- ...abapgit_folder_logic.clas.testclasses.abap | 2 +- .../core/zcl_abapgit_item_graph.clas.abap | 2 +- ...l_abapgit_item_graph.clas.testclasses.abap | 4 +- .../zcl_abapgit_objects_activation.clas.abap | 12 +- ...t_objects_activation.clas.testclasses.abap | 2 +- ...bapgit_objects_check.clas.testclasses.abap | 2 +- .../core/zcl_abapgit_objects_files.clas.abap | 17 +- .../core/zcl_abapgit_serialize.clas.abap | 10 +- ...cl_abapgit_serialize.clas.testclasses.abap | 36 ++- .../zcl_abapgit_ecatt_data_upload.clas.abap | 6 +- .../ecatt/zcl_abapgit_ecatt_helper.clas.abap | 4 +- .../zcl_abapgit_object_enho_hook.clas.abap | 2 +- .../jump/zcl_abapgit_adt_link.clas.abap | 2 +- .../jump/zcl_abapgit_gui_jumper.clas.abap | 6 +- src/objects/oo/zcl_abapgit_oo_base.clas.abap | 2 +- src/objects/oo/zcl_abapgit_oo_class.clas.abap | 2 +- .../oo/zcl_abapgit_oo_factory.clas.abap | 8 +- .../oo/zcl_abapgit_oo_interface.clas.abap | 2 +- ...bapgit_oo_serializer.clas.testclasses.abap | 2 +- .../rules/zcl_abapgit_field_rules.clas.abap | 2 +- ..._abapgit_field_rules.clas.testclasses.abap | 2 +- .../sap/zcl_abapgit_function_module.clas.abap | 2 +- .../sap/zcl_abapgit_sap_namespace.clas.abap | 4 +- .../sap/zcl_abapgit_sap_package.clas.abap | 4 +- .../tabl/zcl_abapgit_object_tabl.clas.abap | 17 +- .../zcl_abapgit_object_tabl_compar.clas.abap | 2 +- ...pgit_object_tabl_ddl.clas.testclasses.abap | 4 +- .../texts/zcl_abapgit_i18n_params.clas.abap | 14 +- .../texts/zcl_abapgit_longtexts.clas.abap | 2 +- ...cl_abapgit_longtexts.clas.testclasses.abap | 2 +- .../texts/zcl_abapgit_lxe_texts.clas.abap | 6 +- .../texts/zcl_abapgit_po_file.clas.abap | 4 +- .../zcl_abapgit_po_file.clas.testclasses.abap | 14 +- .../zcl_abapgit_properties_file.clas.abap | 2 +- ...pgit_properties_file.clas.testclasses.abap | 4 +- src/objects/zcl_abapgit_object_acid.clas.abap | 2 +- src/objects/zcl_abapgit_object_aqbg.clas.abap | 8 +- src/objects/zcl_abapgit_object_aqqu.clas.abap | 8 +- src/objects/zcl_abapgit_object_aqsg.clas.abap | 8 +- src/objects/zcl_abapgit_object_asfc.clas.abap | 6 +- src/objects/zcl_abapgit_object_auth.clas.abap | 6 +- src/objects/zcl_abapgit_object_avar.clas.abap | 2 +- src/objects/zcl_abapgit_object_avas.clas.abap | 6 +- src/objects/zcl_abapgit_object_char.clas.abap | 12 +- src/objects/zcl_abapgit_object_chdo.clas.abap | 2 +- src/objects/zcl_abapgit_object_cmod.clas.abap | 2 +- src/objects/zcl_abapgit_object_cus0.clas.abap | 2 +- src/objects/zcl_abapgit_object_cus1.clas.abap | 2 +- src/objects/zcl_abapgit_object_cus2.clas.abap | 2 +- src/objects/zcl_abapgit_object_ddls.clas.abap | 2 +- src/objects/zcl_abapgit_object_devc.clas.abap | 2 +- src/objects/zcl_abapgit_object_dial.clas.abap | 4 +- src/objects/zcl_abapgit_object_doct.clas.abap | 2 +- src/objects/zcl_abapgit_object_docv.clas.abap | 2 +- src/objects/zcl_abapgit_object_doma.clas.abap | 2 +- src/objects/zcl_abapgit_object_dsys.clas.abap | 4 +- src/objects/zcl_abapgit_object_dtel.clas.abap | 2 +- src/objects/zcl_abapgit_object_ecat.clas.abap | 4 +- src/objects/zcl_abapgit_object_ecsd.clas.abap | 4 +- src/objects/zcl_abapgit_object_ecsp.clas.abap | 4 +- src/objects/zcl_abapgit_object_ectc.clas.abap | 4 +- src/objects/zcl_abapgit_object_ectd.clas.abap | 4 +- src/objects/zcl_abapgit_object_ecvo.clas.abap | 4 +- src/objects/zcl_abapgit_object_enho.clas.abap | 36 ++- src/objects/zcl_abapgit_object_enhs.clas.abap | 4 +- src/objects/zcl_abapgit_object_enqu.clas.abap | 2 +- src/objects/zcl_abapgit_object_fdt0.clas.abap | 16 +- src/objects/zcl_abapgit_object_form.clas.abap | 6 +- src/objects/zcl_abapgit_object_fugr.clas.abap | 8 +- src/objects/zcl_abapgit_object_g4ba.clas.abap | 8 +- src/objects/zcl_abapgit_object_g4bs.clas.abap | 8 +- src/objects/zcl_abapgit_object_idoc.clas.abap | 4 +- src/objects/zcl_abapgit_object_iext.clas.abap | 2 +- src/objects/zcl_abapgit_object_intf.clas.abap | 4 +- ...l_abapgit_object_intf.clas.locals_imp.abap | 13 +- ..._abapgit_object_intf.clas.testclasses.abap | 16 +- src/objects/zcl_abapgit_object_iobj.clas.abap | 2 +- src/objects/zcl_abapgit_object_iwmo.clas.abap | 8 +- src/objects/zcl_abapgit_object_iwom.clas.abap | 8 +- src/objects/zcl_abapgit_object_iwpr.clas.abap | 8 +- src/objects/zcl_abapgit_object_iwsg.clas.abap | 8 +- src/objects/zcl_abapgit_object_iwsv.clas.abap | 8 +- src/objects/zcl_abapgit_object_iwvb.clas.abap | 8 +- src/objects/zcl_abapgit_object_msag.clas.abap | 2 +- src/objects/zcl_abapgit_object_nrob.clas.abap | 2 +- src/objects/zcl_abapgit_object_nspc.clas.abap | 4 +- src/objects/zcl_abapgit_object_oa2p.clas.abap | 2 +- src/objects/zcl_abapgit_object_odso.clas.abap | 2 +- src/objects/zcl_abapgit_object_otgr.clas.abap | 8 +- src/objects/zcl_abapgit_object_para.clas.abap | 2 +- ...l_abapgit_object_pdts.clas.locals_imp.abap | 4 +- ..._abapgit_object_pdts.clas.testclasses.abap | 6 +- .../zcl_abapgit_object_pdxx_super.clas.abap | 2 +- ...it_object_pdxx_super.clas.testclasses.abap | 12 +- src/objects/zcl_abapgit_object_pers.clas.abap | 2 +- src/objects/zcl_abapgit_object_pinf.clas.abap | 8 +- src/objects/zcl_abapgit_object_prog.clas.abap | 2 +- src/objects/zcl_abapgit_object_scp1.clas.abap | 2 +- src/objects/zcl_abapgit_object_scvi.clas.abap | 2 +- src/objects/zcl_abapgit_object_sfpf.clas.abap | 2 +- src/objects/zcl_abapgit_object_sfpi.clas.abap | 2 +- src/objects/zcl_abapgit_object_shi3.clas.abap | 2 +- src/objects/zcl_abapgit_object_shi5.clas.abap | 2 +- src/objects/zcl_abapgit_object_shlp.clas.abap | 2 +- src/objects/zcl_abapgit_object_shma.clas.abap | 2 +- src/objects/zcl_abapgit_object_sicf.clas.abap | 2 +- src/objects/zcl_abapgit_object_smim.clas.abap | 2 +- src/objects/zcl_abapgit_object_sobj.clas.abap | 10 +- src/objects/zcl_abapgit_object_splo.clas.abap | 2 +- src/objects/zcl_abapgit_object_sppf.clas.abap | 6 +- src/objects/zcl_abapgit_object_sprx.clas.abap | 2 +- src/objects/zcl_abapgit_object_sqsc.clas.abap | 10 +- src/objects/zcl_abapgit_object_srvb.clas.abap | 2 +- src/objects/zcl_abapgit_object_srvd.clas.abap | 2 +- src/objects/zcl_abapgit_object_ssfo.clas.abap | 8 +- src/objects/zcl_abapgit_object_ssst.clas.abap | 2 +- src/objects/zcl_abapgit_object_styl.clas.abap | 2 +- src/objects/zcl_abapgit_object_sucu.clas.abap | 6 +- src/objects/zcl_abapgit_object_susc.clas.abap | 2 +- src/objects/zcl_abapgit_object_sush.clas.abap | 2 +- src/objects/zcl_abapgit_object_suso.clas.abap | 2 +- src/objects/zcl_abapgit_object_sxci.clas.abap | 8 +- src/objects/zcl_abapgit_object_sxsd.clas.abap | 2 +- src/objects/zcl_abapgit_object_tobj.clas.abap | 4 +- src/objects/zcl_abapgit_object_tran.clas.abap | 4 +- ..._abapgit_object_tran.clas.testclasses.abap | 6 +- src/objects/zcl_abapgit_object_ttyp.clas.abap | 2 +- src/objects/zcl_abapgit_object_udmo.clas.abap | 2 +- src/objects/zcl_abapgit_object_ueno.clas.abap | 8 +- src/objects/zcl_abapgit_object_vcls.clas.abap | 4 +- src/objects/zcl_abapgit_object_view.clas.abap | 2 +- src/objects/zcl_abapgit_object_wapa.clas.abap | 2 +- src/objects/zcl_abapgit_object_wdca.clas.abap | 20 +- src/objects/zcl_abapgit_object_wdcc.clas.abap | 2 +- src/objects/zcl_abapgit_object_wdya.clas.abap | 8 +- src/objects/zcl_abapgit_object_wdyn.clas.abap | 12 +- src/objects/zcl_abapgit_object_webi.clas.abap | 2 +- src/objects/zcl_abapgit_object_xinx.clas.abap | 2 +- src/objects/zcl_abapgit_object_xslt.clas.abap | 2 +- src/objects/zcl_abapgit_objects.clas.abap | 29 +- .../zcl_abapgit_objects.clas.testclasses.abap | 6 +- .../zcl_abapgit_objects_factory.clas.abap | 2 +- .../zcl_abapgit_objects_generic.clas.abap | 2 +- ...pgit_objects_generic.clas.testclasses.abap | 36 ++- .../zcl_abapgit_objects_program.clas.abap | 4 +- ...pgit_objects_program.clas.testclasses.abap | 24 +- .../zcl_abapgit_persist_factory.clas.abap | 6 +- .../zcl_abapgit_persist_migrate.clas.abap | 6 +- ...apgit_persist_migrate.clas.locals_imp.abap | 8 +- .../zcl_abapgit_persist_packages.clas.abap | 6 +- .../zcl_abapgit_persist_settings.clas.abap | 2 +- .../zcl_abapgit_persistence_db.clas.abap | 2 +- .../zcl_abapgit_persistence_repo.clas.abap | 4 +- .../zcl_abapgit_persistence_user.clas.abap | 16 +- ...t_object_filter_tran.clas.testclasses.abap | 2 +- src/repo/stage/zcl_abapgit_merge.clas.abap | 12 +- .../zcl_abapgit_repo_item_state.clas.abap | 6 +- ...pgit_repo_item_state.clas.testclasses.abap | 4 +- .../utils/zcl_abapgit_repo_news.clas.abap | 18 +- ...cl_abapgit_repo_news.clas.testclasses.abap | 8 +- src/repo/utils/zcl_abapgit_zip.clas.abap | 12 +- src/repo/zcl_abapgit_dot_abapgit.clas.abap | 8 +- src/repo/zcl_abapgit_repo.clas.abap | 34 ++- .../zcl_abapgit_repo.clas.testclasses.abap | 4 +- ...apgit_repo_checksums.clas.testclasses.abap | 38 ++- .../zcl_abapgit_repo_content_list.clas.abap | 8 +- .../zcl_abapgit_repo_cs_migration.clas.abap | 2 +- src/repo/zcl_abapgit_repo_srv.clas.abap | 10 +- src/repo/zcl_abapgit_repo_status.clas.abap | 14 +- ...l_abapgit_repo_status.clas.locals_imp.abap | 2 +- ..._abapgit_repo_status.clas.testclasses.abap | 46 +-- src/syntax/zcl_abapgit_syntax_abap.clas.abap | 2 +- ..._abapgit_syntax_abap.clas.testclasses.abap | 6 +- src/syntax/zcl_abapgit_syntax_css.clas.abap | 2 +- .../zcl_abapgit_syntax_factory.clas.abap | 12 +- .../zcl_abapgit_syntax_highlighter.clas.abap | 8 +- src/syntax/zcl_abapgit_syntax_js.clas.abap | 2 +- ..._abapgit_syntax_json.clas.testclasses.abap | 2 +- ...l_abapgit_syntax_xml.clas.testclasses.abap | 6 +- .../zcl_abapgit_gui_page_template.clas.abap | 2 +- src/ui/core/zcl_abapgit_gui.clas.abap | 14 +- .../zcl_abapgit_gui_asset_manager.clas.abap | 2 +- .../zcl_abapgit_gui_css_processor.clas.abap | 4 +- ...it_gui_css_processor.clas.testclasses.abap | 4 +- src/ui/core/zcl_abapgit_gui_event.clas.abap | 12 +- ...cl_abapgit_gui_event.clas.testclasses.abap | 28 +- .../core/zcl_abapgit_gui_hotkey_ctl.clas.abap | 4 +- .../zcl_abapgit_gui_html_processor.clas.abap | 12 +- ...t_gui_html_processor.clas.testclasses.abap | 6 +- ...cl_abapgit_gui_utils.clas.testclasses.abap | 8 +- src/ui/core/zcl_abapgit_html.clas.abap | 10 +- .../zcl_abapgit_html.clas.testclasses.abap | 6 +- ...l_abapgit_html_parts.clas.testclasses.abap | 8 +- .../zcl_abapgit_html_viewer_gui.clas.abap | 6 +- src/ui/flow/zcl_abapgit_flow_exit.clas.abap | 2 +- .../flow/zcl_abapgit_gui_page_flow.clas.abap | 16 +- ...abapgit_gui_page_flow.clas.locals_imp.abap | 6 +- .../zcl_abapgit_exception_viewer.clas.abap | 4 +- .../lib/zcl_abapgit_gui_chunk_lib.clas.abap | 40 +-- ...bapgit_gui_chunk_lib.clas.testclasses.abap | 8 +- .../zcl_abapgit_gui_in_page_modal.clas.abap | 12 +- src/ui/lib/zcl_abapgit_gui_menus.clas.abap | 24 +- src/ui/lib/zcl_abapgit_gui_page.clas.abap | 20 +- src/ui/lib/zcl_abapgit_gui_page_hoc.clas.abap | 6 +- src/ui/lib/zcl_abapgit_gui_picklist.clas.abap | 4 +- src/ui/lib/zcl_abapgit_html_form.clas.abap | 4 +- .../lib/zcl_abapgit_html_form_utils.clas.abap | 20 +- ...pgit_html_form_utils.clas.testclasses.abap | 2 +- src/ui/lib/zcl_abapgit_html_table.clas.abap | 6 +- ...l_abapgit_html_table.clas.testclasses.abap | 8 +- src/ui/lib/zcl_abapgit_html_toolbar.clas.abap | 10 +- src/ui/lib/zcl_abapgit_log_viewer.clas.abap | 10 +- .../zcl_abapgit_gui_page_code_insp.clas.abap | 16 +- .../codi/zcl_abapgit_gui_page_runit.clas.abap | 6 +- .../zcl_abapgit_gui_page_syntax.clas.abap | 6 +- .../zcl_abapgit_gui_page_whereused.clas.abap | 8 +- .../db/zcl_abapgit_gui_page_db.clas.abap | 10 +- .../zcl_abapgit_gui_page_db_entry.clas.abap | 14 +- .../zcl_abapgit_gui_page_addofflin.clas.abap | 8 +- .../zcl_abapgit_gui_page_addonline.clas.abap | 10 +- .../zcl_abapgit_gui_page_sett_bckg.clas.abap | 14 +- .../zcl_abapgit_gui_page_sett_glob.clas.abap | 22 +- .../zcl_abapgit_gui_page_sett_info.clas.abap | 8 +- .../zcl_abapgit_gui_page_sett_locl.clas.abap | 26 +- .../zcl_abapgit_gui_page_sett_pers.clas.abap | 20 +- .../zcl_abapgit_gui_page_sett_remo.clas.abap | 16 +- ...t_gui_page_sett_remo.clas.testclasses.abap | 12 +- .../zcl_abapgit_gui_page_sett_repo.clas.abap | 16 +- .../zcl_abapgit_gui_page_commit.clas.abap | 18 +- .../pages/zcl_abapgit_gui_page_data.clas.abap | 18 +- .../zcl_abapgit_gui_page_debuginfo.clas.abap | 26 +- .../pages/zcl_abapgit_gui_page_diff.clas.abap | 10 +- .../zcl_abapgit_gui_page_diff_base.clas.abap | 66 +++-- .../zcl_abapgit_gui_page_ex_object.clas.abap | 8 +- .../zcl_abapgit_gui_page_ex_pckage.clas.abap | 8 +- .../zcl_abapgit_gui_page_merge.clas.abap | 18 +- .../zcl_abapgit_gui_page_merge_res.clas.abap | 30 +- .../zcl_abapgit_gui_page_merge_sel.clas.abap | 8 +- .../zcl_abapgit_gui_page_patch.clas.abap | 20 +- .../pages/zcl_abapgit_gui_page_pull.clas.abap | 14 +- .../zcl_abapgit_gui_page_repo_over.clas.abap | 24 +- .../zcl_abapgit_gui_page_repo_view.clas.abap | 52 ++-- .../zcl_abapgit_gui_page_run_bckg.clas.abap | 4 +- .../zcl_abapgit_gui_page_stage.clas.abap | 30 +- .../pages/zcl_abapgit_gui_page_tags.clas.abap | 10 +- .../zcl_abapgit_gui_page_tutorial.clas.abap | 6 +- .../zcl_abapgit_popup_branch_list.clas.abap | 16 +- .../zcl_abapgit_popup_code_insp.clas.abap | 10 +- .../zcl_abapgit_popup_pull_request.clas.abap | 12 +- .../zcl_abapgit_popup_tag_list.clas.abap | 12 +- .../progress/zcl_abapgit_progress.clas.abap | 2 +- .../routing/zcl_abapgit_gui_router.clas.abap | 6 +- .../zcl_abapgit_services_repo.clas.abap | 6 +- ...bapgit_services_repo.clas.testclasses.abap | 8 +- ...it_frontend_services.clas.testclasses.abap | 2 +- src/ui/zcl_abapgit_popups.clas.abap | 24 +- .../zcl_abapgit_popups.clas.locals_imp.abap | 8 +- src/ui/zcl_abapgit_ui_factory.clas.abap | 30 +- ...l_abapgit_ui_injector.clas.locals_imp.abap | 2 +- ..._abapgit_ui_injector.clas.testclasses.abap | 2 +- src/utils/zcl_abapgit_convert.clas.abap | 4 +- src/utils/zcl_abapgit_diff.clas.abap | 6 +- .../zcl_abapgit_diff.clas.testclasses.abap | 12 +- src/utils/zcl_abapgit_log.clas.abap | 4 +- .../zcl_abapgit_log.clas.testclasses.abap | 10 +- src/utils/zcl_abapgit_path.clas.abap | 4 +- src/utils/zcl_abapgit_string_buffer.clas.abap | 2 +- src/utils/zcl_abapgit_string_map.clas.abap | 8 +- src/utils/zcl_abapgit_timer.clas.abap | 6 +- src/utils/zcl_abapgit_utils.clas.abap | 4 +- src/xml/zcl_abapgit_xml.clas.testclasses.abap | 2 +- ...cl_abapgit_xml_input.clas.testclasses.abap | 26 +- ...l_abapgit_xml_output.clas.testclasses.abap | 4 +- src/xml/zcl_abapgit_xml_pretty.clas.abap | 2 +- ...l_abapgit_xml_pretty.clas.testclasses.abap | 2 +- src/zabapgit_forms.prog.abap | 4 +- src/zcl_abapgit_factory.clas.abap | 28 +- ...zcl_abapgit_injector.clas.testclasses.abap | 2 +- ...cx_abapgit_exception.clas.testclasses.abap | 10 +- 347 files changed, 1747 insertions(+), 1313 deletions(-) diff --git a/src/apack/zcl_abapgit_apack_migration.clas.abap b/src/apack/zcl_abapgit_apack_migration.clas.abap index b5092bd26..885b479af 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 = xsdbool( sy-subrc = 0 ). + rv_interface_exists = boolc( 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 = xsdbool( IS ASSIGNED + rv_interface_valid = boolc( 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. - lo_apack_migration = NEW #( ). + CREATE OBJECT lo_apack_migration. 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 8666bff74..9e15a5590 100644 --- a/src/apack/zcl_abapgit_apack_reader.clas.abap +++ b/src/apack/zcl_abapgit_apack_reader.clas.abap @@ -145,7 +145,9 @@ CLASS zcl_abapgit_apack_reader IMPLEMENTATION. IF sy-subrc <> 0. ls_instance-package = iv_package_name. - ls_instance-instance = NEW #( iv_package_name = iv_package_name ). + CREATE OBJECT ls_instance-instance + EXPORTING + iv_package_name = iv_package_name. INSERT ls_instance INTO TABLE gt_instances. ENDIF. @@ -245,7 +247,7 @@ CLASS zcl_abapgit_apack_reader IMPLEMENTATION. ls_returned_manifest = get_manifest_descriptor( ). - rv_has_manifest = xsdbool( ls_returned_manifest IS NOT INITIAL ). + rv_has_manifest = boolc( 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 7df13be47..b818ea887 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. - ro_manifest_writer = NEW #( is_apack_manifest_descriptor = is_apack_manifest_descriptor ). + CREATE OBJECT ro_manifest_writer EXPORTING 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 fdf8a58f5..bb70e1e31 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 = xsdbool( contains( val = lv_actual_xml + lv_bool = boolc( contains( val = lv_actual_xml sub = 'abapGit' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). - lv_bool = xsdbool( contains( val = lv_actual_xml + lv_bool = boolc( contains( val = lv_actual_xml sub = 'github.com/larshp' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). - lv_bool = xsdbool( contains( val = lv_actual_xml + lv_bool = boolc( 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 ddf9cdd96..e3f3c0aef 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. - lo_per = NEW #( ). + CREATE OBJECT lo_per. lt_list = lo_per->list( ). WRITE: / 'Background mode'. LOOP AT lt_list ASSIGNING . - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE 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 7fc6c808c..97e9c65a7 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 ). - lo_stage = NEW #( ). + CREATE OBJECT lo_stage. CLEAR ls_user_files. @@ -193,7 +193,7 @@ CLASS zcl_abapgit_background_push_au IMPLEMENTATION. ASSERT lines( is_files-remote ) > 0. - lo_stage = NEW #( ). + CREATE OBJECT lo_stage. 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 2fb0f36ff..d1d49911e 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. - lo_stage = NEW #( ). + CREATE OBJECT lo_stage. 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 48205a426..db06c840e 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 = xsdbool( lv_lock_flag <> space ). + rv_locked = boolc( lv_lock_flag <> space ). ENDMETHOD. @@ -191,7 +191,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. IMPORTING pe_result = lv_type_check_result. - rv_lockable = xsdbool( lv_type_check_result = 'L' ). + rv_lockable = boolc( 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 = xsdbool( lv_type_check_result CA 'RTL' ). + rv_transportable = boolc( 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 2e0f363ff..0dfc63b0f 100644 --- a/src/cts/zcl_abapgit_transport.clas.abap +++ b/src/cts/zcl_abapgit_transport.clas.abap @@ -305,7 +305,9 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION. lv_message TYPE string. FIELD-SYMBOLS: TYPE sprot_u. - li_log = NEW zcl_abapgit_log( iv_title = iv_title ). + CREATE OBJECT li_log TYPE zcl_abapgit_log + EXPORTING + 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 1cb67c59a..133cd3f05 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 ). - lo_stage = NEW #( ). + CREATE OBJECT lo_stage. ls_stage_objects = zcl_abapgit_factory=>get_stage_logic( )->get( io_repository ). @@ -76,7 +76,9 @@ CLASS zcl_abapgit_transport_2_branch IMPLEMENTATION. METHOD stage_transport_objects. DATA lo_transport_objects TYPE REF TO zcl_abapgit_transport_objects. - lo_transport_objects = NEW #( it_transport_objects = it_transport_objects ). + CREATE OBJECT lo_transport_objects + EXPORTING + 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 d7d65160e..4b1f10f74 100644 --- a/src/cts/zcl_abapgit_transport_mass.clas.abap +++ b/src/cts/zcl_abapgit_transport_mass.clas.abap @@ -40,7 +40,9 @@ CLASS zcl_abapgit_transport_mass IMPLEMENTATION. ENDIF. * Instantiate transport zipper object that will also create the timestamped output folder - lo_transport_zipper = NEW lcl_transport_zipper( iv_folder = lv_folder ). + CREATE OBJECT lo_transport_zipper TYPE lcl_transport_zipper + EXPORTING + 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 9cf409e57..a30d84e96 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. - mo_stage = NEW #( ). + CREATE OBJECT mo_stage. ENDMETHOD. METHOD add_new_to_local_files. @@ -308,7 +308,9 @@ CLASS ltcl_transport_objects IMPLEMENTATION. ENDMETHOD. METHOD when_staging. - mo_transport_objects = NEW #( it_transport_objects = mt_transport_objects ). + CREATE OBJECT mo_transport_objects + EXPORTING + 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 c3be633a0..291778a63 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. - li_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT li_config TYPE 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. - li_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT li_config TYPE 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. - li_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT li_config TYPE 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 4e15bb8e6..ce9da092b 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. - li_cut = NEW zcl_abapgit_data_deserializer( ). - li_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT li_cut TYPE zcl_abapgit_data_deserializer. + CREATE OBJECT li_config TYPE 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 . - li_cut = NEW zcl_abapgit_data_deserializer( ). + CREATE OBJECT li_cut TYPE 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 . - li_cut = NEW zcl_abapgit_data_deserializer( ). + CREATE OBJECT li_cut TYPE 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 . - li_cut = NEW zcl_abapgit_data_deserializer( ). + CREATE OBJECT li_cut TYPE 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 69a6acb6c..42533cffd 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. - ri_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. ENDMETHOD. METHOD get_deserializer. IF gi_deserializer IS INITIAL. - gi_deserializer = NEW zcl_abapgit_data_deserializer( ). + CREATE OBJECT gi_deserializer TYPE 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. - gi_serializer = NEW zcl_abapgit_data_serializer( ). + CREATE OBJECT gi_serializer TYPE 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. - gi_supporter = NEW zcl_abapgit_data_supporter( ). + CREATE OBJECT gi_supporter TYPE 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 bed13a762..8fa5c1caa 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. - mi_cut = NEW zcl_abapgit_data_serializer( ). - mi_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT mi_cut TYPE zcl_abapgit_data_serializer. + CREATE OBJECT mi_config TYPE 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 8066335ee..82c5a0d03 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 - lo_mock = NEW #( ). - lo_inject = NEW #( ). + CREATE OBJECT lo_mock. + CREATE OBJECT lo_inject. 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 a9e6702e1..ef1eb9011 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. - mo_settings = NEW #( ). + CREATE OBJECT mo_settings. ENDMETHOD. METHOD zif_abapgit_persist_settings~modify. @@ -129,10 +129,10 @@ ENDCLASS. CLASS ltcl_abap_language_version IMPLEMENTATION. METHOD setup. - mo_environment = NEW #( ). + CREATE OBJECT mo_environment. zcl_abapgit_injector=>set_environment( mo_environment ). - mi_persistency = NEW lcl_persist_settings( ). + CREATE OBJECT mi_persistency TYPE 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,7 +148,9 @@ 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 ). - mo_cut = NEW #( io_dot_abapgit = mo_dot_abapgit ). + CREATE OBJECT mo_cut + EXPORTING + 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 2fcc4e257..e9277f22f 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 = xsdbool( + rv_result = boolc( 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 = xsdbool( lines( lt_variscreens ) > 0 ). + rv_is_variant_maintenance = boolc( 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 da574c41c..b544e1195 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. - mi_cut = NEW zcl_abapgit_environment( ). + CREATE OBJECT mi_cut TYPE zcl_abapgit_environment. ENDMETHOD. diff --git a/src/env/zcl_abapgit_feature.clas.abap b/src/env/zcl_abapgit_feature.clas.abap index b1dc2a59b..0ce0f6ba6 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 = xsdbool( lv_features = abap_true ). + rv_run = boolc( 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 = xsdbool( rv_run = abap_true OR sy-subrc = 0 ). + rv_run = boolc( 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 39a90edae..006bafe09 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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 bda21eebd..f6738c3a1 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. - li_output = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_output TYPE 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. - lo_input = NEW zcl_abapgit_xml_input( iv_xml = iv_settings_xml ). + CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING 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 e4bd92e7f..ca51be4f4 100644 --- a/src/env/zcl_abapgit_user_record.clas.abap +++ b/src/env/zcl_abapgit_user_record.clas.abap @@ -151,7 +151,9 @@ CLASS zcl_abapgit_user_record IMPLEMENTATION. IF sy-subrc = 0. ro_user = -o_user. ELSE. - ro_user = NEW #( iv_user = iv_user ). + CREATE OBJECT ro_user + EXPORTING + 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 2c875ed8a..885cff57a 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. - gi_global_exit = NEW zcl_abapgit_exit( ). " this class + CREATE OBJECT gi_global_exit TYPE 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 = xsdbool( sy-subrc = 0 ). + rv_running_in_test_context = boolc( 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 da5599e72..05e98f106 100644 --- a/src/git/v2/zcl_abapgit_gitv2_porcelain.clas.abap +++ b/src/git/v2/zcl_abapgit_gitv2_porcelain.clas.abap @@ -185,7 +185,9 @@ 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 ) }|. - ro_list = NEW #( iv_data = lv_data ). + CREATE OBJECT ro_list + EXPORTING + 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 ba2975649..07782d2e1 100644 --- a/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap +++ b/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap @@ -667,7 +667,9 @@ CLASS ltcl_calculate_patch IMPLEMENTATION. DATA: lo_git_add_patch TYPE REF TO zcl_abapgit_git_add_patch. - lo_git_add_patch = NEW #( it_diff = mt_diff ). + CREATE OBJECT lo_git_add_patch + EXPORTING + 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 c076e83c7..34f5b5fdd 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 = xsdbool( sy-subrc <> 0 ). + rv_result = boolc( 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 bb745e144..c6f558f9e 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. - ri_v2 = NEW zcl_abapgit_gitv2_porcelain( ). + CREATE OBJECT ri_v2 TYPE zcl_abapgit_gitv2_porcelain. ENDMETHOD. METHOD get_git_transport. IF gi_git_transport IS INITIAL. - gi_git_transport = NEW zcl_abapgit_git_transport( ). + CREATE OBJECT gi_git_transport TYPE 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 52e850d4e..cdea8850f 100644 --- a/src/git/zcl_abapgit_git_pack.clas.abap +++ b/src/git/zcl_abapgit_git_pack.clas.abap @@ -523,7 +523,9 @@ CLASS zcl_abapgit_git_pack IMPLEMENTATION. FIELD-SYMBOLS: LIKE LINE OF ct_objects. - lo_stream = NEW #( iv_data = is_object-data ). + CREATE OBJECT lo_stream + EXPORTING + 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 1a0b65b0a..fcfe52e0b 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. - lo_progress_double = NEW ltcl_progress_double( ). + CREATE OBJECT lo_progress_double TYPE 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 b516c3dc6..60512203c 100644 --- a/src/git/zcl_abapgit_git_transport.clas.abap +++ b/src/git/zcl_abapgit_git_transport.clas.abap @@ -144,7 +144,9 @@ CLASS zcl_abapgit_git_transport IMPLEMENTATION. lv_data = eo_client->get_cdata( ). - eo_branch_list = NEW #( iv_data = lv_data ). + CREATE OBJECT eo_branch_list + EXPORTING + 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 8a50cf3eb..5f559f8af 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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 e3ccff65c..3a55f9fd8 100644 --- a/src/git/zlib/zcl_abapgit_zlib.clas.abap +++ b/src/git/zlib/zcl_abapgit_zlib.clas.abap @@ -142,7 +142,9 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. ENDIF. CLEAR gv_out. - go_stream = NEW #( iv_data = iv_compressed ). + CREATE OBJECT go_stream + EXPORTING + iv_data = iv_compressed. DO. lv_bfinal = go_stream->take_bits( 1 ). @@ -225,7 +227,9 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. = go_stream->take_int( 3 ). ENDDO. - go_lencode = NEW #( it_lengths = lt_lengths ). + CREATE OBJECT go_lencode + EXPORTING + it_lengths = lt_lengths. CLEAR lt_lengths. WHILE lines( lt_lengths ) < lv_nlen + lv_ndist. @@ -254,9 +258,13 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. DELETE lt_lengths FROM lv_nlen + 1. DELETE lt_dists TO lv_nlen. - go_lencode = NEW #( it_lengths = lt_lengths ). + CREATE OBJECT go_lencode + EXPORTING + it_lengths = lt_lengths. - go_distcode = NEW #( it_lengths = lt_dists ). + CREATE OBJECT go_distcode + EXPORTING + it_lengths = lt_dists. ENDMETHOD. @@ -279,14 +287,18 @@ CLASS zcl_abapgit_zlib IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - go_lencode = NEW #( it_lengths = lt_lengths ). + CREATE OBJECT go_lencode + EXPORTING + it_lengths = lt_lengths. CLEAR lt_lengths. DO c_maxdcodes TIMES. APPEND 5 TO lt_lengths. ENDDO. - go_distcode = NEW #( it_lengths = lt_lengths ). + CREATE OBJECT go_distcode + EXPORTING + 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 db87b22e4..130e0cbb0 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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 ca6a7dd8b..fa660827a 100644 --- a/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap @@ -18,7 +18,9 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - lo_huffman = NEW #( it_lengths = lt_lengths ). + CREATE OBJECT lo_huffman + EXPORTING + it_lengths = lt_lengths. ENDMETHOD. @@ -41,7 +43,9 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - lo_huffman = NEW #( it_lengths = lt_lengths ). + CREATE OBJECT lo_huffman + EXPORTING + 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 42e1b1676..288723d4a 100644 --- a/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap @@ -20,7 +20,9 @@ CLASS ltcl_test IMPLEMENTATION. lv_bytes TYPE xstring. - lo_stream = NEW #( iv_data = '112233445566' ). + CREATE OBJECT lo_stream + EXPORTING + 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 7cee498d4..36b2112ea 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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 27451eb39..6d731a02f 100644 --- a/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap +++ b/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap @@ -72,8 +72,10 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION. val = lv_repo regex = '\.git$' with = '' ). - ri_provider = NEW zcl_abapgit_pr_enum_github( iv_user_and_repo = |{ lv_user }/{ lv_repo }| - ii_http_agent = li_agent ). + CREATE OBJECT ri_provider TYPE zcl_abapgit_pr_enum_github + EXPORTING + 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. @@ -95,6 +97,6 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION. METHOD new. - ro_instance = NEW #( iv_url = iv_url ). + CREATE OBJECT ro_instance EXPORTING 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 91a48eeea..a30bcfe79 100644 --- a/src/http/zcl_abapgit_http.clas.abap +++ b/src/http/zcl_abapgit_http.clas.abap @@ -118,9 +118,11 @@ 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/ - lo_digest = NEW #( ii_client = ii_client - iv_username = lv_user - iv_password = lv_pass ). + CREATE OBJECT lo_digest + EXPORTING + 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. @@ -162,7 +164,9 @@ CLASS zcl_abapgit_http IMPLEMENTATION. li_client = get_http_client( iv_url ). - ro_client = NEW #( ii_client = li_client ). + CREATE OBJECT ro_client + EXPORTING + ii_client = li_client. IF is_local_system( iv_url ) = abap_true. li_client->send_sap_logon_ticket( ). @@ -295,7 +299,7 @@ CLASS zcl_abapgit_http IMPLEMENTATION. lv_proxy_service TYPE string, lo_proxy_configuration TYPE REF TO zcl_abapgit_proxy_config. - lo_proxy_configuration = NEW #( ). + CREATE OBJECT lo_proxy_configuration. ri_client = zcl_abapgit_exit=>get_instance( )->create_http_client( iv_url ). @@ -368,7 +372,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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 649ae1a69..6e85e1cb6 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. - mo_global_headers = NEW #( ). + CREATE OBJECT mo_global_headers. ENDMETHOD. METHOD create. - ri_instance = NEW zcl_abapgit_http_agent( ). + CREATE OBJECT ri_instance TYPE 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. - lo_proxy_configuration = NEW #( ). + CREATE OBJECT lo_proxy_configuration. 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 4c6c7005e..08df2d526 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. - lo_response = NEW #( ). + CREATE OBJECT lo_response. 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 = xsdbool( lv_code >= 200 AND lv_code < 300 ). + rv_yes = boolc( 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. - ro_headers = NEW #( ). + CREATE OBJECT ro_headers. 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 86e9aa750..9044cb34c 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 = xsdbool( ls_program_type = 'I' ). " Include program. + rv_skip = boolc( 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 = xsdbool( sy-subrc <> 0 ). + mv_success = boolc( 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 2adbdc801..d99572336 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. - ro_instance = NEW #( ). + CREATE OBJECT ro_instance. ENDMETHOD. diff --git a/src/json/zcl_abapgit_ajson.clas.abap b/src/json/zcl_abapgit_ajson.clas.abap index b529fd48b..2dc42d7cf 100644 --- a/src/json/zcl_abapgit_ajson.clas.abap +++ b/src/json/zcl_abapgit_ajson.clas.abap @@ -138,9 +138,11 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD create_empty. - 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 ). + 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->mi_custom_mapping = ii_custom_mapping. ENDMETHOD. @@ -153,14 +155,16 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. zcx_abapgit_ajson_error=>raise( 'Source not bound' ). ENDIF. - 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 ). + 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. IF ii_filter IS NOT BOUND AND ii_mapper IS NOT BOUND. ro_instance->mt_json_tree = ii_source_json->mt_json_tree. ELSE. - lo_mutator_queue = NEW #( ). + CREATE OBJECT lo_mutator_queue. 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 ) ). @@ -230,9 +234,11 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD new. - 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 ). + 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. ENDMETHOD. @@ -240,8 +246,8 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lo_parser TYPE REF TO lcl_json_parser. - ro_instance = NEW #( ). - lo_parser = NEW #( ). + CREATE OBJECT ro_instance. + CREATE OBJECT lo_parser. ro_instance->mt_json_tree = lo_parser->parse( iv_json = iv_json iv_keep_item_order = iv_keep_item_order ). @@ -373,7 +379,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD zif_abapgit_ajson~exists. - rv_exists = xsdbool( get_item( iv_path ) IS NOT INITIAL ). + rv_exists = boolc( get_item( iv_path ) IS NOT INITIAL ). ENDMETHOD. @@ -413,7 +419,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 = xsdbool( lr_item->value = 'true' ). + rv_value = boolc( lr_item->value = 'true' ). ELSEIF lr_item->value IS NOT INITIAL. rv_value = abap_true. ENDIF. @@ -495,7 +501,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. RETURN. ENDIF. - lo_to_abap = NEW #( ). + CREATE OBJECT lo_to_abap. TRY. rv_value = lo_to_abap->to_timestamp( lr_item->value ). @@ -507,7 +513,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD zif_abapgit_ajson~is_empty. - rv_yes = xsdbool( lines( mt_json_tree ) = 0 ). + rv_yes = boolc( lines( mt_json_tree ) = 0 ). ENDMETHOD. @@ -700,7 +706,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. ENDIF. IF go_float_regex IS NOT BOUND. - go_float_regex = NEW #( pattern = '^([1-9][0-9]*|0)\.[0-9]+$' ). + CREATE OBJECT go_float_regex EXPORTING pattern = '^([1-9][0-9]*|0)\.[0-9]+$'. " expects fractional, because ints are detected separately ENDIF. @@ -754,7 +760,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. ri_json = me. DATA lv_bool TYPE abap_bool. - lv_bool = xsdbool( iv_val IS NOT INITIAL ). + lv_bool = boolc( iv_val IS NOT INITIAL ). zif_abapgit_ajson~set( iv_ignore_empty = abap_false iv_path = iv_path @@ -841,7 +847,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lv_path_len TYPE i. DATA lv_path_pattern TYPE string. - lo_section = NEW #( ). + CREATE OBJECT lo_section. 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 ). @@ -942,8 +948,10 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lo_to_abap TYPE REF TO lcl_json_to_abap. CLEAR ev_container. - 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 ). + 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->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 6d6581756..8bce7c6ce 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. - lo = NEW #( ). + CREATE OBJECT lo. 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 ? - = xsdbool( is_node-value = 'true' ). + = boolc( 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 ). - lo_converter = NEW #( ). + CREATE OBJECT lo_converter. 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 ). - lo_converter = NEW #( ). + CREATE OBJECT lo_converter. 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. - ro_instance = NEW #( ii_filter = ii_filter ). + CREATE OBJECT ro_instance EXPORTING ii_filter = ii_filter. ENDMETHOD. METHOD constructor. @@ -1902,7 +1902,7 @@ ENDCLASS. CLASS lcl_mapper_runner IMPLEMENTATION. METHOD new. - ro_instance = NEW #( ii_mapper = ii_mapper ). + CREATE OBJECT ro_instance EXPORTING ii_mapper = ii_mapper. ENDMETHOD. METHOD constructor. @@ -2010,7 +2010,7 @@ CLASS lcl_mutator_queue IMPLEMENTATION. ENDMETHOD. METHOD new. - ro_instance = NEW #( ). + CREATE OBJECT ro_instance. 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 90a8f5255..22bf31ba7 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. - mo_cut = NEW #( ). - mo_nodes = NEW #( ). + CREATE OBJECT mo_cut. + CREATE OBJECT mo_nodes. 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. " ********************************************************************** - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. " ********************************************************************** - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lv_exp = '20200728'. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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 ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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 ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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`. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |0000-00-00T00:00:00Z| ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |11:11:11| ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str || ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |1.3333 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |hello | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. DATA lo_nodes TYPE REF TO lcl_nodes_helper. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |object | ' ). @@ -1934,7 +1934,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |array | ' ). @@ -1951,7 +1951,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |int |str |hello ' ). @@ -1968,7 +1968,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |date1 |str |baddate ' ). @@ -1985,7 +1985,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. 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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |One |2' ). @@ -2081,14 +2081,16 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_struc. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - lo_cut = NEW #( iv_corresponding = abap_true ). + CREATE OBJECT lo_cut + EXPORTING + iv_corresponding = abap_true. lo_cut->to_abap( EXPORTING @@ -2110,7 +2112,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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). @@ -2119,7 +2121,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ls_exp-b = 24022022. TRY. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -2142,14 +2144,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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->mt_json_tree = lo_nodes->mt_nodes. lo_cut->to_abap( @@ -2180,14 +2182,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. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->mt_json_tree = lo_nodes->mt_nodes. TRY. @@ -2433,7 +2435,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2445,7 +2447,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2463,7 +2465,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2472,7 +2474,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2493,7 +2495,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2502,7 +2504,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2512,7 +2514,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2521,7 +2523,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2545,7 +2547,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2568,7 +2570,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 2 - assign deep - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2586,7 +2588,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 3 - assign rewrite - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2613,7 +2615,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2641,7 +2643,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |num |1 ||0' ). @@ -2655,7 +2657,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = li_cut->mt_json_tree exp = lo_nodes->sorted( ) ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||2' ). lo_nodes->add( '/ |a |num |1 ||0' ). lo_nodes->add( '/ |b |num |0 ||0' ). @@ -2687,7 +2689,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||3' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2723,7 +2725,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||6' ). lo_nodes->add( '/ |d |str |2022-04-01 ||0' ). lo_nodes->add( '/ |d_empty |str | ||0' ). @@ -2755,7 +2757,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. APPEND 'world' TO lt_tab. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2784,7 +2786,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT `world` INTO TABLE lt_tab. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2829,7 +2831,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT ls_tab INTO TABLE lt_tab. " prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | |0|2' ). lo_nodes->add( '/ |1 |object | |1|3' ). lo_nodes->add( '/ |2 |object | |2|3' ). @@ -2859,7 +2861,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " touch - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2870,7 +2872,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add string - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |1' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2884,7 +2886,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add obj - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2912,7 +2914,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " re-touch with clear - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2925,7 +2927,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " free-add array item (index must be updated) - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |object | |1|1' ). @@ -3045,7 +3047,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " object - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -3058,7 +3060,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " object empty path - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -3072,7 +3074,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " array - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |1' ). lo_nodes_exp->add( '/ |1 |str |hello|1|0' ). @@ -3087,7 +3089,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " value - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |hello||0' ). li_writer->clear( ). @@ -3110,7 +3112,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " abap_bool lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3137,7 +3139,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " int lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3165,7 +3167,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " tab lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3194,7 +3196,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||3' ). lo_nodes_exp->add( '/ |a |str |123 ||0' ). lo_nodes_exp->add( '/ |b |str |X ||0' ). @@ -3225,7 +3227,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |num |123 ||0' ). @@ -3248,7 +3250,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |str |2020-07-05 ||0' ). lo_nodes_exp->add( '/ |b |str | ||0' ). @@ -3278,7 +3280,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |str |2021-05-05T12:00:00Z ||0' ). @@ -3354,7 +3356,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. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |issues |array | | |2' ). lo_nodes_exp->add( '/issues/ |1 |object | |1 |1' ). @@ -4137,7 +4139,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lo_src TYPE REF TO zcl_abapgit_ajson. lo_src = zcl_abapgit_ajson=>create_empty( ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -4159,7 +4161,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " number - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 1 ). @@ -4176,7 +4178,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " string - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |abc ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 'abc' ). @@ -4193,7 +4195,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " true - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |bool |true ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_true ). @@ -4210,7 +4212,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " false - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |bool |false ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_false ). @@ -4227,7 +4229,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_xsdboolean TYPE xsdboolean. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |bool |true ||' ). lv_xsdboolean = 'X'. @@ -4246,7 +4248,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_null_ref TYPE REF TO data. " null - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |null |null ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = lv_null_ref ). @@ -4264,7 +4266,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_timezone TYPE timezone VALUE ''. DATA lv_timestamp TYPE timestamp. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |2022-08-31T00:00:00Z||' ). CONVERT DATE '20220831' TIME '000000' @@ -4283,7 +4285,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_timestamp TYPE timestamp. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |0000-00-00T00:00:00Z||' ). lv_timestamp = 0. @@ -4303,7 +4305,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_prefix-path = '/a/'. ls_prefix-name = 'b'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( '/a/ |b |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( @@ -4327,7 +4329,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-c = abap_true. ls_struc-d = 'X'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||4' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4366,7 +4368,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND INITIAL LINE TO ls_struc-tab ASSIGNING . -a = 'bcd'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||8' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4415,7 +4417,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-d_suf = 'X'. ls_struc-el = 'elem'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||5' ). lo_nodes_exp->add( '/ |a_suf |str |abc ||0' ). lo_nodes_exp->add( '/ |b_suf |num |10 ||0' ). @@ -4446,7 +4448,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. -a = 'bcd'. -b = 20. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|4' ). lo_nodes_exp->add( '/1/ |a |str |abc | |0' ). @@ -4469,7 +4471,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND 'abc' TO lt_strtab. APPEND 'bcd' TO lt_strtab. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |str |abc |1|0' ). lo_nodes_exp->add( '/ |2 |str |bcd |2|0' ). @@ -4525,7 +4527,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. APPEND ls_visit_history TO mt_visit_history. ENDIF. - rv_keep = xsdbool( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). + rv_keep = boolc( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). ENDMETHOD. @@ -4556,7 +4558,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |3' ). lo_nodes_exp->add( '/ |a |num |1 | |0' ). lo_nodes_exp->add( '/ |b |num |1 | |0' ). @@ -4615,7 +4617,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |10' ). lo_nodes_exp->add( '/ |1 |str |a |1|0' ). lo_nodes_exp->add( '/ |2 |str |b |2|0' ). @@ -4760,7 +4762,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |4' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). @@ -4802,7 +4804,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|2' ). lo_nodes_exp->add( '/ |2 |object | |2|2' ). @@ -4861,7 +4863,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |num |1 | |0' ). cl_abap_unit_assert=>assert_equals( act = lo_json_filtered->mt_json_tree @@ -4935,7 +4937,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->clone( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -4976,7 +4978,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->filter( me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). @@ -5002,7 +5004,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->map( me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -5028,7 +5030,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_ajson_filter~keep_node. - rv_keep = xsdbool( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). + rv_keep = boolc( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). ENDMETHOD. METHOD mapper_and_filter. @@ -5053,7 +5055,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ii_filter = me ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. 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 23a167675..7639979f3 100644 --- a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap +++ b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap @@ -37,18 +37,22 @@ CLASS zcl_abapgit_ajson_filter_lib IMPLEMENTATION. METHOD create_and_filter. - ri_filter = NEW lcl_and_filter( it_filters = it_filters ). + CREATE OBJECT ri_filter TYPE lcl_and_filter + EXPORTING + it_filters = it_filters. ENDMETHOD. METHOD create_empty_filter. - ri_filter = NEW lcl_empty_filter( ). + CREATE OBJECT ri_filter TYPE lcl_empty_filter. ENDMETHOD. METHOD create_path_filter. - ri_filter = NEW lcl_paths_filter( iv_pattern_search = iv_pattern_search - it_skip_paths = it_skip_paths - iv_skip_paths = iv_skip_paths ). + 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. 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 aa04d65c4..42f12e631 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 = xsdbool( + rv_keep = boolc( ( 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 = xsdbool( sy-subrc <> 0 ). + rv_keep = boolc( 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 xsdbool( iv_skip_paths IS INITIAL ) = xsdbool( it_skip_paths IS INITIAL ). " XOR + IF boolc( iv_skip_paths IS INITIAL ) = boolc( 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 00aac1bda..caa444b9a 100644 --- a/src/json/zcl_abapgit_ajson_mapping.clas.abap +++ b/src/json/zcl_abapgit_ajson_mapping.clas.abap @@ -77,8 +77,10 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. METHOD create_camel_case. - ri_mapping = NEW lcl_mapping_camel( it_mapping_fields = it_mapping_fields - iv_first_json_upper = iv_first_json_upper ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_camel + EXPORTING + it_mapping_fields = it_mapping_fields + iv_first_json_upper = iv_first_json_upper. ENDMETHOD. @@ -93,50 +95,62 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. APPEND LINES OF it_more TO lt_queue. DELETE lt_queue WHERE table_line IS INITIAL. - ri_mapping = NEW lcl_compound_mapper( it_queue = lt_queue ). + CREATE OBJECT ri_mapping TYPE lcl_compound_mapper + EXPORTING + it_queue = lt_queue. ENDMETHOD. METHOD create_field_mapping. - ri_mapping = NEW lcl_mapping_fields( it_mapping_fields = it_mapping_fields ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_fields + EXPORTING + it_mapping_fields = it_mapping_fields. ENDMETHOD. METHOD create_lower_case. - ri_mapping = NEW lcl_mapping_to_lower( it_mapping_fields = it_mapping_fields ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_to_lower + EXPORTING + it_mapping_fields = it_mapping_fields. ENDMETHOD. METHOD create_rename. - ri_mapping = NEW lcl_rename( it_rename_map = it_rename_map - iv_rename_by = iv_rename_by ). + CREATE OBJECT ri_mapping TYPE lcl_rename + EXPORTING + it_rename_map = it_rename_map + iv_rename_by = iv_rename_by. ENDMETHOD. METHOD create_to_camel_case. - ri_mapping = NEW lcl_to_camel( iv_first_json_upper = iv_first_json_upper ). + CREATE OBJECT ri_mapping TYPE lcl_to_camel + EXPORTING + iv_first_json_upper = iv_first_json_upper. ENDMETHOD. METHOD create_to_snake_case. - ri_mapping = NEW lcl_to_snake( ). + CREATE OBJECT ri_mapping TYPE lcl_to_snake. ENDMETHOD. METHOD create_upper_case. - ri_mapping = NEW lcl_mapping_to_upper( it_mapping_fields = it_mapping_fields ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_to_upper + EXPORTING + 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 6b9ceefcb..937b2618e 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 = xsdbool( sy-subrc = 0 ). + lv_pair_found = boolc( 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 = xsdbool( sy-subrc = 0 ). + lv_pair_found = boolc( 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 4f656808c..52b10a4a4 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 = xsdbool( + rv_yes = boolc( 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. - ro_instance = NEW #( ). + CREATE OBJECT ro_instance. ENDMETHOD. METHOD normalize_input. - IF xsdbool( iv_json IS INITIAL ) = xsdbool( io_json IS INITIAL ). + IF boolc( iv_json IS INITIAL ) = boolc( 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 382bc2850..4ee90fa9b 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. - lo_insert_exp = NEW #( ). + CREATE OBJECT lo_insert_exp. 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 - lo_delete_exp = NEW #( ). + CREATE OBJECT lo_delete_exp. 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 - lo_change_exp = NEW #( ). + CREATE OBJECT lo_change_exp. 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 - lo_util = NEW #( ). + CREATE OBJECT lo_util. 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. - lo_insert_exp = NEW #( ). + CREATE OBJECT lo_insert_exp. 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' ). - lo_delete_exp = NEW #( ). + CREATE OBJECT lo_delete_exp. lo_delete_exp->add( ' | |object | |0|1' ). lo_delete_exp->add( '/ |string |str |abc |0|0' ). - lo_util = NEW #( ). + CREATE OBJECT lo_util. 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. - lo_util = NEW #( ). + CREATE OBJECT lo_util. " 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 ). - lo_insert_exp = NEW #( ). + CREATE OBJECT lo_insert_exp. 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. - lo_merge_exp = NEW #( ). + CREATE OBJECT lo_merge_exp. 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' ). - lo_util = NEW #( ). + CREATE OBJECT lo_util. 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. - lo_util = NEW #( ). + CREATE OBJECT lo_util. 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 52047c853..c51e9b749 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. - lx = NEW #( message = iv_msg ). + create object lx exporting 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 0acd38072..3fbd7682c 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. - lo_cut = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT lo_cut TYPE 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 729f2cb52..738d017f9 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 ). - lo_filter = NEW #( iv_skip_paths = iv_skip_paths ). + CREATE OBJECT lo_filter EXPORTING 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 a567f5dd8..5c3e73eb5 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 xsdbool( sy-subrc = 0 ) = abap_true + IF boolc( 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 xsdbool( sy-subrc = 0 ) = abap_true + IF boolc( 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 ff512f69c..3f1b1f834 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. - lo_json_path = NEW #( ). + CREATE OBJECT lo_json_path. 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 fe18fb750..9ff0f0bb7 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 = xsdbool( matches( val = iv_path + rv_result = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_result = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -200,15 +200,15 @@ CLASS lcl_json_path IMPLEMENTATION. ENDMETHOD. METHOD is_array. - rv_result = xsdbool( io_reader->name = 'array' ). + rv_result = boolc( io_reader->name = 'array' ). ENDMETHOD. METHOD is_string_open. - rv_result = xsdbool( io_reader->name = 'str' AND io_reader->node_type = if_sxml_node=>co_nt_element_open ). + rv_result = boolc( io_reader->name = 'str' AND io_reader->node_type = if_sxml_node=>co_nt_element_open ). ENDMETHOD. METHOD is_object. - rv_result = xsdbool( io_reader->name = 'object' ). + rv_result = boolc( 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 3b6d38dfe..eba81a4af 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/' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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 6f4e9a2db..9ab7c2101 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( ). - li_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT li_aff_registry TYPE 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 e54226954..488c13ea8 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,8 +221,10 @@ CLASS ltcl_aff_settings_deserialize IMPLEMENTATION. RETURN. ENDIF. - lo_cut = NEW #( is_item = ls_item - iv_language = 'E' ). + CREATE OBJECT lo_cut + EXPORTING + 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 606ebd8df..38310a5df 100644 --- a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap @@ -177,7 +177,9 @@ CLASS ltcl_resolve_packages IMPLEMENTATION. DATA: lo_mock_sap_package TYPE REF TO ltcl_sap_package. - lo_mock_sap_package = NEW #( iv_package = 'Z_MAIN' ). + CREATE OBJECT lo_mock_sap_package + EXPORTING + 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 9f947648d..52dc4b90e 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 ). - lo_graph = NEW #( it_items = lt_items ). + CREATE OBJECT lo_graph EXPORTING 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 6f1eb3a62..c7de5afe6 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. - mo_objects = NEW #( ). + CREATE OBJECT mo_objects. ENDMETHOD. @@ -259,7 +259,7 @@ ENDCLASS. CLASS ltcl_prio_deserialization IMPLEMENTATION. METHOD setup. - mo_objects = NEW #( ). + CREATE OBJECT mo_objects. mv_exp_output_tabix = 0. ENDMETHOD. @@ -434,7 +434,7 @@ CLASS ltcl_prio_deserialization IMPLEMENTATION. DATA lo_log TYPE REF TO zcl_abapgit_log. - lo_log = NEW #( ). + CREATE OBJECT lo_log. 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 6e41b25eb..3edf57042 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 = 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 ). + 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 ). ENDMETHOD. @@ -153,7 +153,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. " Assume AFF namespace convention IF go_aff_registry IS INITIAL. - go_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT go_aff_registry TYPE 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 = xsdbool( lv_json = abap_true OR lv_xml = abap_true ). + rv_yes = boolc( lv_json = abap_true OR lv_xml = abap_true ). ENDMETHOD. @@ -348,7 +348,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ENDTRY. " Handle namespaces - go_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT go_aff_registry TYPE 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 915298c63..486c8410c 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. - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. 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( ). - li_memory = NEW #( ). + CREATE OBJECT li_memory. 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 9ee4b3615..45e086779 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. - ro_instance = NEW #( ). + CREATE OBJECT ro_instance. 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 16f7aab23..d9bb1bc55 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. - lo_top_foo = NEW #( ). + CREATE OBJECT lo_top_foo. 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 22cd8655c..6b199cba2 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 = xsdbool( lines( mt_vertices ) > 0 ). + rv_bool = boolc( 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 60484b0c6..660fa90e5 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. - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE 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. - lo_graph = NEW #( it_items = lt_items ). + CREATE OBJECT lo_graph EXPORTING 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 004a1f5cb..833f456b7 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.abap @@ -285,7 +285,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_popup = abap_false. ENDIF. - lv_no_ui = xsdbool( lv_popup = abap_false ). + lv_no_ui = boolc( lv_popup = abap_false ). IF iv_ddic = abap_true. lv_msg = |(with DDIC)|. @@ -540,7 +540,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_active = xsdbool( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). + rv_active = boolc( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). ENDMETHOD. @@ -584,7 +584,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. p_e071 = lt_e071 p_xmsg = lt_messages. - rv_active = xsdbool( lt_messages IS INITIAL ). + rv_active = boolc( lt_messages IS INITIAL ). ENDMETHOD. @@ -606,8 +606,10 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_include = cl_oo_classname_service=>get_interfacepool_name( ls_class-clsname ). ENDCASE. - lo_cross = NEW #( p_name = lv_include - p_include = lv_include ). + CREATE OBJECT lo_cross + EXPORTING + 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 799db5387..ff6d29118 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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 30a31beba..1ba862168 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. - mo_objects = NEW #( ). + CREATE OBJECT mo_objects. ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_objects_files.clas.abap b/src/objects/core/zcl_abapgit_objects_files.clas.abap index 111d8d5f5..89c91c31e 100644 --- a/src/objects/core/zcl_abapgit_objects_files.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_files.clas.abap @@ -325,8 +325,10 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. METHOD new. - ro_files = NEW #( is_item = is_item - iv_path = iv_path ). + CREATE OBJECT ro_files + EXPORTING + is_item = is_item + iv_path = iv_path. ENDMETHOD. @@ -412,11 +414,11 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. CASE lv_ext. WHEN 'po'. - lo_po = NEW #( iv_lang = lv_lang ). + CREATE OBJECT lo_po EXPORTING iv_lang = lv_lang. lo_po->parse( -data ). APPEND lo_po TO rt_i18n_files. WHEN 'properties'. - lo_properties = NEW #( iv_lang = lv_lang ). + CREATE OBJECT lo_properties EXPORTING iv_lang = lv_lang. lo_properties->parse( -data ). APPEND lo_properties TO rt_i18n_files. WHEN OTHERS. @@ -479,8 +481,11 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ). - ri_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_xml - iv_filename = lv_filename ). + CREATE OBJECT ri_xml + TYPE zcl_abapgit_xml_input + EXPORTING + 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 b3e3e500c..21dae0a50 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 ). - lo_filter = NEW #( ). + CREATE OBJECT lo_filter. 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 = xsdbool( lines( lt_tadir ) < 10 ). + lv_force = boolc( lines( lt_tadir ) < 10 ). lt_found = serialize( iv_package = iv_package @@ -271,7 +271,9 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. ms_i18n_params-main_language_only = is_local_settings-main_language_only. ENDIF. - mo_abap_language_version = NEW #( io_dot_abapgit = mo_dot_abapgit ). + CREATE OBJECT mo_abap_language_version + EXPORTING + io_dot_abapgit = mo_dot_abapgit. ENDMETHOD. @@ -479,7 +481,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. METHOD is_parallelization_possible. - rv_result = xsdbool( zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false + rv_result = boolc( 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 c82a2be13..a224ff5da 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. - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. ro_settings->set_parallel_proc_disabled( mv_parallel_proc_disabled ). ENDMETHOD. @@ -291,20 +291,20 @@ CLASS ltcl_determine_max_processes IMPLEMENTATION. METHOD setup. - mo_settings_double = NEW #( ). + CREATE OBJECT mo_settings_double. zcl_abapgit_persist_injector=>set_settings( mo_settings_double ). - mo_environment_double = NEW #( ). + CREATE OBJECT mo_environment_double. zcl_abapgit_injector=>set_environment( mo_environment_double ). - mo_function_module_double = NEW #( ). + CREATE OBJECT mo_function_module_double. zcl_abapgit_injector=>set_function_module( mo_function_module_double ). - mo_exit = NEW #( ). + CREATE OBJECT mo_exit. zcl_abapgit_injector=>set_exit( mo_exit ). TRY. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -470,7 +470,9 @@ CLASS ltcl_serialize IMPLEMENTATION. mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). TRY. - mo_cut = NEW #( io_dot_abapgit = mo_dot ). + CREATE OBJECT mo_cut + EXPORTING + io_dot_abapgit = mo_dot. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -521,13 +523,13 @@ CLASS ltcl_serialize IMPLEMENTATION. -object = 'ABCD'. -obj_name = 'OBJECT'. - li_log1 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log1 TYPE zcl_abapgit_log. mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - li_log2 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log2 TYPE zcl_abapgit_log. mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log2 @@ -575,14 +577,14 @@ CLASS ltcl_serialize IMPLEMENTATION. -obj_name = 'ZCL_TEST_IGNORE'. -devclass = '$ZTEST'. - li_log1 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log1 TYPE zcl_abapgit_log. mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - li_log2 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log2 TYPE zcl_abapgit_log. mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir @@ -638,9 +640,13 @@ CLASS ltcl_i18n IMPLEMENTATION. " ls_data-i18n_languages needs to be initial to get classic I18N data TRY. - mo_dot_abapgit = NEW #( is_data = ls_data ). + CREATE OBJECT mo_dot_abapgit + EXPORTING + is_data = ls_data. - mo_cut = NEW #( io_dot_abapgit = mo_dot_abapgit ). + CREATE OBJECT mo_cut + EXPORTING + io_dot_abapgit = mo_dot_abapgit. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -677,7 +683,9 @@ CLASS ltcl_i18n IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( -file-data ). - lo_input = NEW #( iv_xml = lv_xml ). + CREATE OBJECT lo_input + EXPORTING + 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 abbf549df..82f341a22 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap @@ -77,8 +77,10 @@ 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. - mx_ecatt_apl = NEW #( textid = cx_ecatt_apl=>any_text - free_text = 'Unexpected object in save sequence' ). + CREATE OBJECT mx_ecatt_apl + EXPORTING + 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 8bb0e2170..e4244297e 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap @@ -53,7 +53,9 @@ 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. - lo_load_help_dummy = NEW #( im_maintain_function = '' ). + CREATE OBJECT lo_load_help_dummy + EXPORTING + 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 4555f5e27..3de4932e0 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 = xsdbool( ls_progdir-subc = 'I' ). + ls_original_object-include_bound = boolc( 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 32bdd14d9..7bc4ae4ab 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 = xsdbool( NOT lv_vit_wb_request = abap_true ). + rv_is_adt_jump_possible = boolc( 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 6d8b3d269..247961df6 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 = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -135,7 +135,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -160,7 +160,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( 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 61c386424..078bce0b7 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. - lo_oo_serializer = NEW #( ). + CREATE OBJECT lo_oo_serializer. 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 431ec801a..7d7091a3b 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 = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = boolc( 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 dba196f8b..a47c00f83 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'. - ri_object_oriented_object = NEW zcl_abapgit_oo_class( ). + CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_class. ELSEIF iv_object_type = 'INTF'. - ri_object_oriented_object = NEW zcl_abapgit_oo_interface( ). + CREATE OBJECT ri_object_oriented_object TYPE 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 ). - li_class = NEW zcl_abapgit_oo_class( ). + CREATE OBJECT li_class TYPE zcl_abapgit_oo_class. IF li_class->exists( ls_object_name ) = abap_true. ri_object_oriented_object = li_class. RETURN. ENDIF. - li_interface = NEW zcl_abapgit_oo_interface( ). + CREATE OBJECT li_interface TYPE 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 55668236b..a4852bee2 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 = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = boolc( 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 8f8ae4ac8..41571bf04 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. - mo_oo_serializer = NEW #( ). + CREATE OBJECT mo_oo_serializer. ENDMETHOD. diff --git a/src/objects/rules/zcl_abapgit_field_rules.clas.abap b/src/objects/rules/zcl_abapgit_field_rules.clas.abap index 2e3a695f7..784fb3b48 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. - ro_result = NEW zcl_abapgit_field_rules( ). + CREATE OBJECT ro_result TYPE 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 987da8ed1..ea1250fa5 100644 --- a/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap +++ b/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap @@ -49,7 +49,7 @@ CLASS zcl_abapgit_field_rules DEFINITION LOCAL FRIENDS ltcl_field_rules. CLASS ltcl_field_rules IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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 e7400293d..2b6e425e4 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 = xsdbool( sy-subrc = 0 ). + rv_exists = boolc( 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 f5669a391..f02a0ab48 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 = xsdbool( sy-subrc = 0 ). + rv_yes = boolc( 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 = xsdbool( sy-subrc = 0 AND lv_editflag = 'X' ). + rv_yes = boolc( 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 bd9f0c963..1129e52bb 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 = xsdbool( mv_package(1) <> '$' AND mv_package(1) <> 'T' ). + rv_are_changes_rec_in_tr_req = boolc( 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 = xsdbool( sy-subrc <> 1 ). + rv_bool = boolc( 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 91af551af..321331d10 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 = xsdbool( iv_tabclass = 'TRANSP' + rv_is_db_table_type = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_is_idoc_segment = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -847,13 +847,18 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. li_local_version_input TYPE REF TO zif_abapgit_xml_input. - li_local_version_output = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_local_version_output TYPE zcl_abapgit_xml_output. zif_abapgit_object~serialize( li_local_version_output ). - li_local_version_input = NEW zcl_abapgit_xml_input( iv_xml = li_local_version_output->render( ) ). + CREATE OBJECT li_local_version_input + TYPE zcl_abapgit_xml_input + EXPORTING + iv_xml = li_local_version_output->render( ). - ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = li_local_version_input ). + CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar + EXPORTING + 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 68318f580..3a5bccd54 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 = xsdbool( lines( lt_founds ) > 0 ). + rv_is_structure_used_in_db_tab = boolc( 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 46eb4813c..e9050a887 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|. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_format = NEW #( ). + CREATE OBJECT lo_format. 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 da9c3502c..00555057e 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 = xsdbool( ms_params-main_language_only = abap_false AND + rv_yes = boolc( ms_params-main_language_only = abap_false AND ms_params-use_lxe = abap_true AND ms_params-translation_languages IS NOT INITIAL ). @@ -128,11 +128,13 @@ CLASS zcl_abapgit_i18n_params IMPLEMENTATION. METHOD new. - 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 ). + 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. ENDMETHOD. diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.abap index 6de65cae0..da4f6047e 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 = xsdbool( iv_main_language <> -dokil-langu ). + lv_no_main_lang = boolc( 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 2bc2097c0..5e0e26e3b 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. 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 ddd7d3c52..3c0ffdcf9 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 = xsdbool( sy-subrc = 0 ). + rv_yes = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -643,7 +643,9 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION. LOOP AT mo_i18n_params->ms_params-translation_languages INTO lv_lang. lv_lang = to_lower( lv_lang ). - lo_po_file = NEW #( iv_lang = lv_lang ). + CREATE OBJECT lo_po_file + EXPORTING + 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 c7d155112..d4a6a1f72 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. - ro_buf = NEW #( ). + CREATE OBJECT ro_buf. LOOP AT mt_pairs ASSIGNING . IF sy-tabix <> 1. @@ -116,7 +116,7 @@ CLASS zcl_abapgit_po_file IMPLEMENTATION. METHOD build_po_head. - ro_buf = NEW #( ). + CREATE OBJECT ro_buf. " 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 363e72580..b03b275a0 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. - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING 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( ). - lo_buf = NEW #( ). + CREATE OBJECT lo_buf. 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. - lo_buf = NEW #( ). + CREATE OBJECT lo_buf. lo_buf->add( 'msgid ""' )->add( 'msgstr ""' @@ -113,7 +113,7 @@ CLASS ltcl_po_file IMPLEMENTATION. )->add( 'msgid "World"' )->add( 'msgstr "World DE"' ). - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING 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. - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING 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. - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING 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| ). - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING 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 d6c55c961..53827fb2c 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. - lo_json_path = NEW #( ). + CREATE OBJECT lo_json_path. 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 e122adc52..67bcf2291 100644 --- a/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap @@ -15,7 +15,9 @@ CLASS ltcl_test IMPLEMENTATION. DATA: lo_cut TYPE REF TO zcl_abapgit_properties_file. DATA: lv_act TYPE laiso. - lo_cut = NEW #( iv_lang = 'DE' ). + CREATE OBJECT lo_cut + EXPORTING + 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 2b0efa80b..6a7becf84 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 = xsdbool( lv_state = abap_true ). + rv_bool = boolc( 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 483abec97..965e86a17 100644 --- a/src/objects/zcl_abapgit_object_aqbg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqbg.clas.abap @@ -57,9 +57,11 @@ CLASS zcl_abapgit_object_aqbg IMPLEMENTATION. METHOD get_generic. " transaction SQ03 - ro_generic = NEW #( is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 9ef5faef0..e34b5b3f6 100644 --- a/src/objects/zcl_abapgit_object_aqqu.clas.abap +++ b/src/objects/zcl_abapgit_object_aqqu.clas.abap @@ -36,9 +36,11 @@ CLASS zcl_abapgit_object_aqqu IMPLEMENTATION. METHOD get_generic. " transaction SQ01 - ro_generic = NEW #( is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 6fe8a2a26..3ae816885 100644 --- a/src/objects/zcl_abapgit_object_aqsg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqsg.clas.abap @@ -36,9 +36,11 @@ CLASS zcl_abapgit_object_aqsg IMPLEMENTATION. METHOD get_generic. " transaction SQ02 - ro_generic = NEW #( is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 92e98cb9e..692297b9a 100644 --- a/src/objects/zcl_abapgit_object_asfc.clas.abap +++ b/src/objects/zcl_abapgit_object_asfc.clas.abap @@ -23,8 +23,10 @@ CLASS zcl_abapgit_object_asfc IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 5aea917f5..4241eec8b 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 - lo_auth = NEW #( ). + CREATE OBJECT lo_auth. 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 ). - lo_auth = NEW #( ). + CREATE OBJECT lo_auth. 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 a4eed329a..abf93319e 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 = xsdbool( lv_state = abap_true ). + rv_bool = boolc( 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 12c81b16a..8dcaaaaef 100644 --- a/src/objects/zcl_abapgit_object_avas.clas.abap +++ b/src/objects/zcl_abapgit_object_avas.clas.abap @@ -79,7 +79,9 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. lv_id = ms_item-obj_name. TRY. - ro_avas = NEW #( im_assignment_id = lv_id ). + CREATE OBJECT ro_avas + EXPORTING + 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. @@ -164,7 +166,7 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. SELECT SINGLE guid FROM cls_assignment INTO lv_guid WHERE guid = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 c9d042a12..671783fe7 100644 --- a/src/objects/zcl_abapgit_object_char.clas.abap +++ b/src/objects/zcl_abapgit_object_char.clas.abap @@ -43,14 +43,16 @@ CLASS ZCL_ABAPGIT_OBJECT_CHAR IMPLEMENTATION. SELECT SINGLE name FROM cls_attribute INTO lv_name WHERE name = ms_item-obj_name. - lv_new = xsdbool( sy-subrc <> 0 ). + lv_new = boolc( sy-subrc <> 0 ). lv_name = ms_item-obj_name. TRY. - ro_char = NEW #( im_name = lv_name - im_type_group = iv_type_group - im_new = lv_new - im_activation_state = iv_activation_state ). + 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. 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 aaa1263ce..4b0f31323 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 33b642199..9091272b2 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 0d0c8cc47..399f62fab 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 = xsdbool( ls_message IS INITIAL ). + rv_bool = boolc( 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 1098bc9c4..e1dea2449 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 cee074cff..8d453e086 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 af5cfeae7..e91b09de8 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 = xsdbool( NOT lv_state IS INITIAL ). + rv_bool = boolc( 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 aeedda563..eb5e5dc37 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 = xsdbool( sy-subrc <> 0 ). + rv_is_empty = boolc( 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 55c2fb2f9..22204582a 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 = xsdbool( ls_tdct IS NOT INITIAL ). + rv_bool = boolc( ls_tdct IS NOT INITIAL ). ENDMETHOD. @@ -177,7 +177,7 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. object_not_found = 1 OTHERS = 2. - rv_exit = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( 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 468acbcee..ae4a3ee05 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 dc6445134..109ba1288 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 c86b80606..8bc1f7280 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 468dd6a8e..fd862d6f2 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 = xsdbool( lv_count > 0 ). + rv_bool = boolc( lv_count > 0 ). ENDMETHOD. @@ -232,7 +232,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. no_editor = 2 OTHERS = 3. - rv_exit = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( 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 c5e766538..061e4cc8d 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 0d31bf529..1a91f6a79 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. - ro_download = NEW zcl_abapgit_ecatt_script_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_script_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_script_upl( ). + CREATE OBJECT ro_upload TYPE 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 f99143551..e9e5e9ced 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. - ro_download = NEW zcl_abapgit_ecatt_system_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_system_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_system_upl( ). + CREATE OBJECT ro_upload TYPE 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 9a152ec92..a4e2d7ae0 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. - ro_download = NEW zcl_abapgit_ecatt_sp_download( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_sp_download. ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_sp_upload( ). + CREATE OBJECT ro_upload TYPE 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 242a3f979..457f2d081 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. - ro_download = NEW zcl_abapgit_ecatt_config_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_config_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_config_upl( ). + CREATE OBJECT ro_upload TYPE 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 941c7810c..86ca112ed 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. - ro_download = NEW zcl_abapgit_ecatt_data_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_data_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_data_upload( ). + CREATE OBJECT ro_upload TYPE 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 5bcf00ce0..7b49e4c59 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. - ro_download = NEW zcl_abapgit_ecatt_val_obj_down( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_val_obj_down. ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_val_obj_upl( ). + CREATE OBJECT ro_upload TYPE 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 7ad286893..66c77ee82 100644 --- a/src/objects/zcl_abapgit_object_enho.clas.abap +++ b/src/objects/zcl_abapgit_object_enho.clas.abap @@ -25,23 +25,37 @@ CLASS zcl_abapgit_object_enho IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_impl=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_badi( is_item = ms_item ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_badi + EXPORTING + is_item = ms_item. WHEN cl_enh_tool_hook_impl=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_hook( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_hook + EXPORTING + is_item = ms_item + io_files = mo_files. WHEN cl_enh_tool_class=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_class( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_class + EXPORTING + is_item = ms_item + io_files = mo_files. WHEN cl_enh_tool_intf=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_intf( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_intf + EXPORTING + is_item = ms_item + io_files = mo_files. WHEN cl_wdr_cfg_enhancement=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_wdyc( is_item = ms_item ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyc + EXPORTING + is_item = ms_item. WHEN 'FUGRENH'. - ri_enho = NEW zcl_abapgit_object_enho_fugr( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_fugr + EXPORTING + is_item = ms_item + io_files = mo_files. WHEN 'WDYENH'. - ri_enho = NEW zcl_abapgit_object_enho_wdyn( is_item = ms_item ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyn + EXPORTING + 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 833128ac5..6fdec9eeb 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. - ri_enho = NEW zcl_abapgit_object_enhs_badi_d( ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_badi_d. WHEN cl_enh_tool_hook_def=>tool_type. - ri_enho = NEW zcl_abapgit_object_enhs_hook_d( ). + CREATE OBJECT ri_enho TYPE 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 071b6e2d1..cc5ba1fb6 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 04117f6a5..4c28e378a 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 = xsdbool( lv_count = 0 ). + ev_create = boolc( 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 = xsdbool( lv_count > 0 ). + rv_bool = boolc( lv_count > 0 ). ENDMETHOD. @@ -598,12 +598,16 @@ 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. - lo_local_version_output = NEW #( ). + CREATE OBJECT lo_local_version_output. zif_abapgit_object~serialize( lo_local_version_output ). - lo_local_version_input = NEW #( iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ) ). + CREATE OBJECT lo_local_version_input + EXPORTING + iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ). - ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = lo_local_version_input ). + CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar + EXPORTING + ii_local = lo_local_version_input. ENDMETHOD. @@ -650,7 +654,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. lv_index = lines( lt_version ). READ TABLE lt_version ASSIGNING INDEX lv_index. - rv_active = xsdbool( -state = 'A' ). + rv_active = boolc( -state = 'A' ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_form.clas.abap b/src/objects/zcl_abapgit_object_form.clas.abap index 8f15f5f96..83bb5e900 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. - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE 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. - li_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_string ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_input EXPORTING 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 = xsdbool( lv_lang IS NOT INITIAL ). + rv_bool = boolc( 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 5441b52b1..9dc0c1406 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -1060,8 +1060,10 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. LOOP AT it_includes INTO lv_include. - lo_cross = NEW #( p_name = lv_include - p_include = lv_include ). + CREATE OBJECT lo_cross + EXPORTING + p_name = lv_include + p_include = lv_include. lo_cross->index_actualize( ). @@ -1272,7 +1274,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. function_pool = lv_pool EXCEPTIONS pool_not_exists = 1. - rv_bool = xsdbool( sy-subrc <> 1 ). + rv_bool = boolc( 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 809de5582..54af7e9f5 100644 --- a/src/objects/zcl_abapgit_object_g4ba.clas.abap +++ b/src/objects/zcl_abapgit_object_g4ba.clas.abap @@ -65,9 +65,11 @@ CLASS zcl_abapgit_object_g4ba IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 f9a106e6a..108d0555d 100644 --- a/src/objects/zcl_abapgit_object_g4bs.clas.abap +++ b/src/objects/zcl_abapgit_object_g4bs.clas.abap @@ -65,9 +65,11 @@ CLASS zcl_abapgit_object_g4bs IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 e0a45e311..e01d7db1a 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 = xsdbool( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). + rv_closed = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 775242c14..e0f681080 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 1402d8f86..c0fd72372 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 ). - li_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT li_aff_registry TYPE 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 ). - lo_aff_mapper = NEW lcl_aff_type_mapping( ). + CREATE OBJECT lo_aff_mapper TYPE 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 0774bd17a..8bd144843 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. - lo_aff_mapper = NEW lcl_aff_type_mapping( ). + CREATE OBJECT lo_aff_mapper TYPE 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( ). - lo_aff_handler = NEW #( ). + CREATE OBJECT lo_aff_handler. 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( ). - lo_ajson = NEW #( ). + CREATE OBJECT lo_ajson. TRY. lo_ajson->deserialize( EXPORTING @@ -669,10 +669,11 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. ENDTRY. - lo_json_path = NEW #( ). + CREATE OBJECT lo_json_path. lt_translation = lo_json_path->serialize( lv_json ). - lo_trans_file = NEW #( iv_lang = lv_langu ). + CREATE OBJECT lo_trans_file + EXPORTING iv_lang = lv_langu. lo_trans_file->push_text_pairs( lt_translation ). @@ -721,7 +722,7 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. ls_aff_data-header-original_language = lv_sap1. - lo_type_mapper = NEW lcl_aff_type_mapping( ). + CREATE OBJECT lo_type_mapper TYPE 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 de2f2fbdf..2fcca3de8 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap @@ -148,13 +148,15 @@ CLASS ltcl_unit_test IMPLEMENTATION. mo_files = zcl_abapgit_objects_files=>new( ms_item ). - lo_cut = NEW #( is_item = ms_item - iv_language = 'E' - io_files = mo_files ). + CREATE OBJECT lo_cut + EXPORTING + is_item = ms_item + iv_language = 'E' + io_files = mo_files. - mo_log = NEW #( ). + CREATE OBJECT mo_log. - mo_object_fnc = NEW #( ). + CREATE OBJECT mo_object_fnc. lo_cut->mi_object_oriented_object_fct = mo_object_fnc. mo_cut = lo_cut. @@ -170,7 +172,9 @@ CLASS ltcl_unit_test IMPLEMENTATION. DATA ls_expected_docu_line TYPE tline. DATA lt_expected_docu_lines TYPE tlinetab. - lo_xmlin = NEW zcl_abapgit_xml_input( iv_xml = get_xml( ) ). + CREATE OBJECT lo_xmlin TYPE zcl_abapgit_xml_input + EXPORTING + 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 93df661e7..ae70908a1 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 4595b9ce0..c72ae8f2f 100644 --- a/src/objects/zcl_abapgit_object_iwmo.clas.abap +++ b/src/objects/zcl_abapgit_object_iwmo.clas.abap @@ -47,9 +47,11 @@ CLASS zcl_abapgit_object_iwmo IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 9d8b356da..bdabf98ed 100644 --- a/src/objects/zcl_abapgit_object_iwom.clas.abap +++ b/src/objects/zcl_abapgit_object_iwom.clas.abap @@ -47,9 +47,11 @@ CLASS zcl_abapgit_object_iwom IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 6b983f3ad..1701dc6ec 100644 --- a/src/objects/zcl_abapgit_object_iwpr.clas.abap +++ b/src/objects/zcl_abapgit_object_iwpr.clas.abap @@ -47,9 +47,11 @@ CLASS zcl_abapgit_object_iwpr IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 068d9c934..9f2646964 100644 --- a/src/objects/zcl_abapgit_object_iwsg.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsg.clas.abap @@ -49,9 +49,11 @@ CLASS zcl_abapgit_object_iwsg IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 48cd5af1e..9e53ba0a2 100644 --- a/src/objects/zcl_abapgit_object_iwsv.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsv.clas.abap @@ -47,9 +47,11 @@ CLASS zcl_abapgit_object_iwsv IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 bcf4641a6..78b21145d 100644 --- a/src/objects/zcl_abapgit_object_iwvb.clas.abap +++ b/src/objects/zcl_abapgit_object_iwvb.clas.abap @@ -47,9 +47,11 @@ CLASS zcl_abapgit_object_iwvb IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 68a6d857a..995788751 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 448cb8a08..f774f0027 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 57dfb0f80..f16d6bd78 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -430,7 +430,7 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. view_not_found = 13 OTHERS = 14. - rv_exit = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( 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 12904d48e..3a2d26068 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 = xsdbool( lv_lock_number > 0 ). + rv_is_locked = boolc( 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 e1f938029..1eded78d9 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 a62107248..73e22c19a 100644 --- a/src/objects/zcl_abapgit_object_otgr.clas.abap +++ b/src/objects/zcl_abapgit_object_otgr.clas.abap @@ -47,9 +47,11 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION. lv_name = ms_item-obj_name. TRY. - ro_otgr = NEW #( im_name = lv_name - im_new = lv_new - im_activation_state = lv_state ). + CREATE OBJECT ro_otgr + EXPORTING + 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 5ca4632db..9f72c478a 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 a4cd0faca..e8ccc60e4 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. - lo_taskdef = NEW #( ). + CREATE OBJECT lo_taskdef. 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. - lo_task = NEW lcl_task_definition( ). + CREATE OBJECT lo_task TYPE 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 7a2b34963..0464b5cb3 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap @@ -61,8 +61,10 @@ CLASS ltc_smoke_test IMPLEMENTATION. ls_item-obj_name = '99999999'. TRY. - mo_cut = NEW zcl_abapgit_object_pdts( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT mo_cut TYPE zcl_abapgit_object_pdts + EXPORTING + 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 c3bef42eb..004a4b501 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 bc318c3e3..51d6993b0 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap @@ -46,8 +46,10 @@ CLASS ltc_lock IMPLEMENTATION. ls_item-obj_type = 'PDXX'. ls_item-obj_name = 'XX' && lc_dummy. - lo_cut = NEW lth_object_pdxx( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT lo_cut TYPE lth_object_pdxx + EXPORTING + is_item = ls_item + iv_language = sy-langu. cl_abap_unit_assert=>assert_equals( act = lo_cut->is_locked( ) exp = abap_true ). @@ -103,8 +105,10 @@ CLASS ltc_general_tests IMPLEMENTATION. ls_item-obj_type = 'PDZZ'. ls_item-obj_name = 'ZZ99999999'. - lo_cut = NEW lth_object_pdxx( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT lo_cut TYPE lth_object_pdxx + EXPORTING + 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 3d4c3fd0d..5437635db 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 5902f3442..eb4f10d85 100644 --- a/src/objects/zcl_abapgit_object_pinf.clas.abap +++ b/src/objects/zcl_abapgit_object_pinf.clas.abap @@ -61,7 +61,9 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. METHOD create_facade. - ri_facade = NEW lcl_package_interface_facade( ii_interface = ii_interface ). + CREATE OBJECT ri_facade TYPE lcl_package_interface_facade + EXPORTING + ii_interface = ii_interface. ENDMETHOD. @@ -295,12 +297,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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 1d3b14d42..5009c4e46 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 79541671b..00bfe1355 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 = xsdbool( lv_rc = 0 ). + rv_bool = boolc( 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 4ef5874b0..93efe4992 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 ba6035323..29564ada8 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. SELECT SINGLE name FROM fplayout INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 a6e44daf0..df9c7c150 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 0003efdb9..bdef8477a 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 = xsdbool( ls_header-id IS NOT INITIAL ). + rv_bool = boolc( 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 ca027d2c4..bf786fc52 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 = xsdbool( ls_extension_header IS NOT INITIAL ). + rv_bool = boolc( 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 1ab9808dd..02dd0c9b6 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 843b3968d..1d9397b04 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 9757c4481..c0e708ea3 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 15ec98937..a1ad570a4 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 bff9b8ee2..9d662f581 100644 --- a/src/objects/zcl_abapgit_object_sobj.clas.abap +++ b/src/objects/zcl_abapgit_object_sobj.clas.abap @@ -85,9 +85,11 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. @@ -98,7 +100,7 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD is_locked. - rv_is_locked = xsdbool( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). + rv_is_locked = boolc( 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 2cfebe50d..c952c764e 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 88e6749f2..4f3001c34 100644 --- a/src/objects/zcl_abapgit_object_sppf.clas.abap +++ b/src/objects/zcl_abapgit_object_sppf.clas.abap @@ -23,8 +23,10 @@ CLASS zcl_abapgit_object_sppf IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 ae81e67bf..605b48727 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 = xsdbool( lv_status = if_proxy=>c_state_active ). + rv_bool = boolc( 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 1d277aef3..1e1189db1 100644 --- a/src/objects/zcl_abapgit_object_sqsc.clas.abap +++ b/src/objects/zcl_abapgit_object_sqsc.clas.abap @@ -156,10 +156,12 @@ CLASS zcl_abapgit_object_sqsc IMPLEMENTATION. IF zcl_abapgit_objects=>exists( ls_item ) = abap_true. - lo_interface = NEW #( is_item = ls_item - iv_language = mv_language - io_files = mo_files - io_i18n_params = mo_i18n_params ). + 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->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 459a05f81..a76dbfa01 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 = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = boolc( 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 53057ceef..ef6da47cb 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 = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = boolc( 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 b2c175717..3416b487d 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. - lo_sf = NEW #( ). + CREATE OBJECT lo_sf. * 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -410,7 +410,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. IMPORTING o_inactive = lv_inactive. - rv_active = xsdbool( lv_inactive = abap_false ). + rv_active = boolc( 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( ). - lo_sf = NEW #( ). + CREATE OBJECT lo_sf. 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 d8bde82fc..1431ff9be 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 99c7af6a6..6ef28118f 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 = xsdbool( lv_found = abap_true ). + rv_bool = boolc( 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 5e21fab35..723496091 100644 --- a/src/objects/zcl_abapgit_object_sucu.clas.abap +++ b/src/objects/zcl_abapgit_object_sucu.clas.abap @@ -23,8 +23,10 @@ CLASS zcl_abapgit_object_sucu IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 fc54e138b..c80e5ef35 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 27c50e5bc..d9e0cc92d 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 1cc41d1ff..21b291782 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 8cf43045c..518dae604 100644 --- a/src/objects/zcl_abapgit_object_sxci.clas.abap +++ b/src/objects/zcl_abapgit_object_sxci.clas.abap @@ -86,8 +86,10 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. lv_package = iv_package. - lo_filter_values_object = NEW #( filter_object = lo_filter_object - filter_values = ls_classic_badi_implementation-filters ). + CREATE OBJECT lo_filter_values_object + EXPORTING + filter_object = lo_filter_object + filter_values = ls_classic_badi_implementation-filters. CALL FUNCTION 'SXO_IMPL_SAVE' EXPORTING @@ -148,7 +150,7 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. data_inconsistency = 2 OTHERS = 3. - rv_bool = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 ad4f8b4c7..8d37c05f8 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 = xsdbool( ms_badi_attr IS NOT INITIAL ). + rv_bool = boolc( 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 5d3454201..ba78356d0 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -264,7 +264,7 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = xsdbool( sy-subrc = 0 ). + rv_exit = boolc( 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 23413baa0..04060fdfa 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 = xsdbool( is_tstcp-param(1) = '@' ). + rv_variant_transaction = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 9bc9601b6..c1126bd7b 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap @@ -52,8 +52,10 @@ CLASS ltcl_split_parameters IMPLEMENTATION. ls_item-obj_name = 'ZDUMMY'. ls_item-obj_type = 'TRAN'. - mo_cut = NEW #( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT mo_cut + EXPORTING + 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 b19931b2c..204c44ab1 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 32e5d1e62..ec51281ac 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( sy-subrc = 0 ). diff --git a/src/objects/zcl_abapgit_object_ueno.clas.abap b/src/objects/zcl_abapgit_object_ueno.clas.abap index 877892e9b..079ac07ac 100644 --- a/src/objects/zcl_abapgit_object_ueno.clas.abap +++ b/src/objects/zcl_abapgit_object_ueno.clas.abap @@ -451,9 +451,11 @@ CLASS zcl_abapgit_object_ueno IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic + EXPORTING + 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 d4806ea64..20144196e 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 = xsdbool( lv_changedate IS NOT INITIAL ). + rv_active = boolc( 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 bf44d12a9..b42c2b637 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 0a17d79f3..4f3fecc04 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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 3184a454f..f5f8a1276 100644 --- a/src/objects/zcl_abapgit_object_wdca.clas.abap +++ b/src/objects/zcl_abapgit_object_wdca.clas.abap @@ -68,8 +68,10 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - lo_cfg = NEW #( config_key = ls_key - object_name = lv_name ). + CREATE OBJECT lo_cfg + EXPORTING + config_key = ls_key + object_name = lv_name. MOVE-CORRESPONDING ls_key TO ls_outline. @@ -128,8 +130,10 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - lo_cfg = NEW #( config_key = ls_key - object_name = lv_name ). + CREATE OBJECT lo_cfg + EXPORTING + config_key = ls_key + object_name = lv_name. MOVE-CORRESPONDING ls_key TO es_outline. @@ -184,8 +188,10 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. MOVE-CORRESPONDING is_outline TO ls_key. TRY. - lo_cfg = NEW #( config_key = ls_key - object_name = lv_name ). + CREATE OBJECT lo_cfg + EXPORTING + config_key = ls_key + object_name = lv_name. READ TABLE it_data INDEX 1 INTO ls_data. ASSERT sy-subrc = 0. @@ -329,7 +335,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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 374b8282f..7ce5617de 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 = xsdbool( lines( lt_enq ) > 0 ). + rv_is_locked = boolc( 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 61b1ca489..c22c52742 100644 --- a/src/objects/zcl_abapgit_object_wdya.clas.abap +++ b/src/objects/zcl_abapgit_object_wdya.clas.abap @@ -72,9 +72,11 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYA IMPLEMENTATION. TRY. - lo_app = NEW #( name = is_app-application_name - definition = is_app - devclass = iv_package ). + CREATE OBJECT lo_app + EXPORTING + 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 6ac70dd39..129543cad 100644 --- a/src/objects/zcl_abapgit_object_wdyn.clas.abap +++ b/src/objects/zcl_abapgit_object_wdyn.clas.abap @@ -803,12 +803,14 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. lv_object_name TYPE seu_objkey. - lo_component = NEW #( ). + CREATE OBJECT lo_component. lv_object_name = ms_item-obj_name. - lo_request = NEW #( p_object_type = 'YC' - p_object_name = lv_object_name - p_operation = swbm_c_op_delete_no_dialog ). + CREATE OBJECT lo_request + EXPORTING + 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 @@ -877,7 +879,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 = xsdbool( sy-subrc = 0 ). + rv_bool = boolc( 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 7389d499e..651d93814 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. - lo_vif = NEW #( ). + CREATE OBJECT lo_vif. 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 13acd9c73..305e7cef9 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 = xsdbool( ls_dd12v IS NOT INITIAL ). + rv_bool = boolc( 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 6a4ce4d64..4b887d410 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 = xsdbool( rv_bool = '1' ). + rv_bool = boolc( rv_bool = '1' ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects.clas.abap b/src/objects/zcl_abapgit_objects.clas.abap index 3b5f42c17..218529719 100644 --- a/src/objects/zcl_abapgit_objects.clas.abap +++ b/src/objects/zcl_abapgit_objects.clas.abap @@ -414,8 +414,11 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. RETURN. ENDIF. - 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 ). + 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. ls_result = li_comparator->compare( ii_remote = li_remote_version ii_log = ii_log ). @@ -508,11 +511,15 @@ 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. - ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item - io_files = io_files - io_i18n_params = io_i18n_params ). + CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge + EXPORTING + is_item = is_item + io_files = io_files + io_i18n_params = io_i18n_params. ELSE. - ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item ). + CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge + EXPORTING + is_item = is_item. ENDIF. CATCH cx_sy_create_object_error. zcx_abapgit_exception=>raise( lv_message ). @@ -724,7 +731,9 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. ii_log->add_info( |>>> Deserializing { lines( lt_items ) } objects| ). ENDIF. - lo_abap_language_vers = NEW #( io_dot_abapgit = lo_dot ). + CREATE OBJECT lo_abap_language_vers + EXPORTING + io_dot_abapgit = lo_dot. lo_folder_logic = zcl_abapgit_folder_logic=>get_instance( ). LOOP AT lt_results ASSIGNING . @@ -1207,14 +1216,14 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. io_files = lo_files io_i18n_params = io_i18n_params ). - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE 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 = xsdbool( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ). RAISE EXCEPTION lx_error. ENDTRY. @@ -1237,7 +1246,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. check_duplicates( rs_files_and_item-files ). - rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = boolc( 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 18423238f..ae2704279 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. - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. ro_settings->set_experimental_features( mv_features ). ENDMETHOD. @@ -209,7 +209,9 @@ 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 }|. - lo_settings = NEW #( iv_features = lv_features ). + CREATE OBJECT lo_settings + EXPORTING + 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 08568a6e8..11a781863 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. - gi_gui_jumper = NEW zcl_abapgit_gui_jumper( ). + CREATE OBJECT gi_gui_jumper TYPE 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 5bf46ed22..1106374f3 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 = xsdbool( sy-dbcnt > 0 ). + rv_bool = boolc( 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 4dda78e06..3094e97a6 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap @@ -28,9 +28,11 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_001'. - lo_cut = NEW #( is_item = ls_item ). + CREATE OBJECT lo_cut + EXPORTING + is_item = ls_item. - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. lo_cut->serialize( li_xml ). * checks that it does not dump @@ -46,8 +48,10 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut + EXPORTING + is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. cl_abap_unit_assert=>assert_equals( exp = 'AGR_DEFINE' @@ -66,8 +70,10 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut + EXPORTING + is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. lt_key_fields = lo_cut->get_key_fields( 'AGR_HIER' ). @@ -92,8 +98,10 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'NSPC'. ls_item-obj_name = '/BIC/'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut + EXPORTING + is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. cl_abap_unit_assert=>assert_equals( exp = `NAMESPACE = '/BIC/'` @@ -120,8 +128,10 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_name+32 = '09'. ls_item-obj_name+34 = 'TEST'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut + EXPORTING + is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. lt_key_fields = lo_cut->get_key_fields( 'WDY_CONFIG_DATA' ). @@ -176,8 +186,10 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_002'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut + EXPORTING + 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 f8c9018d5..093c1fa19 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.abap @@ -731,7 +731,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. METHOD is_exit_include. - rv_is_exit_include = xsdbool( + rv_is_exit_include = boolc( iv_program CP 'LX*' OR iv_program CP 'SAPLX*' OR iv_program+1 CP '/LX*' OR iv_program+1 CP '/SAPLX*' ). ENDMETHOD. @@ -1002,7 +1002,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. IF io_xml IS BOUND. li_xml = io_xml. ELSE. - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE 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 46d438649..d746c3945 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap @@ -34,8 +34,10 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'PROG'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut + EXPORTING + iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -45,8 +47,10 @@ CLASS ltcl_test IMPLEMENTATION. " case 2, FUGR ls_item-obj_type = 'FUGR'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut + EXPORTING + iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -66,8 +70,10 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 'some code starts here' TO lt_src_orig. ls_item-obj_type = 'FUGR'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut + EXPORTING + iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -101,8 +107,10 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'FUGR'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut + EXPORTING + 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 5b646d093..64d82b806 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. - gi_repo = NEW zcl_abapgit_persistence_repo( ). + CREATE OBJECT gi_repo TYPE 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. - gi_repo_cs = NEW zcl_abapgit_persistence_repo( ). + CREATE OBJECT gi_repo_cs TYPE 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. - gi_settings = NEW zcl_abapgit_persist_settings( ). + CREATE OBJECT gi_settings TYPE 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 451399376..77ef0989d 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 = xsdbool( lv_h_own = lv_h_new ). + rv_exists = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_exists = boolc( 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 = xsdbool( sy-subrc = 0 ). + rv_exists = boolc( 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 9652bb2b6..5d0cf3e83 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap @@ -27,8 +27,10 @@ CLASS lcl_cua_interface IMPLEMENTATION. AND object = 'PROG' AND obj_name = sy-cprog. - ro_instance = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT ro_instance + EXPORTING + iv_language = 'E' + is_item = ls_item. ENDMETHOD. @@ -46,7 +48,7 @@ CLASS lcl_cua_interface IMPLEMENTATION. is_cua = is_cua iv_program_name = ms_item-obj_name ). - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE 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 1abe63540..425d44737 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. - lo_input = NEW zcl_abapgit_xml_input( iv_xml = iv_xml ). + CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING 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. - go_persist = NEW #( ). + CREATE OBJECT go_persist. 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. - li_output = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_output TYPE 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 2174e8f79..125dc3af9 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 - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. TRY. diff --git a/src/persist/zcl_abapgit_persistence_db.clas.abap b/src/persist/zcl_abapgit_persistence_db.clas.abap index 8fb9b5add..f73f44ac9 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. - go_db = NEW #( ). + CREATE OBJECT go_db. 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 28d1a727d..48d8fef62 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. - lo_background = NEW #( ). + CREATE OBJECT lo_background. 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 = xsdbool( lines( lt_content ) > 0 ). + rv_yes = boolc( 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 81f47ef0b..751a0bba3 100644 --- a/src/persist/zcl_abapgit_persistence_user.clas.abap +++ b/src/persist/zcl_abapgit_persistence_user.clas.abap @@ -116,11 +116,13 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. IF iv_user = sy-uname ##USER_OK. IF gi_current_user IS NOT BOUND. - gi_current_user = NEW zcl_abapgit_persistence_user( ). + CREATE OBJECT gi_current_user TYPE zcl_abapgit_persistence_user. ENDIF. ri_user = gi_current_user. ELSE. - ri_user = NEW zcl_abapgit_persistence_user( iv_user = iv_user ). + CREATE OBJECT ri_user TYPE zcl_abapgit_persistence_user + EXPORTING + iv_user = iv_user. ENDIF. ENDMETHOD. @@ -335,7 +337,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. READ TABLE ms_user-favorites TRANSPORTING NO FIELDS WITH KEY table_line = iv_repo_key. - rv_yes = xsdbool( sy-subrc = 0 ). + rv_yes = boolc( sy-subrc = 0 ). ENDMETHOD. @@ -449,7 +451,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_changes_only. - ms_user-changes_only = xsdbool( ms_user-changes_only = abap_false ). + ms_user-changes_only = boolc( ms_user-changes_only = abap_false ). update( ). rv_changes_only = ms_user-changes_only. @@ -459,7 +461,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_diff_unified. - ms_user-diff_unified = xsdbool( ms_user-diff_unified = abap_false ). + ms_user-diff_unified = boolc( ms_user-diff_unified = abap_false ). update( ). rv_diff_unified = ms_user-diff_unified. @@ -485,7 +487,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_hide_files. - ms_user-hide_files = xsdbool( ms_user-hide_files = abap_false ). + ms_user-hide_files = boolc( ms_user-hide_files = abap_false ). update( ). rv_hide = ms_user-hide_files. @@ -494,7 +496,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_show_folders. - ms_user-show_folders = xsdbool( ms_user-show_folders = abap_false ). + ms_user-show_folders = boolc( 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 51e31fe93..ba0e65057 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. METHOD teardown. diff --git a/src/repo/stage/zcl_abapgit_merge.clas.abap b/src/repo/stage/zcl_abapgit_merge.clas.abap index cfe84fa74..f9b716c60 100644 --- a/src/repo/stage/zcl_abapgit_merge.clas.abap +++ b/src/repo/stage/zcl_abapgit_merge.clas.abap @@ -92,7 +92,9 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. lt_files = all_files( ). - ms_merge-stage = NEW #( iv_merge_source = ms_merge-source-sha1 ). + CREATE OBJECT ms_merge-stage + EXPORTING + iv_merge_source = ms_merge-source-sha1. LOOP AT lt_files ASSIGNING . @@ -110,9 +112,9 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. WITH KEY path_name COMPONENTS path = -path name = -name. "#EC CI_SUBRC - lv_found_source = xsdbool( IS ASSIGNED ). - lv_found_target = xsdbool( IS ASSIGNED ). - lv_found_common = xsdbool( IS ASSIGNED ). + lv_found_source = boolc( IS ASSIGNED ). + lv_found_target = boolc( IS ASSIGNED ). + lv_found_common = boolc( IS ASSIGNED ). IF lv_found_source = abap_false AND lv_found_target = abap_false. @@ -369,7 +371,7 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. METHOD zif_abapgit_merge~has_conflicts. - rv_conflicts_exists = xsdbool( lines( mt_conflicts ) > 0 ). + rv_conflicts_exists = boolc( 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 580ad16bd..34a56fb7d 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 = xsdbool( mv_is_reassigned = abap_false + rv_is_unchanged = boolc( 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 = xsdbool( mv_is_reassigned = abap_true OR is_repo_item-packmove = abap_true ). + mv_is_reassigned = boolc( 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 = xsdbool( mv_is_reassigned = abap_true OR is_status_item-packmove = abap_true ). + mv_is_reassigned = boolc( 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 272d338c7..477f0ec8f 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. 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 3ddbe6f92..875c75b47 100644 --- a/src/repo/utils/zcl_abapgit_repo_news.clas.abap +++ b/src/repo/utils/zcl_abapgit_repo_news.clas.abap @@ -157,9 +157,11 @@ 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 ). - ro_instance = NEW #( iv_rawdata = -data - iv_current_version = lv_version - iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ) ). + CREATE OBJECT ro_instance + EXPORTING + iv_rawdata = -data + iv_current_version = lv_version + iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ). EXIT. @@ -181,24 +183,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 = xsdbool( sy-subrc IS INITIAL ). + rv_boolean = boolc( sy-subrc IS INITIAL ). ENDMETHOD. METHOD has_news. - rv_boolean = xsdbool( lines( mt_log ) > 0 ). + rv_boolean = boolc( lines( mt_log ) > 0 ). ENDMETHOD. METHOD has_unseen. - rv_boolean = xsdbool( zcl_abapgit_version=>compare( + rv_boolean = boolc( zcl_abapgit_version=>compare( iv_a = mv_latest_version iv_b = mv_lastseen_version ) > 0 ). ENDMETHOD. METHOD has_updates. - rv_boolean = xsdbool( zcl_abapgit_version=>compare( + rv_boolean = boolc( zcl_abapgit_version=>compare( iv_a = mv_latest_version iv_b = mv_current_version ) > 0 ). ENDMETHOD. @@ -277,7 +279,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 = xsdbool( sy-subrc IS INITIAL ). " Change is important + rs_log-is_important = boolc( 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 eef570087..fac2c0c4c 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 - lo_src_text_buf = NEW #( ). + CREATE OBJECT lo_src_text_buf. 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 - lo_log_entries = NEW #( ). + CREATE OBJECT lo_log_entries. " 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) - lo_log_entries = NEW #( ). + CREATE OBJECT lo_log_entries. " 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) - lo_log_entries = NEW #( ). + CREATE OBJECT lo_log_entries. " 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 e399f761d..e6275549d 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. - lo_zip = NEW #( ). + CREATE OBJECT lo_zip. LOOP AT it_files ASSIGNING . CONCATENATE -file-path+1 -file-filename INTO lv_filename. @@ -107,15 +107,17 @@ 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. - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE 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. - lo_serialize = NEW #( io_dot_abapgit = io_dot_abapgit - is_local_settings = is_local_settings ). + CREATE OBJECT lo_serialize + EXPORTING + io_dot_abapgit = io_dot_abapgit + is_local_settings = is_local_settings. lt_zip = lo_serialize->files_local( iv_package = iv_package @@ -313,7 +315,7 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. LIKE LINE OF rt_files. - lo_zip = NEW #( ). + CREATE OBJECT lo_zip. 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 db8ee9264..cea1dc0b6 100644 --- a/src/repo/zcl_abapgit_dot_abapgit.clas.abap +++ b/src/repo/zcl_abapgit_dot_abapgit.clas.abap @@ -170,7 +170,9 @@ CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION. ls_data-starting_folder = '/src/'. ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix. - ro_dot_abapgit = NEW #( is_data = ls_data ). + CREATE OBJECT ro_dot_abapgit + EXPORTING + is_data = ls_data. ENDMETHOD. @@ -190,7 +192,9 @@ CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION. ls_data = from_xml( lv_xml ). - ro_dot_abapgit = NEW #( is_data = ls_data ). + CREATE OBJECT ro_dot_abapgit + EXPORTING + is_data = ls_data. ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo.clas.abap b/src/repo/zcl_abapgit_repo.clas.abap index 9df77bd70..b24ecf3d4 100644 --- a/src/repo/zcl_abapgit_repo.clas.abap +++ b/src/repo/zcl_abapgit_repo.clas.abap @@ -205,7 +205,9 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. DATA lo_abapgit_abap_language_vers TYPE REF TO zcl_abapgit_abap_language_vers. DATA lv_text TYPE string. - lo_abapgit_abap_language_vers = NEW #( io_dot_abapgit = get_dot_abapgit( ) ). + CREATE OBJECT lo_abapgit_abap_language_vers + EXPORTING + 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. | && @@ -270,7 +272,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD create_new_log. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE zcl_abapgit_log. mi_log->set_title( iv_title ). ri_log = mi_log. @@ -368,7 +370,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. RETURN. ENDIF. - ri_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. mi_data_config = ri_config. " Assume remote data has been loaded already @@ -468,7 +470,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. CLEAR lt_tadir. INSERT ls_tadir INTO TABLE lt_tadir. - lo_serialize = NEW #( ). + CREATE OBJECT lo_serialize. lt_new_local_files = lo_serialize->serialize( iv_package = ms_data-package it_tadir = lt_tadir ). @@ -677,7 +679,9 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~checksums. - ri_checksums = NEW zcl_abapgit_repo_checksums( iv_repo_key = ms_data-key ). + CREATE OBJECT ri_checksums TYPE zcl_abapgit_repo_checksums + EXPORTING + iv_repo_key = ms_data-key. ENDMETHOD. @@ -777,7 +781,9 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~get_dot_abapgit. - ro_dot_abapgit = NEW #( is_data = ms_data-dot_abapgit ). + CREATE OBJECT ro_dot_abapgit + EXPORTING + is_data = ms_data-dot_abapgit. ENDMETHOD. @@ -791,8 +797,10 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. RETURN. ENDIF. - lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ) ). + CREATE OBJECT lo_serialize + EXPORTING + io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ). rt_files = lo_serialize->files_local( iv_package = get_package( ) @@ -813,8 +821,10 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt. - lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ) ). + CREATE OBJECT lo_serialize + EXPORTING + io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ). lt_filter = ii_obj_filter->get_filter( ). @@ -843,7 +853,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. IF ii_obj_filter IS NOT INITIAL. lt_filter = ii_obj_filter->get_filter( ). - lr_filter = NEW #( ). + CREATE OBJECT lr_filter. lr_filter->apply_object_filter( EXPORTING it_filter = lt_filter @@ -897,7 +907,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~has_remote_source. - rv_yes = xsdbool( lines( mt_remote ) > 0 ). + rv_yes = boolc( 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 3ad6e045d..fb92cc1af 100644 --- a/src/repo/zcl_abapgit_repo.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo.clas.testclasses.abap @@ -64,7 +64,9 @@ CLASS ltcl_find_remote_dot_abapgit IMPLEMENTATION. ls_data-key = c_dummy_repo_key. " online/offline doesn't matter... - mo_repo = NEW zcl_abapgit_repo_offline( is_data = ls_data ). + CREATE OBJECT mo_repo TYPE zcl_abapgit_repo_offline + EXPORTING + 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 61eb0be6d..899ea49aa 100644 --- a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap @@ -364,13 +364,15 @@ 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. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. 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 ). - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums + EXPORTING + iv_repo_key = '1'. cl_abap_unit_assert=>assert_equals( act = li_cut->get( ) @@ -386,25 +388,27 @@ 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. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - lo_l_builder = NEW #( ). + CREATE OBJECT lo_l_builder. 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 - lo_r_builder = NEW #( ). + CREATE OBJECT lo_r_builder. 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. - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums + EXPORTING + iv_repo_key = '1'. li_cut->rebuild( ). @@ -431,16 +435,18 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lv_cs_exp TYPE string. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). - lo_f_builder = NEW #( ). + CREATE OBJECT lo_f_builder. lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums + EXPORTING + iv_repo_key = '1'. li_cut->update( lo_f_builder->mt_tab ). @@ -486,25 +492,27 @@ 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. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - lo_l_builder = NEW #( ). + CREATE OBJECT lo_l_builder. 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 - lo_r_builder = NEW #( ). + CREATE OBJECT lo_r_builder. 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. - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums + EXPORTING + iv_repo_key = '1'. li_cut->rebuild( ). @@ -547,11 +555,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. - lo_f_builder = NEW #( ). + CREATE OBJECT lo_f_builder. lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - lo_l_builder = NEW #( ). + CREATE OBJECT lo_l_builder. 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 76b4deec4..70a7233cc 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. - lo_state = NEW #( ). + CREATE OBJECT lo_state. 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. - lo_state = NEW #( ). + CREATE OBJECT lo_state. ENDAT. IF -filename IS NOT INITIAL. MOVE-CORRESPONDING TO ls_file. - ls_file-is_changed = xsdbool( -match = abap_false ). " TODO refactor + ls_file-is_changed = boolc( -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. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE 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 87e6488b1..6dd5f1ac5 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. - lo_cs = NEW #( iv_repo_key = iv_repo_key ). + CREATE OBJECT lo_cs EXPORTING 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 51bbfe330..d58536cdd 100644 --- a/src/repo/zcl_abapgit_repo_srv.clas.abap +++ b/src/repo/zcl_abapgit_repo_srv.clas.abap @@ -122,7 +122,7 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD get_instance. IF gi_ref IS INITIAL. - gi_ref = NEW zcl_abapgit_repo_srv( ). + CREATE OBJECT gi_ref TYPE zcl_abapgit_repo_srv. ENDIF. ri_srv = gi_ref. ENDMETHOD. @@ -136,9 +136,13 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD instantiate_and_add. IF is_repo_meta-offline = abap_false. - ri_repo = NEW zcl_abapgit_repo_online( is_data = is_repo_meta ). + CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_online + EXPORTING + is_data = is_repo_meta. ELSE. - ri_repo = NEW zcl_abapgit_repo_offline( is_data = is_repo_meta ). + CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_offline + EXPORTING + 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 f542c40e8..533bef8f5 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 = xsdbool( is_local-file-sha1 = is_remote-sha1 ). + rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ). IF rs_result-match = abap_true. RETURN. ENDIF. @@ -288,8 +288,10 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. ct_local = lt_local ct_remote = lt_remote ). - lo_instance = NEW #( iv_root_package = ii_repo->get_package( ) - io_dot = ii_repo->get_dot_abapgit( ) ). + CREATE OBJECT lo_instance + EXPORTING + iv_root_package = ii_repo->get_package( ) + io_dot = ii_repo->get_dot_abapgit( ). rt_results = lo_instance->calculate_status( it_local = lt_local @@ -298,8 +300,10 @@ 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 - lo_consistency_checks = NEW #( iv_root_package = ii_repo->get_package( ) - io_dot = ii_repo->get_dot_abapgit( ) ). + CREATE OBJECT lo_consistency_checks + EXPORTING + 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 69e5d4b91..938bab5f4 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. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE 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 4af21c2cb..b4a6be9af 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 = xsdbool( iv_namespace <> 'NOTEXIST' ). + rv_yes = boolc( iv_namespace <> 'NOTEXIST' ). ENDMETHOD. METHOD zif_abapgit_sap_namespace~is_editable. @@ -149,7 +149,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. METHOD setup. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE zcl_abapgit_log. mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). mo_dot->set_starting_folder( '/' ). " assumed by unit tests @@ -162,8 +162,10 @@ CLASS ltcl_run_checks IMPLEMENTATION. zcl_abapgit_injector=>set_sap_namespace( me ). - mo_instance = NEW #( iv_root_package = '$Z$' - io_dot = mo_dot ). + CREATE OBJECT mo_instance + EXPORTING + iv_root_package = '$Z$' + io_dot = mo_dot. ENDMETHOD. @@ -503,8 +505,10 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '#notexist#zclass1.clas.xml' ). - mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot ). + CREATE OBJECT mo_instance + EXPORTING + iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot. mi_log = mo_instance->run_checks( mt_results ). @@ -530,8 +534,10 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '(notexist)zclass1.clas.json' ). - mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot ). + CREATE OBJECT mo_instance + EXPORTING + iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot. mi_log = mo_instance->run_checks( mt_results ). @@ -565,8 +571,10 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '' iv_filename = 'package.devc.xml' ). - mo_instance = NEW #( iv_root_package = '$MAIN' - io_dot = mo_dot ). + CREATE OBJECT mo_instance + EXPORTING + iv_root_package = '$MAIN' + io_dot = mo_dot. mi_log = mo_instance->run_checks( mt_results ). @@ -771,15 +779,19 @@ CLASS ltcl_status_helper IMPLEMENTATION. lo_dot = zcl_abapgit_dot_abapgit=>build_default( ). lo_dot->set_starting_folder( '/' ). " assumed by unit tests - lo_instance = NEW #( iv_root_package = iv_devclass - io_dot = lo_dot ). + CREATE OBJECT lo_instance + EXPORTING + 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 ). - ro_result = NEW #( it_results = lt_results ). + CREATE OBJECT ro_result + EXPORTING + it_results = lt_results. ENDMETHOD. @@ -820,7 +832,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD setup. - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. zcl_abapgit_injector=>set_tadir( mo_helper ). ENDMETHOD. @@ -920,7 +932,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD diff. " Modified both - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -948,7 +960,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-modified ). " Modified local only - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -976,7 +988,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-unchanged ). " Modified remote only - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. 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 ddb4c1aac..da17dce0f 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 = xsdbool( sy-subrc = 0 ). + rv_yes = boolc( 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 5e4e5a283..2f258d464 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. @@ -64,7 +64,7 @@ ENDCLASS. CLASS ltcl_syntax_basic_logic IMPLEMENTATION. METHOD setup. - mo_syntax_highlighter = NEW #( ). + CREATE OBJECT mo_syntax_highlighter. ENDMETHOD. METHOD format_line. @@ -182,7 +182,7 @@ CLASS ltcl_syntax_cases IMPLEMENTATION. lo_syntax TYPE REF TO zcl_abapgit_syntax_abap. - lo_syntax = NEW #( ). + CREATE OBJECT lo_syntax. 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 5d16feeef..30bad99b2 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 = xsdbool( sy-subrc = 0 ). + rv_yes = boolc( 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 15204ac83..6f1e62929 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'. - ro_instance = NEW zcl_abapgit_syntax_abap( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_abap. ELSEIF iv_filename CP '*.xml' OR iv_filename CP '*.html' OR iv_filename CP '*.xdp'. - ro_instance = NEW zcl_abapgit_syntax_xml( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_xml. ELSEIF iv_filename CP '*.css'. - ro_instance = NEW zcl_abapgit_syntax_css( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_css. ELSEIF iv_filename CP '*.js'. - ro_instance = NEW zcl_abapgit_syntax_js( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_js. ELSEIF iv_filename CP '*.json' OR iv_filename CP '*.jsonc'. - ro_instance = NEW zcl_abapgit_syntax_json( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_json. ELSEIF iv_filename CP '*.txt' OR iv_filename CP '*.ini' OR iv_filename CP '*.text'. - ro_instance = NEW zcl_abapgit_syntax_txt( ). + CREATE OBJECT ro_instance TYPE 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 8bd1501bb..6507128e6 100644 --- a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap @@ -93,8 +93,10 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. DATA ls_rule LIKE LINE OF mt_rules. IF NOT iv_regex IS INITIAL. - ls_rule-regex = NEW #( pattern = iv_regex - ignore_case = abap_true ). + CREATE OBJECT ls_rule-regex + EXPORTING + pattern = iv_regex + ignore_case = abap_true. ENDIF. ls_rule-token = iv_token. @@ -192,7 +194,7 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. "/^\s+$/ lv_whitespace = ` ` && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. - rv_result = xsdbool( iv_string CO lv_whitespace ). + rv_result = boolc( 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 93d6f417d..862def9bd 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 = xsdbool( sy-subrc = 0 ). + rv_yes = boolc( 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 d4141262c..dd12c12fd 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap index 37a3e4fc4..587c5d464 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. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. @@ -121,7 +121,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. act = mo_cut->process_line( |