From 0736cf5eeaa51efe09bac2af06438b5ab99c2a54 Mon Sep 17 00:00:00 2001 From: CI Date: Tue, 27 Jun 2023 12:24:54 +0000 Subject: [PATCH] upport --- package.json | 2 +- .../zcl_abapgit_apack_migration.clas.abap | 6 +- src/apack/zcl_abapgit_apack_reader.clas.abap | 4 +- 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 +- .../zcl_abapgit_default_transport.clas.abap | 2 +- 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 | 4 +- src/data/zcl_abapgit_data_factory.clas.abap | 8 +- ...pgit_data_serializer.clas.testclasses.abap | 4 +- ...apgit_data_supporter.clas.testclasses.abap | 4 +- src/exits/zcl_abapgit_exit.clas.abap | 2 +- ...bapgit_git_add_patch.clas.testclasses.abap | 4 +- src/git/zcl_abapgit_git_commit.clas.abap | 2 +- src/git/zcl_abapgit_git_pack.clas.abap | 4 +- 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 +- src/json/zcl_abapgit_ajson.clas.abap | 50 ++-- .../zcl_abapgit_ajson.clas.locals_imp.abap | 14 +- .../zcl_abapgit_ajson.clas.testclasses.abap | 258 +++++++++--------- .../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 | 6 +- .../aff/zcl_abapgit_json_handler.clas.abap | 2 +- ..._abapgit_json_handler.clas.locals_imp.abap | 4 +- ...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 | 7 +- ...bapgit_objects_files.clas.testclasses.abap | 12 +- .../core/zcl_abapgit_serialize.clas.abap | 4 +- ...cl_abapgit_serialize.clas.testclasses.abap | 26 +- .../ecatt/zcl_abapgit_ecatt_helper.clas.abap | 4 +- .../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 | 4 +- .../oo/zcl_abapgit_oo_interface.clas.abap | 2 +- ...bapgit_oo_serializer.clas.testclasses.abap | 2 +- .../rules/zcl_abapgit_field_rules.clas.abap | 2 +- .../sap/zcl_abapgit_sap_namespace.clas.abap | 4 +- .../sap/zcl_abapgit_sap_package.clas.abap | 4 +- .../texts/zcl_abapgit_longtexts.clas.abap | 2 +- ...cl_abapgit_longtexts.clas.testclasses.abap | 2 +- 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_clas.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 | 4 +- 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 | 2 +- ...l_abapgit_object_intf.clas.locals_imp.abap | 6 +- ..._abapgit_object_intf.clas.testclasses.abap | 18 +- 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 | 6 +- 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_tabl.clas.abap | 17 +- .../zcl_abapgit_object_tabl_compar.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 | 27 +- .../zcl_abapgit_objects_generic.clas.abap | 2 +- ...pgit_objects_generic.clas.testclasses.abap | 36 +-- .../zcl_abapgit_objects_program.clas.abap | 2 +- ...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 +- src/progress/zcl_abapgit_progress.clas.abap | 2 +- src/repo/zcl_abapgit_dot_abapgit.clas.abap | 8 +- src/repo/zcl_abapgit_file_status.clas.abap | 14 +- ...l_abapgit_file_status.clas.locals_imp.abap | 2 +- ..._abapgit_file_status.clas.testclasses.abap | 46 ++-- ...t_object_filter_tran.clas.testclasses.abap | 2 +- src/repo/zcl_abapgit_repo.clas.abap | 22 +- .../zcl_abapgit_repo.clas.testclasses.abap | 4 +- ...apgit_repo_checksums.clas.testclasses.abap | 38 +-- .../zcl_abapgit_repo_content_list.clas.abap | 10 +- .../zcl_abapgit_repo_cs_migration.clas.abap | 2 +- src/repo/zcl_abapgit_repo_offline.clas.abap | 2 +- src/repo/zcl_abapgit_repo_srv.clas.abap | 10 +- src/stage/zcl_abapgit_merge.clas.abap | 12 +- 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 +- 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 | 12 +- .../zcl_abapgit_html.clas.testclasses.abap | 6 +- ...l_abapgit_html_parts.clas.testclasses.abap | 8 +- .../zcl_abapgit_html_viewer_gui.clas.abap | 6 +- .../zcl_abapgit_exception_viewer.clas.abap | 4 +- .../lib/zcl_abapgit_gui_chunk_lib.clas.abap | 64 ++--- ...bapgit_gui_chunk_lib.clas.testclasses.abap | 2 +- .../zcl_abapgit_gui_in_page_modal.clas.abap | 12 +- 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_popups.clas.abap | 16 +- ...l_abapgit_html_popups.clas.locals_imp.abap | 24 +- src/ui/lib/zcl_abapgit_html_table.clas.abap | 4 +- ...l_abapgit_html_table.clas.testclasses.abap | 2 +- src/ui/lib/zcl_abapgit_html_toolbar.clas.abap | 10 +- src/ui/lib/zcl_abapgit_log_viewer.clas.abap | 10 +- .../zcl_abapgit_gui_page_addofflin.clas.abap | 8 +- .../zcl_abapgit_gui_page_addonline.clas.abap | 10 +- .../zcl_abapgit_gui_page_code_insp.clas.abap | 14 +- .../zcl_abapgit_gui_page_codi_base.clas.abap | 6 +- .../zcl_abapgit_gui_page_commit.clas.abap | 18 +- .../pages/zcl_abapgit_gui_page_data.clas.abap | 14 +- .../pages/zcl_abapgit_gui_page_db.clas.abap | 12 +- .../zcl_abapgit_gui_page_db_entry.clas.abap | 14 +- .../zcl_abapgit_gui_page_debuginfo.clas.abap | 24 +- .../pages/zcl_abapgit_gui_page_diff.clas.abap | 64 ++--- .../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 | 24 +- .../zcl_abapgit_gui_page_merge_res.clas.abap | 22 +- .../zcl_abapgit_gui_page_merge_sel.clas.abap | 16 +- .../zcl_abapgit_gui_page_patch.clas.abap | 10 +- .../zcl_abapgit_gui_page_repo_over.clas.abap | 28 +- .../zcl_abapgit_gui_page_repo_view.clas.abap | 58 ++-- .../zcl_abapgit_gui_page_run_bckg.clas.abap | 4 +- .../zcl_abapgit_gui_page_runit.clas.abap | 10 +- .../zcl_abapgit_gui_page_sett_bckg.clas.abap | 12 +- .../zcl_abapgit_gui_page_sett_glob.clas.abap | 24 +- .../zcl_abapgit_gui_page_sett_info.clas.abap | 8 +- .../zcl_abapgit_gui_page_sett_locl.clas.abap | 20 +- .../zcl_abapgit_gui_page_sett_pers.clas.abap | 16 +- .../zcl_abapgit_gui_page_sett_remo.clas.abap | 16 +- .../zcl_abapgit_gui_page_sett_repo.clas.abap | 14 +- .../zcl_abapgit_gui_page_stage.clas.abap | 24 +- .../zcl_abapgit_gui_page_syntax.clas.abap | 2 +- .../pages/zcl_abapgit_gui_page_tags.clas.abap | 14 +- .../zcl_abapgit_gui_page_tutorial.clas.abap | 6 +- .../routing/zcl_abapgit_gui_router.clas.abap | 42 +-- ...apgit_services_basis.clas.testclasses.abap | 8 +- .../zcl_abapgit_services_repo.clas.abap | 6 +- 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_diff.clas.abap | 6 +- .../zcl_abapgit_diff.clas.testclasses.abap | 12 +- src/utils/zcl_abapgit_environment.clas.abap | 4 +- ..._abapgit_environment.clas.testclasses.abap | 2 +- src/utils/zcl_abapgit_item_state.clas.abap | 6 +- ...l_abapgit_item_state.clas.testclasses.abap | 4 +- src/utils/zcl_abapgit_log.clas.abap | 4 +- .../zcl_abapgit_log.clas.testclasses.abap | 10 +- src/utils/zcl_abapgit_news.clas.abap | 18 +- .../zcl_abapgit_news.clas.testclasses.abap | 8 +- 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_user_record.clas.abap | 4 +- src/utils/zcl_abapgit_utils.clas.abap | 4 +- src/utils/zcl_abapgit_zip.clas.abap | 12 +- 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 | 2 +- src/zcl_abapgit_factory.clas.abap | 25 +- ...zcl_abapgit_injector.clas.testclasses.abap | 2 +- src/zcl_abapgit_settings.clas.abap | 4 +- ...cx_abapgit_exception.clas.testclasses.abap | 10 +- 314 files changed, 1184 insertions(+), 1612 deletions(-) diff --git a/package.json b/package.json index 7a7c1b334..c5932e33c 100644 --- a/package.json +++ b/package.json @@ -1,5 +1,5 @@ { "dependencies": { - "@abaplint/cli": "^2.101.26" + "@abaplint/cli": "^2.101.27" } } diff --git a/src/apack/zcl_abapgit_apack_migration.clas.abap b/src/apack/zcl_abapgit_apack_migration.clas.abap index 885b479af..b5092bd26 100644 --- a/src/apack/zcl_abapgit_apack_migration.clas.abap +++ b/src/apack/zcl_abapgit_apack_migration.clas.abap @@ -244,7 +244,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION. SELECT SINGLE clsname FROM seoclass INTO lv_interface_name WHERE clsname = zif_abapgit_apack_definitions=>c_apack_interface_cust. - rv_interface_exists = boolc( sy-subrc = 0 ). + rv_interface_exists = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -254,7 +254,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION. FIELD-SYMBOLS: TYPE i. ASSIGN (zif_abapgit_apack_definitions=>c_apack_interface_cust)=>('CO_INTERFACE_VERSION') TO . - rv_interface_valid = boolc( IS ASSIGNED + rv_interface_valid = xsdbool( IS ASSIGNED AND >= c_apack_interface_version ). ENDMETHOD. @@ -275,7 +275,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION. DATA: lo_apack_migration TYPE REF TO zcl_abapgit_apack_migration. - CREATE OBJECT lo_apack_migration. + lo_apack_migration = NEW #( ). lo_apack_migration->perform_migration( ). ENDMETHOD. diff --git a/src/apack/zcl_abapgit_apack_reader.clas.abap b/src/apack/zcl_abapgit_apack_reader.clas.abap index 79eeeba67..2603e713a 100644 --- a/src/apack/zcl_abapgit_apack_reader.clas.abap +++ b/src/apack/zcl_abapgit_apack_reader.clas.abap @@ -117,9 +117,7 @@ CLASS zcl_abapgit_apack_reader IMPLEMENTATION. METHOD create_instance. - CREATE OBJECT ro_manifest_reader - EXPORTING - iv_package_name = iv_package_name. + ro_manifest_reader = NEW #( iv_package_name = iv_package_name ). ENDMETHOD. diff --git a/src/apack/zcl_abapgit_apack_writer.clas.abap b/src/apack/zcl_abapgit_apack_writer.clas.abap index b818ea887..7df13be47 100644 --- a/src/apack/zcl_abapgit_apack_writer.clas.abap +++ b/src/apack/zcl_abapgit_apack_writer.clas.abap @@ -35,7 +35,7 @@ CLASS zcl_abapgit_apack_writer IMPLEMENTATION. METHOD create_instance. - CREATE OBJECT ro_manifest_writer EXPORTING is_apack_manifest_descriptor = is_apack_manifest_descriptor. + ro_manifest_writer = NEW #( is_apack_manifest_descriptor = is_apack_manifest_descriptor ). ENDMETHOD. diff --git a/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap b/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap index bb70e1e31..fdf8a58f5 100644 --- a/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap +++ b/src/apack/zcl_abapgit_apack_writer.clas.testclasses.abap @@ -22,15 +22,15 @@ CLASS ltcl_apack_manifest_writer IMPLEMENTATION. lv_actual_xml = lo_manifest_writer->serialize( ). cl_abap_unit_assert=>assert_not_initial( lv_actual_xml ). - lv_bool = boolc( contains( val = lv_actual_xml + lv_bool = xsdbool( contains( val = lv_actual_xml sub = 'abapGit' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). - lv_bool = boolc( contains( val = lv_actual_xml + lv_bool = xsdbool( contains( val = lv_actual_xml sub = 'github.com/larshp' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). - lv_bool = boolc( contains( val = lv_actual_xml + lv_bool = xsdbool( contains( val = lv_actual_xml sub = 'abapGit' ) ). cl_abap_unit_assert=>assert_equals( act = lv_bool exp = abap_true ). diff --git a/src/background/zcl_abapgit_background.clas.abap b/src/background/zcl_abapgit_background.clas.abap index 806ddd843..2737461ab 100644 --- a/src/background/zcl_abapgit_background.clas.abap +++ b/src/background/zcl_abapgit_background.clas.abap @@ -96,7 +96,7 @@ CLASS ZCL_ABAPGIT_BACKGROUND IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_per. + lo_per = NEW #( ). lt_list = lo_per->list( ). WRITE: / 'Background mode'. @@ -112,7 +112,7 @@ CLASS ZCL_ABAPGIT_BACKGROUND IMPLEMENTATION. iv_username = -username iv_password = -password ). - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). CREATE OBJECT li_background TYPE (-method). li_background->run( diff --git a/src/background/zcl_abapgit_background_push_au.clas.abap b/src/background/zcl_abapgit_background_push_au.clas.abap index 97e9c65a7..7fc6c808c 100644 --- a/src/background/zcl_abapgit_background_push_au.clas.abap +++ b/src/background/zcl_abapgit_background_push_au.clas.abap @@ -132,7 +132,7 @@ CLASS zcl_abapgit_background_push_au IMPLEMENTATION. * Fill user details ls_comment-committer = determine_user_details( lv_changed_by ). - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). CLEAR ls_user_files. @@ -193,7 +193,7 @@ CLASS zcl_abapgit_background_push_au IMPLEMENTATION. ASSERT lines( is_files-remote ) > 0. - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). ls_comment-comment = 'BG: Deletion'. diff --git a/src/background/zcl_abapgit_background_push_fi.clas.abap b/src/background/zcl_abapgit_background_push_fi.clas.abap index d1d49911e..2fb0f36ff 100644 --- a/src/background/zcl_abapgit_background_push_fi.clas.abap +++ b/src/background/zcl_abapgit_background_push_fi.clas.abap @@ -77,7 +77,7 @@ CLASS zcl_abapgit_background_push_fi IMPLEMENTATION. ASSERT lines( ls_files-local ) > 0 OR lines( ls_files-remote ) > 0. - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). LOOP AT ls_files-local ASSIGNING . mi_log->add_info( |stage: { -file-path } { -file-filename }| ). diff --git a/src/cts/zcl_abapgit_cts_api.clas.abap b/src/cts/zcl_abapgit_cts_api.clas.abap index 23b719bc0..35d844093 100644 --- a/src/cts/zcl_abapgit_cts_api.clas.abap +++ b/src/cts/zcl_abapgit_cts_api.clas.abap @@ -173,7 +173,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. zcx_abapgit_exception=>raise_t100( ). ENDIF. - rv_locked = boolc( lv_lock_flag <> space ). + rv_locked = xsdbool( lv_lock_flag <> space ). ENDMETHOD. @@ -191,7 +191,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. IMPORTING pe_result = lv_type_check_result. - rv_lockable = boolc( lv_type_check_result = 'L' ). + rv_lockable = xsdbool( lv_type_check_result = 'L' ). ENDMETHOD. @@ -209,7 +209,7 @@ CLASS zcl_abapgit_cts_api IMPLEMENTATION. IMPORTING pe_result = lv_type_check_result. - rv_transportable = boolc( lv_type_check_result CA 'RTL' ). + rv_transportable = xsdbool( lv_type_check_result CA 'RTL' ). ENDMETHOD. diff --git a/src/cts/zcl_abapgit_default_transport.clas.abap b/src/cts/zcl_abapgit_default_transport.clas.abap index 820ef2da2..d49b13e08 100644 --- a/src/cts/zcl_abapgit_default_transport.clas.abap +++ b/src/cts/zcl_abapgit_default_transport.clas.abap @@ -113,7 +113,7 @@ CLASS zcl_abapgit_default_transport IMPLEMENTATION. METHOD get_instance. IF go_instance IS NOT BOUND. - CREATE OBJECT go_instance. + go_instance = NEW #( ). ENDIF. ro_instance = go_instance. diff --git a/src/cts/zcl_abapgit_transport.clas.abap b/src/cts/zcl_abapgit_transport.clas.abap index fbe7a051d..3661af577 100644 --- a/src/cts/zcl_abapgit_transport.clas.abap +++ b/src/cts/zcl_abapgit_transport.clas.abap @@ -342,9 +342,7 @@ CLASS zcl_abapgit_transport IMPLEMENTATION. lv_message TYPE string. FIELD-SYMBOLS: TYPE sprot_u. - CREATE OBJECT li_log TYPE zcl_abapgit_log - EXPORTING - iv_title = iv_title. + li_log = NEW zcl_abapgit_log( iv_title = iv_title ). LOOP AT it_log ASSIGNING . diff --git a/src/cts/zcl_abapgit_transport_2_branch.clas.abap b/src/cts/zcl_abapgit_transport_2_branch.clas.abap index 26e619f2f..aa6aff6fd 100644 --- a/src/cts/zcl_abapgit_transport_2_branch.clas.abap +++ b/src/cts/zcl_abapgit_transport_2_branch.clas.abap @@ -48,7 +48,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT_2_BRANCH IMPLEMENTATION. io_repository->create_branch( lv_branch_name ). - CREATE OBJECT lo_stage. + lo_stage = NEW #( ). ls_stage_objects = zcl_abapgit_factory=>get_stage_logic( )->get( io_repository ). @@ -76,9 +76,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT_2_BRANCH IMPLEMENTATION. METHOD stage_transport_objects. DATA lo_transport_objects TYPE REF TO zcl_abapgit_transport_objects. - CREATE OBJECT lo_transport_objects - EXPORTING - it_transport_objects = it_transport_objects. + lo_transport_objects = NEW #( it_transport_objects = it_transport_objects ). lo_transport_objects->to_stage( io_stage = io_stage diff --git a/src/cts/zcl_abapgit_transport_mass.clas.abap b/src/cts/zcl_abapgit_transport_mass.clas.abap index 404daae8c..f0634b564 100644 --- a/src/cts/zcl_abapgit_transport_mass.clas.abap +++ b/src/cts/zcl_abapgit_transport_mass.clas.abap @@ -40,9 +40,7 @@ CLASS zcl_abapgit_transport_mass IMPLEMENTATION. ENDIF. * Instantiate transport zipper object that will also create the timestamped output folder - CREATE OBJECT lo_transport_zipper TYPE lcl_transport_zipper - EXPORTING - iv_folder = lv_folder. + lo_transport_zipper = NEW lcl_transport_zipper( iv_folder = lv_folder ). * Generate the local zip files from the given list of transport requests lo_transport_zipper->generate_files( diff --git a/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap b/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap index 1a78235c5..022d13385 100644 --- a/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap +++ b/src/cts/zcl_abapgit_transport_objects.clas.testclasses.abap @@ -63,7 +63,7 @@ ENDCLASS. CLASS ltcl_transport_objects IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_stage. + mo_stage = NEW #( ). ENDMETHOD. METHOD add_new_to_local_files. @@ -391,9 +391,7 @@ CLASS ltcl_transport_objects IMPLEMENTATION. ENDMETHOD. METHOD when_staging. - CREATE OBJECT mo_transport_objects - EXPORTING - it_transport_objects = mt_transport_objects. + mo_transport_objects = NEW #( it_transport_objects = mt_transport_objects ). mo_transport_objects->to_stage( io_stage = mo_stage is_stage_objects = ms_stage_objects diff --git a/src/data/zcl_abapgit_data_config.clas.testclasses.abap b/src/data/zcl_abapgit_data_config.clas.testclasses.abap index 291778a63..c3be633a0 100644 --- a/src/data/zcl_abapgit_data_config.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_config.clas.testclasses.abap @@ -38,7 +38,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA li_config TYPE REF TO zif_abapgit_data_config. DATA ls_config TYPE zif_abapgit_data_config=>ty_config. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_config = NEW zcl_abapgit_data_config( ). ls_config-name = 'HELLO'. ls_config-type = zif_abapgit_data_config=>c_data_type-tabu. @@ -64,7 +64,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA lv_json TYPE string. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_config = NEW zcl_abapgit_data_config( ). li_config->add_config( ms_config ). lt_files = li_config->to_json( ). @@ -92,7 +92,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA li_config TYPE REF TO zif_abapgit_data_config. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_config = NEW zcl_abapgit_data_config( ). li_config->from_json( it_files ). diff --git a/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap b/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap index ff5bcb206..2085ef0ba 100644 --- a/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_deserializer.clas.testclasses.abap @@ -18,8 +18,8 @@ CLASS ltcl_test IMPLEMENTATION. DATA lt_files TYPE zif_abapgit_git_definitions=>ty_files_tt. DATA ls_config TYPE zif_abapgit_data_config=>ty_config. - CREATE OBJECT li_cut TYPE zcl_abapgit_data_deserializer. - CREATE OBJECT li_config TYPE zcl_abapgit_data_config. + li_cut = NEW zcl_abapgit_data_deserializer( ). + li_config = NEW zcl_abapgit_data_config( ). ls_config-type = zif_abapgit_data_config=>c_data_type-tabu. ls_config-name = 'T100'. diff --git a/src/data/zcl_abapgit_data_factory.clas.abap b/src/data/zcl_abapgit_data_factory.clas.abap index 42533cffd..69a6acb6c 100644 --- a/src/data/zcl_abapgit_data_factory.clas.abap +++ b/src/data/zcl_abapgit_data_factory.clas.abap @@ -31,14 +31,14 @@ CLASS zcl_abapgit_data_factory IMPLEMENTATION. METHOD get_config. - CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. + ri_config = NEW zcl_abapgit_data_config( ). ENDMETHOD. METHOD get_deserializer. IF gi_deserializer IS INITIAL. - CREATE OBJECT gi_deserializer TYPE zcl_abapgit_data_deserializer. + gi_deserializer = NEW zcl_abapgit_data_deserializer( ). ENDIF. ri_deserializer = gi_deserializer. @@ -49,7 +49,7 @@ CLASS zcl_abapgit_data_factory IMPLEMENTATION. METHOD get_serializer. IF gi_serializer IS INITIAL. - CREATE OBJECT gi_serializer TYPE zcl_abapgit_data_serializer. + gi_serializer = NEW zcl_abapgit_data_serializer( ). ENDIF. ri_serializer = gi_serializer. @@ -60,7 +60,7 @@ CLASS zcl_abapgit_data_factory IMPLEMENTATION. METHOD get_supporter. IF gi_supporter IS INITIAL. - CREATE OBJECT gi_supporter TYPE zcl_abapgit_data_supporter. + gi_supporter = NEW zcl_abapgit_data_supporter( ). ENDIF. ri_supporter = gi_supporter. diff --git a/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap b/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap index 8fa5c1caa..bed13a762 100644 --- a/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_serializer.clas.testclasses.abap @@ -18,8 +18,8 @@ ENDCLASS. CLASS ltcl_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mi_cut TYPE zcl_abapgit_data_serializer. - CREATE OBJECT mi_config TYPE zcl_abapgit_data_config. + mi_cut = NEW zcl_abapgit_data_serializer( ). + mi_config = NEW zcl_abapgit_data_config( ). ENDMETHOD. METHOD serialize. diff --git a/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap b/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap index 82c5a0d03..8066335ee 100644 --- a/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap +++ b/src/data/zcl_abapgit_data_supporter.clas.testclasses.abap @@ -50,8 +50,8 @@ CLASS ltcl_supporter IMPLEMENTATION. DATA lv_act TYPE abap_bool. " Mock sets table T005 to be supported - CREATE OBJECT lo_mock. - CREATE OBJECT lo_inject. + lo_mock = NEW #( ). + lo_inject = NEW #( ). lo_inject->set_supporter( lo_mock ). lv_act = zcl_abapgit_data_factory=>get_supporter( )->is_object_supported( diff --git a/src/exits/zcl_abapgit_exit.clas.abap b/src/exits/zcl_abapgit_exit.clas.abap index c34b79f6c..184383c63 100644 --- a/src/exits/zcl_abapgit_exit.clas.abap +++ b/src/exits/zcl_abapgit_exit.clas.abap @@ -38,7 +38,7 @@ CLASS zcl_abapgit_exit IMPLEMENTATION. ENDTRY. ENDIF. - CREATE OBJECT ri_exit TYPE zcl_abapgit_exit. + ri_exit = NEW zcl_abapgit_exit( ). ENDMETHOD. diff --git a/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap b/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap index 07782d2e1..ba2975649 100644 --- a/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap +++ b/src/git/zcl_abapgit_git_add_patch.clas.testclasses.abap @@ -667,9 +667,7 @@ CLASS ltcl_calculate_patch IMPLEMENTATION. DATA: lo_git_add_patch TYPE REF TO zcl_abapgit_git_add_patch. - CREATE OBJECT lo_git_add_patch - EXPORTING - it_diff = mt_diff. + lo_git_add_patch = NEW #( it_diff = mt_diff ). TRY. mt_patch = lo_git_add_patch->get_patch( ). diff --git a/src/git/zcl_abapgit_git_commit.clas.abap b/src/git/zcl_abapgit_git_commit.clas.abap index dab27f2a8..6047beea4 100644 --- a/src/git/zcl_abapgit_git_commit.clas.abap +++ b/src/git/zcl_abapgit_git_commit.clas.abap @@ -221,7 +221,7 @@ CLASS zcl_abapgit_git_commit IMPLEMENTATION. READ TABLE it_commits TRANSPORTING NO FIELDS WITH KEY sha1 = iv_sha1. - rv_result = boolc( sy-subrc <> 0 ). + rv_result = xsdbool( sy-subrc <> 0 ). ENDIF. diff --git a/src/git/zcl_abapgit_git_pack.clas.abap b/src/git/zcl_abapgit_git_pack.clas.abap index 779ba29bc..9a7ea80ae 100644 --- a/src/git/zcl_abapgit_git_pack.clas.abap +++ b/src/git/zcl_abapgit_git_pack.clas.abap @@ -521,9 +521,7 @@ CLASS ZCL_ABAPGIT_GIT_PACK IMPLEMENTATION. FIELD-SYMBOLS: LIKE LINE OF ct_objects. - CREATE OBJECT lo_stream - EXPORTING - iv_data = is_object-data. + lo_stream = NEW #( iv_data = is_object-data ). * find base READ TABLE ct_objects ASSIGNING diff --git a/src/git/zcl_abapgit_git_transport.clas.abap b/src/git/zcl_abapgit_git_transport.clas.abap index d3f05d80a..15a3173d3 100644 --- a/src/git/zcl_abapgit_git_transport.clas.abap +++ b/src/git/zcl_abapgit_git_transport.clas.abap @@ -141,9 +141,7 @@ CLASS zcl_abapgit_git_transport IMPLEMENTATION. lv_data = eo_client->get_cdata( ). - CREATE OBJECT eo_branch_list - EXPORTING - iv_data = lv_data. + eo_branch_list = NEW #( iv_data = lv_data ). ENDMETHOD. diff --git a/src/git/zcl_abapgit_git_utils.clas.testclasses.abap b/src/git/zcl_abapgit_git_utils.clas.testclasses.abap index 5f559f8af..8a50cf3eb 100644 --- a/src/git/zcl_abapgit_git_utils.clas.testclasses.abap +++ b/src/git/zcl_abapgit_git_utils.clas.testclasses.abap @@ -14,7 +14,7 @@ ENDCLASS. CLASS ltcl_git_utils IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD get_null. diff --git a/src/git/zlib/zcl_abapgit_zlib.clas.abap b/src/git/zlib/zcl_abapgit_zlib.clas.abap index 6c9808258..9ef26b3e4 100644 --- a/src/git/zlib/zcl_abapgit_zlib.clas.abap +++ b/src/git/zlib/zcl_abapgit_zlib.clas.abap @@ -142,9 +142,7 @@ CLASS ZCL_ABAPGIT_ZLIB IMPLEMENTATION. ENDIF. CLEAR gv_out. - CREATE OBJECT go_stream - EXPORTING - iv_data = iv_compressed. + go_stream = NEW #( iv_data = iv_compressed ). DO. lv_bfinal = go_stream->take_bits( 1 ). @@ -227,9 +225,7 @@ CLASS ZCL_ABAPGIT_ZLIB IMPLEMENTATION. = go_stream->take_int( 3 ). ENDDO. - CREATE OBJECT go_lencode - EXPORTING - it_lengths = lt_lengths. + go_lencode = NEW #( it_lengths = lt_lengths ). CLEAR lt_lengths. WHILE lines( lt_lengths ) < lv_nlen + lv_ndist. @@ -258,13 +254,9 @@ CLASS ZCL_ABAPGIT_ZLIB IMPLEMENTATION. DELETE lt_lengths FROM lv_nlen + 1. DELETE lt_dists TO lv_nlen. - CREATE OBJECT go_lencode - EXPORTING - it_lengths = lt_lengths. + go_lencode = NEW #( it_lengths = lt_lengths ). - CREATE OBJECT go_distcode - EXPORTING - it_lengths = lt_dists. + go_distcode = NEW #( it_lengths = lt_dists ). ENDMETHOD. @@ -287,18 +279,14 @@ CLASS ZCL_ABAPGIT_ZLIB IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - CREATE OBJECT go_lencode - EXPORTING - it_lengths = lt_lengths. + go_lencode = NEW #( it_lengths = lt_lengths ). CLEAR lt_lengths. DO c_maxdcodes TIMES. APPEND 5 TO lt_lengths. ENDDO. - CREATE OBJECT go_distcode - EXPORTING - it_lengths = lt_lengths. + go_distcode = NEW #( it_lengths = lt_lengths ). ENDMETHOD. diff --git a/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap b/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap index 7eed45add..1280dfed2 100644 --- a/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_convert.clas.testclasses.abap @@ -19,7 +19,7 @@ ENDCLASS. CLASS ltcl_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD bits_to_int. diff --git a/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap b/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap index fa660827a..ca6a7dd8b 100644 --- a/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_huffman.clas.testclasses.abap @@ -18,9 +18,7 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - CREATE OBJECT lo_huffman - EXPORTING - it_lengths = lt_lengths. + lo_huffman = NEW #( it_lengths = lt_lengths ). ENDMETHOD. @@ -43,9 +41,7 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 8 TO lt_lengths. ENDDO. - CREATE OBJECT lo_huffman - EXPORTING - it_lengths = lt_lengths. + lo_huffman = NEW #( it_lengths = lt_lengths ). ENDMETHOD. diff --git a/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap b/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap index 288723d4a..42e1b1676 100644 --- a/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap +++ b/src/git/zlib/zcl_abapgit_zlib_stream.clas.testclasses.abap @@ -20,9 +20,7 @@ CLASS ltcl_test IMPLEMENTATION. lv_bytes TYPE xstring. - CREATE OBJECT lo_stream - EXPORTING - iv_data = '112233445566'. + lo_stream = NEW #( iv_data = '112233445566' ). lv_bits = lo_stream->take_bits( 8 ). diff --git a/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap b/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap index 36b2112ea..7cee498d4 100644 --- a/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap +++ b/src/git_platform/zcl_abapgit_git_url.clas.testclasses.abap @@ -27,7 +27,7 @@ CLASS ltcl_repo_online IMPLEMENTATION. FIELD-SYMBOLS TYPE ty_show_url_test. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). ls_provider_urls-repo_url = |https://github.com/abapGit/abapGit.git|. ls_provider_urls-show_url = |https://github.com/abapGit/abapGit/commit/{ lv_testhash }|. diff --git a/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap b/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap index 6d731a02f..27451eb39 100644 --- a/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap +++ b/src/git_platform/zcl_abapgit_pr_enumerator.clas.abap @@ -72,10 +72,8 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION. val = lv_repo regex = '\.git$' with = '' ). - CREATE OBJECT ri_provider TYPE zcl_abapgit_pr_enum_github - EXPORTING - iv_user_and_repo = |{ lv_user }/{ lv_repo }| - ii_http_agent = li_agent. + ri_provider = NEW zcl_abapgit_pr_enum_github( iv_user_and_repo = |{ lv_user }/{ lv_repo }| + ii_http_agent = li_agent ). ELSE. zcx_abapgit_exception=>raise( |PR enumeration is not supported for { iv_repo_url }| ). ENDIF. @@ -97,6 +95,6 @@ CLASS zcl_abapgit_pr_enumerator IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance EXPORTING iv_url = iv_url. + ro_instance = NEW #( iv_url = iv_url ). ENDMETHOD. ENDCLASS. diff --git a/src/http/zcl_abapgit_http.clas.abap b/src/http/zcl_abapgit_http.clas.abap index 60d146a05..fabdaec02 100644 --- a/src/http/zcl_abapgit_http.clas.abap +++ b/src/http/zcl_abapgit_http.clas.abap @@ -86,11 +86,9 @@ CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION. WHEN c_scheme-digest. * https://en.wikipedia.org/wiki/Digest_access_authentication * e.g. used by https://www.gerritcodereview.com/ - CREATE OBJECT lo_digest - EXPORTING - ii_client = ii_client - iv_username = lv_user - iv_password = lv_pass. + lo_digest = NEW #( ii_client = ii_client + iv_username = lv_user + iv_password = lv_pass ). lo_digest->run( ii_client ). io_client->set_digest( lo_digest ). WHEN OTHERS. @@ -125,7 +123,7 @@ CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION. lv_text TYPE string. - CREATE OBJECT lo_proxy_configuration. + lo_proxy_configuration = NEW #( ). li_client = zcl_abapgit_exit=>get_instance( )->create_http_client( iv_url ). @@ -163,9 +161,7 @@ CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION. zcl_abapgit_proxy_auth=>run( li_client ). ENDIF. - CREATE OBJECT ro_client - EXPORTING - ii_client = li_client. + ro_client = NEW #( ii_client = li_client ). IF is_local_system( iv_url ) = abap_true. li_client->send_sap_logon_ticket( ). @@ -246,7 +242,7 @@ CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION. FIND REGEX 'https?://([^/^:]*)' IN iv_url SUBMATCHES lv_host. READ TABLE lt_list WITH KEY table_line = lv_host TRANSPORTING NO FIELDS. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. ENDCLASS. diff --git a/src/http/zcl_abapgit_http_agent.clas.abap b/src/http/zcl_abapgit_http_agent.clas.abap index 6e85e1cb6..649ae1a69 100644 --- a/src/http/zcl_abapgit_http_agent.clas.abap +++ b/src/http/zcl_abapgit_http_agent.clas.abap @@ -51,14 +51,14 @@ CLASS ZCL_ABAPGIT_HTTP_AGENT IMPLEMENTATION. METHOD constructor. - CREATE OBJECT mo_global_headers. + mo_global_headers = NEW #( ). ENDMETHOD. METHOD create. - CREATE OBJECT ri_instance TYPE zcl_abapgit_http_agent. + ri_instance = NEW zcl_abapgit_http_agent( ). ENDMETHOD. @@ -78,7 +78,7 @@ CLASS ZCL_ABAPGIT_HTTP_AGENT IMPLEMENTATION. DATA lv_message TYPE string. FIELD-SYMBOLS LIKE LINE OF io_query->mt_entries. - CREATE OBJECT lo_proxy_configuration. + lo_proxy_configuration = NEW #( ). cl_http_client=>create_by_url( EXPORTING diff --git a/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap b/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap index 08df2d526..4c6c7005e 100644 --- a/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap +++ b/src/http/zcl_abapgit_http_agent.clas.locals_imp.abap @@ -18,7 +18,7 @@ CLASS lcl_http_response IMPLEMENTATION. METHOD create. DATA lo_response TYPE REF TO lcl_http_response. - CREATE OBJECT lo_response. + lo_response = NEW #( ). lo_response->mi_client = ii_client. lo_response->mi_response = ii_client->response. ri_response ?= lo_response. @@ -31,7 +31,7 @@ CLASS lcl_http_response IMPLEMENTATION. METHOD zif_abapgit_http_response~is_ok. DATA lv_code TYPE i. lv_code = zif_abapgit_http_response~code( ). - rv_yes = boolc( lv_code >= 200 AND lv_code < 300 ). + rv_yes = xsdbool( lv_code >= 200 AND lv_code < 300 ). ENDMETHOD. METHOD zif_abapgit_http_response~data. @@ -65,7 +65,7 @@ CLASS lcl_http_response IMPLEMENTATION. DATA lt_headers TYPE tihttpnvp. FIELD-SYMBOLS LIKE LINE OF lt_headers. - CREATE OBJECT ro_headers. + ro_headers = NEW #( ). mi_response->get_header_fields( CHANGING fields = lt_headers ). LOOP AT lt_headers ASSIGNING . diff --git a/src/inspect/zcl_abapgit_code_inspector.clas.abap b/src/inspect/zcl_abapgit_code_inspector.clas.abap index 27d95d81e..a02f125b4 100644 --- a/src/inspect/zcl_abapgit_code_inspector.clas.abap +++ b/src/inspect/zcl_abapgit_code_inspector.clas.abap @@ -306,7 +306,7 @@ CLASS zcl_abapgit_code_inspector IMPLEMENTATION. FROM trdir WHERE name = is_obj-objname. - rv_skip = boolc( ls_program_type = 'I' ). " Include program. + rv_skip = xsdbool( ls_program_type = 'I' ). " Include program. WHEN OTHERS. rv_skip = abap_false. @@ -385,7 +385,7 @@ CLASS zcl_abapgit_code_inspector IMPLEMENTATION. IF iv_save = abap_true. READ TABLE rt_list TRANSPORTING NO FIELDS WITH KEY kind = 'E'. - mv_success = boolc( sy-subrc <> 0 ). + mv_success = xsdbool( sy-subrc <> 0 ). ENDIF. CATCH zcx_abapgit_exception INTO lx_error. diff --git a/src/json/zcl_abapgit_ajson.clas.abap b/src/json/zcl_abapgit_ajson.clas.abap index 190aaaaed..55b1fea7a 100644 --- a/src/json/zcl_abapgit_ajson.clas.abap +++ b/src/json/zcl_abapgit_ajson.clas.abap @@ -137,11 +137,9 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD create_empty. - CREATE OBJECT ro_instance - EXPORTING - iv_to_abap_corresponding_only = iv_to_abap_corresponding_only - iv_format_datetime = iv_format_datetime - iv_keep_item_order = iv_keep_item_order. + ro_instance = NEW #( iv_to_abap_corresponding_only = iv_to_abap_corresponding_only + iv_format_datetime = iv_format_datetime + iv_keep_item_order = iv_keep_item_order ). ro_instance->mi_custom_mapping = ii_custom_mapping. ENDMETHOD. @@ -154,16 +152,14 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. zcx_abapgit_ajson_error=>raise( 'Source not bound' ). ENDIF. - CREATE OBJECT ro_instance - EXPORTING - iv_to_abap_corresponding_only = ii_source_json->opts( )-to_abap_corresponding_only - iv_format_datetime = ii_source_json->opts( )-format_datetime - iv_keep_item_order = ii_source_json->opts( )-keep_item_order. + ro_instance = NEW #( iv_to_abap_corresponding_only = ii_source_json->opts( )-to_abap_corresponding_only + iv_format_datetime = ii_source_json->opts( )-format_datetime + iv_keep_item_order = ii_source_json->opts( )-keep_item_order ). IF ii_filter IS NOT BOUND AND ii_mapper IS NOT BOUND. ro_instance->mt_json_tree = ii_source_json->mt_json_tree. ELSE. - CREATE OBJECT lo_mutator_queue. + lo_mutator_queue = NEW #( ). IF ii_mapper IS BOUND. " Mapping goes first. But maybe it should be a freely definable queue of processors ? lo_mutator_queue->add( lcl_mapper_runner=>new( ii_mapper ) ). @@ -233,11 +229,9 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance - EXPORTING - iv_to_abap_corresponding_only = iv_to_abap_corresponding_only - iv_format_datetime = iv_format_datetime - iv_keep_item_order = iv_keep_item_order. + ro_instance = NEW #( iv_to_abap_corresponding_only = iv_to_abap_corresponding_only + iv_format_datetime = iv_format_datetime + iv_keep_item_order = iv_keep_item_order ). ENDMETHOD. @@ -245,8 +239,8 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lo_parser TYPE REF TO lcl_json_parser. - CREATE OBJECT ro_instance. - CREATE OBJECT lo_parser. + ro_instance = NEW #( ). + lo_parser = NEW #( ). ro_instance->mt_json_tree = lo_parser->parse( iv_json ). ro_instance->mi_custom_mapping = ii_custom_mapping. @@ -375,7 +369,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD zif_abapgit_ajson~exists. - rv_exists = boolc( get_item( iv_path ) IS NOT INITIAL ). + rv_exists = xsdbool( get_item( iv_path ) IS NOT INITIAL ). ENDMETHOD. @@ -415,7 +409,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. IF lr_item IS INITIAL OR lr_item->type = zif_abapgit_ajson_types=>node_type-null. RETURN. ELSEIF lr_item->type = zif_abapgit_ajson_types=>node_type-boolean. - rv_value = boolc( lr_item->value = 'true' ). + rv_value = xsdbool( lr_item->value = 'true' ). ELSEIF lr_item->value IS NOT INITIAL. rv_value = abap_true. ENDIF. @@ -497,7 +491,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_to_abap. + lo_to_abap = NEW #( ). TRY. rv_value = lo_to_abap->to_timestamp( lr_item->value ). @@ -509,7 +503,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. METHOD zif_abapgit_ajson~is_empty. - rv_yes = boolc( lines( mt_json_tree ) = 0 ). + rv_yes = xsdbool( lines( mt_json_tree ) = 0 ). ENDMETHOD. @@ -697,7 +691,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. ENDIF. IF go_float_regex IS NOT BOUND. - CREATE OBJECT go_float_regex EXPORTING pattern = '^([1-9][0-9]*|0)\.[0-9]+$'. + go_float_regex = NEW #( pattern = '^([1-9][0-9]*|0)\.[0-9]+$' ). " expects fractional, because ints are detected separately ENDIF. @@ -749,7 +743,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. ri_json = me. DATA lv_bool TYPE abap_bool. - lv_bool = boolc( iv_val IS NOT INITIAL ). + lv_bool = xsdbool( iv_val IS NOT INITIAL ). zif_abapgit_ajson~set( iv_ignore_empty = abap_false iv_path = iv_path @@ -836,7 +830,7 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lv_path_len TYPE i. DATA lv_path_pattern TYPE string. - CREATE OBJECT lo_section. + lo_section = NEW #( ). lv_normalized_path = lcl_utils=>normalize_path( iv_path ). lv_path_len = strlen( lv_normalized_path ). ls_path_parts = lcl_utils=>split_path( lv_normalized_path ). @@ -933,10 +927,8 @@ CLASS zcl_abapgit_ajson IMPLEMENTATION. DATA lo_to_abap TYPE REF TO lcl_json_to_abap. CLEAR ev_container. - CREATE OBJECT lo_to_abap - EXPORTING - iv_corresponding = boolc( iv_corresponding = abap_true OR ms_opts-to_abap_corresponding_only = abap_true ) - ii_custom_mapping = mi_custom_mapping. + lo_to_abap = NEW #( iv_corresponding = xsdbool( iv_corresponding = abap_true OR ms_opts-to_abap_corresponding_only = abap_true ) + ii_custom_mapping = mi_custom_mapping ). lo_to_abap->to_abap( EXPORTING diff --git a/src/json/zcl_abapgit_ajson.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson.clas.locals_imp.abap index 4c152ec29..e49f9cbcd 100644 --- a/src/json/zcl_abapgit_ajson.clas.locals_imp.abap +++ b/src/json/zcl_abapgit_ajson.clas.locals_imp.abap @@ -453,7 +453,7 @@ CLASS lcl_json_serializer IMPLEMENTATION. METHOD stringify. DATA lo TYPE REF TO lcl_json_serializer. - CREATE OBJECT lo. + lo = NEW #( ). lo->mt_json_tree = it_json_tree. lo->mv_indent_step = iv_indent. lo->mv_keep_item_order = iv_keep_item_order. @@ -968,7 +968,7 @@ CLASS lcl_json_to_abap IMPLEMENTATION. " Do nothing WHEN zif_abapgit_ajson_types=>node_type-boolean. " TODO: check type ? - = boolc( is_node-value = 'true' ). + = xsdbool( is_node-value = 'true' ). WHEN zif_abapgit_ajson_types=>node_type-number. " TODO: check type ? = is_node-value. @@ -1250,7 +1250,7 @@ CLASS lcl_abap_to_json IMPLEMENTATION. lo_type = cl_abap_typedescr=>describe_by_data( iv_data ). - CREATE OBJECT lo_converter. + lo_converter = NEW #( ). lo_converter->mi_custom_mapping = ii_custom_mapping. lo_converter->mv_keep_item_order = is_opts-keep_item_order. lo_converter->mv_format_datetime = is_opts-format_datetime. @@ -1647,7 +1647,7 @@ CLASS lcl_abap_to_json IMPLEMENTATION. lo_type = cl_abap_typedescr=>describe_by_data( iv_data ). - CREATE OBJECT lo_converter. + lo_converter = NEW #( ). lo_converter->mi_custom_mapping = ii_custom_mapping. lo_converter->mv_keep_item_order = is_opts-keep_item_order. lo_converter->mv_format_datetime = is_opts-format_datetime. @@ -1763,7 +1763,7 @@ ENDCLASS. CLASS lcl_filter_runner IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance EXPORTING ii_filter = ii_filter. + ro_instance = NEW #( ii_filter = ii_filter ). ENDMETHOD. METHOD constructor. @@ -1870,7 +1870,7 @@ ENDCLASS. CLASS lcl_mapper_runner IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance EXPORTING ii_mapper = ii_mapper. + ro_instance = NEW #( ii_mapper = ii_mapper ). ENDMETHOD. METHOD constructor. @@ -1978,7 +1978,7 @@ CLASS lcl_mutator_queue IMPLEMENTATION. ENDMETHOD. METHOD new. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. METHOD lif_mutator_runner~run. diff --git a/src/json/zcl_abapgit_ajson.clas.testclasses.abap b/src/json/zcl_abapgit_ajson.clas.testclasses.abap index 344c440c8..4b263c697 100644 --- a/src/json/zcl_abapgit_ajson.clas.testclasses.abap +++ b/src/json/zcl_abapgit_ajson.clas.testclasses.abap @@ -92,8 +92,8 @@ ENDCLASS. CLASS ltcl_parser_test IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. - CREATE OBJECT mo_nodes. + mo_cut = NEW #( ). + mo_nodes = NEW #( ). ENDMETHOD. METHOD parse_bare_values. @@ -196,7 +196,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. mo_nodes->add( '/ |float |num |123.45 | |0' ). DATA lt_act TYPE zif_abapgit_ajson_types=>ty_nodes_tt. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). lt_act = mo_cut->parse( '{"float": 123.45}' ). cl_abap_unit_assert=>assert_equals( act = lt_act @@ -298,7 +298,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lt_act TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -329,7 +329,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. lo_nodes->add( '/issues/2/end/ |col |num |22 | |0' ). lo_nodes->add( '/issues/2/ |filename |str |./zxxx.prog.abap | |0' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lt_act = lo_cut->parse( sample_json( ) ). cl_abap_unit_assert=>assert_equals( act = lt_act @@ -353,7 +353,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. TRY. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->parse( '{ "a" = 1, "a" = 1 }' ). cl_abap_unit_assert=>fail( ). CATCH zcx_abapgit_ajson_error INTO lx. @@ -368,7 +368,7 @@ CLASS ltcl_parser_test IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. TRY. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->parse( 'X

Y

' ). cl_abap_unit_assert=>fail( ). CATCH zcx_abapgit_ajson_error INTO lx. @@ -465,7 +465,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -573,7 +573,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |3' ). lo_nodes->add( '/ |1 |str |abc |2 |0' ). lo_nodes->add( '/ |2 |num |123 |1 |0' ). @@ -594,7 +594,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |3 |0' ). lo_nodes->add( '/ |beta |str |b | |0 |3' ). lo_nodes->add( '/ |zulu |str |z | |0 |1' ). @@ -624,7 +624,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |3' ). lo_nodes->add( '/ |1 |object | |2 |2' ). lo_nodes->add( '/1/ |a |num |1 | |0' ). @@ -661,7 +661,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |0' ). lv_act = lcl_json_serializer=>stringify( @@ -691,7 +691,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_val TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lv_val = 'a' && '"' && '\' && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. lo_nodes->add( | \| \|str \|{ lv_val }\| \|0| ). @@ -710,7 +710,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lv_act = lcl_json_serializer=>stringify( lo_nodes->sorted( ) ). lv_exp = ''. @@ -898,7 +898,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_cut TYPE REF TO zcl_abapgit_ajson. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |2' ). lo_nodes->add( '/ |1 |object | |1 |5' ). lo_nodes->add( '/1/ |message |str |Indentation problem ... | |0' ). @@ -930,7 +930,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " ********************************************************************** - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -969,7 +969,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " ********************************************************************** - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |2' ). lo_nodes->add( '/ |row |num |3 | |0' ). lo_nodes->add( '/ |col |num |21 | |0' ). @@ -1046,10 +1046,10 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lv_exp TYPE d. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lv_exp = '20200728'. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |2020-07-28 | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1058,7 +1058,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. act = lo_cut->zif_abapgit_ajson~get_date( '/date1' ) exp = lv_exp ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |2020-07-28T01:00:00Z | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1067,7 +1067,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. act = lo_cut->zif_abapgit_ajson~get_date( '/date1' ) exp = lv_exp ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |20200728 | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1084,9 +1084,9 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lv_exp TYPE timestamp VALUE `20200728000000`. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |timestamp|str |2020-07-28T00:00:00Z | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1234,7 +1234,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lt_act TYPE string_table. DATA lt_exp TYPE string_table. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |6' ). lo_nodes->add( '/ |1 |num |123 |1|0' ). lo_nodes->add( '/ |2 |num |234 |2|0' ). @@ -1250,7 +1250,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. APPEND '' TO lt_exp. APPEND '' TO lt_exp. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. lt_act = lo_cut->zif_abapgit_ajson~array_to_string_table( '/' ). @@ -1261,7 +1261,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " negative DATA lx TYPE REF TO zcx_abapgit_ajson_error. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |a |str |abc | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1293,7 +1293,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. exp = 'Array expected at: /a' ). ENDTRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | |1' ). lo_nodes->add( '/ |1 |object | |1|0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1413,7 +1413,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_exp_timestamp TYPE timestamp VALUE '20200728000000'. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |str |str |hello | ' ). lo_nodes->add( '/ |int |num |5 | ' ). @@ -1428,7 +1428,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/ |timestamp2 |str |2020-07-28T00:00:00Z | ' ). lo_nodes->add( '/ |timestamp3 |str |2020-07-28T01:00:00+01:00 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1458,10 +1458,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE timestamp. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |0000-00-00T00:00:00Z| ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1480,10 +1480,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |hello | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1503,12 +1503,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1532,14 +1532,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_tmp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |array | |1' ). lo_nodes->add( '/ |2 |array | |2' ). lo_nodes->add( '/1/ |1 |str |One |1' ). lo_nodes->add( '/2/ |1 |str |Two |1' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1566,7 +1566,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_tmp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |array | |1' ). lo_nodes->add( '/ |2 |array | |2' ). @@ -1575,7 +1575,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |1 |str |Three |1' ). lo_nodes->add( '/2/ |2 |str |Four |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1603,7 +1603,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_complex. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |tab |array | | ' ). lo_nodes->add( '/tab/ |1 |object | |1' ). @@ -1611,7 +1611,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/tab/ |2 |object | |2' ). lo_nodes->add( '/tab/2/|a |str |Two | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1637,13 +1637,13 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_complex. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |tab_plain |array | | ' ). lo_nodes->add( '/tab_plain/ |1 |str |One |1' ). lo_nodes->add( '/tab_plain/ |2 |str |Two |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1666,12 +1666,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1694,7 +1694,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE tty_struc_hashed. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |object | |1' ). lo_nodes->add( '/ |2 |object | |2' ). @@ -1703,7 +1703,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |a |str |Two | ' ). lo_nodes->add( '/2/ |b |num |2 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1731,7 +1731,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE tty_struc_sorted. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |object | |1' ). lo_nodes->add( '/ |2 |object | |2' ). @@ -1740,7 +1740,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |a |str |Two | ' ). lo_nodes->add( '/2/ |b |num |2 | ' ). - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1767,12 +1767,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. DATA ls_mock TYPE ty_complex. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). DATA lo_nodes TYPE REF TO lcl_nodes_helper. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |object | ' ). @@ -1789,7 +1789,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |array | ' ). @@ -1806,7 +1806,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |int |str |hello ' ). @@ -1823,7 +1823,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |date1 |str |baddate ' ). @@ -1840,7 +1840,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |missing |str |123 ' ). @@ -1858,7 +1858,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lt_str TYPE string_table. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |a |str |hello |1' ). @@ -1876,7 +1876,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lr_obj TYPE REF TO object. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |hello | ' ). lo_cut->to_abap( @@ -1893,7 +1893,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lr_data TYPE REF TO data. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |str |hello | ' ). lo_cut->to_abap( @@ -1910,7 +1910,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lt_hashed TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |One |2' ). @@ -1936,16 +1936,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_struc. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - CREATE OBJECT lo_cut - EXPORTING - iv_corresponding = abap_true. + lo_cut = NEW #( iv_corresponding = abap_true ). lo_cut->to_abap( EXPORTING @@ -1967,7 +1965,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lx TYPE REF TO zcx_abapgit_ajson_error. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). @@ -1976,7 +1974,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ls_exp-b = 24022022. TRY. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1999,14 +1997,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA li_json TYPE REF TO zif_abapgit_ajson. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. lo_cut->to_abap( @@ -2037,14 +2035,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lx TYPE REF TO zcx_abapgit_ajson_error. - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - CREATE OBJECT lo_cut. + lo_cut = NEW #( ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. TRY. @@ -2123,7 +2121,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2135,7 +2133,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2153,7 +2151,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2162,7 +2160,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2183,7 +2181,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2192,7 +2190,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2202,7 +2200,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2211,7 +2209,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2235,7 +2233,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2258,7 +2256,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 2 - assign deep - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2276,7 +2274,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 3 - assign rewrite - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2303,7 +2301,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2331,7 +2329,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_cut = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |num |1 ||0' ). @@ -2345,7 +2343,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = li_cut->mt_json_tree exp = lo_nodes->sorted( ) ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||2' ). lo_nodes->add( '/ |a |num |1 ||0' ). lo_nodes->add( '/ |b |num |0 ||0' ). @@ -2377,7 +2375,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||3' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2413,7 +2411,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||6' ). lo_nodes->add( '/ |d |str |2022-04-01 ||0' ). lo_nodes->add( '/ |d_empty |str | ||0' ). @@ -2445,7 +2443,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. APPEND 'world' TO lt_tab. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2474,7 +2472,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT `world` INTO TABLE lt_tab. " Prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2519,7 +2517,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT ls_tab INTO TABLE lt_tab. " prepare source - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |array | |0|2' ). lo_nodes->add( '/ |1 |object | |1|3' ). lo_nodes->add( '/ |2 |object | |2|3' ). @@ -2549,7 +2547,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " touch - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2560,7 +2558,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add string - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |1' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2574,7 +2572,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add obj - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2602,7 +2600,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " re-touch with clear - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2615,7 +2613,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " free-add array item (index must be updated) - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |object | |1|1' ). @@ -2735,7 +2733,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " object - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -2748,7 +2746,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " object empty path - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -2762,7 +2760,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " array - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |1' ). lo_nodes_exp->add( '/ |1 |str |hello|1|0' ). @@ -2777,7 +2775,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " value - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |hello||0' ). li_writer->clear( ). @@ -2800,7 +2798,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " abap_bool lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -2827,7 +2825,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " int lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -2855,7 +2853,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " tab lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -2884,7 +2882,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||3' ). lo_nodes_exp->add( '/ |a |str |123 ||0' ). lo_nodes_exp->add( '/ |b |str |X ||0' ). @@ -2915,7 +2913,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |num |123 ||0' ). @@ -2938,7 +2936,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |str |2020-07-05 ||0' ). lo_nodes_exp->add( '/ |b |str | ||0' ). @@ -2968,7 +2966,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |str |2021-05-05T12:00:00Z ||0' ). @@ -3044,7 +3042,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. DATA lo_nodes_exp TYPE REF TO lcl_nodes_helper. DATA li_writer TYPE REF TO zif_abapgit_ajson. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |issues |array | | |2' ). lo_nodes_exp->add( '/issues/ |1 |object | |1 |1' ). @@ -3751,7 +3749,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lo_src TYPE REF TO zcl_abapgit_ajson. lo_src = zcl_abapgit_ajson=>create_empty( ). - CREATE OBJECT lo_nodes. + lo_nodes = NEW #( ). lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -3773,7 +3771,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " number - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 1 ). @@ -3790,7 +3788,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " string - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |abc ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 'abc' ). @@ -3807,7 +3805,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " true - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |bool |true ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_true ). @@ -3824,7 +3822,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " false - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |bool |false ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_false ). @@ -3841,7 +3839,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_xsdboolean TYPE xsdboolean. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |bool |true ||' ). lv_xsdboolean = 'X'. @@ -3860,7 +3858,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_null_ref TYPE REF TO data. " null - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |null |null ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = lv_null_ref ). @@ -3878,7 +3876,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_timezone TYPE timezone VALUE ''. DATA lv_timestamp TYPE timestamp. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |2022-08-31T00:00:00Z||' ). CONVERT DATE '20220831' TIME '000000' @@ -3897,7 +3895,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_timestamp TYPE timestamp. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |str |0000-00-00T00:00:00Z||' ). lv_timestamp = 0. @@ -3917,7 +3915,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_prefix-path = '/a/'. ls_prefix-name = 'b'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( '/a/ |b |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( @@ -3941,7 +3939,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-c = abap_true. ls_struc-d = 'X'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||4' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -3980,7 +3978,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND INITIAL LINE TO ls_struc-tab ASSIGNING . -a = 'bcd'. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | ||8' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4032,7 +4030,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. -a = 'bcd'. -b = 20. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|4' ). lo_nodes_exp->add( '/1/ |a |str |abc | |0' ). @@ -4055,7 +4053,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND 'abc' TO lt_strtab. APPEND 'bcd' TO lt_strtab. - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |str |abc |1|0' ). lo_nodes_exp->add( '/ |2 |str |bcd |2|0' ). @@ -4111,7 +4109,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. APPEND ls_visit_history TO mt_visit_history. ENDIF. - rv_keep = boolc( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). + rv_keep = xsdbool( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). ENDMETHOD. @@ -4142,7 +4140,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |3' ). lo_nodes_exp->add( '/ |a |num |1 | |0' ). lo_nodes_exp->add( '/ |b |num |1 | |0' ). @@ -4177,7 +4175,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |str |a |1|0' ). lo_nodes_exp->add( '/ |2 |str |b |2|0' ). @@ -4314,7 +4312,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |4' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). @@ -4356,7 +4354,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|2' ). lo_nodes_exp->add( '/ |2 |object | |2|2' ). @@ -4415,7 +4413,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |num |1 | |0' ). cl_abap_unit_assert=>assert_equals( act = lo_json_filtered->mt_json_tree @@ -4489,7 +4487,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->clone( ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -4530,7 +4528,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->filter( me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). @@ -4556,7 +4554,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->map( me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -4582,7 +4580,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_ajson_filter~keep_node. - rv_keep = boolc( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). + rv_keep = xsdbool( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). ENDMETHOD. METHOD mapper_and_filter. @@ -4607,7 +4605,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ii_filter = me ii_mapper = me ). - CREATE OBJECT lo_nodes_exp. + lo_nodes_exp = NEW #( ). lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). diff --git a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap index 275768640..f4ceb00f2 100644 --- a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap +++ b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap @@ -37,22 +37,18 @@ CLASS zcl_abapgit_ajson_filter_lib IMPLEMENTATION. METHOD create_and_filter. - CREATE OBJECT ri_filter TYPE lcl_and_filter - EXPORTING - it_filters = it_filters. + ri_filter = NEW lcl_and_filter( it_filters = it_filters ). ENDMETHOD. METHOD create_empty_filter. - CREATE OBJECT ri_filter TYPE lcl_empty_filter. + ri_filter = NEW lcl_empty_filter( ). ENDMETHOD. METHOD create_path_filter. - CREATE OBJECT ri_filter TYPE lcl_paths_filter - EXPORTING - iv_pattern_search = iv_pattern_search - it_skip_paths = it_skip_paths - iv_skip_paths = iv_skip_paths. + ri_filter = NEW lcl_paths_filter( iv_pattern_search = iv_pattern_search + it_skip_paths = it_skip_paths + iv_skip_paths = iv_skip_paths ). ENDMETHOD. ENDCLASS. diff --git a/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap index 20458079e..b51b9399b 100644 --- a/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap +++ b/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap @@ -10,7 +10,7 @@ ENDCLASS. CLASS lcl_empty_filter IMPLEMENTATION. METHOD zif_abapgit_ajson_filter~keep_node. - rv_keep = boolc( + rv_keep = xsdbool( ( iv_visit = zif_abapgit_ajson_filter=>visit_type-value AND is_node-value IS NOT INITIAL ) OR ( iv_visit <> zif_abapgit_ajson_filter=>visit_type-value AND is_node-children > 0 ) ). " children = 0 on open for initially empty nodes and on close for filtered ones @@ -56,7 +56,7 @@ CLASS lcl_paths_filter IMPLEMENTATION. ENDLOOP. ELSE. READ TABLE mt_skip_paths WITH KEY table_line = lv_full_path TRANSPORTING NO FIELDS. - rv_keep = boolc( sy-subrc <> 0 ). + rv_keep = xsdbool( sy-subrc <> 0 ). ENDIF. ENDMETHOD. @@ -67,7 +67,7 @@ CLASS lcl_paths_filter IMPLEMENTATION. DATA lt_tab TYPE string_table. FIELD-SYMBOLS TYPE string. - IF boolc( iv_skip_paths IS INITIAL ) = boolc( it_skip_paths IS INITIAL ). " XOR + IF xsdbool( iv_skip_paths IS INITIAL ) = xsdbool( it_skip_paths IS INITIAL ). " XOR zcx_abapgit_ajson_error=>raise( 'no filter path specified' ). ENDIF. diff --git a/src/json/zcl_abapgit_ajson_mapping.clas.abap b/src/json/zcl_abapgit_ajson_mapping.clas.abap index 22bee5934..09163f9dd 100644 --- a/src/json/zcl_abapgit_ajson_mapping.clas.abap +++ b/src/json/zcl_abapgit_ajson_mapping.clas.abap @@ -77,10 +77,8 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. METHOD create_camel_case. - CREATE OBJECT ri_mapping TYPE lcl_mapping_camel - EXPORTING - it_mapping_fields = it_mapping_fields - iv_first_json_upper = iv_first_json_upper. + ri_mapping = NEW lcl_mapping_camel( it_mapping_fields = it_mapping_fields + iv_first_json_upper = iv_first_json_upper ). ENDMETHOD. @@ -95,62 +93,50 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. APPEND LINES OF it_more TO lt_queue. DELETE lt_queue WHERE table_line IS INITIAL. - CREATE OBJECT ri_mapping TYPE lcl_compound_mapper - EXPORTING - it_queue = lt_queue. + ri_mapping = NEW lcl_compound_mapper( it_queue = lt_queue ). ENDMETHOD. METHOD create_field_mapping. - CREATE OBJECT ri_mapping TYPE lcl_mapping_fields - EXPORTING - it_mapping_fields = it_mapping_fields. + ri_mapping = NEW lcl_mapping_fields( it_mapping_fields = it_mapping_fields ). ENDMETHOD. METHOD create_lower_case. - CREATE OBJECT ri_mapping TYPE lcl_mapping_to_lower - EXPORTING - it_mapping_fields = it_mapping_fields. + ri_mapping = NEW lcl_mapping_to_lower( it_mapping_fields = it_mapping_fields ). ENDMETHOD. METHOD create_rename. - CREATE OBJECT ri_mapping TYPE lcl_rename - EXPORTING - it_rename_map = it_rename_map - iv_rename_by = iv_rename_by. + ri_mapping = NEW lcl_rename( it_rename_map = it_rename_map + iv_rename_by = iv_rename_by ). ENDMETHOD. METHOD create_to_camel_case. - CREATE OBJECT ri_mapping TYPE lcl_to_camel - EXPORTING - iv_first_json_upper = iv_first_json_upper. + ri_mapping = NEW lcl_to_camel( iv_first_json_upper = iv_first_json_upper ). ENDMETHOD. METHOD create_to_snake_case. - CREATE OBJECT ri_mapping TYPE lcl_to_snake. + ri_mapping = NEW lcl_to_snake( ). ENDMETHOD. METHOD create_upper_case. - CREATE OBJECT ri_mapping TYPE lcl_mapping_to_upper - EXPORTING - it_mapping_fields = it_mapping_fields. + ri_mapping = NEW lcl_mapping_to_upper( it_mapping_fields = it_mapping_fields ). ENDMETHOD. ENDCLASS. diff --git a/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap index 937b2618e..6b9ceefcb 100644 --- a/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap +++ b/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap @@ -69,11 +69,11 @@ CLASS lcl_rename IMPLEMENTATION. CASE mv_rename_by. WHEN zcl_abapgit_ajson_mapping=>rename_by-attr_name. READ TABLE mt_rename_map ASSIGNING WITH TABLE KEY by_name COMPONENTS from = cv_name. - lv_pair_found = boolc( sy-subrc = 0 ). + lv_pair_found = xsdbool( sy-subrc = 0 ). WHEN zcl_abapgit_ajson_mapping=>rename_by-full_path. lv_full_path = is_node-path && cv_name. READ TABLE mt_rename_map ASSIGNING WITH TABLE KEY by_name COMPONENTS from = lv_full_path. - lv_pair_found = boolc( sy-subrc = 0 ). + lv_pair_found = xsdbool( sy-subrc = 0 ). WHEN zcl_abapgit_ajson_mapping=>rename_by-pattern. lv_full_path = is_node-path && cv_name. LOOP AT mt_rename_map ASSIGNING . diff --git a/src/json/zcl_abapgit_ajson_utilities.clas.abap b/src/json/zcl_abapgit_ajson_utilities.clas.abap index 7a41bbfd6..cf6cf6973 100644 --- a/src/json/zcl_abapgit_ajson_utilities.clas.abap +++ b/src/json/zcl_abapgit_ajson_utilities.clas.abap @@ -308,7 +308,7 @@ CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION. eo_delete = li_del eo_change = li_mod ). - rv_yes = boolc( + rv_yes = xsdbool( li_ins->is_empty( ) = abap_true AND li_del->is_empty( ) = abap_true AND li_mod->is_empty( ) = abap_true ). @@ -342,13 +342,13 @@ CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION. METHOD new. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. METHOD normalize_input. - IF boolc( iv_json IS INITIAL ) = boolc( io_json IS INITIAL ). + IF xsdbool( iv_json IS INITIAL ) = xsdbool( io_json IS INITIAL ). zcx_abapgit_ajson_error=>raise( 'Either supply JSON string or instance, but not both' ). ENDIF. diff --git a/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap b/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap index 08b1802d4..a14583984 100644 --- a/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap +++ b/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap @@ -192,7 +192,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_insert_exp. + lo_insert_exp = NEW #( ). lo_insert_exp->add( ' | |object | |0|3' ). lo_insert_exp->add( '/ |boolean |str |true |0|0' ). " changed type (insert new) lo_insert_exp->add( '/ |issues |array | |0|1' ). @@ -201,7 +201,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_insert_exp->add( '/issues/1/ |end |object | |0|1' ). lo_insert_exp->add( '/issues/1/end/ |new |num |1 |0|0' ). " array insert - CREATE OBJECT lo_delete_exp. + lo_delete_exp = NEW #( ). lo_delete_exp->add( ' | |object | |0|3' ). lo_delete_exp->add( '/ |boolean |bool |true |0|0' ). " changed type (delete old) lo_delete_exp->add( '/ |false |bool |false |0|0' ). " delete @@ -210,7 +210,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_delete_exp->add( '/issues/1/ |end |object | |0|1' ). lo_delete_exp->add( '/issues/1/end/ |row |num |4 |0|0' ). " array delete - CREATE OBJECT lo_change_exp. + lo_change_exp = NEW #( ). lo_change_exp->add( ' | |object | |0|2' ). lo_change_exp->add( '/ |issues |array | |0|1' ). lo_change_exp->add( '/ |number |num |789 |0|0' ). " changed value @@ -218,7 +218,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_change_exp->add( '/issues/1/ |start |object | |0|1' ). lo_change_exp->add( '/issues/1/start/|row |num |5 |0|0' ). " array change - CREATE OBJECT lo_util. + lo_util = NEW #( ). lo_util->diff( EXPORTING @@ -275,18 +275,18 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_insert_exp. + lo_insert_exp = NEW #( ). lo_insert_exp->add( ' | |object | |0|1' ). lo_insert_exp->add( '/ |string |array | |0|3' ). lo_insert_exp->add( '/string/ |1 |str |a |1|0' ). lo_insert_exp->add( '/string/ |2 |str |b |2|0' ). lo_insert_exp->add( '/string/ |3 |str |c |3|0' ). - CREATE OBJECT lo_delete_exp. + lo_delete_exp = NEW #( ). lo_delete_exp->add( ' | |object | |0|1' ). lo_delete_exp->add( '/ |string |str |abc |0|0' ). - CREATE OBJECT lo_util. + lo_util = NEW #( ). lo_util->diff( EXPORTING @@ -359,7 +359,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_util. + lo_util = NEW #( ). " Empty arrays are ignored by default lo_util->diff( @@ -394,7 +394,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. eo_delete = lo_delete eo_change = lo_change ). - CREATE OBJECT lo_insert_exp. + lo_insert_exp = NEW #( ). lo_insert_exp->add( ' | |object | |0|1' ). lo_insert_exp->add( '/ |names |array | |0|0' ). @@ -444,7 +444,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_merge_exp. + lo_merge_exp = NEW #( ). lo_merge_exp->add( ' | |object | |0|3' ). lo_merge_exp->add( '/ |float |num |123.45 |0|0' ). lo_merge_exp->add( '/ |number |num |123 |0|0' ). @@ -453,7 +453,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_merge_exp->add( '/string/ |2 |str |c |2|0' ). lo_merge_exp->add( '/string/ |3 |str |b |3|0' ). - CREATE OBJECT lo_util. + lo_util = NEW #( ). lo_merge = lo_util->merge( iv_json_a = lv_json_a @@ -501,7 +501,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_sorted_exp WITH cl_abap_char_utilities=>newline. - CREATE OBJECT lo_util. + lo_util = NEW #( ). lv_sorted = lo_util->sort( iv_json = lv_json ). diff --git a/src/json/zcx_abapgit_ajson_error.clas.abap b/src/json/zcx_abapgit_ajson_error.clas.abap index c51e9b749..52047c853 100644 --- a/src/json/zcx_abapgit_ajson_error.clas.abap +++ b/src/json/zcx_abapgit_ajson_error.clas.abap @@ -92,7 +92,7 @@ method raise. data lx type ref to zcx_abapgit_ajson_error. - create object lx exporting message = iv_msg. + lx = NEW #( message = iv_msg ). lx->set_location( iv_location = iv_location is_node = is_node ). diff --git a/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap index 29c7f9194..0cda8a22f 100644 --- a/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap @@ -31,11 +31,9 @@ CLASS ltcl_aff_registry IMPLEMENTATION. lv_act TYPE abap_bool. - CREATE OBJECT lo_settings_stub. + lo_settings_stub = NEW #( ). lo_settings_stub->set_experimental_features( iv_experimental ). - CREATE OBJECT lo_cut TYPE zcl_abapgit_aff_registry - EXPORTING - io_settings = lo_settings_stub. + lo_cut = NEW zcl_abapgit_aff_registry( io_settings = lo_settings_stub ). 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 ed5e87cd3..8feaed91e 100644 --- a/src/objects/aff/zcl_abapgit_json_handler.clas.abap +++ b/src/objects/aff/zcl_abapgit_json_handler.clas.abap @@ -258,7 +258,7 @@ CLASS ZCL_ABAPGIT_JSON_HANDLER IMPLEMENTATION. map2json_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings CHANGING co_ajson = lo_ajson ). - CREATE OBJECT lo_filter EXPORTING iv_skip_paths = iv_skip_paths. + lo_filter = NEW #( iv_skip_paths = iv_skip_paths ). " files end with an empty line (EOF) lv_json = lo_ajson->clone( )->filter( lo_filter )->stringify( 2 ) && cl_abap_char_utilities=>newline. diff --git a/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap b/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap index 5c3e73eb5..a567f5dd8 100644 --- a/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap +++ b/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap @@ -24,13 +24,13 @@ CLASS lcl_aff_filter IMPLEMENTATION. lv_path = is_node-path && is_node-name. READ TABLE mt_skip_paths WITH KEY path = lv_path value = is_node-value TRANSPORTING NO FIELDS. - IF boolc( sy-subrc = 0 ) = abap_true + IF xsdbool( sy-subrc = 0 ) = abap_true AND iv_visit = zif_abapgit_ajson_filter=>visit_type-value. rv_keep = abap_false. RETURN. ELSE. READ TABLE mt_skip_paths WITH KEY path = lv_path TRANSPORTING NO FIELDS. - IF boolc( sy-subrc = 0 ) = abap_true + IF xsdbool( sy-subrc = 0 ) = abap_true AND iv_visit = zif_abapgit_ajson_filter=>visit_type-value. rv_keep = abap_true. RETURN. diff --git a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap index 155a8e375..948f2b75e 100644 --- a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap @@ -181,9 +181,7 @@ CLASS ltcl_resolve_packages IMPLEMENTATION. DATA: lo_mock_sap_package TYPE REF TO ltcl_sap_package. - CREATE OBJECT lo_mock_sap_package - EXPORTING - iv_package = 'Z_MAIN'. + lo_mock_sap_package = NEW #( iv_package = 'Z_MAIN' ). lo_mock_sap_package->set_sub_packages( mt_sub_packages ). diff --git a/src/objects/core/zcl_abapgit_file_deserialize.clas.abap b/src/objects/core/zcl_abapgit_file_deserialize.clas.abap index b820c24a4..2b41d69bd 100644 --- a/src/objects/core/zcl_abapgit_file_deserialize.clas.abap +++ b/src/objects/core/zcl_abapgit_file_deserialize.clas.abap @@ -174,7 +174,7 @@ CLASS zcl_abapgit_file_deserialize IMPLEMENTATION. lt_items = map_results_to_items( it_results ). - CREATE OBJECT lo_graph EXPORTING it_items = lt_items. + lo_graph = NEW #( it_items = lt_items ). LOOP AT lt_items INTO ls_item. CLEAR lt_requires. diff --git a/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap b/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap index c7de5afe6..6f1eb3a62 100644 --- a/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap @@ -36,7 +36,7 @@ CLASS ltcl_filter_files_to_deser IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_objects. + mo_objects = NEW #( ). ENDMETHOD. @@ -259,7 +259,7 @@ ENDCLASS. CLASS ltcl_prio_deserialization IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_objects. + mo_objects = NEW #( ). mv_exp_output_tabix = 0. ENDMETHOD. @@ -434,7 +434,7 @@ CLASS ltcl_prio_deserialization IMPLEMENTATION. DATA lo_log TYPE REF TO zcl_abapgit_log. - CREATE OBJECT lo_log. + lo_log = NEW #( ). mt_output = mo_objects->prioritize_deser( ii_log = lo_log diff --git a/src/objects/core/zcl_abapgit_filename_logic.clas.abap b/src/objects/core/zcl_abapgit_filename_logic.clas.abap index 8a9d1e0b1..56a071cff 100644 --- a/src/objects/core/zcl_abapgit_filename_logic.clas.abap +++ b/src/objects/core/zcl_abapgit_filename_logic.clas.abap @@ -100,8 +100,8 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. METHOD detect_obj_definition. - ev_is_xml = boolc( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ). - ev_is_json = boolc( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ). + ev_is_xml = xsdbool( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ). + ev_is_json = xsdbool( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ). ENDMETHOD. @@ -122,7 +122,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '#' IN lv_ext WITH '/'. " Assume AFF namespace convention - CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry. + go_aff_registry = NEW zcl_abapgit_aff_registry( ). IF go_aff_registry->is_supported_object_type( |{ lv_type }| ) = abap_true. REPLACE ALL OCCURRENCES OF '(' IN lv_name WITH '/'. @@ -176,7 +176,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ev_is_xml = lv_xml ev_is_json = lv_json ). - rv_yes = boolc( lv_json = abap_true OR lv_xml = abap_true ). + rv_yes = xsdbool( lv_json = abap_true OR lv_xml = abap_true ). ENDMETHOD. @@ -281,7 +281,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ENDTRY. " Handle namespaces - CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry. + go_aff_registry = NEW zcl_abapgit_aff_registry( ). IF go_aff_registry->is_supported_object_type( is_item-obj_type ) = abap_true. FIND ALL OCCURRENCES OF `/` IN rv_filename MATCH COUNT lv_nb_of_slash. diff --git a/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap b/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap index 57d563023..9903ae6f7 100644 --- a/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap @@ -12,7 +12,7 @@ CLASS lcl_memory_settings IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_persist_settings~read. - CREATE OBJECT ro_settings. + ro_settings = NEW #( ). ENDMETHOD. ENDCLASS. @@ -42,7 +42,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. " Assume for unit tests that starting folder is /src/ with prefix logic mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). - CREATE OBJECT li_memory. + li_memory = NEW #( ). zcl_abapgit_persist_injector=>set_settings( li_memory ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_folder_logic.clas.abap b/src/objects/core/zcl_abapgit_folder_logic.clas.abap index d41693784..1cf4b1df9 100644 --- a/src/objects/core/zcl_abapgit_folder_logic.clas.abap +++ b/src/objects/core/zcl_abapgit_folder_logic.clas.abap @@ -56,7 +56,7 @@ CLASS zcl_abapgit_folder_logic IMPLEMENTATION. METHOD get_instance. - CREATE OBJECT ro_instance. + ro_instance = NEW #( ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap b/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap index d4d6d4186..7c53b8510 100644 --- a/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap @@ -215,7 +215,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION. DATA lo_top_foo TYPE REF TO ltcl_folder_logic_package. - CREATE OBJECT lo_top_foo. + lo_top_foo = NEW #( ). zcl_abapgit_injector=>set_sap_package( iv_package = c_top ii_sap_package = me ). diff --git a/src/objects/core/zcl_abapgit_item_graph.clas.abap b/src/objects/core/zcl_abapgit_item_graph.clas.abap index a3d6cba51..2406d5a22 100644 --- a/src/objects/core/zcl_abapgit_item_graph.clas.abap +++ b/src/objects/core/zcl_abapgit_item_graph.clas.abap @@ -88,7 +88,7 @@ CLASS ZCL_ABAPGIT_ITEM_GRAPH IMPLEMENTATION. METHOD has_vertices. - rv_bool = boolc( lines( mt_vertices ) > 0 ). + rv_bool = xsdbool( lines( mt_vertices ) > 0 ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap b/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap index 660fa90e5..60484b0c6 100644 --- a/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap @@ -17,7 +17,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA ls_item2 LIKE LINE OF lt_items. DATA ls_next LIKE LINE OF lt_items. - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). ls_item1-obj_type = 'TYPE'. ls_item1-obj_type = '1111'. @@ -27,7 +27,7 @@ CLASS ltcl_test IMPLEMENTATION. ls_item2-obj_type = '2222'. APPEND ls_item2 TO lt_items. - CREATE OBJECT lo_graph EXPORTING it_items = lt_items. + lo_graph = NEW #( it_items = lt_items ). lo_graph->add_edge( is_from = ls_item1 diff --git a/src/objects/core/zcl_abapgit_objects_activation.clas.abap b/src/objects/core/zcl_abapgit_objects_activation.clas.abap index ec69e9a9a..603b16a58 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.abap @@ -283,7 +283,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_popup = abap_false. ENDIF. - lv_no_ui = boolc( lv_popup = abap_false ). + lv_no_ui = xsdbool( lv_popup = abap_false ). IF iv_ddic = abap_true. lv_msg = |(with DDIC)|. @@ -536,7 +536,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_active = boolc( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). + rv_active = xsdbool( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). ENDMETHOD. @@ -579,7 +579,7 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. p_e071 = lt_e071 p_xmsg = lt_messages. - rv_active = boolc( lt_messages IS INITIAL ). + rv_active = xsdbool( lt_messages IS INITIAL ). ENDMETHOD. @@ -601,10 +601,8 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_include = cl_oo_classname_service=>get_interfacepool_name( ls_class-clsname ). ENDCASE. - CREATE OBJECT lo_cross - EXPORTING - p_name = lv_include - p_include = lv_include. + lo_cross = NEW #( p_name = lv_include + p_include = lv_include ). lo_cross->index_actualize( IMPORTING p_error = lv_error ). diff --git a/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap index ff6d29118..799db5387 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap @@ -18,7 +18,7 @@ ENDCLASS. CLASS ltcl_tests IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD is_active. diff --git a/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap index 91d259cac..dc97ea8d3 100644 --- a/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap @@ -37,7 +37,7 @@ CLASS ltcl_warning_overwrite_find IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_objects. + mo_objects = NEW #( ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_objects_files.clas.abap b/src/objects/core/zcl_abapgit_objects_files.clas.abap index d71e892ee..f6be93b61 100644 --- a/src/objects/core/zcl_abapgit_objects_files.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_files.clas.abap @@ -375,11 +375,8 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ). - CREATE OBJECT ri_xml - TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = lv_xml - iv_filename = lv_filename. + ri_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_xml + iv_filename = lv_filename ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_objects_files.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_files.clas.testclasses.abap index 7a7f08835..54049c3b2 100644 --- a/src/objects/core/zcl_abapgit_objects_files.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_files.clas.testclasses.abap @@ -58,9 +58,7 @@ CLASS ltcl_objects_files IMPLEMENTATION. " object type and name are upper case ls_item-obj_type = 'PROG'. ls_item-obj_name = 'ZLF'. - CREATE OBJECT mo_cut - EXPORTING - is_item = ls_item. + mo_cut = NEW #( is_item = ls_item ). mo_cut->set_files( lt_files ). ENDMETHOD. @@ -147,9 +145,7 @@ CLASS ltcl_objects_files IMPLEMENTATION. ls_item-obj_type = 'PROG'. ls_item-obj_name = '/TEST/ZLF'. - CREATE OBJECT mo_cut - EXPORTING - is_item = ls_item. + mo_cut = NEW #( is_item = ls_item ). " filenames are lower case cl_abap_unit_assert=>assert_equals( @@ -167,9 +163,7 @@ CLASS ltcl_objects_files IMPLEMENTATION. ls_item-obj_type = 'CHKO'. ls_item-obj_name = 'Z_AFF_EXAMPLE_CHKO'. - CREATE OBJECT mo_cut - EXPORTING - is_item = ls_item. + mo_cut = NEW #( is_item = ls_item ). mo_cut->add_raw( iv_data = lv_data iv_ext = 'json' ). diff --git a/src/objects/core/zcl_abapgit_serialize.clas.abap b/src/objects/core/zcl_abapgit_serialize.clas.abap index 31a795e52..f312de333 100644 --- a/src/objects/core/zcl_abapgit_serialize.clas.abap +++ b/src/objects/core/zcl_abapgit_serialize.clas.abap @@ -218,7 +218,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. io_dot = mo_dot_abapgit ii_log = ii_log ). - CREATE OBJECT lo_filter. + lo_filter = NEW #( ). lo_filter->apply( EXPORTING it_filter = it_filter CHANGING ct_tadir = lt_tadir ). @@ -226,7 +226,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. * if there are less than 10 objects run in single thread * this helps a lot when debugging, plus performance gain * with low number of objects does not matter much - lv_force = boolc( lines( lt_tadir ) < 10 ). + lv_force = xsdbool( lines( lt_tadir ) < 10 ). lt_found = serialize( iv_package = iv_package diff --git a/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap b/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap index b79c4c6dd..c60d513ca 100644 --- a/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap @@ -19,7 +19,7 @@ CLASS ltcl_determine_max_threads IMPLEMENTATION. METHOD setup. TRY. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -74,9 +74,7 @@ CLASS ltcl_serialize IMPLEMENTATION. mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). TRY. - CREATE OBJECT mo_cut - EXPORTING - io_dot_abapgit = mo_dot. + mo_cut = NEW #( io_dot_abapgit = mo_dot ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -127,13 +125,13 @@ CLASS ltcl_serialize IMPLEMENTATION. -object = 'ABCD'. -obj_name = 'OBJECT'. - CREATE OBJECT li_log1 TYPE zcl_abapgit_log. + li_log1 = NEW zcl_abapgit_log( ). mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - CREATE OBJECT li_log2 TYPE zcl_abapgit_log. + li_log2 = NEW zcl_abapgit_log( ). mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log2 @@ -181,14 +179,14 @@ CLASS ltcl_serialize IMPLEMENTATION. -obj_name = 'ZCL_TEST_IGNORE'. -devclass = '$ZTEST'. - CREATE OBJECT li_log1 TYPE zcl_abapgit_log. + li_log1 = NEW zcl_abapgit_log( ). mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - CREATE OBJECT li_log2 TYPE zcl_abapgit_log. + li_log2 = NEW zcl_abapgit_log( ). mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir @@ -244,13 +242,9 @@ CLASS ltcl_i18n IMPLEMENTATION. " ls_data-i18n_languages needs to be initial to get classic I18N data TRY. - CREATE OBJECT mo_dot_abapgit - EXPORTING - is_data = ls_data. + mo_dot_abapgit = NEW #( is_data = ls_data ). - CREATE OBJECT mo_cut - EXPORTING - io_dot_abapgit = mo_dot_abapgit. + mo_cut = NEW #( io_dot_abapgit = mo_dot_abapgit ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -287,9 +281,7 @@ CLASS ltcl_i18n IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( -file-data ). - CREATE OBJECT lo_input - EXPORTING - iv_xml = lv_xml. + lo_input = NEW #( iv_xml = lv_xml ). lo_input->zif_abapgit_xml_input~read( EXPORTING iv_name = 'DD02V' CHANGING cg_data = ls_dd02v ). diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap index 2973201c2..4daeb9dda 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap @@ -53,9 +53,7 @@ CLASS zcl_abapgit_ecatt_helper IMPLEMENTATION. "download method will create the xml stream "note: it's the redefined download( ) of each object type specific download, which is called TRY. - CREATE OBJECT lo_load_help_dummy - EXPORTING - im_maintain_function = ''. + lo_load_help_dummy = NEW #( im_maintain_function = '' ). io_download->download( im_object_name = iv_object_name im_object_version = iv_object_version diff --git a/src/objects/jump/zcl_abapgit_adt_link.clas.abap b/src/objects/jump/zcl_abapgit_adt_link.clas.abap index 32f5bd3be..e5a9a5f4b 100644 --- a/src/objects/jump/zcl_abapgit_adt_link.clas.abap +++ b/src/objects/jump/zcl_abapgit_adt_link.clas.abap @@ -218,7 +218,7 @@ CLASS zcl_abapgit_adt_link IMPLEMENTATION. RECEIVING result = lv_vit_wb_request. - rv_is_adt_jump_possible = boolc( NOT lv_vit_wb_request = abap_true ). + rv_is_adt_jump_possible = xsdbool( NOT lv_vit_wb_request = abap_true ). CATCH cx_root. zcx_abapgit_exception=>raise( 'ADT Jump Error' ). diff --git a/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap b/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap index c3f58da56..fa69fab90 100644 --- a/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap +++ b/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap @@ -116,7 +116,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -135,7 +135,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -160,7 +160,7 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDIF. diff --git a/src/objects/oo/zcl_abapgit_oo_base.clas.abap b/src/objects/oo/zcl_abapgit_oo_base.clas.abap index 760ef7660..8dcddc2c1 100644 --- a/src/objects/oo/zcl_abapgit_oo_base.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_base.clas.abap @@ -240,7 +240,7 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION. METHOD zif_abapgit_oo_object_fnc~serialize_abap. DATA lo_oo_serializer TYPE REF TO zcl_abapgit_oo_serializer. - CREATE OBJECT lo_oo_serializer. + lo_oo_serializer = NEW #( ). CASE iv_type. WHEN seop_ext_class_locals_def. rt_source = lo_oo_serializer->serialize_locals_def( is_class_key ). diff --git a/src/objects/oo/zcl_abapgit_oo_class.clas.abap b/src/objects/oo/zcl_abapgit_oo_class.clas.abap index 94fd960b6..332306dce 100644 --- a/src/objects/oo/zcl_abapgit_oo_class.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_class.clas.abap @@ -783,7 +783,7 @@ CLASS zcl_abapgit_oo_class IMPLEMENTATION. no_text = 4 inconsistent = 5 OTHERS = 6. - rv_exists = boolc( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). ENDMETHOD. diff --git a/src/objects/oo/zcl_abapgit_oo_factory.clas.abap b/src/objects/oo/zcl_abapgit_oo_factory.clas.abap index 5d5802040..dafbd7eb4 100644 --- a/src/objects/oo/zcl_abapgit_oo_factory.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_factory.clas.abap @@ -23,9 +23,9 @@ CLASS zcl_abapgit_oo_factory IMPLEMENTATION. RETURN. ENDIF. IF iv_object_type = 'CLAS'. - CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_class. + ri_object_oriented_object = NEW zcl_abapgit_oo_class( ). ELSEIF iv_object_type = 'INTF'. - CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_interface. + ri_object_oriented_object = NEW zcl_abapgit_oo_interface( ). ENDIF. ENDMETHOD. ENDCLASS. diff --git a/src/objects/oo/zcl_abapgit_oo_interface.clas.abap b/src/objects/oo/zcl_abapgit_oo_interface.clas.abap index b77cf6579..ca57c2b03 100644 --- a/src/objects/oo/zcl_abapgit_oo_interface.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_interface.clas.abap @@ -286,7 +286,7 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION. no_text = 4 inconsistent = 5 OTHERS = 6. - rv_exists = boolc( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). ENDMETHOD. diff --git a/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap b/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap index 90b7480af..4b443150b 100644 --- a/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap +++ b/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap @@ -36,7 +36,7 @@ CLASS ltcl_oo_serialize IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_oo_serializer. + mo_oo_serializer = NEW #( ). ENDMETHOD. diff --git a/src/objects/rules/zcl_abapgit_field_rules.clas.abap b/src/objects/rules/zcl_abapgit_field_rules.clas.abap index 4a88f6e18..448977f61 100644 --- a/src/objects/rules/zcl_abapgit_field_rules.clas.abap +++ b/src/objects/rules/zcl_abapgit_field_rules.clas.abap @@ -35,7 +35,7 @@ CLASS ZCL_ABAPGIT_FIELD_RULES IMPLEMENTATION. METHOD create. - CREATE OBJECT ro_result TYPE zcl_abapgit_field_rules. + ro_result = NEW zcl_abapgit_field_rules( ). ENDMETHOD. diff --git a/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap b/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap index 280f01efc..bd3e46271 100644 --- a/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap +++ b/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap @@ -17,13 +17,13 @@ CLASS ZCL_ABAPGIT_SAP_NAMESPACE IMPLEMENTATION. METHOD zif_abapgit_sap_namespace~exists. DATA lv_editflag TYPE trnspace-editflag. SELECT SINGLE editflag FROM trnspace INTO lv_editflag WHERE namespace = iv_namespace. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. METHOD zif_abapgit_sap_namespace~is_editable. DATA lv_editflag TYPE trnspace-editflag. SELECT SINGLE editflag FROM trnspace INTO lv_editflag WHERE namespace = iv_namespace. - rv_yes = boolc( sy-subrc = 0 AND lv_editflag = 'X' ). + rv_yes = xsdbool( sy-subrc = 0 AND lv_editflag = 'X' ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/sap/zcl_abapgit_sap_package.clas.abap b/src/objects/sap/zcl_abapgit_sap_package.clas.abap index cc4493649..951a2cf24 100644 --- a/src/objects/sap/zcl_abapgit_sap_package.clas.abap +++ b/src/objects/sap/zcl_abapgit_sap_package.clas.abap @@ -48,7 +48,7 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION. rv_are_changes_rec_in_tr_req = li_package->wbo_korr_flag. WHEN 1. " For new packages, derive from package name - rv_are_changes_rec_in_tr_req = boolc( mv_package(1) <> '$' ). + rv_are_changes_rec_in_tr_req = xsdbool( mv_package(1) <> '$' ). WHEN OTHERS. zcx_abapgit_exception=>raise_t100( ). ENDCASE. @@ -225,7 +225,7 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION. intern_err = 3 no_access = 4 object_locked_and_modified = 5 ). - rv_bool = boolc( sy-subrc <> 1 ). + rv_bool = xsdbool( sy-subrc <> 1 ). ENDMETHOD. diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.abap index f76217429..a6ee96e16 100644 --- a/src/objects/texts/zcl_abapgit_longtexts.clas.abap +++ b/src/objects/texts/zcl_abapgit_longtexts.clas.abap @@ -214,7 +214,7 @@ CLASS zcl_abapgit_longtexts IMPLEMENTATION. LOOP AT lt_longtexts ASSIGNING . - lv_no_main_lang = boolc( iv_main_language <> -dokil-langu ). + lv_no_main_lang = xsdbool( iv_main_language <> -dokil-langu ). CALL FUNCTION 'DOCU_UPDATE' EXPORTING diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap index 5e0e26e3b..2bc2097c0 100644 --- a/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap @@ -15,7 +15,7 @@ CLASS zcl_abapgit_longtexts DEFINITION LOCAL FRIENDS ltcl_longtexts. CLASS ltcl_longtexts IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD escape_name. diff --git a/src/objects/zcl_abapgit_object_acid.clas.abap b/src/objects/zcl_abapgit_object_acid.clas.abap index 6a7becf84..2b0efa80b 100644 --- a/src/objects/zcl_abapgit_object_acid.clas.abap +++ b/src/objects/zcl_abapgit_object_acid.clas.abap @@ -138,7 +138,7 @@ CLASS zcl_abapgit_object_acid IMPLEMENTATION. lo_aab = create_object( ). lo_aab->get_state( IMPORTING ex_state = lv_state ). - rv_bool = boolc( lv_state = abap_true ). + rv_bool = xsdbool( lv_state = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqbg.clas.abap b/src/objects/zcl_abapgit_object_aqbg.clas.abap index 18952b038..c0c98ba65 100644 --- a/src/objects/zcl_abapgit_object_aqbg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqbg.clas.abap @@ -57,11 +57,9 @@ CLASS zcl_abapgit_object_aqbg IMPLEMENTATION. METHOD get_generic. " transaction SQ03 - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqqu.clas.abap b/src/objects/zcl_abapgit_object_aqqu.clas.abap index 6d9ea311c..fe3c596e3 100644 --- a/src/objects/zcl_abapgit_object_aqqu.clas.abap +++ b/src/objects/zcl_abapgit_object_aqqu.clas.abap @@ -36,11 +36,9 @@ CLASS zcl_abapgit_object_aqqu IMPLEMENTATION. METHOD get_generic. " transaction SQ01 - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqsg.clas.abap b/src/objects/zcl_abapgit_object_aqsg.clas.abap index 0ed3a1a11..37be8a124 100644 --- a/src/objects/zcl_abapgit_object_aqsg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqsg.clas.abap @@ -36,11 +36,9 @@ CLASS zcl_abapgit_object_aqsg IMPLEMENTATION. METHOD get_generic. " transaction SQ02 - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_asfc.clas.abap b/src/objects/zcl_abapgit_object_asfc.clas.abap index 785c7d911..49ae8a9f3 100644 --- a/src/objects/zcl_abapgit_object_asfc.clas.abap +++ b/src/objects/zcl_abapgit_object_asfc.clas.abap @@ -23,10 +23,8 @@ CLASS zcl_abapgit_object_asfc IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_auth.clas.abap b/src/objects/zcl_abapgit_object_auth.clas.abap index b0e93f547..cd26e2658 100644 --- a/src/objects/zcl_abapgit_object_auth.clas.abap +++ b/src/objects/zcl_abapgit_object_auth.clas.abap @@ -46,7 +46,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. lo_auth TYPE REF TO cl_auth_tools. " authority check - CREATE OBJECT lo_auth. + lo_auth = NEW #( ). IF lo_auth->authority_check_suso( actvt = '06' fieldname = mv_fieldname ) <> 0. MESSAGE e463(01) WITH mv_fieldname INTO zcx_abapgit_exception=>null. @@ -88,7 +88,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. tadir_insert( iv_package ). - CREATE OBJECT lo_auth. + lo_auth = NEW #( ). IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0. zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ). @@ -110,7 +110,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. SELECT SINGLE fieldname FROM authx INTO mv_fieldname WHERE fieldname = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_avar.clas.abap b/src/objects/zcl_abapgit_object_avar.clas.abap index abf93319e..a4eed329a 100644 --- a/src/objects/zcl_abapgit_object_avar.clas.abap +++ b/src/objects/zcl_abapgit_object_avar.clas.abap @@ -153,7 +153,7 @@ CLASS zcl_abapgit_object_avar IMPLEMENTATION. lo_aab = create_object( ). lo_aab->get_state( IMPORTING ex_state = lv_state ). - rv_bool = boolc( lv_state = abap_true ). + rv_bool = xsdbool( lv_state = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_avas.clas.abap b/src/objects/zcl_abapgit_object_avas.clas.abap index 8dcaaaaef..12c81b16a 100644 --- a/src/objects/zcl_abapgit_object_avas.clas.abap +++ b/src/objects/zcl_abapgit_object_avas.clas.abap @@ -79,9 +79,7 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. lv_id = ms_item-obj_name. TRY. - CREATE OBJECT ro_avas - EXPORTING - im_assignment_id = lv_id. + ro_avas = NEW #( im_assignment_id = lv_id ). CATCH cx_pak_wb_object_locked INTO lx_err. zcx_abapgit_exception=>raise( |AVAS { lv_id }: locked: { lx_err->get_longtext( ) }| ). CATCH cx_pak_not_authorized INTO lx_err. @@ -166,7 +164,7 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. SELECT SINGLE guid FROM cls_assignment INTO lv_guid WHERE guid = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_char.clas.abap b/src/objects/zcl_abapgit_object_char.clas.abap index 9f01bdc24..60b2a1a0c 100644 --- a/src/objects/zcl_abapgit_object_char.clas.abap +++ b/src/objects/zcl_abapgit_object_char.clas.abap @@ -43,16 +43,14 @@ CLASS zcl_abapgit_object_char IMPLEMENTATION. SELECT SINGLE name FROM cls_attribute INTO lv_name WHERE name = ms_item-obj_name. - lv_new = boolc( sy-subrc <> 0 ). + lv_new = xsdbool( sy-subrc <> 0 ). lv_name = ms_item-obj_name. TRY. - CREATE OBJECT ro_char - EXPORTING - im_name = lv_name - im_type_group = iv_type_group - im_new = lv_new - im_activation_state = iv_activation_state. + ro_char = NEW #( im_name = lv_name + im_type_group = iv_type_group + im_new = lv_new + im_activation_state = iv_activation_state ). CATCH cx_pak_invalid_data cx_pak_not_authorized cx_pak_invalid_state diff --git a/src/objects/zcl_abapgit_object_chdo.clas.abap b/src/objects/zcl_abapgit_object_chdo.clas.abap index 02611bc15..25b06785a 100644 --- a/src/objects/zcl_abapgit_object_chdo.clas.abap +++ b/src/objects/zcl_abapgit_object_chdo.clas.abap @@ -296,7 +296,7 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. FROM tcdrp WHERE object = mv_object. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_clas.clas.abap b/src/objects/zcl_abapgit_object_clas.clas.abap index a20532c8e..32e4c0fb1 100644 --- a/src/objects/zcl_abapgit_object_clas.clas.abap +++ b/src/objects/zcl_abapgit_object_clas.clas.abap @@ -142,7 +142,7 @@ CLASS zcl_abapgit_object_clas IMPLEMENTATION. super->constructor( is_item = is_item iv_language = iv_language ). - CREATE OBJECT mi_object_oriented_object_fct TYPE zcl_abapgit_oo_class. + mi_object_oriented_object_fct = NEW zcl_abapgit_oo_class( ). mv_classpool_name = cl_oo_classname_service=>get_classpool_name( |{ is_item-obj_name }| ). diff --git a/src/objects/zcl_abapgit_object_cmod.clas.abap b/src/objects/zcl_abapgit_object_cmod.clas.abap index 9091272b2..33b642199 100644 --- a/src/objects/zcl_abapgit_object_cmod.clas.abap +++ b/src/objects/zcl_abapgit_object_cmod.clas.abap @@ -125,7 +125,7 @@ CLASS zcl_abapgit_object_cmod IMPLEMENTATION. DATA: lv_name TYPE modact-name. SELECT SINGLE name FROM modact INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus0.clas.abap b/src/objects/zcl_abapgit_object_cus0.clas.abap index 80106bf54..1a5a67287 100644 --- a/src/objects/zcl_abapgit_object_cus0.clas.abap +++ b/src/objects/zcl_abapgit_object_cus0.clas.abap @@ -94,7 +94,7 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION. IMPORTING message = ls_message. - rv_bool = boolc( ls_message IS INITIAL ). + rv_bool = xsdbool( ls_message IS INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus1.clas.abap b/src/objects/zcl_abapgit_object_cus1.clas.abap index 13e05a34d..6b3deefbd 100644 --- a/src/objects/zcl_abapgit_object_cus1.clas.abap +++ b/src/objects/zcl_abapgit_object_cus1.clas.abap @@ -111,7 +111,7 @@ CLASS zcl_abapgit_object_cus1 IMPLEMENTATION. activity_exists_not = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus2.clas.abap b/src/objects/zcl_abapgit_object_cus2.clas.abap index 31037165b..90a1d9616 100644 --- a/src/objects/zcl_abapgit_object_cus2.clas.abap +++ b/src/objects/zcl_abapgit_object_cus2.clas.abap @@ -104,7 +104,7 @@ CLASS zcl_abapgit_object_cus2 IMPLEMENTATION. attributes_exists_not = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ddls.clas.abap b/src/objects/zcl_abapgit_object_ddls.clas.abap index 95c36ee65..cc8f86949 100644 --- a/src/objects/zcl_abapgit_object_ddls.clas.abap +++ b/src/objects/zcl_abapgit_object_ddls.clas.abap @@ -354,7 +354,7 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION. name = ms_item-obj_name IMPORTING got_state = lv_state. - rv_bool = boolc( NOT lv_state IS INITIAL ). + rv_bool = xsdbool( NOT lv_state IS INITIAL ). CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_devc.clas.abap b/src/objects/zcl_abapgit_object_devc.clas.abap index 43bf5be5d..47bda2b11 100644 --- a/src/objects/zcl_abapgit_object_devc.clas.abap +++ b/src/objects/zcl_abapgit_object_devc.clas.abap @@ -102,7 +102,7 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. WHERE pgmid = 'R3TR' AND NOT ( ( object = 'DEVC' OR object = 'SOTR' ) AND obj_name = iv_package_name ) AND devclass = iv_package_name. - rv_is_empty = boolc( sy-subrc <> 0 ). + rv_is_empty = xsdbool( sy-subrc <> 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dial.clas.abap b/src/objects/zcl_abapgit_object_dial.clas.abap index e1e2610ce..7533d712a 100644 --- a/src/objects/zcl_abapgit_object_dial.clas.abap +++ b/src/objects/zcl_abapgit_object_dial.clas.abap @@ -125,7 +125,7 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. ls_tdct = _read_tdct( ). - rv_bool = boolc( ls_tdct IS NOT INITIAL ). + rv_bool = xsdbool( ls_tdct IS NOT INITIAL ). ENDMETHOD. @@ -176,7 +176,7 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. object_not_found = 1 OTHERS = 2. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_doct.clas.abap b/src/objects/zcl_abapgit_object_doct.clas.abap index f2bf578e6..fbb23ccf5 100644 --- a/src/objects/zcl_abapgit_object_doct.clas.abap +++ b/src/objects/zcl_abapgit_object_doct.clas.abap @@ -84,7 +84,7 @@ CLASS zcl_abapgit_object_doct IMPLEMENTATION. WHERE id = c_id AND object = lv_object. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_docv.clas.abap b/src/objects/zcl_abapgit_object_docv.clas.abap index 289b899f7..f8f13c934 100644 --- a/src/objects/zcl_abapgit_object_docv.clas.abap +++ b/src/objects/zcl_abapgit_object_docv.clas.abap @@ -149,7 +149,7 @@ CLASS zcl_abapgit_object_docv IMPLEMENTATION. WHERE id = mv_id AND object = mv_doc_object. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_doma.clas.abap b/src/objects/zcl_abapgit_object_doma.clas.abap index e30943db2..34c252024 100644 --- a/src/objects/zcl_abapgit_object_doma.clas.abap +++ b/src/objects/zcl_abapgit_object_doma.clas.abap @@ -418,7 +418,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. SELECT SINGLE domname FROM dd01l INTO lv_domname WHERE domname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dsys.clas.abap b/src/objects/zcl_abapgit_object_dsys.clas.abap index cc0fa66b7..050eff0cb 100644 --- a/src/objects/zcl_abapgit_object_dsys.clas.abap +++ b/src/objects/zcl_abapgit_object_dsys.clas.abap @@ -167,7 +167,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. WHERE id = c_id AND object = mv_doc_object. "#EC CI_GENBUFF - rv_bool = boolc( lv_count > 0 ). + rv_bool = xsdbool( lv_count > 0 ). ENDMETHOD. @@ -219,7 +219,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. no_editor = 2 OTHERS = 3. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dtel.clas.abap b/src/objects/zcl_abapgit_object_dtel.clas.abap index b5c753f10..7c3f03fff 100644 --- a/src/objects/zcl_abapgit_object_dtel.clas.abap +++ b/src/objects/zcl_abapgit_object_dtel.clas.abap @@ -251,7 +251,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION. SELECT SINGLE rollname FROM dd04l INTO lv_rollname WHERE rollname = lv_rollname. ENDIF. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ecat.clas.abap b/src/objects/zcl_abapgit_object_ecat.clas.abap index 1a91f6a79..0d31bf529 100644 --- a/src/objects/zcl_abapgit_object_ecat.clas.abap +++ b/src/objects/zcl_abapgit_object_ecat.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_script_downl. + ro_download = NEW zcl_abapgit_ecatt_script_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_script_upl. + ro_upload = NEW zcl_abapgit_ecatt_script_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecsd.clas.abap b/src/objects/zcl_abapgit_object_ecsd.clas.abap index e9e5e9ced..f99143551 100644 --- a/src/objects/zcl_abapgit_object_ecsd.clas.abap +++ b/src/objects/zcl_abapgit_object_ecsd.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_system_downl. + ro_download = NEW zcl_abapgit_ecatt_system_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_system_upl. + ro_upload = NEW zcl_abapgit_ecatt_system_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecsp.clas.abap b/src/objects/zcl_abapgit_object_ecsp.clas.abap index a4e2d7ae0..9a152ec92 100644 --- a/src/objects/zcl_abapgit_object_ecsp.clas.abap +++ b/src/objects/zcl_abapgit_object_ecsp.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_sp_download. + ro_download = NEW zcl_abapgit_ecatt_sp_download( ). ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_sp_upload. + ro_upload = NEW zcl_abapgit_ecatt_sp_upload( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ectc.clas.abap b/src/objects/zcl_abapgit_object_ectc.clas.abap index 457f2d081..242a3f979 100644 --- a/src/objects/zcl_abapgit_object_ectc.clas.abap +++ b/src/objects/zcl_abapgit_object_ectc.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_config_downl. + ro_download = NEW zcl_abapgit_ecatt_config_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_config_upl. + ro_upload = NEW zcl_abapgit_ecatt_config_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ectd.clas.abap b/src/objects/zcl_abapgit_object_ectd.clas.abap index 86ca112ed..941c7810c 100644 --- a/src/objects/zcl_abapgit_object_ectd.clas.abap +++ b/src/objects/zcl_abapgit_object_ectd.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_data_downl. + ro_download = NEW zcl_abapgit_ecatt_data_downl( ). ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_data_upload. + ro_upload = NEW zcl_abapgit_ecatt_data_upload( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecvo.clas.abap b/src/objects/zcl_abapgit_object_ecvo.clas.abap index 7b49e4c59..5bcf00ce0 100644 --- a/src/objects/zcl_abapgit_object_ecvo.clas.abap +++ b/src/objects/zcl_abapgit_object_ecvo.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_download. - CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_val_obj_down. + ro_download = NEW zcl_abapgit_ecatt_val_obj_down( ). ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_upload. - CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_val_obj_upl. + ro_upload = NEW zcl_abapgit_ecatt_val_obj_upl( ). ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_enho.clas.abap b/src/objects/zcl_abapgit_object_enho.clas.abap index e1592e027..23f2192c1 100644 --- a/src/objects/zcl_abapgit_object_enho.clas.abap +++ b/src/objects/zcl_abapgit_object_enho.clas.abap @@ -25,37 +25,23 @@ CLASS zcl_abapgit_object_enho IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_impl=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_badi - EXPORTING - is_item = ms_item. + ri_enho = NEW zcl_abapgit_object_enho_badi( is_item = ms_item ). WHEN cl_enh_tool_hook_impl=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_hook - EXPORTING - is_item = ms_item - io_files = zif_abapgit_object~mo_files. + ri_enho = NEW zcl_abapgit_object_enho_hook( is_item = ms_item + io_files = zif_abapgit_object~mo_files ). WHEN cl_enh_tool_class=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_class - EXPORTING - is_item = ms_item - io_files = zif_abapgit_object~mo_files. + ri_enho = NEW zcl_abapgit_object_enho_class( is_item = ms_item + io_files = zif_abapgit_object~mo_files ). WHEN cl_enh_tool_intf=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_intf - EXPORTING - is_item = ms_item - io_files = zif_abapgit_object~mo_files. + ri_enho = NEW zcl_abapgit_object_enho_intf( is_item = ms_item + io_files = zif_abapgit_object~mo_files ). WHEN cl_wdr_cfg_enhancement=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyc - EXPORTING - is_item = ms_item. + ri_enho = NEW zcl_abapgit_object_enho_wdyc( is_item = ms_item ). WHEN 'FUGRENH'. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_fugr - EXPORTING - is_item = ms_item - io_files = zif_abapgit_object~mo_files. + ri_enho = NEW zcl_abapgit_object_enho_fugr( is_item = ms_item + io_files = zif_abapgit_object~mo_files ). WHEN 'WDYENH'. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyn - EXPORTING - is_item = ms_item. + ri_enho = NEW zcl_abapgit_object_enho_wdyn( is_item = ms_item ). WHEN OTHERS. zcx_abapgit_exception=>raise( |Unsupported ENHO type { iv_tool }| ). ENDCASE. diff --git a/src/objects/zcl_abapgit_object_enhs.clas.abap b/src/objects/zcl_abapgit_object_enhs.clas.abap index 8aa787646..ce9818568 100644 --- a/src/objects/zcl_abapgit_object_enhs.clas.abap +++ b/src/objects/zcl_abapgit_object_enhs.clas.abap @@ -24,9 +24,9 @@ CLASS zcl_abapgit_object_enhs IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_def=>tooltype. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_badi_d. + ri_enho = NEW zcl_abapgit_object_enhs_badi_d( ). WHEN cl_enh_tool_hook_def=>tool_type. - CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_hook_d. + ri_enho = NEW zcl_abapgit_object_enhs_hook_d( ). WHEN OTHERS. zcx_abapgit_exception=>raise( |ENHS: Unsupported tool { iv_tool }| ). ENDCASE. diff --git a/src/objects/zcl_abapgit_object_enqu.clas.abap b/src/objects/zcl_abapgit_object_enqu.clas.abap index cc5ba1fb6..071b6e2d1 100644 --- a/src/objects/zcl_abapgit_object_enqu.clas.abap +++ b/src/objects/zcl_abapgit_object_enqu.clas.abap @@ -93,7 +93,7 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_fdt0.clas.abap b/src/objects/zcl_abapgit_object_fdt0.clas.abap index 626c2cb70..91436194c 100644 --- a/src/objects/zcl_abapgit_object_fdt0.clas.abap +++ b/src/objects/zcl_abapgit_object_fdt0.clas.abap @@ -82,7 +82,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. WHERE object_type = 'AP' AND id = lv_application_id AND deleted = ''. - ev_create = boolc( lv_count = 0 ). + ev_create = xsdbool( lv_count = 0 ). ENDIF. " Fill in user/time/system-specific fields @@ -587,7 +587,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. AND name = ms_item-obj_name AND deleted = ''. - rv_bool = boolc( lv_count > 0 ). + rv_bool = xsdbool( lv_count > 0 ). ENDMETHOD. @@ -597,16 +597,12 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. DATA lo_local_version_output TYPE REF TO zcl_abapgit_xml_output. DATA lo_local_version_input TYPE REF TO zcl_abapgit_xml_input. - CREATE OBJECT lo_local_version_output. + lo_local_version_output = NEW #( ). zif_abapgit_object~serialize( lo_local_version_output ). - CREATE OBJECT lo_local_version_input - EXPORTING - iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ). + lo_local_version_input = NEW #( iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ) ). - CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar - EXPORTING - ii_local = lo_local_version_input. + ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = lo_local_version_input ). ENDMETHOD. @@ -653,7 +649,7 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. lv_index = lines( lt_version ). READ TABLE lt_version ASSIGNING INDEX lv_index. - rv_active = boolc( -state = 'A' ). + rv_active = xsdbool( -state = 'A' ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_form.clas.abap b/src/objects/zcl_abapgit_object_form.clas.abap index 46f345a0f..0b9159d3a 100644 --- a/src/objects/zcl_abapgit_object_form.clas.abap +++ b/src/objects/zcl_abapgit_object_form.clas.abap @@ -129,7 +129,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. DATA lv_string TYPE string. DATA li_xml TYPE REF TO zif_abapgit_xml_output. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). li_xml->add( iv_name = c_objectname_tdlines ig_data = it_lines ). lv_string = li_xml->render( ). @@ -170,7 +170,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. ENDTRY. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_input EXPORTING iv_xml = lv_string. + li_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_string ). li_xml->read( EXPORTING iv_name = c_objectname_tdlines CHANGING cg_data = rt_lines ). diff --git a/src/objects/zcl_abapgit_object_fugr.clas.abap b/src/objects/zcl_abapgit_object_fugr.clas.abap index 8b31a009e..33db211f7 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -1056,10 +1056,8 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. LOOP AT it_includes INTO lv_include. - CREATE OBJECT lo_cross - EXPORTING - p_name = lv_include - p_include = lv_include. + lo_cross = NEW #( p_name = lv_include + p_include = lv_include ). lo_cross->index_actualize( ). @@ -1262,7 +1260,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. function_pool = lv_pool EXCEPTIONS pool_not_exists = 1. - rv_bool = boolc( sy-subrc <> 1 ). + rv_bool = xsdbool( sy-subrc <> 1 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_g4ba.clas.abap b/src/objects/zcl_abapgit_object_g4ba.clas.abap index 54af7e9f5..809de5582 100644 --- a/src/objects/zcl_abapgit_object_g4ba.clas.abap +++ b/src/objects/zcl_abapgit_object_g4ba.clas.abap @@ -65,11 +65,9 @@ CLASS zcl_abapgit_object_g4ba IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_g4bs.clas.abap b/src/objects/zcl_abapgit_object_g4bs.clas.abap index 108d0555d..f9a106e6a 100644 --- a/src/objects/zcl_abapgit_object_g4bs.clas.abap +++ b/src/objects/zcl_abapgit_object_g4bs.clas.abap @@ -65,11 +65,9 @@ CLASS zcl_abapgit_object_g4bs IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_idoc.clas.abap b/src/objects/zcl_abapgit_object_idoc.clas.abap index 424ee97ca..ef07fccbd 100644 --- a/src/objects/zcl_abapgit_object_idoc.clas.abap +++ b/src/objects/zcl_abapgit_object_idoc.clas.abap @@ -90,7 +90,7 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. db_error = 2 no_authority = 3 OTHERS = 4. - rv_closed = boolc( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). + rv_closed = xsdbool( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). ENDMETHOD. @@ -253,7 +253,7 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. db_error = 2 OTHERS = 3. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iext.clas.abap b/src/objects/zcl_abapgit_object_iext.clas.abap index e8995d280..7d7c367cb 100644 --- a/src/objects/zcl_abapgit_object_iext.clas.abap +++ b/src/objects/zcl_abapgit_object_iext.clas.abap @@ -115,7 +115,7 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION. EXCEPTIONS OTHERS = 1. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_intf.clas.abap b/src/objects/zcl_abapgit_object_intf.clas.abap index 0cdef2a6f..2107a483d 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.abap @@ -253,7 +253,7 @@ CLASS zcl_abapgit_object_intf IMPLEMENTATION. lv_json_data = zif_abapgit_object~mo_files->read_raw( iv_ext = 'json' ). ls_intf_aff = lcl_aff_metadata_handler=>deserialize( lv_json_data ). - CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping. + lo_aff_mapper = NEW lcl_aff_type_mapping( ). lo_aff_mapper->to_abapgit( EXPORTING iv_data = ls_intf_aff iv_object_name = ms_item-obj_name IMPORTING es_data = rs_intf ). diff --git a/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap b/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap index d9a59926a..634bf3b92 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap @@ -529,14 +529,14 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. lt_paths_to_skip TYPE zcl_abapgit_json_handler=>ty_skip_paths. - CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping. + lo_aff_mapper = NEW lcl_aff_type_mapping( ). lo_aff_mapper->to_aff( EXPORTING iv_data = is_intf IMPORTING es_data = ls_data_aff ). lt_enum_mappings = get_mappings( ). lt_paths_to_skip = get_paths_to_skip( ). - CREATE OBJECT lo_aff_handler. + lo_aff_handler = NEW #( ). TRY. rv_result = lo_aff_handler->serialize( iv_data = ls_data_aff iv_enum_mappings = lt_enum_mappings @@ -605,7 +605,7 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. lt_enum_mappings = get_mappings( ). - CREATE OBJECT lo_ajson. + lo_ajson = NEW #( ). TRY. lo_ajson->deserialize( EXPORTING diff --git a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap index db4540204..9b82ce0eb 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap @@ -136,18 +136,14 @@ CLASS ltcl_unit_test IMPLEMENTATION. ms_item-obj_name = 'ZIF_ABAPGIT_TEST_INTF'. ms_item-obj_type = 'INTF'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ms_item - iv_language = 'E'. + lo_cut = NEW #( is_item = ms_item + iv_language = 'E' ). - CREATE OBJECT lo_cut->zif_abapgit_object~mo_files - EXPORTING - is_item = ms_item. + lo_cut->zif_abapgit_object~mo_files = NEW #( is_item = ms_item ). - CREATE OBJECT mo_log. + mo_log = NEW #( ). - CREATE OBJECT mo_object_fnc. + mo_object_fnc = NEW #( ). lo_cut->mi_object_oriented_object_fct = mo_object_fnc. mo_cut = lo_cut. @@ -163,9 +159,7 @@ CLASS ltcl_unit_test IMPLEMENTATION. DATA ls_expected_docu_line TYPE tline. DATA lt_expected_docu_lines TYPE tlinetab. - CREATE OBJECT lo_xmlin TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = get_xml( ). + lo_xmlin = NEW zcl_abapgit_xml_input( iv_xml = get_xml( ) ). mo_cut->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 ea8a82797..6bec964ef 100644 --- a/src/objects/zcl_abapgit_object_iobj.clas.abap +++ b/src/objects/zcl_abapgit_object_iobj.clas.abap @@ -260,7 +260,7 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION. INTO lv_iobjnm WHERE iobjnm = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwmo.clas.abap b/src/objects/zcl_abapgit_object_iwmo.clas.abap index 7133262b9..588419f02 100644 --- a/src/objects/zcl_abapgit_object_iwmo.clas.abap +++ b/src/objects/zcl_abapgit_object_iwmo.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwmo IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwom.clas.abap b/src/objects/zcl_abapgit_object_iwom.clas.abap index d87cff0b1..8d5af8560 100644 --- a/src/objects/zcl_abapgit_object_iwom.clas.abap +++ b/src/objects/zcl_abapgit_object_iwom.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwom IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwpr.clas.abap b/src/objects/zcl_abapgit_object_iwpr.clas.abap index f427f8d84..f28d4171e 100644 --- a/src/objects/zcl_abapgit_object_iwpr.clas.abap +++ b/src/objects/zcl_abapgit_object_iwpr.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwpr IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwsg.clas.abap b/src/objects/zcl_abapgit_object_iwsg.clas.abap index fe3f1f176..50812c417 100644 --- a/src/objects/zcl_abapgit_object_iwsg.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsg.clas.abap @@ -49,11 +49,9 @@ CLASS zcl_abapgit_object_iwsg IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwsv.clas.abap b/src/objects/zcl_abapgit_object_iwsv.clas.abap index b3316beae..03d09e724 100644 --- a/src/objects/zcl_abapgit_object_iwsv.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsv.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwsv IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwvb.clas.abap b/src/objects/zcl_abapgit_object_iwvb.clas.abap index 765fcbd58..3a29ee437 100644 --- a/src/objects/zcl_abapgit_object_iwvb.clas.abap +++ b/src/objects/zcl_abapgit_object_iwvb.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_iwvb IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_msag.clas.abap b/src/objects/zcl_abapgit_object_msag.clas.abap index e43a45303..bca007526 100644 --- a/src/objects/zcl_abapgit_object_msag.clas.abap +++ b/src/objects/zcl_abapgit_object_msag.clas.abap @@ -426,7 +426,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. SELECT SINGLE arbgb FROM t100a INTO lv_arbgb WHERE arbgb = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_nrob.clas.abap b/src/objects/zcl_abapgit_object_nrob.clas.abap index 4041b0cfe..c92e3902b 100644 --- a/src/objects/zcl_abapgit_object_nrob.clas.abap +++ b/src/objects/zcl_abapgit_object_nrob.clas.abap @@ -243,7 +243,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION. SELECT SINGLE object FROM tnro INTO lv_object WHERE object = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_nspc.clas.abap b/src/objects/zcl_abapgit_object_nspc.clas.abap index 8881a6586..b260425d6 100644 --- a/src/objects/zcl_abapgit_object_nspc.clas.abap +++ b/src/objects/zcl_abapgit_object_nspc.clas.abap @@ -250,7 +250,7 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. namespace_not_valid = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -309,7 +309,7 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. view_not_found = 13 OTHERS = 14. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_oa2p.clas.abap b/src/objects/zcl_abapgit_object_oa2p.clas.abap index b795cd1b7..9eb5bb364 100644 --- a/src/objects/zcl_abapgit_object_oa2p.clas.abap +++ b/src/objects/zcl_abapgit_object_oa2p.clas.abap @@ -203,7 +203,7 @@ CLASS zcl_abapgit_object_oa2p IMPLEMENTATION. enq = lt_locks. " Number of chosen lock entries - rv_is_locked = boolc( lv_lock_number > 0 ). + rv_is_locked = xsdbool( lv_lock_number > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_odso.clas.abap b/src/objects/zcl_abapgit_object_odso.clas.abap index 177fd1261..9033472e5 100644 --- a/src/objects/zcl_abapgit_object_odso.clas.abap +++ b/src/objects/zcl_abapgit_object_odso.clas.abap @@ -232,7 +232,7 @@ CLASS zcl_abapgit_object_odso IMPLEMENTATION. INTO lv_iobjnm WHERE odsobject = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_otgr.clas.abap b/src/objects/zcl_abapgit_object_otgr.clas.abap index 03b011aa5..dd02115a4 100644 --- a/src/objects/zcl_abapgit_object_otgr.clas.abap +++ b/src/objects/zcl_abapgit_object_otgr.clas.abap @@ -47,11 +47,9 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION. lv_name = ms_item-obj_name. TRY. - CREATE OBJECT ro_otgr - EXPORTING - im_name = lv_name - im_new = lv_new - im_activation_state = lv_state. + ro_otgr = NEW #( im_name = lv_name + im_new = lv_new + im_activation_state = lv_state ). CATCH cx_pak_invalid_data cx_pak_not_authorized cx_pak_invalid_state diff --git a/src/objects/zcl_abapgit_object_para.clas.abap b/src/objects/zcl_abapgit_object_para.clas.abap index 72b543b29..a70244995 100644 --- a/src/objects/zcl_abapgit_object_para.clas.abap +++ b/src/objects/zcl_abapgit_object_para.clas.abap @@ -161,7 +161,7 @@ CLASS zcl_abapgit_object_para IMPLEMENTATION. SELECT SINGLE paramid FROM tpara INTO lv_paramid WHERE paramid = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap b/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap index e8ccc60e4..a4cd0faca 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap @@ -73,7 +73,7 @@ CLASS lcl_task_definition IMPLEMENTATION. DATA lo_taskdef TYPE REF TO lcl_task_definition. - CREATE OBJECT lo_taskdef. + lo_taskdef = NEW #( ). lo_taskdef->mv_objid = iv_objid. lo_taskdef->supply_instance( ). @@ -185,7 +185,7 @@ CLASS lcl_task_definition IMPLEMENTATION. METHOD create. DATA lo_task TYPE REF TO lcl_task_definition. - CREATE OBJECT lo_task TYPE lcl_task_definition. + lo_task = NEW lcl_task_definition( ). lo_task->mv_objid = iv_objid. lo_task->ms_task = is_task_data. ri_result = lo_task. diff --git a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap index 647f1a489..daa1999c4 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap @@ -61,10 +61,8 @@ CLASS ltc_smoke_test IMPLEMENTATION. ls_item-obj_name = '99999999'. TRY. - CREATE OBJECT mo_cut TYPE zcl_abapgit_object_pdts - EXPORTING - is_item = ls_item - iv_language = sy-langu. + mo_cut = NEW zcl_abapgit_object_pdts( is_item = ls_item + iv_language = sy-langu ). CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( ). ENDTRY. diff --git a/src/objects/zcl_abapgit_object_pdxx_super.clas.abap b/src/objects/zcl_abapgit_object_pdxx_super.clas.abap index b934948a6..33916495e 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.abap @@ -45,7 +45,7 @@ CLASS zcl_abapgit_object_pdxx_super IMPLEMENTATION. not_found = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap index 51d6993b0..bc318c3e3 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap @@ -46,10 +46,8 @@ CLASS ltc_lock IMPLEMENTATION. ls_item-obj_type = 'PDXX'. ls_item-obj_name = 'XX' && lc_dummy. - CREATE OBJECT lo_cut TYPE lth_object_pdxx - EXPORTING - is_item = ls_item - iv_language = sy-langu. + lo_cut = NEW lth_object_pdxx( is_item = ls_item + iv_language = sy-langu ). cl_abap_unit_assert=>assert_equals( act = lo_cut->is_locked( ) exp = abap_true ). @@ -105,10 +103,8 @@ CLASS ltc_general_tests IMPLEMENTATION. ls_item-obj_type = 'PDZZ'. ls_item-obj_name = 'ZZ99999999'. - CREATE OBJECT lo_cut TYPE lth_object_pdxx - EXPORTING - is_item = ls_item - iv_language = sy-langu. + lo_cut = NEW lth_object_pdxx( is_item = ls_item + iv_language = sy-langu ). cl_abap_unit_assert=>assert_equals( act = lo_cut->get_objkey( )-otype exp = 'ZZ' ). diff --git a/src/objects/zcl_abapgit_object_pers.clas.abap b/src/objects/zcl_abapgit_object_pers.clas.abap index 55c5bcc75..24497fc47 100644 --- a/src/objects/zcl_abapgit_object_pers.clas.abap +++ b/src/objects/zcl_abapgit_object_pers.clas.abap @@ -139,7 +139,7 @@ CLASS zcl_abapgit_object_pers IMPLEMENTATION. pers_key_does_not_exist = 1 OTHERS = 2 ). - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pinf.clas.abap b/src/objects/zcl_abapgit_object_pinf.clas.abap index f32d79f3f..db2f0345c 100644 --- a/src/objects/zcl_abapgit_object_pinf.clas.abap +++ b/src/objects/zcl_abapgit_object_pinf.clas.abap @@ -61,9 +61,7 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. METHOD create_facade. - CREATE OBJECT ri_facade TYPE lcl_package_interface_facade - EXPORTING - ii_interface = ii_interface. + ri_facade = NEW lcl_package_interface_facade( ii_interface = ii_interface ). ENDMETHOD. @@ -297,12 +295,12 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. SELECT SINGLE pack_name FROM intf INTO lv_pack_name WHERE intf_name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). IF rv_bool = abap_true. SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack WHERE devclass = lv_pack_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDIF. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_prog.clas.abap b/src/objects/zcl_abapgit_object_prog.clas.abap index 3f4f257ed..e828ffa64 100644 --- a/src/objects/zcl_abapgit_object_prog.clas.abap +++ b/src/objects/zcl_abapgit_object_prog.clas.abap @@ -283,7 +283,7 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION. SELECT SINGLE progname FROM reposrc INTO lv_progname WHERE progname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_scp1.clas.abap b/src/objects/zcl_abapgit_object_scp1.clas.abap index 00bfe1355..79541671b 100644 --- a/src/objects/zcl_abapgit_object_scp1.clas.abap +++ b/src/objects/zcl_abapgit_object_scp1.clas.abap @@ -389,7 +389,7 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION. profid = lv_profid IMPORTING rc = lv_rc. - rv_bool = boolc( lv_rc = 0 ). + rv_bool = xsdbool( lv_rc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_scvi.clas.abap b/src/objects/zcl_abapgit_object_scvi.clas.abap index faa68e0ee..0745f9069 100644 --- a/src/objects/zcl_abapgit_object_scvi.clas.abap +++ b/src/objects/zcl_abapgit_object_scvi.clas.abap @@ -117,7 +117,7 @@ CLASS zcl_abapgit_object_scvi IMPLEMENTATION. EXCEPTIONS no_variant = 1 OTHERS = 2. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sfpf.clas.abap b/src/objects/zcl_abapgit_object_sfpf.clas.abap index 6a46c0146..cfb4ff284 100644 --- a/src/objects/zcl_abapgit_object_sfpf.clas.abap +++ b/src/objects/zcl_abapgit_object_sfpf.clas.abap @@ -286,7 +286,7 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION. INTO lv_name WHERE name = ms_item-obj_name AND state = 'A'. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sfpi.clas.abap b/src/objects/zcl_abapgit_object_sfpi.clas.abap index 452395326..283c5c307 100644 --- a/src/objects/zcl_abapgit_object_sfpi.clas.abap +++ b/src/objects/zcl_abapgit_object_sfpi.clas.abap @@ -130,7 +130,7 @@ CLASS zcl_abapgit_object_sfpi IMPLEMENTATION. INTO lv_name WHERE name = ms_item-obj_name AND state = 'A'. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shi3.clas.abap b/src/objects/zcl_abapgit_object_shi3.clas.abap index ae0274d64..da8b322ed 100644 --- a/src/objects/zcl_abapgit_object_shi3.clas.abap +++ b/src/objects/zcl_abapgit_object_shi3.clas.abap @@ -359,7 +359,7 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. structure_header = ls_header structure_tadir = ls_tadir. - rv_bool = boolc( ls_header-id IS NOT INITIAL ). + rv_bool = xsdbool( ls_header-id IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shi5.clas.abap b/src/objects/zcl_abapgit_object_shi5.clas.abap index 62c26b954..4e31e0d02 100644 --- a/src/objects/zcl_abapgit_object_shi5.clas.abap +++ b/src/objects/zcl_abapgit_object_shi5.clas.abap @@ -166,7 +166,7 @@ CLASS zcl_abapgit_object_shi5 IMPLEMENTATION. IMPORTING extension_header = ls_extension_header. - rv_bool = boolc( ls_extension_header IS NOT INITIAL ). + rv_bool = xsdbool( ls_extension_header IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shlp.clas.abap b/src/objects/zcl_abapgit_object_shlp.clas.abap index 45aad414f..b09b18a5a 100644 --- a/src/objects/zcl_abapgit_object_shlp.clas.abap +++ b/src/objects/zcl_abapgit_object_shlp.clas.abap @@ -176,7 +176,7 @@ CLASS zcl_abapgit_object_shlp IMPLEMENTATION. SELECT SINGLE shlpname FROM dd30l INTO lv_shlpname WHERE shlpname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shma.clas.abap b/src/objects/zcl_abapgit_object_shma.clas.abap index 3b42c20ee..96637896c 100644 --- a/src/objects/zcl_abapgit_object_shma.clas.abap +++ b/src/objects/zcl_abapgit_object_shma.clas.abap @@ -194,7 +194,7 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION. INTO lv_area_name WHERE area_name = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sicf.clas.abap b/src/objects/zcl_abapgit_object_sicf.clas.abap index faeafe6a9..6e48bef53 100644 --- a/src/objects/zcl_abapgit_object_sicf.clas.abap +++ b/src/objects/zcl_abapgit_object_sicf.clas.abap @@ -531,7 +531,7 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. SELECT SINGLE icfaltnme FROM icfservice INTO ls_key-icf_name WHERE icf_name = ms_item-obj_name(15) AND icfparguid = ms_item-obj_name+15. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_smim.clas.abap b/src/objects/zcl_abapgit_object_smim.clas.abap index b93bebc8a..da78912b6 100644 --- a/src/objects/zcl_abapgit_object_smim.clas.abap +++ b/src/objects/zcl_abapgit_object_smim.clas.abap @@ -259,7 +259,7 @@ CLASS zcl_abapgit_object_smim IMPLEMENTATION. SELECT SINGLE loio_id FROM smimloio INTO lv_loio WHERE loio_id = lv_loio. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sobj.clas.abap b/src/objects/zcl_abapgit_object_sobj.clas.abap index 56974169d..61d086fbc 100644 --- a/src/objects/zcl_abapgit_object_sobj.clas.abap +++ b/src/objects/zcl_abapgit_object_sobj.clas.abap @@ -85,11 +85,9 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. @@ -100,7 +98,7 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD is_locked. - rv_is_locked = boolc( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). + rv_is_locked = xsdbool( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_splo.clas.abap b/src/objects/zcl_abapgit_object_splo.clas.abap index c952c764e..2cfebe50d 100644 --- a/src/objects/zcl_abapgit_object_splo.clas.abap +++ b/src/objects/zcl_abapgit_object_splo.clas.abap @@ -69,7 +69,7 @@ CLASS zcl_abapgit_object_splo IMPLEMENTATION. SELECT SINGLE papart INTO lv_papart FROM tsp1d WHERE papart = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sppf.clas.abap b/src/objects/zcl_abapgit_object_sppf.clas.abap index 8448c470b..139708351 100644 --- a/src/objects/zcl_abapgit_object_sppf.clas.abap +++ b/src/objects/zcl_abapgit_object_sppf.clas.abap @@ -23,10 +23,8 @@ CLASS zcl_abapgit_object_sppf IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sprx.clas.abap b/src/objects/zcl_abapgit_object_sprx.clas.abap index a9d9d9648..cb27fee56 100644 --- a/src/objects/zcl_abapgit_object_sprx.clas.abap +++ b/src/objects/zcl_abapgit_object_sprx.clas.abap @@ -317,7 +317,7 @@ CLASS zcl_abapgit_object_sprx IMPLEMENTATION. status = lv_status status_text = lv_status_text ). - rv_bool = boolc( lv_status = if_proxy=>c_state_active ). + rv_bool = xsdbool( lv_status = if_proxy=>c_state_active ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sqsc.clas.abap b/src/objects/zcl_abapgit_object_sqsc.clas.abap index 41ab93822..df45333a7 100644 --- a/src/objects/zcl_abapgit_object_sqsc.clas.abap +++ b/src/objects/zcl_abapgit_object_sqsc.clas.abap @@ -152,10 +152,8 @@ CLASS zcl_abapgit_object_sqsc IMPLEMENTATION. IF zcl_abapgit_objects=>exists( ls_item ) = abap_true. - CREATE OBJECT lo_interface - EXPORTING - is_item = ls_item - iv_language = mv_language. + lo_interface = NEW #( is_item = ls_item + iv_language = mv_language ). 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 9fcb4de4b..68d9fc665 100644 --- a/src/objects/zcl_abapgit_object_srvb.clas.abap +++ b/src/objects/zcl_abapgit_object_srvb.clas.abap @@ -414,7 +414,7 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION. p_object_data = lo_object_data ). ENDIF. - rv_bool = boolc( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_srvd.clas.abap b/src/objects/zcl_abapgit_object_srvd.clas.abap index 246c827a5..86804f6a7 100644 --- a/src/objects/zcl_abapgit_object_srvd.clas.abap +++ b/src/objects/zcl_abapgit_object_srvd.clas.abap @@ -461,7 +461,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION. data_selection = 'P' IMPORTING eo_object_data = lo_object_data. - rv_bool = boolc( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_ssfo.clas.abap b/src/objects/zcl_abapgit_object_ssfo.clas.abap index 93ea1bfd4..8da8768a5 100644 --- a/src/objects/zcl_abapgit_object_ssfo.clas.abap +++ b/src/objects/zcl_abapgit_object_ssfo.clas.abap @@ -233,7 +233,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. lv_text TYPE string, lv_within_code_section TYPE abap_bool. - CREATE OBJECT lo_sf. + lo_sf = NEW #( ). * set "created by" and "changed by" to current user li_iterator = io_xml->get_raw( )->get_root_element( )->create_iterator( ). @@ -292,7 +292,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. SELECT SINGLE formname FROM stxfadm INTO lv_formname WHERE formname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -330,7 +330,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. IMPORTING o_inactive = lv_inactive. - rv_active = boolc( lv_inactive = abap_false ). + rv_active = xsdbool( lv_inactive = abap_false ). ENDMETHOD. @@ -423,7 +423,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. li_ixml = cl_ixml=>create( ). li_xml_doc = li_ixml->create_document( ). - CREATE OBJECT lo_sf. + lo_sf = NEW #( ). lv_formname = ms_item-obj_name. " convert type TRY. lo_sf->load( im_formname = lv_formname diff --git a/src/objects/zcl_abapgit_object_ssst.clas.abap b/src/objects/zcl_abapgit_object_ssst.clas.abap index 5922abd83..1a0ffea01 100644 --- a/src/objects/zcl_abapgit_object_ssst.clas.abap +++ b/src/objects/zcl_abapgit_object_ssst.clas.abap @@ -148,7 +148,7 @@ CLASS zcl_abapgit_object_ssst IMPLEMENTATION. WHERE active = c_style_active AND stylename = ms_item-obj_name AND vari = ''. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_styl.clas.abap b/src/objects/zcl_abapgit_object_styl.clas.abap index fe92d04ce..c28bac2a6 100644 --- a/src/objects/zcl_abapgit_object_styl.clas.abap +++ b/src/objects/zcl_abapgit_object_styl.clas.abap @@ -100,7 +100,7 @@ CLASS zcl_abapgit_object_styl IMPLEMENTATION. strings = ls_style-strings tabs = ls_style-tabs. - rv_bool = boolc( lv_found = abap_true ). + rv_bool = xsdbool( lv_found = abap_true ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sucu.clas.abap b/src/objects/zcl_abapgit_object_sucu.clas.abap index c4b18bd81..726c782f4 100644 --- a/src/objects/zcl_abapgit_object_sucu.clas.abap +++ b/src/objects/zcl_abapgit_object_sucu.clas.abap @@ -23,10 +23,8 @@ CLASS zcl_abapgit_object_sucu IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_susc.clas.abap b/src/objects/zcl_abapgit_object_susc.clas.abap index a3dd352af..310542538 100644 --- a/src/objects/zcl_abapgit_object_susc.clas.abap +++ b/src/objects/zcl_abapgit_object_susc.clas.abap @@ -191,7 +191,7 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION. SELECT SINGLE oclss FROM tobc INTO lv_oclss WHERE oclss = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sush.clas.abap b/src/objects/zcl_abapgit_object_sush.clas.abap index e89ea1e57..489289a07 100644 --- a/src/objects/zcl_abapgit_object_sush.clas.abap +++ b/src/objects/zcl_abapgit_object_sush.clas.abap @@ -240,7 +240,7 @@ CLASS zcl_abapgit_object_sush IMPLEMENTATION. SELECT SINGLE * FROM usobhash INTO ls_usobhash "#EC CI_ALL_FIELDS_NEEDED WHERE name = ms_item-obj_name. "#EC CI_SGLSELECT - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_suso.clas.abap b/src/objects/zcl_abapgit_object_suso.clas.abap index 40bff434a..45c693d72 100644 --- a/src/objects/zcl_abapgit_object_suso.clas.abap +++ b/src/objects/zcl_abapgit_object_suso.clas.abap @@ -274,7 +274,7 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION. SELECT SINGLE objct FROM tobj INTO lv_objct WHERE objct = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sxci.clas.abap b/src/objects/zcl_abapgit_object_sxci.clas.abap index 518dae604..8cf43045c 100644 --- a/src/objects/zcl_abapgit_object_sxci.clas.abap +++ b/src/objects/zcl_abapgit_object_sxci.clas.abap @@ -86,10 +86,8 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. lv_package = iv_package. - CREATE OBJECT lo_filter_values_object - EXPORTING - filter_object = lo_filter_object - filter_values = ls_classic_badi_implementation-filters. + lo_filter_values_object = NEW #( filter_object = lo_filter_object + filter_values = ls_classic_badi_implementation-filters ). CALL FUNCTION 'SXO_IMPL_SAVE' EXPORTING @@ -150,7 +148,7 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. data_inconsistency = 2 OTHERS = 3. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tabl.clas.abap b/src/objects/zcl_abapgit_object_tabl.clas.abap index 3f2e07c82..5c01e68c7 100644 --- a/src/objects/zcl_abapgit_object_tabl.clas.abap +++ b/src/objects/zcl_abapgit_object_tabl.clas.abap @@ -479,7 +479,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION. METHOD is_db_table_category. " values from domain TABCLASS - rv_is_db_table_type = boolc( iv_tabclass = 'TRANSP' + rv_is_db_table_type = xsdbool( iv_tabclass = 'TRANSP' OR iv_tabclass = 'CLUSTER' OR iv_tabclass = 'POOL' ). @@ -496,7 +496,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION. FROM edisegment INTO lv_segment_type WHERE segtyp = lv_segment_type. - rv_is_idoc_segment = boolc( sy-subrc = 0 ). + rv_is_idoc_segment = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -903,7 +903,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION. SELECT SINGLE tabname FROM dd02l INTO lv_tabname WHERE tabname = lv_tabname. ENDIF. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -914,18 +914,13 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION. li_local_version_input TYPE REF TO zif_abapgit_xml_input. - CREATE OBJECT li_local_version_output TYPE zcl_abapgit_xml_output. + li_local_version_output = NEW zcl_abapgit_xml_output( ). zif_abapgit_object~serialize( li_local_version_output ). - CREATE OBJECT li_local_version_input - TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = li_local_version_output->render( ). + li_local_version_input = NEW zcl_abapgit_xml_input( iv_xml = li_local_version_output->render( ) ). - CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar - EXPORTING - ii_local = li_local_version_input. + ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = li_local_version_input ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tabl_compar.clas.abap b/src/objects/zcl_abapgit_object_tabl_compar.clas.abap index 3a5bccd54..68318f580 100644 --- a/src/objects/zcl_abapgit_object_tabl_compar.clas.abap +++ b/src/objects/zcl_abapgit_object_tabl_compar.clas.abap @@ -140,7 +140,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL_COMPAR IMPLEMENTATION. DELETE lt_founds WHERE object_cls <> 'DT'. - rv_is_structure_used_in_db_tab = boolc( lines( lt_founds ) > 0 ). + rv_is_structure_used_in_db_tab = xsdbool( lines( lt_founds ) > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tobj.clas.abap b/src/objects/zcl_abapgit_object_tobj.clas.abap index 6b41697d6..8a6426917 100644 --- a/src/objects/zcl_abapgit_object_tobj.clas.abap +++ b/src/objects/zcl_abapgit_object_tobj.clas.abap @@ -214,7 +214,7 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. SELECT SINGLE objectname FROM objh INTO lv_objectname WHERE objectname = ms_item-obj_name(lv_type_pos) AND objecttype = ms_item-obj_name+lv_type_pos. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -264,7 +264,7 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = boolc( sy-subrc = 0 ). + rv_exit = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tran.clas.abap b/src/objects/zcl_abapgit_object_tran.clas.abap index 4b6c0b31f..c3f4930f5 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.abap @@ -374,7 +374,7 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD is_variant_transaction. - rv_variant_transaction = boolc( is_tstcp-param(1) = '@' ). + rv_variant_transaction = xsdbool( is_tstcp-param(1) = '@' ). ENDMETHOD. @@ -794,7 +794,7 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. SELECT SINGLE tcode FROM tstc INTO lv_tcode WHERE tcode = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap index c1126bd7b..9bc9601b6 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap @@ -52,10 +52,8 @@ CLASS ltcl_split_parameters IMPLEMENTATION. ls_item-obj_name = 'ZDUMMY'. ls_item-obj_type = 'TRAN'. - CREATE OBJECT mo_cut - EXPORTING - is_item = ls_item - iv_language = sy-langu. + mo_cut = NEW #( is_item = ls_item + iv_language = sy-langu ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ttyp.clas.abap b/src/objects/zcl_abapgit_object_ttyp.clas.abap index 204c44ab1..b19931b2c 100644 --- a/src/objects/zcl_abapgit_object_ttyp.clas.abap +++ b/src/objects/zcl_abapgit_object_ttyp.clas.abap @@ -105,7 +105,7 @@ CLASS zcl_abapgit_object_ttyp IMPLEMENTATION. SELECT SINGLE typename FROM dd40l INTO lv_typename WHERE typename = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_udmo.clas.abap b/src/objects/zcl_abapgit_object_udmo.clas.abap index 0e501ec02..a00d497d3 100644 --- a/src/objects/zcl_abapgit_object_udmo.clas.abap +++ b/src/objects/zcl_abapgit_object_udmo.clas.abap @@ -660,7 +660,7 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. WHERE dmoid = mv_data_model AND as4local = mv_activation_state. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). diff --git a/src/objects/zcl_abapgit_object_ueno.clas.abap b/src/objects/zcl_abapgit_object_ueno.clas.abap index d04de4049..e7368c0bd 100644 --- a/src/objects/zcl_abapgit_object_ueno.clas.abap +++ b/src/objects/zcl_abapgit_object_ueno.clas.abap @@ -440,11 +440,9 @@ CLASS zcl_abapgit_object_ueno IMPLEMENTATION. METHOD get_generic. - CREATE OBJECT ro_generic - EXPORTING - io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language. + ro_generic = NEW #( io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_vcls.clas.abap b/src/objects/zcl_abapgit_object_vcls.clas.abap index 08d9942b7..b1b0fba4f 100644 --- a/src/objects/zcl_abapgit_object_vcls.clas.abap +++ b/src/objects/zcl_abapgit_object_vcls.clas.abap @@ -133,7 +133,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. SELECT SINGLE changedate INTO lv_changedate FROM vcldir WHERE vclname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -166,7 +166,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. WHERE vclname = ms_item-obj_name. * see logic in function module VIEWCLUSTER_GET_DEFINITION - rv_active = boolc( lv_changedate IS NOT INITIAL ). + rv_active = xsdbool( lv_changedate IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_view.clas.abap b/src/objects/zcl_abapgit_object_view.clas.abap index cde545345..0c164040d 100644 --- a/src/objects/zcl_abapgit_object_view.clas.abap +++ b/src/objects/zcl_abapgit_object_view.clas.abap @@ -331,7 +331,7 @@ CLASS zcl_abapgit_object_view IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = ms_item-obj_name. - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). IF rv_bool = abap_true. TRY. diff --git a/src/objects/zcl_abapgit_object_wapa.clas.abap b/src/objects/zcl_abapgit_object_wapa.clas.abap index 5d0d36d1a..ed6e86fff 100644 --- a/src/objects/zcl_abapgit_object_wapa.clas.abap +++ b/src/objects/zcl_abapgit_object_wapa.clas.abap @@ -544,7 +544,7 @@ CLASS zcl_abapgit_object_wapa IMPLEMENTATION. object_not_existing = 1 permission_failure = 2 error_occured = 3 ). - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdca.clas.abap b/src/objects/zcl_abapgit_object_wdca.clas.abap index 9df8a8e23..439b09ba0 100644 --- a/src/objects/zcl_abapgit_object_wdca.clas.abap +++ b/src/objects/zcl_abapgit_object_wdca.clas.abap @@ -68,10 +68,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - CREATE OBJECT lo_cfg - EXPORTING - config_key = ls_key - object_name = lv_name. + lo_cfg = NEW #( config_key = ls_key + object_name = lv_name ). MOVE-CORRESPONDING ls_key TO ls_outline. @@ -130,10 +128,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - CREATE OBJECT lo_cfg - EXPORTING - config_key = ls_key - object_name = lv_name. + lo_cfg = NEW #( config_key = ls_key + object_name = lv_name ). MOVE-CORRESPONDING ls_key TO es_outline. @@ -188,10 +184,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. MOVE-CORRESPONDING is_outline TO ls_key. TRY. - CREATE OBJECT lo_cfg - EXPORTING - config_key = ls_key - object_name = lv_name. + lo_cfg = NEW #( config_key = ls_key + object_name = lv_name ). READ TABLE it_data INDEX 1 INTO ls_data. ASSERT sy-subrc = 0. @@ -335,7 +329,7 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. WHERE config_id = ls_wdy_config_key-config_id AND config_type = ls_wdy_config_key-config_type AND config_var = ls_wdy_config_key-config_var. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdcc.clas.abap b/src/objects/zcl_abapgit_object_wdcc.clas.abap index c2c62b078..0768aa0ef 100644 --- a/src/objects/zcl_abapgit_object_wdcc.clas.abap +++ b/src/objects/zcl_abapgit_object_wdcc.clas.abap @@ -309,7 +309,7 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. zcx_abapgit_exception=>raise( 'Error check object lock WDCC: ' && ms_item-obj_name ). ENDIF. - rv_is_locked = boolc( lines( lt_enq ) > 0 ). + rv_is_locked = xsdbool( lines( lt_enq ) > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdya.clas.abap b/src/objects/zcl_abapgit_object_wdya.clas.abap index d1fc68952..fcd4260d3 100644 --- a/src/objects/zcl_abapgit_object_wdya.clas.abap +++ b/src/objects/zcl_abapgit_object_wdya.clas.abap @@ -72,11 +72,9 @@ CLASS zcl_abapgit_object_wdya IMPLEMENTATION. TRY. - CREATE OBJECT lo_app - EXPORTING - name = is_app-application_name - definition = is_app - devclass = iv_package. + lo_app = NEW #( name = is_app-application_name + definition = is_app + devclass = iv_package ). LOOP AT it_properties ASSIGNING . li_prop = lo_app->if_wdy_md_application~create_property( -name ). diff --git a/src/objects/zcl_abapgit_object_wdyn.clas.abap b/src/objects/zcl_abapgit_object_wdyn.clas.abap index 89f080dcd..c1c7f0821 100644 --- a/src/objects/zcl_abapgit_object_wdyn.clas.abap +++ b/src/objects/zcl_abapgit_object_wdyn.clas.abap @@ -803,14 +803,12 @@ CLASS zcl_abapgit_object_wdyn IMPLEMENTATION. lv_object_name TYPE seu_objkey. - CREATE OBJECT lo_component. + lo_component = NEW #( ). lv_object_name = ms_item-obj_name. - CREATE OBJECT lo_request - EXPORTING - p_object_type = 'YC' - p_object_name = lv_object_name - p_operation = swbm_c_op_delete_no_dialog. + lo_request = NEW #( p_object_type = 'YC' + p_object_name = lv_object_name + p_operation = swbm_c_op_delete_no_dialog ). lo_component->if_wb_program~process_wb_request( p_wb_request = lo_request @@ -879,7 +877,7 @@ CLASS zcl_abapgit_object_wdyn IMPLEMENTATION. SELECT SINGLE component_name FROM wdy_component INTO lv_component_name WHERE component_name = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = boolc( sy-subrc = 0 ). + rv_bool = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_webi.clas.abap b/src/objects/zcl_abapgit_object_webi.clas.abap index ec19867a5..98eb13caa 100644 --- a/src/objects/zcl_abapgit_object_webi.clas.abap +++ b/src/objects/zcl_abapgit_object_webi.clas.abap @@ -360,7 +360,7 @@ CLASS zcl_abapgit_object_webi IMPLEMENTATION. lv_name = ms_item-obj_name. - CREATE OBJECT lo_vif. + lo_vif = NEW #( ). TRY. lo_vif->if_ws_md_vif_root~delete_virtual_interface( lv_name ). CATCH cx_ws_md_exception. diff --git a/src/objects/zcl_abapgit_object_xinx.clas.abap b/src/objects/zcl_abapgit_object_xinx.clas.abap index dd18d6f72..2c0bdc997 100644 --- a/src/objects/zcl_abapgit_object_xinx.clas.abap +++ b/src/objects/zcl_abapgit_object_xinx.clas.abap @@ -311,7 +311,7 @@ CLASS zcl_abapgit_object_xinx IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_bool = boolc( ls_dd12v IS NOT INITIAL ). + rv_bool = xsdbool( ls_dd12v IS NOT INITIAL ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_xslt.clas.abap b/src/objects/zcl_abapgit_object_xslt.clas.abap index 47c32cd8d..5bec9d662 100644 --- a/src/objects/zcl_abapgit_object_xslt.clas.abap +++ b/src/objects/zcl_abapgit_object_xslt.clas.abap @@ -172,7 +172,7 @@ CLASS zcl_abapgit_object_xslt IMPLEMENTATION. lv_name = ms_item-obj_name. rv_bool = cl_o2_api_xsltdesc=>exists( lv_name ). - rv_bool = boolc( rv_bool = '1' ). + rv_bool = xsdbool( rv_bool = '1' ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects.clas.abap b/src/objects/zcl_abapgit_objects.clas.abap index 94417b582..c43081f71 100644 --- a/src/objects/zcl_abapgit_objects.clas.abap +++ b/src/objects/zcl_abapgit_objects.clas.abap @@ -387,11 +387,8 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT li_remote_version - TYPE zcl_abapgit_xml_input - EXPORTING - iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data ) - iv_filename = ls_remote_file-filename. + li_remote_version = NEW zcl_abapgit_xml_input( iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data ) + iv_filename = ls_remote_file-filename ). ls_result = li_comparator->compare( ii_remote = li_remote_version ii_log = ii_log ). @@ -470,9 +467,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. lv_message = |Object type { is_item-obj_type } is not supported by this system|. IF iv_native_only = abap_false. TRY. " 2nd step, try looking for plugins - CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge - EXPORTING - is_item = is_item. + ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item ). CATCH cx_sy_create_object_error. zcx_abapgit_exception=>raise( lv_message ). ENDTRY. @@ -719,10 +714,8 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. ENDIF. " Create or update object - CREATE OBJECT lo_files - EXPORTING - is_item = ls_item - iv_path = lv_path. + lo_files = NEW #( is_item = ls_item + iv_path = lv_path ). lo_files->set_files( lt_remote ). @@ -1153,16 +1146,14 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. rs_files_and_item-item-obj_name }| ). ENDIF. - CREATE OBJECT lo_files - EXPORTING - is_item = rs_files_and_item-item. + lo_files = NEW #( is_item = rs_files_and_item-item ). li_obj = create_object( is_item = rs_files_and_item-item iv_language = iv_language ). li_obj->mo_files = lo_files. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). ls_i18n_params-main_language = iv_language. ls_i18n_params-main_language_only = iv_main_language_only. @@ -1174,7 +1165,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. TRY. li_obj->serialize( li_xml ). CATCH zcx_abapgit_exception INTO lx_error. - rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). RAISE EXCEPTION lx_error. ENDTRY. @@ -1187,7 +1178,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. check_duplicates( rs_files_and_item-files ). - rs_files_and_item-item-inactive = boolc( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). LOOP AT rs_files_and_item-files ASSIGNING . -sha1 = zcl_abapgit_hash=>sha1_blob( -data ). diff --git a/src/objects/zcl_abapgit_objects_generic.clas.abap b/src/objects/zcl_abapgit_objects_generic.clas.abap index 48e7ca875..255b93e75 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.abap @@ -420,7 +420,7 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION. ASSIGN lr_table_line->* TO . SELECT SINGLE * FROM (lv_primary) INTO WHERE (lv_where_clause). - rv_bool = boolc( sy-dbcnt > 0 ). + rv_bool = xsdbool( sy-dbcnt > 0 ). ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap index 3094e97a6..4dda78e06 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap @@ -28,11 +28,9 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_001'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item. + lo_cut = NEW #( is_item = ls_item ). - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). lo_cut->serialize( li_xml ). * checks that it does not dump @@ -48,10 +46,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). cl_abap_unit_assert=>assert_equals( exp = 'AGR_DEFINE' @@ -70,10 +66,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). lt_key_fields = lo_cut->get_key_fields( 'AGR_HIER' ). @@ -98,10 +92,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'NSPC'. ls_item-obj_name = '/BIC/'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). cl_abap_unit_assert=>assert_equals( exp = `NAMESPACE = '/BIC/'` @@ -128,10 +120,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_name+32 = '09'. ls_item-obj_name+34 = 'TEST'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). lt_key_fields = lo_cut->get_key_fields( 'WDY_CONFIG_DATA' ). @@ -186,10 +176,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_002'. - CREATE OBJECT lo_cut - EXPORTING - is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english. + lo_cut = NEW #( is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english ). lt_key_fields = lo_cut->get_key_fields( 'AIND_STR4' ). diff --git a/src/objects/zcl_abapgit_objects_program.clas.abap b/src/objects/zcl_abapgit_objects_program.clas.abap index e397842d1..3fbc9456c 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.abap @@ -924,7 +924,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. IF io_xml IS BOUND. li_xml = io_xml. ELSE. - CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. + li_xml = NEW zcl_abapgit_xml_output( ). ENDIF. li_xml->add( iv_name = 'PROGDIR' diff --git a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap index d746c3945..46d438649 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap @@ -34,10 +34,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'PROG'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -47,10 +45,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 2, FUGR ls_item-obj_type = 'FUGR'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -70,10 +66,8 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 'some code starts here' TO lt_src_orig. ls_item-obj_type = 'FUGR'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -107,10 +101,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'FUGR'. - CREATE OBJECT lo_cut - EXPORTING - iv_language = 'E' - is_item = ls_item. + lo_cut = NEW #( iv_language = 'E' + is_item = ls_item ). lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). diff --git a/src/persist/zcl_abapgit_persist_factory.clas.abap b/src/persist/zcl_abapgit_persist_factory.clas.abap index d00148e1c..db6582215 100644 --- a/src/persist/zcl_abapgit_persist_factory.clas.abap +++ b/src/persist/zcl_abapgit_persist_factory.clas.abap @@ -30,7 +30,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_repo. IF gi_repo IS INITIAL. - CREATE OBJECT gi_repo TYPE zcl_abapgit_persistence_repo. + gi_repo = NEW zcl_abapgit_persistence_repo( ). ENDIF. ri_repo = gi_repo. @@ -40,7 +40,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_repo_cs. IF gi_repo_cs IS INITIAL. - CREATE OBJECT gi_repo_cs TYPE zcl_abapgit_persistence_repo. + gi_repo_cs = NEW zcl_abapgit_persistence_repo( ). ENDIF. ri_repo_cs = gi_repo_cs. @@ -50,7 +50,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_settings. IF gi_settings IS INITIAL. - CREATE OBJECT gi_settings TYPE zcl_abapgit_persist_settings. + gi_settings = NEW zcl_abapgit_persist_settings( ). ENDIF. ri_settings = gi_settings. diff --git a/src/persist/zcl_abapgit_persist_migrate.clas.abap b/src/persist/zcl_abapgit_persist_migrate.clas.abap index 77b671a54..7da036eac 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.abap @@ -96,7 +96,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. ENDTRY. " New exists and differs from own - then it is really new, needs to be installed - rv_exists = boolc( lv_h_own = lv_h_new ). + rv_exists = xsdbool( lv_h_own = lv_h_new ). ENDMETHOD. @@ -194,7 +194,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = zcl_abapgit_persistence_db=>c_lock. - rv_exists = boolc( sy-subrc = 0 ). + rv_exists = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -315,7 +315,7 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. SELECT SINGLE tabname FROM dd02l INTO lv_tabname WHERE tabname = zcl_abapgit_persistence_db=>c_tabname. - rv_exists = boolc( sy-subrc = 0 ). + rv_exists = xsdbool( sy-subrc = 0 ). ENDMETHOD. ENDCLASS. diff --git a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap index e834860bd..f44b9597a 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap @@ -27,10 +27,8 @@ CLASS lcl_cua_interface IMPLEMENTATION. AND object = 'PROG' AND obj_name = sy-cprog. - CREATE OBJECT ro_instance - EXPORTING - iv_language = 'E' - is_item = ls_item. + ro_instance = NEW #( iv_language = 'E' + is_item = ls_item ). ENDMETHOD. @@ -48,7 +46,7 @@ CLASS lcl_cua_interface IMPLEMENTATION. is_cua = is_cua iv_program_name = ms_item-obj_name ). - CREATE OBJECT li_log TYPE zcl_abapgit_log. + li_log = NEW zcl_abapgit_log( ). zcl_abapgit_objects_activation=>activate( ii_log = li_log ). zcl_abapgit_objects_activation=>clear( ). diff --git a/src/persist/zcl_abapgit_persist_packages.clas.abap b/src/persist/zcl_abapgit_persist_packages.clas.abap index 425d44737..1abe63540 100644 --- a/src/persist/zcl_abapgit_persist_packages.clas.abap +++ b/src/persist/zcl_abapgit_persist_packages.clas.abap @@ -61,7 +61,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. DATA lo_input TYPE REF TO zif_abapgit_xml_input. - CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = iv_xml. + lo_input = NEW zcl_abapgit_xml_input( iv_xml = iv_xml ). lo_input->read( EXPORTING @@ -75,7 +75,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. METHOD get_instance. IF go_persist IS NOT BOUND. - CREATE OBJECT go_persist. + go_persist = NEW #( ). ENDIF. ro_persist = go_persist. @@ -144,7 +144,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. DATA li_output TYPE REF TO zif_abapgit_xml_output. - CREATE OBJECT li_output TYPE zcl_abapgit_xml_output. + li_output = NEW zcl_abapgit_xml_output( ). li_output->add( iv_name = zcl_abapgit_persistence_db=>c_type_packages diff --git a/src/persist/zcl_abapgit_persist_settings.clas.abap b/src/persist/zcl_abapgit_persist_settings.clas.abap index 125dc3af9..2174e8f79 100644 --- a/src/persist/zcl_abapgit_persist_settings.clas.abap +++ b/src/persist/zcl_abapgit_persist_settings.clas.abap @@ -52,7 +52,7 @@ CLASS ZCL_ABAPGIT_PERSIST_SETTINGS IMPLEMENTATION. ENDIF. " Settings have changed or have not yet been loaded - CREATE OBJECT ro_settings. + ro_settings = NEW #( ). TRY. diff --git a/src/persist/zcl_abapgit_persistence_db.clas.abap b/src/persist/zcl_abapgit_persistence_db.clas.abap index 9b4480ccf..9e543c79e 100644 --- a/src/persist/zcl_abapgit_persistence_db.clas.abap +++ b/src/persist/zcl_abapgit_persistence_db.clas.abap @@ -131,7 +131,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION. METHOD get_instance. IF go_db IS NOT BOUND. - CREATE OBJECT go_db. + go_db = NEW #( ). ENDIF. ro_db = go_db. diff --git a/src/persist/zcl_abapgit_persistence_repo.clas.abap b/src/persist/zcl_abapgit_persistence_repo.clas.abap index d2251aae2..52bab6083 100644 --- a/src/persist/zcl_abapgit_persistence_repo.clas.abap +++ b/src/persist/zcl_abapgit_persistence_repo.clas.abap @@ -238,7 +238,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION. DATA: lo_background TYPE REF TO zcl_abapgit_persist_background. - CREATE OBJECT lo_background. + lo_background = NEW #( ). lo_background->delete( iv_key ). mo_db->delete( iv_type = zcl_abapgit_persistence_db=>c_type_repo @@ -258,7 +258,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_REPO IMPLEMENTATION. it_keys = lt_keys iv_type = zcl_abapgit_persistence_db=>c_type_repo ). - rv_yes = boolc( lines( lt_content ) > 0 ). + rv_yes = xsdbool( lines( lt_content ) > 0 ). ENDMETHOD. diff --git a/src/persist/zcl_abapgit_persistence_user.clas.abap b/src/persist/zcl_abapgit_persistence_user.clas.abap index 751a0bba3..81f47ef0b 100644 --- a/src/persist/zcl_abapgit_persistence_user.clas.abap +++ b/src/persist/zcl_abapgit_persistence_user.clas.abap @@ -116,13 +116,11 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. IF iv_user = sy-uname ##USER_OK. IF gi_current_user IS NOT BOUND. - CREATE OBJECT gi_current_user TYPE zcl_abapgit_persistence_user. + gi_current_user = NEW zcl_abapgit_persistence_user( ). ENDIF. ri_user = gi_current_user. ELSE. - CREATE OBJECT ri_user TYPE zcl_abapgit_persistence_user - EXPORTING - iv_user = iv_user. + ri_user = NEW zcl_abapgit_persistence_user( iv_user = iv_user ). ENDIF. ENDMETHOD. @@ -337,7 +335,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. READ TABLE ms_user-favorites TRANSPORTING NO FIELDS WITH KEY table_line = iv_repo_key. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. @@ -451,7 +449,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_changes_only. - ms_user-changes_only = boolc( ms_user-changes_only = abap_false ). + ms_user-changes_only = xsdbool( ms_user-changes_only = abap_false ). update( ). rv_changes_only = ms_user-changes_only. @@ -461,7 +459,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_diff_unified. - ms_user-diff_unified = boolc( ms_user-diff_unified = abap_false ). + ms_user-diff_unified = xsdbool( ms_user-diff_unified = abap_false ). update( ). rv_diff_unified = ms_user-diff_unified. @@ -487,7 +485,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_hide_files. - ms_user-hide_files = boolc( ms_user-hide_files = abap_false ). + ms_user-hide_files = xsdbool( ms_user-hide_files = abap_false ). update( ). rv_hide = ms_user-hide_files. @@ -496,7 +494,7 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_show_folders. - ms_user-show_folders = boolc( ms_user-show_folders = abap_false ). + ms_user-show_folders = xsdbool( ms_user-show_folders = abap_false ). update( ). rv_folders = ms_user-show_folders. diff --git a/src/progress/zcl_abapgit_progress.clas.abap b/src/progress/zcl_abapgit_progress.clas.abap index 434e22e57..e3b282e21 100644 --- a/src/progress/zcl_abapgit_progress.clas.abap +++ b/src/progress/zcl_abapgit_progress.clas.abap @@ -57,7 +57,7 @@ CLASS zcl_abapgit_progress IMPLEMENTATION. * max one progress indicator at a time is supported IF gi_progress IS INITIAL. - CREATE OBJECT gi_progress TYPE zcl_abapgit_progress. + gi_progress = NEW zcl_abapgit_progress( ). ENDIF. gi_progress->set_total( iv_total ). diff --git a/src/repo/zcl_abapgit_dot_abapgit.clas.abap b/src/repo/zcl_abapgit_dot_abapgit.clas.abap index a431a31db..6f997e737 100644 --- a/src/repo/zcl_abapgit_dot_abapgit.clas.abap +++ b/src/repo/zcl_abapgit_dot_abapgit.clas.abap @@ -138,9 +138,7 @@ CLASS ZCL_ABAPGIT_DOT_ABAPGIT IMPLEMENTATION. ls_data-starting_folder = '/src/'. ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix. - CREATE OBJECT ro_dot_abapgit - EXPORTING - is_data = ls_data. + ro_dot_abapgit = NEW #( is_data = ls_data ). ENDMETHOD. @@ -160,9 +158,7 @@ CLASS ZCL_ABAPGIT_DOT_ABAPGIT IMPLEMENTATION. ls_data = from_xml( lv_xml ). - CREATE OBJECT ro_dot_abapgit - EXPORTING - is_data = ls_data. + ro_dot_abapgit = NEW #( is_data = ls_data ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_file_status.clas.abap b/src/repo/zcl_abapgit_file_status.clas.abap index eec7b3444..10bcf8750 100644 --- a/src/repo/zcl_abapgit_file_status.clas.abap +++ b/src/repo/zcl_abapgit_file_status.clas.abap @@ -125,7 +125,7 @@ CLASS zcl_abapgit_file_status IMPLEMENTATION. rs_result-path = is_local-file-path. rs_result-filename = is_local-file-filename. - rs_result-match = boolc( is_local-file-sha1 = is_remote-sha1 ). + rs_result-match = xsdbool( is_local-file-sha1 = is_remote-sha1 ). IF rs_result-match = abap_true. RETURN. ENDIF. @@ -544,10 +544,8 @@ CLASS zcl_abapgit_file_status IMPLEMENTATION. ct_local = lt_local ct_remote = lt_remote ). - CREATE OBJECT lo_instance - EXPORTING - iv_root_package = io_repo->get_package( ) - io_dot = io_repo->get_dot_abapgit( ). + lo_instance = NEW #( iv_root_package = io_repo->get_package( ) + io_dot = io_repo->get_dot_abapgit( ) ). rt_results = lo_instance->calculate_status( it_local = lt_local @@ -556,10 +554,8 @@ CLASS zcl_abapgit_file_status IMPLEMENTATION. IF ii_log IS BOUND. " This method just adds messages to the log. No log, nothing to do here - CREATE OBJECT lo_consistency_checks - EXPORTING - iv_root_package = io_repo->get_package( ) - io_dot = io_repo->get_dot_abapgit( ). + lo_consistency_checks = NEW #( iv_root_package = io_repo->get_package( ) + io_dot = io_repo->get_dot_abapgit( ) ). ii_log->merge_with( lo_consistency_checks->run_checks( rt_results ) ). ENDIF. diff --git a/src/repo/zcl_abapgit_file_status.clas.locals_imp.abap b/src/repo/zcl_abapgit_file_status.clas.locals_imp.abap index f8597602d..07e4c2d93 100644 --- a/src/repo/zcl_abapgit_file_status.clas.locals_imp.abap +++ b/src/repo/zcl_abapgit_file_status.clas.locals_imp.abap @@ -66,7 +66,7 @@ CLASS lcl_status_consistency_checks IMPLEMENTATION. METHOD run_checks. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). " Find all objects which were assigned to a different package check_package_move( it_results ). diff --git a/src/repo/zcl_abapgit_file_status.clas.testclasses.abap b/src/repo/zcl_abapgit_file_status.clas.testclasses.abap index 64fca5505..00d54a7c1 100644 --- a/src/repo/zcl_abapgit_file_status.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_file_status.clas.testclasses.abap @@ -121,7 +121,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_sap_namespace~exists. - rv_yes = boolc( iv_namespace <> 'NOTEXIST' ). + rv_yes = xsdbool( iv_namespace <> 'NOTEXIST' ). ENDMETHOD. METHOD zif_abapgit_sap_namespace~is_editable. @@ -149,7 +149,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. METHOD setup. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). mo_dot->set_starting_folder( '/' ). " assumed by unit tests @@ -162,10 +162,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. zcl_abapgit_injector=>set_sap_namespace( me ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '$Z$' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '$Z$' + io_dot = mo_dot ). ENDMETHOD. @@ -500,10 +498,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '#notexist#zclass1.clas.xml' ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot ). mi_log = mo_instance->run_checks( mt_results ). @@ -529,10 +525,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '(notexist)zclass1.clas.json' ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot ). mi_log = mo_instance->run_checks( mt_results ). @@ -566,10 +560,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '' iv_filename = 'package.devc.xml' ). - CREATE OBJECT mo_instance - EXPORTING - iv_root_package = '$MAIN' - io_dot = mo_dot. + mo_instance = NEW #( iv_root_package = '$MAIN' + io_dot = mo_dot ). mi_log = mo_instance->run_checks( mt_results ). @@ -781,19 +773,15 @@ CLASS ltcl_status_helper IMPLEMENTATION. lo_dot = zcl_abapgit_dot_abapgit=>build_default( ). lo_dot->set_starting_folder( '/' ). " assumed by unit tests - CREATE OBJECT lo_instance - EXPORTING - iv_root_package = iv_devclass - io_dot = lo_dot. + lo_instance = NEW #( iv_root_package = iv_devclass + io_dot = lo_dot ). lt_results = lo_instance->calculate_status( it_local = mt_local it_remote = mt_remote it_cur_state = mt_state ). - CREATE OBJECT ro_result - EXPORTING - it_results = lt_results. + ro_result = NEW #( it_results = lt_results ). ENDMETHOD. @@ -833,7 +821,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). ENDMETHOD. @@ -925,7 +913,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD diff. " Modified both - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -953,7 +941,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-modified ). " Modified local only - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -981,7 +969,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-unchanged ). " Modified remote only - CREATE OBJECT mo_helper. + mo_helper = NEW #( ). mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' diff --git a/src/repo/zcl_abapgit_object_filter_tran.clas.testclasses.abap b/src/repo/zcl_abapgit_object_filter_tran.clas.testclasses.abap index ba0e65057..51e31fe93 100644 --- a/src/repo/zcl_abapgit_object_filter_tran.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_object_filter_tran.clas.testclasses.abap @@ -24,7 +24,7 @@ ENDCLASS. CLASS ltcl_adjust_filter IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. METHOD teardown. diff --git a/src/repo/zcl_abapgit_repo.clas.abap b/src/repo/zcl_abapgit_repo.clas.abap index 26c2014e2..0e593ea2b 100644 --- a/src/repo/zcl_abapgit_repo.clas.abap +++ b/src/repo/zcl_abapgit_repo.clas.abap @@ -299,7 +299,7 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. METHOD create_new_log. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). mi_log->set_title( iv_title ). ri_log = mi_log. @@ -416,7 +416,7 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. + ri_config = NEW zcl_abapgit_data_config( ). mi_data_config = ri_config. " Assume remote data has been loaded already @@ -522,7 +522,7 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. CLEAR lt_tadir. INSERT ls_tadir INTO TABLE lt_tadir. - CREATE OBJECT lo_serialize. + lo_serialize = NEW #( ). lt_new_local_files = lo_serialize->serialize( iv_package = ms_data-package it_tadir = lt_tadir ). @@ -714,9 +714,7 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. METHOD zif_abapgit_repo~checksums. - CREATE OBJECT ri_checksums TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = ms_data-key. + ri_checksums = NEW zcl_abapgit_repo_checksums( iv_repo_key = ms_data-key ). ENDMETHOD. @@ -799,9 +797,7 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. METHOD zif_abapgit_repo~get_dot_abapgit. - CREATE OBJECT ro_dot_abapgit - EXPORTING - is_data = ms_data-dot_abapgit. + ro_dot_abapgit = NEW #( is_data = ms_data-dot_abapgit ). ENDMETHOD. @@ -815,10 +811,8 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_serialize - EXPORTING - io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ). + lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ) ). IF ii_obj_filter IS NOT INITIAL. lt_filter = ii_obj_filter->get_filter( ). @@ -844,7 +838,7 @@ CLASS zcl_abapgit_repo IMPLEMENTATION. IF ii_obj_filter IS NOT INITIAL. lt_filter = ii_obj_filter->get_filter( ). - CREATE OBJECT lr_filter. + lr_filter = NEW #( ). lr_filter->apply_object_filter( EXPORTING it_filter = lt_filter diff --git a/src/repo/zcl_abapgit_repo.clas.testclasses.abap b/src/repo/zcl_abapgit_repo.clas.testclasses.abap index fb92cc1af..3ad6e045d 100644 --- a/src/repo/zcl_abapgit_repo.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo.clas.testclasses.abap @@ -64,9 +64,7 @@ CLASS ltcl_find_remote_dot_abapgit IMPLEMENTATION. ls_data-key = c_dummy_repo_key. " online/offline doesn't matter... - CREATE OBJECT mo_repo TYPE zcl_abapgit_repo_offline - EXPORTING - is_data = ls_data. + mo_repo = NEW zcl_abapgit_repo_offline( is_data = ls_data ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap index 66b41e45f..3c3ac3221 100644 --- a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap @@ -355,15 +355,13 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA li_cut TYPE REF TO zif_abapgit_repo_checksums. DATA lt_checksums_exp TYPE zif_abapgit_persistence=>ty_local_checksum_tt. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). ltcl_test_checksum_serializer=>get_mock( IMPORTING et_checksums = lt_checksums_exp ). - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). cl_abap_unit_assert=>assert_equals( act = li_cut->get( ) @@ -379,27 +377,25 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_r_builder TYPE REF TO lcl_remote_file_builder. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - CREATE OBJECT lo_l_builder. + lo_l_builder = NEW #( ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.abap hash1' ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.xml hash2' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). lo_mock->mt_local_files = lo_l_builder->mt_tab. " Remote - CREATE OBJECT lo_r_builder. + lo_r_builder = NEW #( ). lo_r_builder->add( '/ zhello.prog.abap hash1' ). lo_r_builder->add( '/ zhello.prog.xml hash2' ). lo_r_builder->add( '/ $pkg.devc.xml hash3' ). lo_mock->mt_remote_files = lo_r_builder->mt_tab. - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). li_cut->rebuild( ). @@ -426,18 +422,16 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lv_cs_exp TYPE string. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). - CREATE OBJECT lo_f_builder. + lo_f_builder = NEW #( ). lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). li_cut->update( lo_f_builder->mt_tab ). @@ -483,27 +477,25 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_r_builder TYPE REF TO lcl_remote_file_builder. - CREATE OBJECT lo_mock. + lo_mock = NEW #( ). zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - CREATE OBJECT lo_l_builder. + lo_l_builder = NEW #( ). lo_l_builder->add( '@ @ @ / .abapgit.xml hashZ' ). lo_l_builder->add( '@ @ @ / .gitignore whatever' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). lo_mock->mt_local_files = lo_l_builder->mt_tab. " Remote - CREATE OBJECT lo_r_builder. + lo_r_builder = NEW #( ). lo_r_builder->add( '/ .abapgit.xml hashZ' ). lo_r_builder->add( '/ .gitignore whatever' ). lo_r_builder->add( '/ $pkg.devc.xml hash3' ). lo_mock->mt_remote_files = lo_r_builder->mt_tab. - CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums - EXPORTING - iv_repo_key = '1'. + li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). li_cut->rebuild( ). @@ -546,11 +538,11 @@ CLASS ltcl_update_calculator_test IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - CREATE OBJECT lo_f_builder. + lo_f_builder = NEW #( ). lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - CREATE OBJECT lo_l_builder. + lo_l_builder = NEW #( ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.abap hash1' ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.xml hash2' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). diff --git a/src/repo/zcl_abapgit_repo_content_list.clas.abap b/src/repo/zcl_abapgit_repo_content_list.clas.abap index 1510913f5..d2a740e65 100644 --- a/src/repo/zcl_abapgit_repo_content_list.clas.abap +++ b/src/repo/zcl_abapgit_repo_content_list.clas.abap @@ -96,7 +96,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. ls_folder-path = -path. ls_folder-sortkey = c_sortkey-dir. " Directory ls_folder-is_dir = abap_true. - CREATE OBJECT lo_state. + lo_state = NEW #( ). ENDAT. ls_folder-changes = ls_folder-changes + -changes. @@ -134,7 +134,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. -path = -path. -srcsystem = -srcsystem. MOVE-CORRESPONDING TO ls_item. - -inactive = boolc( zcl_abapgit_objects=>is_active( ls_item ) = abap_false ). + -inactive = xsdbool( zcl_abapgit_objects=>is_active( ls_item ) = abap_false ). IF -inactive = abap_true. -sortkey = c_sortkey-inactive. ELSE. @@ -179,12 +179,12 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. -changes = 0. -path = -path. -srcsystem = -srcsystem. - CREATE OBJECT lo_state. + lo_state = NEW #( ). ENDAT. IF -filename IS NOT INITIAL. MOVE-CORRESPONDING TO ls_file. - ls_file-is_changed = boolc( -match = abap_false ). " TODO refactor + ls_file-is_changed = xsdbool( -match = abap_false ). " TODO refactor APPEND ls_file TO -files. IF -inactive = abap_true AND -sortkey > c_sortkey-changed. @@ -247,7 +247,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. METHOD constructor. mo_repo = io_repo. - CREATE OBJECT mi_log TYPE zcl_abapgit_log. + mi_log = NEW zcl_abapgit_log( ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_cs_migration.clas.abap b/src/repo/zcl_abapgit_repo_cs_migration.clas.abap index 6dd5f1ac5..87e6488b1 100644 --- a/src/repo/zcl_abapgit_repo_cs_migration.clas.abap +++ b/src/repo/zcl_abapgit_repo_cs_migration.clas.abap @@ -71,7 +71,7 @@ CLASS ZCL_ABAPGIT_REPO_CS_MIGRATION IMPLEMENTATION. RETURN. ENDIF. - CREATE OBJECT lo_cs EXPORTING iv_repo_key = iv_repo_key. + lo_cs = NEW #( iv_repo_key = iv_repo_key ). lo_cs->force_write( ls_repo_extract-local_checksums ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_offline.clas.abap b/src/repo/zcl_abapgit_repo_offline.clas.abap index 02fb504fe..9dba48cec 100644 --- a/src/repo/zcl_abapgit_repo_offline.clas.abap +++ b/src/repo/zcl_abapgit_repo_offline.clas.abap @@ -29,7 +29,7 @@ CLASS zcl_abapgit_repo_offline IMPLEMENTATION. METHOD has_remote_source. - rv_yes = boolc( lines( mt_remote ) > 0 ). + rv_yes = xsdbool( lines( mt_remote ) > 0 ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_srv.clas.abap b/src/repo/zcl_abapgit_repo_srv.clas.abap index 4b0917cf0..db1470056 100644 --- a/src/repo/zcl_abapgit_repo_srv.clas.abap +++ b/src/repo/zcl_abapgit_repo_srv.clas.abap @@ -114,7 +114,7 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD get_instance. IF gi_ref IS INITIAL. - CREATE OBJECT gi_ref TYPE zcl_abapgit_repo_srv. + gi_ref = NEW zcl_abapgit_repo_srv( ). ENDIF. ri_srv = gi_ref. ENDMETHOD. @@ -128,13 +128,9 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD instantiate_and_add. IF is_repo_meta-offline = abap_false. - CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_online - EXPORTING - is_data = is_repo_meta. + ri_repo = NEW zcl_abapgit_repo_online( is_data = is_repo_meta ). ELSE. - CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_offline - EXPORTING - is_data = is_repo_meta. + ri_repo = NEW zcl_abapgit_repo_offline( is_data = is_repo_meta ). ENDIF. add( ri_repo ). diff --git a/src/stage/zcl_abapgit_merge.clas.abap b/src/stage/zcl_abapgit_merge.clas.abap index 3c5612352..2e377ab70 100644 --- a/src/stage/zcl_abapgit_merge.clas.abap +++ b/src/stage/zcl_abapgit_merge.clas.abap @@ -92,9 +92,7 @@ CLASS ZCL_ABAPGIT_MERGE IMPLEMENTATION. lt_files = all_files( ). - CREATE OBJECT ms_merge-stage - EXPORTING - iv_merge_source = ms_merge-source-sha1. + ms_merge-stage = NEW #( iv_merge_source = ms_merge-source-sha1 ). LOOP AT lt_files ASSIGNING . @@ -109,9 +107,9 @@ CLASS ZCL_ABAPGIT_MERGE IMPLEMENTATION. READ TABLE ms_merge-ctree ASSIGNING WITH KEY path = -path name = -name. "#EC CI_SUBRC - lv_found_source = boolc( IS ASSIGNED ). - lv_found_target = boolc( IS ASSIGNED ). - lv_found_common = boolc( IS ASSIGNED ). + lv_found_source = xsdbool( IS ASSIGNED ). + lv_found_target = xsdbool( IS ASSIGNED ). + lv_found_common = xsdbool( IS ASSIGNED ). IF lv_found_source = abap_false AND lv_found_target = abap_false. @@ -368,7 +366,7 @@ CLASS ZCL_ABAPGIT_MERGE IMPLEMENTATION. METHOD zif_abapgit_merge~has_conflicts. - rv_conflicts_exists = boolc( lines( mt_conflicts ) > 0 ). + rv_conflicts_exists = xsdbool( lines( mt_conflicts ) > 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_abap.clas.abap b/src/syntax/zcl_abapgit_syntax_abap.clas.abap index da17dce0f..ddb4c1aac 100644 --- a/src/syntax/zcl_abapgit_syntax_abap.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_abap.clas.abap @@ -206,7 +206,7 @@ CLASS ZCL_ABAPGIT_SYNTAX_ABAP IMPLEMENTATION. lv_str = to_upper( iv_chunk ). READ TABLE gt_keywords WITH KEY table_line = lv_str TRANSPORTING NO FIELDS. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap index 2f258d464..5e4e5a283 100644 --- a/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap @@ -17,7 +17,7 @@ CLASS ltcl_abapgit_syntax_abap IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. @@ -64,7 +64,7 @@ ENDCLASS. CLASS ltcl_syntax_basic_logic IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_syntax_highlighter. + mo_syntax_highlighter = NEW #( ). ENDMETHOD. METHOD format_line. @@ -182,7 +182,7 @@ CLASS ltcl_syntax_cases IMPLEMENTATION. lo_syntax TYPE REF TO zcl_abapgit_syntax_abap. - CREATE OBJECT lo_syntax. + lo_syntax = NEW #( ). lt_matches_act = lo_syntax->parse_line( iv_line ). SORT lt_matches_act BY offset. diff --git a/src/syntax/zcl_abapgit_syntax_css.clas.abap b/src/syntax/zcl_abapgit_syntax_css.clas.abap index 01a9ec80c..c18a74b48 100644 --- a/src/syntax/zcl_abapgit_syntax_css.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_css.clas.abap @@ -365,7 +365,7 @@ CLASS zcl_abapgit_syntax_css IMPLEMENTATION. lv_str = to_lower( iv_chunk ). READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_factory.clas.abap b/src/syntax/zcl_abapgit_syntax_factory.clas.abap index 3a36c2d7f..91f4e68cf 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 highighter dynamically dependent on syntax type IF iv_filename CP '*.abap'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_abap. + ro_instance = NEW zcl_abapgit_syntax_abap( ). ELSEIF iv_filename CP '*.xml' OR iv_filename CP '*.html'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_xml. + ro_instance = NEW zcl_abapgit_syntax_xml( ). ELSEIF iv_filename CP '*.css'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_css. + ro_instance = NEW zcl_abapgit_syntax_css( ). ELSEIF iv_filename CP '*.js'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_js. + ro_instance = NEW zcl_abapgit_syntax_js( ). ELSEIF iv_filename CP '*.json' OR iv_filename CP '*.jsonc'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_json. + ro_instance = NEW zcl_abapgit_syntax_json( ). ELSEIF iv_filename CP '*.txt' OR iv_filename CP '*.ini' OR iv_filename CP '*.text'. - CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_txt. + ro_instance = NEW zcl_abapgit_syntax_txt( ). ELSE. CLEAR ro_instance. ENDIF. diff --git a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap index f05527e5b..a420cce1a 100644 --- a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap @@ -93,10 +93,8 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. DATA ls_rule LIKE LINE OF mt_rules. IF NOT iv_regex IS INITIAL. - CREATE OBJECT ls_rule-regex - EXPORTING - pattern = iv_regex - ignore_case = abap_true. + ls_rule-regex = NEW #( pattern = iv_regex + ignore_case = abap_true ). ENDIF. ls_rule-token = iv_token. @@ -194,7 +192,7 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. "/^\s+$/ lv_whitespace = ` ` && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. - rv_result = boolc( iv_string CO lv_whitespace ). + rv_result = xsdbool( iv_string CO lv_whitespace ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_js.clas.abap b/src/syntax/zcl_abapgit_syntax_js.clas.abap index 862def9bd..93d6f417d 100644 --- a/src/syntax/zcl_abapgit_syntax_js.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_js.clas.abap @@ -174,7 +174,7 @@ CLASS zcl_abapgit_syntax_js IMPLEMENTATION. lv_str = to_lower( iv_chunk ). READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS. - rv_yes = boolc( sy-subrc = 0 ). + rv_yes = xsdbool( sy-subrc = 0 ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap index dd12c12fd..d4141262c 100644 --- a/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap @@ -19,7 +19,7 @@ CLASS ltcl_abapgit_syntax_json IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap index 587c5d464..37a3e4fc4 100644 --- a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap @@ -24,7 +24,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. METHOD setup. - CREATE OBJECT mo_cut. + mo_cut = NEW #( ). ENDMETHOD. @@ -121,7 +121,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. act = mo_cut->process_line( |