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

Y

' ). cl_abap_unit_assert=>fail( ). CATCH zcx_abapgit_ajson_error INTO lx. @@ -527,7 +527,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -635,7 +635,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | |3' ). lo_nodes->add( '/ |1 |str |abc |2 |0' ). lo_nodes->add( '/ |2 |num |123 |1 |0' ). @@ -656,7 +656,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |3 |0' ). lo_nodes->add( '/ |beta |str |b | |0 |3' ). lo_nodes->add( '/ |zulu |str |z | |0 |1' ). @@ -686,7 +686,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | |3' ). lo_nodes->add( '/ |1 |object | |2 |2' ). lo_nodes->add( '/1/ |a |num |1 | |0' ). @@ -723,7 +723,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | |0' ). lv_act = lcl_json_serializer=>stringify( @@ -753,7 +753,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_val TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lv_val = 'a' && '"' && '\' && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. lo_nodes->add( | \| \|str \|{ lv_val }\| \|0| ). @@ -772,7 +772,7 @@ CLASS ltcl_serializer_test IMPLEMENTATION. DATA lv_exp TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lv_act = lcl_json_serializer=>stringify( lo_nodes->sorted( ) ). lv_exp = ''. @@ -960,7 +960,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_cut TYPE REF TO zcl_abapgit_ajson. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | |2' ). lo_nodes->add( '/ |1 |object | |1 |5' ). lo_nodes->add( '/1/ |message |str |Indentation problem ... | |0' ). @@ -992,7 +992,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " ********************************************************************** - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |8' ). lo_nodes->add( '/ |string |str |abc | |0' ). lo_nodes->add( '/ |number |num |123 | |0' ). @@ -1031,7 +1031,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " ********************************************************************** - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |2' ). lo_nodes->add( '/ |row |num |3 | |0' ). lo_nodes->add( '/ |col |num |21 | |0' ). @@ -1108,10 +1108,10 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lv_exp TYPE d. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lv_exp = '20200728'. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |2020-07-28 | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1120,7 +1120,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. act = lo_cut->zif_abapgit_ajson~get_date( '/date1' ) exp = lv_exp ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |2020-07-28T01:00:00Z | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1129,7 +1129,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. act = lo_cut->zif_abapgit_ajson~get_date( '/date1' ) exp = lv_exp ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |date1 |str |20200728 | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1146,9 +1146,9 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lv_exp TYPE timestamp VALUE `20200728000000`. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |timestamp|str |2020-07-28T00:00:00Z | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1296,7 +1296,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. DATA lt_act TYPE string_table. DATA lt_exp TYPE string_table. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | |6' ). lo_nodes->add( '/ |1 |num |123 |1|0' ). lo_nodes->add( '/ |2 |num |234 |2|0' ). @@ -1312,7 +1312,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. APPEND '' TO lt_exp. APPEND '' TO lt_exp. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->mt_json_tree = lo_nodes->mt_nodes. lt_act = lo_cut->zif_abapgit_ajson~array_to_string_table( '/' ). @@ -1323,7 +1323,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. " negative DATA lx TYPE REF TO zcx_abapgit_ajson_error. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |a |str |abc | |0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1355,7 +1355,7 @@ CLASS ltcl_reader_test IMPLEMENTATION. exp = 'Array expected at: /a' ). ENDTRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | |1' ). lo_nodes->add( '/ |1 |object | |1|0' ). lo_cut->mt_json_tree = lo_nodes->mt_nodes. @@ -1496,7 +1496,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_exp_timestamp TYPE timestamp VALUE '20200728000000'. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |str |str |hello | ' ). lo_nodes->add( '/ |int |num |5 | ' ). @@ -1512,7 +1512,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/ |timestamp3 |str |2020-07-28T01:00:00+01:00 | ' ). lo_nodes->add( '/ |timestamp4 |str |2020-07-28T01:00:00+01:00 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1543,10 +1543,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE timestamp. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |0000-00-00T00:00:00Z| ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1565,10 +1565,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE t. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |11:11:11| ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1581,10 +1581,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock_init TYPE t. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str || ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1603,10 +1603,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_act TYPE p LENGTH 10 DECIMALS 3. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |1.3333 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1625,10 +1625,10 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lv_mock TYPE string. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |hello | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1648,12 +1648,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1672,19 +1672,21 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. METHOD to_abap_array_of_arrays_simple. DATA lo_cut TYPE REF TO lcl_json_to_abap. - DATA lt_mock TYPE TABLE OF string_table. - DATA lt_exp TYPE TABLE OF string_table. + TYPES temp1 TYPE TABLE OF string_table. +DATA lt_mock TYPE temp1. + TYPES temp2 TYPE TABLE OF string_table. +DATA lt_exp TYPE temp2. DATA lt_tmp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |array | |1' ). lo_nodes->add( '/ |2 |array | |2' ). lo_nodes->add( '/1/ |1 |str |One |1' ). lo_nodes->add( '/2/ |1 |str |Two |1' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1706,12 +1708,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. METHOD to_abap_array_of_arrays. DATA lo_cut TYPE REF TO lcl_json_to_abap. - DATA lt_mock TYPE TABLE OF string_table. - DATA lt_exp TYPE TABLE OF string_table. + TYPES temp3 TYPE TABLE OF string_table. +DATA lt_mock TYPE temp3. + TYPES temp4 TYPE TABLE OF string_table. +DATA lt_exp TYPE temp4. DATA lt_tmp TYPE string_table. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |array | |1' ). lo_nodes->add( '/ |2 |array | |2' ). @@ -1720,7 +1724,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |1 |str |Three |1' ). lo_nodes->add( '/2/ |2 |str |Four |2' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1748,7 +1752,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_complex. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |tab |array | | ' ). lo_nodes->add( '/tab/ |1 |object | |1' ). @@ -1756,7 +1760,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/tab/ |2 |object | |2' ). lo_nodes->add( '/tab/2/|a |str |Two | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1782,13 +1786,13 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_complex. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |tab_plain |array | | ' ). lo_nodes->add( '/tab_plain/ |1 |str |One |1' ). lo_nodes->add( '/tab_plain/ |2 |str |Two |2' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1807,16 +1811,18 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. METHOD to_abap_hashed_plain_tab. DATA lo_cut TYPE REF TO lcl_json_to_abap. - DATA lt_mock TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. - DATA lt_exp TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. + TYPES temp5 TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. +DATA lt_mock TYPE temp5. + TYPES temp6 TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. +DATA lt_exp TYPE temp6. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |Two |2' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1839,7 +1845,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE tty_struc_hashed. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |object | |1' ). lo_nodes->add( '/ |2 |object | |2' ). @@ -1848,7 +1854,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |a |str |Two | ' ). lo_nodes->add( '/2/ |b |num |2 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1876,7 +1882,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lt_exp TYPE tty_struc_sorted. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |object | |1' ). lo_nodes->add( '/ |2 |object | |2' ). @@ -1885,7 +1891,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. lo_nodes->add( '/2/ |a |str |Two | ' ). lo_nodes->add( '/2/ |b |num |2 | ' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -1912,12 +1918,12 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lx TYPE REF TO zcx_abapgit_ajson_error. DATA ls_mock TYPE ty_complex. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. DATA lo_nodes TYPE REF TO lcl_nodes_helper. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |object | ' ). @@ -1934,7 +1940,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |str |array | ' ). @@ -1951,7 +1957,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |int |str |hello ' ). @@ -1968,7 +1974,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |date1 |str |baddate ' ). @@ -1985,7 +1991,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ' ). lo_nodes->add( '/ |missing |str |123 ' ). @@ -2003,7 +2009,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lt_str TYPE string_table. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |a |str |hello |1' ). @@ -2021,7 +2027,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lr_obj TYPE REF TO object. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |hello | ' ). lo_cut->to_abap( @@ -2038,7 +2044,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. TRY. DATA lr_data TYPE REF TO data. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |str |hello | ' ). lo_cut->to_abap( @@ -2054,8 +2060,9 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ENDTRY. TRY. - DATA lt_hashed TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. - lo_nodes = NEW #( ). + TYPES temp7 TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. +DATA lt_hashed TYPE temp7. + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | | ' ). lo_nodes->add( '/ |1 |str |One |1' ). lo_nodes->add( '/ |2 |str |One |2' ). @@ -2081,14 +2088,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA ls_exp TYPE ty_struc. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - lo_cut = NEW #( iv_corresponding = abap_true ). + CREATE OBJECT lo_cut EXPORTING iv_corresponding = abap_true. lo_cut->to_abap( EXPORTING @@ -2110,7 +2117,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lx TYPE REF TO zcx_abapgit_ajson_error. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). @@ -2119,7 +2126,7 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. ls_exp-b = 24022022. TRY. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->to_abap( EXPORTING it_nodes = lo_nodes->sorted( ) @@ -2142,14 +2149,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA li_json TYPE REF TO zif_abapgit_ajson. DATA lo_nodes TYPE REF TO lcl_nodes_helper. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->mt_json_tree = lo_nodes->mt_nodes. lo_cut->to_abap( @@ -2180,14 +2187,14 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lx TYPE REF TO zcx_abapgit_ajson_error. - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | ' ). lo_nodes->add( '/ |a |str |test | ' ). lo_nodes->add( '/ |c |num |24022022 | ' ). ls_exp-a = 'test'. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lo_cut->mt_json_tree = lo_nodes->mt_nodes. TRY. @@ -2209,7 +2216,8 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. bar TYPE string, END OF ty_foo_bar. - DATA lt_foo_bar TYPE STANDARD TABLE OF ty_foo_bar. + TYPES temp8 TYPE STANDARD TABLE OF ty_foo_bar. +DATA lt_foo_bar TYPE temp8. DATA ls_foo_bar LIKE LINE OF lt_foo_bar. DATA lo_ajson TYPE REF TO zcl_abapgit_ajson. DATA lv_json TYPE string. @@ -2242,7 +2250,8 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. bar TYPE string, END OF ty_foo_bar. - DATA lt_foo_bar TYPE STANDARD TABLE OF ty_foo_bar WITH NON-UNIQUE KEY foo. + TYPES temp9 TYPE STANDARD TABLE OF ty_foo_bar WITH NON-UNIQUE KEY foo. +DATA lt_foo_bar TYPE temp9. DATA ls_foo_bar LIKE LINE OF lt_foo_bar. DATA lo_ajson TYPE REF TO zcl_abapgit_ajson. DATA lv_json TYPE string. @@ -2275,7 +2284,8 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. bar TYPE string, END OF ty_foo_bar. - DATA lt_foo_bar TYPE SORTED TABLE OF ty_foo_bar WITH NON-UNIQUE KEY foo. + TYPES temp10 TYPE SORTED TABLE OF ty_foo_bar WITH NON-UNIQUE KEY foo. +DATA lt_foo_bar TYPE temp10. DATA ls_foo_bar LIKE LINE OF lt_foo_bar. DATA lo_ajson TYPE REF TO zcl_abapgit_ajson. DATA lv_json TYPE string. @@ -2308,7 +2318,8 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. bar TYPE string, END OF ty_foo_bar. - DATA lt_foo_bar TYPE SORTED TABLE OF ty_foo_bar WITH UNIQUE KEY foo. + TYPES temp11 TYPE SORTED TABLE OF ty_foo_bar WITH UNIQUE KEY foo. +DATA lt_foo_bar TYPE temp11. DATA ls_foo_bar LIKE LINE OF lt_foo_bar. DATA lo_ajson TYPE REF TO zcl_abapgit_ajson. DATA lv_json TYPE string. @@ -2341,7 +2352,8 @@ CLASS ltcl_json_to_abap IMPLEMENTATION. bar TYPE string, END OF ty_foo_bar. - DATA lt_foo_bar TYPE HASHED TABLE OF ty_foo_bar WITH UNIQUE KEY foo. + TYPES temp12 TYPE HASHED TABLE OF ty_foo_bar WITH UNIQUE KEY foo. +DATA lt_foo_bar TYPE temp12. DATA ls_foo_bar LIKE LINE OF lt_foo_bar. DATA lo_ajson TYPE REF TO zcl_abapgit_ajson. DATA lv_json TYPE string. @@ -2433,7 +2445,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2445,7 +2457,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2463,7 +2475,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2472,7 +2484,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2493,7 +2505,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2502,7 +2514,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2512,7 +2524,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = lo_cut->mt_json_tree exp = lo_nodes_exp->sorted( ) ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||1' ). lo_nodes_exp->add( '/a/ |b |object | ||1' ). @@ -2521,7 +2533,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut->mt_json_tree = lo_nodes_exp->mt_nodes. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |object | ||0' ). @@ -2545,7 +2557,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2568,7 +2580,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 2 - assign deep - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2586,7 +2598,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes->sorted( ) ). " Test 3 - assign rewrite - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -2613,7 +2625,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||2' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2641,7 +2653,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_cut = zcl_abapgit_ajson=>create_empty( ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |num |1 ||0' ). @@ -2655,7 +2667,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. act = li_cut->mt_json_tree exp = lo_nodes->sorted( ) ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||2' ). lo_nodes->add( '/ |a |num |1 ||0' ). lo_nodes->add( '/ |b |num |0 ||0' ). @@ -2687,7 +2699,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |x |object | ||3' ). lo_nodes->add( '/x/ |b |str |abc ||0' ). @@ -2723,7 +2735,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||6' ). lo_nodes->add( '/ |d |str |2022-04-01 ||0' ). lo_nodes->add( '/ |d_empty |str | ||0' ). @@ -2755,7 +2767,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. APPEND 'world' TO lt_tab. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2775,7 +2787,8 @@ CLASS ltcl_writer_test IMPLEMENTATION. DATA lo_nodes TYPE REF TO lcl_nodes_helper. DATA lo_cut TYPE REF TO zcl_abapgit_ajson. DATA li_writer TYPE REF TO zif_abapgit_ajson. - DATA lt_tab TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. + TYPES temp13 TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. +DATA lt_tab TYPE temp13. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. @@ -2784,7 +2797,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT `world` INTO TABLE lt_tab. " Prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | | |1' ). lo_nodes->add( '/ |x |array | | |2' ). lo_nodes->add( '/x/ |1 |str |hello|1|0' ). @@ -2829,7 +2842,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. INSERT ls_tab INTO TABLE lt_tab. " prepare source - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |array | |0|2' ). lo_nodes->add( '/ |1 |object | |1|3' ). lo_nodes->add( '/ |2 |object | |2|3' ). @@ -2859,7 +2872,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " touch - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2870,7 +2883,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add string - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |1' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2884,7 +2897,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " add obj - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |str |hello|1|0' ). @@ -2912,7 +2925,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " re-touch with clear - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |0' ). @@ -2925,7 +2938,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " free-add array item (index must be updated) - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |a |array | | |2' ). lo_nodes_exp->add( '/a/ |1 |object | |1|1' ). @@ -3045,7 +3058,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. li_writer = lo_cut. " object - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -3058,7 +3071,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " object empty path - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |x |str |hello||0' ). @@ -3072,7 +3085,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " array - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |1' ). lo_nodes_exp->add( '/ |1 |str |hello|1|0' ). @@ -3087,7 +3100,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. exp = lo_nodes_exp->sorted( ) ). " value - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |hello||0' ). li_writer->clear( ). @@ -3110,7 +3123,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " abap_bool lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3137,7 +3150,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " int lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3165,7 +3178,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. " tab lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |bool |true ||0' ). lo_nodes_exp->add( '/ |b |bool |false ||0' ). @@ -3194,7 +3207,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||3' ). lo_nodes_exp->add( '/ |a |str |123 ||0' ). lo_nodes_exp->add( '/ |b |str |X ||0' ). @@ -3225,7 +3238,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |num |123 ||0' ). @@ -3248,7 +3261,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||2' ). lo_nodes_exp->add( '/ |a |str |2020-07-05 ||0' ). lo_nodes_exp->add( '/ |b |str | ||0' ). @@ -3278,7 +3291,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. lo_cut = zcl_abapgit_ajson=>create_empty( ). li_writer = lo_cut. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||1' ). lo_nodes_exp->add( '/ |a |str |2021-05-05T12:00:00Z ||0' ). @@ -3354,7 +3367,7 @@ CLASS ltcl_writer_test IMPLEMENTATION. DATA lo_nodes_exp TYPE REF TO lcl_nodes_helper. DATA li_writer TYPE REF TO zif_abapgit_ajson. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |issues |array | | |2' ). lo_nodes_exp->add( '/issues/ |1 |object | |1 |1' ). @@ -3783,8 +3796,10 @@ CLASS ltcl_integrated IMPLEMENTATION. METHOD array_index. - DATA lt_act TYPE TABLE OF ty_loc. - DATA lt_exp TYPE TABLE OF ty_loc. + TYPES temp14 TYPE TABLE OF ty_loc. +DATA lt_act TYPE temp14. + TYPES temp15 TYPE TABLE OF ty_loc. +DATA lt_exp TYPE temp15. DATA ls_exp TYPE ty_loc. DATA lv_src TYPE string. @@ -4137,7 +4152,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lo_src TYPE REF TO zcl_abapgit_ajson. lo_src = zcl_abapgit_ajson=>create_empty( ). - lo_nodes = NEW #( ). + CREATE OBJECT lo_nodes. lo_nodes->add( ' | |object | ||1' ). lo_nodes->add( '/ |a |object | ||1' ). lo_nodes->add( '/a/ |b |object | ||1' ). @@ -4159,7 +4174,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " number - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 1 ). @@ -4176,7 +4191,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " string - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |abc ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = 'abc' ). @@ -4193,7 +4208,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " true - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |bool |true ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_true ). @@ -4210,7 +4225,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. " false - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |bool |false ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = abap_false ). @@ -4227,7 +4242,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_xsdboolean TYPE xsdboolean. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |bool |true ||' ). lv_xsdboolean = 'X'. @@ -4246,7 +4261,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_null_ref TYPE REF TO data. " null - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |null |null ||' ). lt_nodes = lcl_abap_to_json=>convert( iv_data = lv_null_ref ). @@ -4264,7 +4279,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lv_timezone TYPE timezone VALUE ''. DATA lv_timestamp TYPE timestamp. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |2022-08-31T00:00:00Z||' ). CONVERT DATE '20220831' TIME '000000' @@ -4283,7 +4298,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. DATA lv_timestamp TYPE timestamp. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |str |0000-00-00T00:00:00Z||' ). lv_timestamp = 0. @@ -4303,7 +4318,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_prefix-path = '/a/'. ls_prefix-name = 'b'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( '/a/ |b |num |1 ||' ). lt_nodes = lcl_abap_to_json=>convert( @@ -4327,7 +4342,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-c = abap_true. ls_struc-d = 'X'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||4' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4366,7 +4381,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND INITIAL LINE TO ls_struc-tab ASSIGNING . -a = 'bcd'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||8' ). lo_nodes_exp->add( '/ |a |str |abc ||0' ). lo_nodes_exp->add( '/ |b |num |10 ||0' ). @@ -4415,7 +4430,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. ls_struc-d_suf = 'X'. ls_struc-el = 'elem'. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | ||5' ). lo_nodes_exp->add( '/ |a_suf |str |abc ||0' ). lo_nodes_exp->add( '/ |b_suf |num |10 ||0' ). @@ -4436,7 +4451,8 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. DATA lo_nodes_exp TYPE REF TO lcl_nodes_helper. DATA lt_nodes TYPE zif_abapgit_ajson_types=>ty_nodes_tt. - DATA lt_tab TYPE TABLE OF ty_struc. + TYPES temp16 TYPE TABLE OF ty_struc. +DATA lt_tab TYPE temp16. FIELD-SYMBOLS LIKE LINE OF lt_tab. APPEND INITIAL LINE TO lt_tab ASSIGNING . @@ -4446,7 +4462,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. -a = 'bcd'. -b = 20. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|4' ). lo_nodes_exp->add( '/1/ |a |str |abc | |0' ). @@ -4469,7 +4485,7 @@ CLASS ltcl_abap_to_json IMPLEMENTATION. APPEND 'abc' TO lt_strtab. APPEND 'bcd' TO lt_strtab. - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |str |abc |1|0' ). lo_nodes_exp->add( '/ |2 |str |bcd |2|0' ). @@ -4504,7 +4520,8 @@ CLASS ltcl_filter_test DEFINITION FINAL type TYPE zif_abapgit_ajson_filter=>ty_visit_type, END OF ty_visit_history. - DATA mt_visit_history TYPE TABLE OF ty_visit_history. + TYPES temp17_9418cd8b8d TYPE TABLE OF ty_visit_history. +DATA mt_visit_history TYPE temp17_9418cd8b8d. METHODS simple_test FOR TESTING RAISING zcx_abapgit_ajson_error. METHODS array_test FOR TESTING RAISING zcx_abapgit_ajson_error. @@ -4525,7 +4542,9 @@ CLASS ltcl_filter_test IMPLEMENTATION. APPEND ls_visit_history TO mt_visit_history. ENDIF. - rv_keep = xsdbool( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( NOT is_node-name CA 'xX' AND NOT is_node-value CA 'xX' ). + rv_keep = temp1. ENDMETHOD. @@ -4556,7 +4575,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |3' ). lo_nodes_exp->add( '/ |a |num |1 | |0' ). lo_nodes_exp->add( '/ |b |num |1 | |0' ). @@ -4615,7 +4634,7 @@ CLASS ltcl_filter_test IMPLEMENTATION. ii_source_json = lo_json ii_filter = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |10' ). lo_nodes_exp->add( '/ |1 |str |a |1|0' ). lo_nodes_exp->add( '/ |2 |str |b |2|0' ). @@ -4760,7 +4779,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |4' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). @@ -4802,7 +4821,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |array | | |2' ). lo_nodes_exp->add( '/ |1 |object | |1|2' ). lo_nodes_exp->add( '/ |2 |object | |2|2' ). @@ -4861,7 +4880,7 @@ CLASS ltcl_mapper_test IMPLEMENTATION. ii_source_json = lo_json ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |num |1 | |0' ). cl_abap_unit_assert=>assert_equals( act = lo_json_filtered->mt_json_tree @@ -4935,7 +4954,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->clone( ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -4976,7 +4995,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->filter( me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |1' ). lo_nodes_exp->add( '/ |ab |num |1 | |0' ). @@ -5002,7 +5021,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. li_json_new = li_json->map( me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |xy |num |2 | |0' ). @@ -5028,7 +5047,9 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_ajson_filter~keep_node. - rv_keep = xsdbool( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( is_node-name IS INITIAL OR is_node-name+0(1) <> 'x' ). + rv_keep = temp2. ENDMETHOD. METHOD mapper_and_filter. @@ -5053,7 +5074,7 @@ CLASS ltcl_cloning_test IMPLEMENTATION. ii_filter = me ii_mapper = me ). - lo_nodes_exp = NEW #( ). + CREATE OBJECT lo_nodes_exp. lo_nodes_exp->add( ' | |object | | |2' ). lo_nodes_exp->add( '/ |AB |num |1 | |0' ). lo_nodes_exp->add( '/ |bc |num |2 | |0' ). diff --git a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap index 23a167675..0b92ea7dc 100644 --- a/src/json/zcl_abapgit_ajson_filter_lib.clas.abap +++ b/src/json/zcl_abapgit_ajson_filter_lib.clas.abap @@ -37,18 +37,18 @@ CLASS zcl_abapgit_ajson_filter_lib IMPLEMENTATION. METHOD create_and_filter. - ri_filter = NEW lcl_and_filter( it_filters = it_filters ). + CREATE OBJECT ri_filter TYPE lcl_and_filter EXPORTING it_filters = it_filters. ENDMETHOD. METHOD create_empty_filter. - ri_filter = NEW lcl_empty_filter( ). + CREATE OBJECT ri_filter TYPE lcl_empty_filter. ENDMETHOD. METHOD create_path_filter. - ri_filter = NEW lcl_paths_filter( iv_pattern_search = iv_pattern_search - it_skip_paths = it_skip_paths - iv_skip_paths = iv_skip_paths ). + CREATE OBJECT ri_filter TYPE lcl_paths_filter EXPORTING iv_pattern_search = iv_pattern_search + it_skip_paths = it_skip_paths + iv_skip_paths = iv_skip_paths. ENDMETHOD. ENDCLASS. diff --git a/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson_filter_lib.clas.locals_imp.abap index aa04d65c4..b607cdae9 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,9 +10,9 @@ ENDCLASS. CLASS lcl_empty_filter IMPLEMENTATION. METHOD zif_abapgit_ajson_filter~keep_node. - 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 ) ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ( iv_visit = zif_abapgit_ajson_filter=>visit_type-value AND is_node-value IS NOT INITIAL ) OR ( iv_visit <> zif_abapgit_ajson_filter=>visit_type-value AND is_node-children > 0 ) ). + rv_keep = temp1. " children = 0 on open for initially empty nodes and on close for filtered ones ENDMETHOD. @@ -33,7 +33,8 @@ CLASS lcl_paths_filter DEFINITION FINAL. RAISING zcx_abapgit_ajson_error. PRIVATE SECTION. - DATA mt_skip_paths TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. + TYPES temp1_c60817b628 TYPE HASHED TABLE OF string WITH UNIQUE KEY table_line. +DATA mt_skip_paths TYPE temp1_c60817b628. DATA mv_pattern_search TYPE abap_bool. ENDCLASS. @@ -56,7 +57,9 @@ CLASS lcl_paths_filter IMPLEMENTATION. ENDLOOP. ELSE. READ TABLE mt_skip_paths WITH KEY table_line = lv_full_path TRANSPORTING NO FIELDS. - rv_keep = xsdbool( sy-subrc <> 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc <> 0 ). + rv_keep = temp2. ENDIF. ENDMETHOD. @@ -67,7 +70,11 @@ CLASS lcl_paths_filter IMPLEMENTATION. DATA lt_tab TYPE string_table. FIELD-SYMBOLS TYPE string. - IF xsdbool( iv_skip_paths IS INITIAL ) = xsdbool( it_skip_paths IS INITIAL ). " XOR + DATA temp3 TYPE xsdboolean. + temp3 = boolc( iv_skip_paths IS INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( it_skip_paths IS INITIAL ). + IF temp3 = temp1. " XOR zcx_abapgit_ajson_error=>raise( 'no filter path specified' ). ENDIF. diff --git a/src/json/zcl_abapgit_ajson_mapping.clas.abap b/src/json/zcl_abapgit_ajson_mapping.clas.abap index 00aac1bda..658dad092 100644 --- a/src/json/zcl_abapgit_ajson_mapping.clas.abap +++ b/src/json/zcl_abapgit_ajson_mapping.clas.abap @@ -77,8 +77,8 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. METHOD create_camel_case. - ri_mapping = NEW lcl_mapping_camel( it_mapping_fields = it_mapping_fields - iv_first_json_upper = iv_first_json_upper ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_camel EXPORTING it_mapping_fields = it_mapping_fields + iv_first_json_upper = iv_first_json_upper. ENDMETHOD. @@ -93,50 +93,50 @@ CLASS zcl_abapgit_ajson_mapping IMPLEMENTATION. APPEND LINES OF it_more TO lt_queue. DELETE lt_queue WHERE table_line IS INITIAL. - ri_mapping = NEW lcl_compound_mapper( it_queue = lt_queue ). + CREATE OBJECT ri_mapping TYPE lcl_compound_mapper EXPORTING it_queue = lt_queue. ENDMETHOD. METHOD create_field_mapping. - ri_mapping = NEW lcl_mapping_fields( it_mapping_fields = it_mapping_fields ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_fields EXPORTING it_mapping_fields = it_mapping_fields. ENDMETHOD. METHOD create_lower_case. - ri_mapping = NEW lcl_mapping_to_lower( it_mapping_fields = it_mapping_fields ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_to_lower EXPORTING it_mapping_fields = it_mapping_fields. ENDMETHOD. METHOD create_rename. - ri_mapping = NEW lcl_rename( it_rename_map = it_rename_map - iv_rename_by = iv_rename_by ). + CREATE OBJECT ri_mapping TYPE lcl_rename EXPORTING it_rename_map = it_rename_map + iv_rename_by = iv_rename_by. ENDMETHOD. METHOD create_to_camel_case. - ri_mapping = NEW lcl_to_camel( iv_first_json_upper = iv_first_json_upper ). + CREATE OBJECT ri_mapping TYPE lcl_to_camel EXPORTING iv_first_json_upper = iv_first_json_upper. ENDMETHOD. METHOD create_to_snake_case. - ri_mapping = NEW lcl_to_snake( ). + CREATE OBJECT ri_mapping TYPE lcl_to_snake. ENDMETHOD. METHOD create_upper_case. - ri_mapping = NEW lcl_mapping_to_upper( it_mapping_fields = it_mapping_fields ). + CREATE OBJECT ri_mapping TYPE lcl_mapping_to_upper EXPORTING it_mapping_fields = it_mapping_fields. ENDMETHOD. ENDCLASS. diff --git a/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap b/src/json/zcl_abapgit_ajson_mapping.clas.locals_imp.abap index 6b9ceefcb..0c535bcf7 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,15 @@ CLASS lcl_rename IMPLEMENTATION. CASE mv_rename_by. WHEN zcl_abapgit_ajson_mapping=>rename_by-attr_name. READ TABLE mt_rename_map ASSIGNING WITH TABLE KEY by_name COMPONENTS from = cv_name. - lv_pair_found = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + lv_pair_found = temp1. WHEN zcl_abapgit_ajson_mapping=>rename_by-full_path. lv_full_path = is_node-path && cv_name. READ TABLE mt_rename_map ASSIGNING WITH TABLE KEY by_name COMPONENTS from = lv_full_path. - lv_pair_found = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + lv_pair_found = temp2. WHEN zcl_abapgit_ajson_mapping=>rename_by-pattern. lv_full_path = is_node-path && cv_name. LOOP AT mt_rename_map ASSIGNING . @@ -204,7 +208,8 @@ CLASS lcl_mapping_camel IMPLEMENTATION. "DEPRECATED METHOD zif_abapgit_ajson_mapping~to_json. TYPES ty_token TYPE c LENGTH 255. - DATA lt_tokens TYPE STANDARD TABLE OF ty_token. + TYPES temp1 TYPE STANDARD TABLE OF ty_token. +DATA lt_tokens TYPE temp1. DATA lv_from TYPE i. FIELD-SYMBOLS LIKE LINE OF lt_tokens. @@ -308,7 +313,8 @@ CLASS lcl_to_camel IMPLEMENTATION. TYPES lty_token TYPE c LENGTH 255. CONSTANTS lc_forced_underscore_marker TYPE c LENGTH 1 VALUE cl_abap_char_utilities=>horizontal_tab. - DATA lt_tokens TYPE STANDARD TABLE OF lty_token. + TYPES temp2 TYPE STANDARD TABLE OF lty_token. +DATA lt_tokens TYPE temp2. DATA lv_from TYPE i. FIELD-SYMBOLS LIKE LINE OF lt_tokens. diff --git a/src/json/zcl_abapgit_ajson_utilities.clas.abap b/src/json/zcl_abapgit_ajson_utilities.clas.abap index 4f656808c..f9ced6f08 100644 --- a/src/json/zcl_abapgit_ajson_utilities.clas.abap +++ b/src/json/zcl_abapgit_ajson_utilities.clas.abap @@ -308,10 +308,9 @@ CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION. eo_delete = li_del eo_change = li_mod ). - rv_yes = xsdbool( - li_ins->is_empty( ) = abap_true AND - li_del->is_empty( ) = abap_true AND - li_mod->is_empty( ) = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( li_ins->is_empty( ) = abap_true AND li_del->is_empty( ) = abap_true AND li_mod->is_empty( ) = abap_true ). + rv_yes = temp1. ENDMETHOD. @@ -342,13 +341,17 @@ CLASS zcl_abapgit_ajson_utilities IMPLEMENTATION. METHOD new. - ro_instance = NEW #( ). + CREATE OBJECT ro_instance. ENDMETHOD. METHOD normalize_input. - IF xsdbool( iv_json IS INITIAL ) = xsdbool( io_json IS INITIAL ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( iv_json IS INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( io_json IS INITIAL ). + IF temp2 = temp1. zcx_abapgit_ajson_error=>raise( 'Either supply JSON string or instance, but not both' ). ENDIF. diff --git a/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap b/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap index 382bc2850..4ee90fa9b 100644 --- a/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap +++ b/src/json/zcl_abapgit_ajson_utilities.clas.testclasses.abap @@ -192,7 +192,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json WITH cl_abap_char_utilities=>newline. - lo_insert_exp = NEW #( ). + CREATE OBJECT lo_insert_exp. lo_insert_exp->add( ' | |object | |0|3' ). lo_insert_exp->add( '/ |boolean |str |true |0|0' ). " changed type (insert new) lo_insert_exp->add( '/ |issues |array | |0|1' ). @@ -201,7 +201,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_insert_exp->add( '/issues/1/ |end |object | |0|1' ). lo_insert_exp->add( '/issues/1/end/ |new |num |1 |0|0' ). " array insert - lo_delete_exp = NEW #( ). + CREATE OBJECT lo_delete_exp. lo_delete_exp->add( ' | |object | |0|3' ). lo_delete_exp->add( '/ |boolean |bool |true |0|0' ). " changed type (delete old) lo_delete_exp->add( '/ |false |bool |false |0|0' ). " delete @@ -210,7 +210,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_delete_exp->add( '/issues/1/ |end |object | |0|1' ). lo_delete_exp->add( '/issues/1/end/ |row |num |4 |0|0' ). " array delete - lo_change_exp = NEW #( ). + CREATE OBJECT lo_change_exp. lo_change_exp->add( ' | |object | |0|2' ). lo_change_exp->add( '/ |issues |array | |0|1' ). lo_change_exp->add( '/ |number |num |789 |0|0' ). " changed value @@ -218,7 +218,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_change_exp->add( '/issues/1/ |start |object | |0|1' ). lo_change_exp->add( '/issues/1/start/|row |num |5 |0|0' ). " array change - lo_util = NEW #( ). + CREATE OBJECT lo_util. lo_util->diff( EXPORTING @@ -275,18 +275,18 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - lo_insert_exp = NEW #( ). + CREATE OBJECT lo_insert_exp. lo_insert_exp->add( ' | |object | |0|1' ). lo_insert_exp->add( '/ |string |array | |0|3' ). lo_insert_exp->add( '/string/ |1 |str |a |1|0' ). lo_insert_exp->add( '/string/ |2 |str |b |2|0' ). lo_insert_exp->add( '/string/ |3 |str |c |3|0' ). - lo_delete_exp = NEW #( ). + CREATE OBJECT lo_delete_exp. lo_delete_exp->add( ' | |object | |0|1' ). lo_delete_exp->add( '/ |string |str |abc |0|0' ). - lo_util = NEW #( ). + CREATE OBJECT lo_util. lo_util->diff( EXPORTING @@ -359,7 +359,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - lo_util = NEW #( ). + CREATE OBJECT lo_util. " Empty arrays are ignored by default lo_util->diff( @@ -394,7 +394,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. eo_delete = lo_delete eo_change = lo_change ). - lo_insert_exp = NEW #( ). + CREATE OBJECT lo_insert_exp. lo_insert_exp->add( ' | |object | |0|1' ). lo_insert_exp->add( '/ |names |array | |0|0' ). @@ -444,7 +444,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_a WITH cl_abap_char_utilities=>newline. REPLACE ALL OCCURRENCES OF '\n' IN lv_json_b WITH cl_abap_char_utilities=>newline. - lo_merge_exp = NEW #( ). + CREATE OBJECT lo_merge_exp. lo_merge_exp->add( ' | |object | |0|3' ). lo_merge_exp->add( '/ |float |num |123.45 |0|0' ). lo_merge_exp->add( '/ |number |num |123 |0|0' ). @@ -453,7 +453,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. lo_merge_exp->add( '/string/ |2 |str |c |2|0' ). lo_merge_exp->add( '/string/ |3 |str |b |3|0' ). - lo_util = NEW #( ). + CREATE OBJECT lo_util. lo_merge = lo_util->merge( iv_json_a = lv_json_a @@ -501,7 +501,7 @@ CLASS ltcl_json_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '\n' IN lv_sorted_exp WITH cl_abap_char_utilities=>newline. - lo_util = NEW #( ). + CREATE OBJECT lo_util. lv_sorted = lo_util->sort( iv_json = lv_json ). diff --git a/src/json/zcx_abapgit_ajson_error.clas.abap b/src/json/zcx_abapgit_ajson_error.clas.abap index 52047c853..ecc86896f 100644 --- a/src/json/zcx_abapgit_ajson_error.clas.abap +++ b/src/json/zcx_abapgit_ajson_error.clas.abap @@ -92,7 +92,7 @@ method raise. data lx type ref to zcx_abapgit_ajson_error. - lx = NEW #( message = iv_msg ). + CREATE OBJECT lx EXPORTING message = iv_msg. lx->set_location( iv_location = iv_location is_node = is_node ). diff --git a/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap index 0acd38072..3fbd7682c 100644 --- a/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap @@ -37,7 +37,7 @@ CLASS ltcl_aff_registry IMPLEMENTATION. lo_settings_stub->set_experimental_features( '' ). ENDIF. - lo_cut = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT lo_cut TYPE zcl_abapgit_aff_registry. lv_act = lo_cut->is_supported_object_type( iv_obj_type ). cl_abap_unit_assert=>assert_equals( exp = iv_is_supported act = lv_act ). diff --git a/src/objects/aff/zcl_abapgit_json_handler.clas.abap b/src/objects/aff/zcl_abapgit_json_handler.clas.abap index 729f2cb52..738d017f9 100644 --- a/src/objects/aff/zcl_abapgit_json_handler.clas.abap +++ b/src/objects/aff/zcl_abapgit_json_handler.clas.abap @@ -246,7 +246,7 @@ CLASS zcl_abapgit_json_handler IMPLEMENTATION. map2json_custom_enum( EXPORTING it_enum_mappings = iv_enum_mappings CHANGING co_ajson = lo_ajson ). - lo_filter = NEW #( iv_skip_paths = iv_skip_paths ). + CREATE OBJECT lo_filter EXPORTING iv_skip_paths = iv_skip_paths. " files end with an empty line (EOF) lv_json = lo_ajson->clone( )->filter( lo_filter )->stringify( 2 ) && cl_abap_char_utilities=>newline. diff --git a/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap b/src/objects/aff/zcl_abapgit_json_handler.clas.locals_imp.abap index a567f5dd8..39a486342 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,17 @@ CLASS lcl_aff_filter IMPLEMENTATION. lv_path = is_node-path && is_node-name. READ TABLE mt_skip_paths WITH KEY path = lv_path value = is_node-value TRANSPORTING NO FIELDS. - IF xsdbool( sy-subrc = 0 ) = abap_true + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + IF temp1 = abap_true AND iv_visit = zif_abapgit_ajson_filter=>visit_type-value. rv_keep = abap_false. RETURN. ELSE. READ TABLE mt_skip_paths WITH KEY path = lv_path TRANSPORTING NO FIELDS. - IF xsdbool( sy-subrc = 0 ) = abap_true + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + IF temp2 = abap_true AND iv_visit = zif_abapgit_ajson_filter=>visit_type-value. rv_keep = abap_true. RETURN. diff --git a/src/objects/aff/zcl_abapgit_json_path.clas.abap b/src/objects/aff/zcl_abapgit_json_path.clas.abap index ff512f69c..3f1b1f834 100644 --- a/src/objects/aff/zcl_abapgit_json_path.clas.abap +++ b/src/objects/aff/zcl_abapgit_json_path.clas.abap @@ -44,7 +44,7 @@ CLASS zcl_abapgit_json_path IMPLEMENTATION. APPEND `$` TO lt_root_path. - lo_json_path = NEW #( ). + CREATE OBJECT lo_json_path. lo_json_path->serialize_rec( EXPORTING io_reader = lo_reader it_path = lt_root_path CHANGING ct_json_paths = rt_result ). diff --git a/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap b/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap index fe18fb750..8ae7a8edf 100644 --- a/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap +++ b/src/objects/aff/zcl_abapgit_json_path.clas.locals_imp.abap @@ -98,8 +98,10 @@ CLASS lcl_json_path IMPLEMENTATION. METHOD path_contains_array. DATA lv_array_pattern TYPE string VALUE `.*\[.*\].*`. - rv_result = xsdbool( matches( val = iv_path - regex = lv_array_pattern ) ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( matches( val = iv_path + regex = lv_array_pattern ) ). + rv_result = temp1. ENDMETHOD. METHOD build_json. @@ -170,7 +172,9 @@ CLASS lcl_json_path IMPLEMENTATION. METHOD is_primitiv. FIND REGEX `^.\w+` IN iv_string. " string start with . - rv_result = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_result = temp2. ENDMETHOD. @@ -200,15 +204,21 @@ CLASS lcl_json_path IMPLEMENTATION. ENDMETHOD. METHOD is_array. - rv_result = xsdbool( io_reader->name = 'array' ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( io_reader->name = 'array' ). + rv_result = temp3. ENDMETHOD. METHOD is_string_open. - rv_result = xsdbool( io_reader->name = 'str' AND io_reader->node_type = if_sxml_node=>co_nt_element_open ). + DATA temp4 TYPE xsdboolean. + temp4 = boolc( io_reader->name = 'str' AND io_reader->node_type = if_sxml_node=>co_nt_element_open ). + rv_result = temp4. ENDMETHOD. METHOD is_object. - rv_result = xsdbool( io_reader->name = 'object' ). + DATA temp5 TYPE xsdboolean. + temp5 = boolc( io_reader->name = 'object' ). + rv_result = temp5. ENDMETHOD. METHOD serialize_rec. diff --git a/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap index 3b6d38dfe..eba81a4af 100644 --- a/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_json_path.clas.testclasses.abap @@ -39,7 +39,7 @@ CLASS ltcl_json_path IMPLEMENTATION. lo_ajson->delete( '/category/' ). lo_ajson->delete( '/proxy/' ). - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. rt_result = lo_cut->serialize( lo_ajson->stringify( ) ). ENDMETHOD. @@ -154,7 +154,7 @@ CLASS ltcl_json_path IMPLEMENTATION. APPEND `$.descriptions.methods[?(@.name=='METH1')].description=Sonne` TO lt_file. APPEND `$.descriptions.methods[?(@.name=='METH1')].parameters[?(@.name=='param2')].description=ABC` TO lt_file. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lv_act = lo_cut->deserialize( lt_file ). APPEND `{ "header": { "description": "Text" } ,` TO lt_exp. @@ -185,7 +185,7 @@ CLASS ltcl_json_path IMPLEMENTATION. APPEND `$.header.description=Text` TO lt_file. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lv_act = lo_cut->deserialize( lt_file ). lv_is_equal = zcl_abapgit_ajson_utilities=>new( )->is_equal( @@ -206,7 +206,7 @@ CLASS ltcl_json_path IMPLEMENTATION. APPEND `!this is a comment [abc]` TO lt_file. APPEND `` TO lt_file. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lv_act = lo_cut->deserialize( lt_file ). cl_abap_unit_assert=>assert_initial( lv_act ). diff --git a/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap b/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap index 6f4e9a2db..9ab7c2101 100644 --- a/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap +++ b/src/objects/aff/zcl_abapgit_object_common_aff.clas.abap @@ -96,7 +96,7 @@ CLASS zcl_abapgit_object_common_aff IMPLEMENTATION. TRY. lo_handler = get_object_handler( ). - li_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT li_aff_registry TYPE zcl_abapgit_aff_registry. lv_is_supported = li_aff_registry->is_supported_object_type( is_item-obj_type ). CATCH cx_root. diff --git a/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap b/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap index e54226954..248459ca3 100644 --- a/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap +++ b/src/objects/aff/zcl_abapgit_object_common_aff.clas.testclasses.abap @@ -221,8 +221,8 @@ CLASS ltcl_aff_settings_deserialize IMPLEMENTATION. RETURN. ENDIF. - lo_cut = NEW #( is_item = ls_item - iv_language = 'E' ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item + iv_language = 'E'. lo_settings_deserialize = lo_cut->create_aff_setting_deserialize( ). CALL METHOD lo_settings_deserialize->('IF_AFF_SETTINGS_DESERIALIZE~GET_ABAP_LANGUAGE_VERSION') diff --git a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap index 606ebd8df..8afe2c3cb 100644 --- a/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_dependencies.clas.testclasses.abap @@ -177,7 +177,7 @@ CLASS ltcl_resolve_packages IMPLEMENTATION. DATA: lo_mock_sap_package TYPE REF TO ltcl_sap_package. - lo_mock_sap_package = NEW #( iv_package = 'Z_MAIN' ). + CREATE OBJECT lo_mock_sap_package EXPORTING iv_package = 'Z_MAIN'. lo_mock_sap_package->set_sub_packages( mt_sub_packages ). diff --git a/src/objects/core/zcl_abapgit_file_deserialize.clas.abap b/src/objects/core/zcl_abapgit_file_deserialize.clas.abap index 9f947648d..52dc4b90e 100644 --- a/src/objects/core/zcl_abapgit_file_deserialize.clas.abap +++ b/src/objects/core/zcl_abapgit_file_deserialize.clas.abap @@ -175,7 +175,7 @@ CLASS zcl_abapgit_file_deserialize IMPLEMENTATION. lt_items = map_results_to_items( it_results ). - lo_graph = NEW #( it_items = lt_items ). + CREATE OBJECT lo_graph EXPORTING it_items = lt_items. LOOP AT lt_items INTO ls_item. CLEAR lt_requires. diff --git a/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap b/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap index 6f1eb3a62..c7de5afe6 100644 --- a/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_file_deserialize.clas.testclasses.abap @@ -36,7 +36,7 @@ CLASS ltcl_filter_files_to_deser IMPLEMENTATION. METHOD setup. - mo_objects = NEW #( ). + CREATE OBJECT mo_objects. ENDMETHOD. @@ -259,7 +259,7 @@ ENDCLASS. CLASS ltcl_prio_deserialization IMPLEMENTATION. METHOD setup. - mo_objects = NEW #( ). + CREATE OBJECT mo_objects. mv_exp_output_tabix = 0. ENDMETHOD. @@ -434,7 +434,7 @@ CLASS ltcl_prio_deserialization IMPLEMENTATION. DATA lo_log TYPE REF TO zcl_abapgit_log. - lo_log = NEW #( ). + CREATE OBJECT lo_log. mt_output = mo_objects->prioritize_deser( ii_log = lo_log diff --git a/src/objects/core/zcl_abapgit_filename_logic.clas.abap b/src/objects/core/zcl_abapgit_filename_logic.clas.abap index 6e41b25eb..65be901bf 100644 --- a/src/objects/core/zcl_abapgit_filename_logic.clas.abap +++ b/src/objects/core/zcl_abapgit_filename_logic.clas.abap @@ -130,8 +130,12 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. METHOD detect_obj_definition. - ev_is_xml = xsdbool( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ). - ev_is_json = xsdbool( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( iv_ext = to_upper( c_package_file-extension ) AND strlen( iv_type ) = 4 ). + ev_is_xml = temp1. + DATA temp2 TYPE xsdboolean. + temp2 = boolc( iv_ext = to_upper( c_json_file-extension ) AND strlen( iv_type ) = 4 ). + ev_is_json = temp2. ENDMETHOD. @@ -153,7 +157,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. " Assume AFF namespace convention IF go_aff_registry IS INITIAL. - go_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry. ENDIF. IF go_aff_registry->is_supported_object_type( |{ lv_type }| ) = abap_true. @@ -233,7 +237,9 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ev_is_xml = lv_xml ev_is_json = lv_json ). - rv_yes = xsdbool( lv_json = abap_true OR lv_xml = abap_true ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( lv_json = abap_true OR lv_xml = abap_true ). + rv_yes = temp3. ENDMETHOD. @@ -348,7 +354,7 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION. ENDTRY. " Handle namespaces - go_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT go_aff_registry TYPE zcl_abapgit_aff_registry. IF go_aff_registry->is_supported_object_type( is_item-obj_type ) = abap_true. FIND ALL OCCURRENCES OF `/` IN rv_filename MATCH COUNT lv_nb_of_slash. diff --git a/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap b/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap index 915298c63..486c8410c 100644 --- a/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_filename_logic.clas.testclasses.abap @@ -12,7 +12,7 @@ CLASS lcl_memory_settings IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_persist_settings~read. - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. ENDMETHOD. ENDCLASS. @@ -46,7 +46,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. " Assume for unit tests that starting folder is /src/ with prefix logic mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). - li_memory = NEW #( ). + CREATE OBJECT li_memory. zcl_abapgit_persist_injector=>set_settings( li_memory ). ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_folder_logic.clas.abap b/src/objects/core/zcl_abapgit_folder_logic.clas.abap index 9ee4b3615..45e086779 100644 --- a/src/objects/core/zcl_abapgit_folder_logic.clas.abap +++ b/src/objects/core/zcl_abapgit_folder_logic.clas.abap @@ -56,7 +56,7 @@ CLASS zcl_abapgit_folder_logic IMPLEMENTATION. METHOD get_instance. - ro_instance = NEW #( ). + CREATE OBJECT ro_instance. ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap b/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap index 16f7aab23..d9bb1bc55 100644 --- a/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_folder_logic.clas.testclasses.abap @@ -207,7 +207,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION. DATA lo_top_foo TYPE REF TO ltcl_folder_logic_package. - lo_top_foo = NEW #( ). + CREATE OBJECT lo_top_foo. zcl_abapgit_injector=>set_sap_package( iv_package = c_top ii_sap_package = me ). diff --git a/src/objects/core/zcl_abapgit_item_graph.clas.abap b/src/objects/core/zcl_abapgit_item_graph.clas.abap index 22cd8655c..a93175dbe 100644 --- a/src/objects/core/zcl_abapgit_item_graph.clas.abap +++ b/src/objects/core/zcl_abapgit_item_graph.clas.abap @@ -26,10 +26,10 @@ CLASS zcl_abapgit_item_graph DEFINITION to TYPE zif_abapgit_definitions=>ty_item, END OF ty_edge. - DATA mt_vertices TYPE STANDARD TABLE OF zif_abapgit_definitions=>ty_item WITH DEFAULT KEY. - DATA mt_edges TYPE STANDARD TABLE OF ty_edge WITH DEFAULT KEY - WITH NON-UNIQUE SORTED KEY sec_to COMPONENTS to - WITH NON-UNIQUE SORTED KEY sec_from COMPONENTS from. + TYPES temp1_90785a0d00 TYPE STANDARD TABLE OF zif_abapgit_definitions=>ty_item WITH DEFAULT KEY. +DATA mt_vertices TYPE temp1_90785a0d00. + TYPES temp2_90785a0d00 TYPE STANDARD TABLE OF ty_edge WITH DEFAULT KEY WITH NON-UNIQUE SORTED KEY sec_to COMPONENTS to WITH NON-UNIQUE SORTED KEY sec_from COMPONENTS from. +DATA mt_edges TYPE temp2_90785a0d00. DATA mv_warning TYPE abap_bool. METHODS remove_vertex IMPORTING iv_index TYPE i. @@ -88,7 +88,9 @@ CLASS ZCL_ABAPGIT_ITEM_GRAPH IMPLEMENTATION. METHOD has_vertices. - rv_bool = xsdbool( lines( mt_vertices ) > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lines( mt_vertices ) > 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap b/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap index 60484b0c6..660fa90e5 100644 --- a/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_item_graph.clas.testclasses.abap @@ -17,7 +17,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA ls_item2 LIKE LINE OF lt_items. DATA ls_next LIKE LINE OF lt_items. - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE zcl_abapgit_log. ls_item1-obj_type = 'TYPE'. ls_item1-obj_type = '1111'. @@ -27,7 +27,7 @@ CLASS ltcl_test IMPLEMENTATION. ls_item2-obj_type = '2222'. APPEND ls_item2 TO lt_items. - lo_graph = NEW #( it_items = lt_items ). + CREATE OBJECT lo_graph EXPORTING it_items = lt_items. lo_graph->add_edge( is_from = ls_item1 diff --git a/src/objects/core/zcl_abapgit_objects_activation.clas.abap b/src/objects/core/zcl_abapgit_objects_activation.clas.abap index 004a1f5cb..f8bf20451 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.abap @@ -155,11 +155,14 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. METHOD activate_ddic. - DATA: lt_gentab TYPE STANDARD TABLE OF dcgentb, + TYPES temp1 TYPE STANDARD TABLE OF dcgentb. +TYPES temp2 TYPE STANDARD TABLE OF dcdeltb. +TYPES temp3 TYPE STANDARD TABLE OF dctablres. +DATA: lt_gentab TYPE temp1, lv_rc TYPE sy-subrc, ls_gentab LIKE LINE OF lt_gentab, - lt_deltab TYPE STANDARD TABLE OF dcdeltb, - lt_action_tab TYPE STANDARD TABLE OF dctablres, + lt_deltab TYPE temp2, + lt_action_tab TYPE temp3, lv_logname TYPE ddmass-logname. FIELD-SYMBOLS: LIKE LINE OF gt_objects. @@ -285,7 +288,9 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_popup = abap_false. ENDIF. - lv_no_ui = xsdbool( lv_popup = abap_false ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_popup = abap_false ). + lv_no_ui = temp1. IF iv_ddic = abap_true. lv_msg = |(with DDIC)|. @@ -409,7 +414,8 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. METHOD add_errors_and_warnings_to_log. - DATA: lt_lines TYPE STANDARD TABLE OF trlog, + TYPES temp4 TYPE STANDARD TABLE OF trlog. +DATA: lt_lines TYPE temp4, lv_logname_db TYPE ddprh-protname. FIELD-SYMBOLS: LIKE LINE OF lt_lines. @@ -540,7 +546,9 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_active = xsdbool( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 AND ( lv_state = '' OR lv_state = 'A' ) ). + rv_active = temp2. ENDMETHOD. @@ -566,10 +574,12 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. METHOD is_non_ddic_active. - DATA: - lt_messages TYPE STANDARD TABLE OF sprot_u WITH DEFAULT KEY, + TYPES temp5 TYPE STANDARD TABLE OF sprot_u WITH DEFAULT KEY. +TYPES temp4 TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY. +DATA: + lt_messages TYPE temp5, ls_e071 TYPE e071, - lt_e071 TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY. + lt_e071 TYPE temp4. ls_e071-object = is_item-obj_type. ls_e071-obj_name = is_item-obj_name. @@ -584,7 +594,9 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. p_e071 = lt_e071 p_xmsg = lt_messages. - rv_active = xsdbool( lt_messages IS INITIAL ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( lt_messages IS INITIAL ). + rv_active = temp3. ENDMETHOD. @@ -606,8 +618,8 @@ CLASS zcl_abapgit_objects_activation IMPLEMENTATION. lv_include = cl_oo_classname_service=>get_interfacepool_name( ls_class-clsname ). ENDCASE. - lo_cross = NEW #( p_name = lv_include - p_include = lv_include ). + CREATE OBJECT lo_cross EXPORTING p_name = lv_include + p_include = lv_include. lo_cross->index_actualize( IMPORTING p_error = lv_error ). diff --git a/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap index 799db5387..ff6d29118 100644 --- a/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_activation.clas.testclasses.abap @@ -18,7 +18,7 @@ ENDCLASS. CLASS ltcl_tests IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. METHOD is_active. diff --git a/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap b/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap index 30a31beba..1ba862168 100644 --- a/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_objects_check.clas.testclasses.abap @@ -37,7 +37,7 @@ CLASS ltcl_warning_overwrite_find IMPLEMENTATION. METHOD setup. - mo_objects = NEW #( ). + CREATE OBJECT mo_objects. ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_objects_files.clas.abap b/src/objects/core/zcl_abapgit_objects_files.clas.abap index 111d8d5f5..200e3974c 100644 --- a/src/objects/core/zcl_abapgit_objects_files.clas.abap +++ b/src/objects/core/zcl_abapgit_objects_files.clas.abap @@ -325,8 +325,8 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. METHOD new. - ro_files = NEW #( is_item = is_item - iv_path = iv_path ). + CREATE OBJECT ro_files EXPORTING is_item = is_item + iv_path = iv_path. ENDMETHOD. @@ -412,11 +412,11 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. CASE lv_ext. WHEN 'po'. - lo_po = NEW #( iv_lang = lv_lang ). + CREATE OBJECT lo_po EXPORTING iv_lang = lv_lang. lo_po->parse( -data ). APPEND lo_po TO rt_i18n_files. WHEN 'properties'. - lo_properties = NEW #( iv_lang = lv_lang ). + CREATE OBJECT lo_properties EXPORTING iv_lang = lv_lang. lo_properties->parse( -data ). APPEND lo_properties TO rt_i18n_files. WHEN OTHERS. @@ -479,8 +479,8 @@ CLASS zcl_abapgit_objects_files IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( lv_data ). - ri_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_xml - iv_filename = lv_filename ). + CREATE OBJECT ri_xml TYPE zcl_abapgit_xml_input EXPORTING iv_xml = lv_xml + iv_filename = lv_filename. ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_serialize.clas.abap b/src/objects/core/zcl_abapgit_serialize.clas.abap index b3e3e500c..f25f5fbc5 100644 --- a/src/objects/core/zcl_abapgit_serialize.clas.abap +++ b/src/objects/core/zcl_abapgit_serialize.clas.abap @@ -217,7 +217,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. ii_log = ii_log it_filter = it_filter ). - lo_filter = NEW #( ). + CREATE OBJECT lo_filter. lo_filter->apply( EXPORTING it_filter = it_filter CHANGING ct_tadir = lt_tadir ). @@ -225,7 +225,9 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. * if there are less than 10 objects run in single thread * this helps a lot when debugging, plus performance gain * with low number of objects does not matter much - lv_force = xsdbool( lines( lt_tadir ) < 10 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lines( lt_tadir ) < 10 ). + lv_force = temp1. lt_found = serialize( iv_package = iv_package @@ -271,7 +273,7 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. ms_i18n_params-main_language_only = is_local_settings-main_language_only. ENDIF. - mo_abap_language_version = NEW #( io_dot_abapgit = mo_dot_abapgit ). + CREATE OBJECT mo_abap_language_version EXPORTING io_dot_abapgit = mo_dot_abapgit. ENDMETHOD. @@ -479,14 +481,9 @@ CLASS zcl_abapgit_serialize IMPLEMENTATION. METHOD is_parallelization_possible. - rv_result = xsdbool( zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false - AND zcl_abapgit_persist_factory=>get_settings( )->read( )->get_parallel_proc_disabled( ) = abap_false - AND mv_group IS NOT INITIAL - " The function module below should always exist here as is_merged evaluated to false above. - " It does however not exist in the transpiled version which then causes unit tests to fail. - " Therefore the check needs to stay. - AND zcl_abapgit_factory=>get_function_module( - )->function_exists( 'Z_ABAPGIT_SERIALIZE_PARALLEL' ) = abap_true ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( zcl_abapgit_factory=>get_environment( )->is_merged( ) = abap_false AND zcl_abapgit_persist_factory=>get_settings( )->read( )->get_parallel_proc_disabled( ) = abap_false AND mv_group IS NOT INITIAL AND zcl_abapgit_factory=>get_function_module( )->function_exists( 'Z_ABAPGIT_SERIALIZE_PARALLEL' ) = abap_true ). + rv_result = temp2. ENDMETHOD. diff --git a/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap b/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap index c82a2be13..39b028823 100644 --- a/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap +++ b/src/objects/core/zcl_abapgit_serialize.clas.testclasses.abap @@ -27,7 +27,7 @@ CLASS ltd_settings IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_persist_settings~read. - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. ro_settings->set_parallel_proc_disabled( mv_parallel_proc_disabled ). ENDMETHOD. @@ -291,20 +291,20 @@ CLASS ltcl_determine_max_processes IMPLEMENTATION. METHOD setup. - mo_settings_double = NEW #( ). + CREATE OBJECT mo_settings_double. zcl_abapgit_persist_injector=>set_settings( mo_settings_double ). - mo_environment_double = NEW #( ). + CREATE OBJECT mo_environment_double. zcl_abapgit_injector=>set_environment( mo_environment_double ). - mo_function_module_double = NEW #( ). + CREATE OBJECT mo_function_module_double. zcl_abapgit_injector=>set_function_module( mo_function_module_double ). - mo_exit = NEW #( ). + CREATE OBJECT mo_exit. zcl_abapgit_injector=>set_exit( mo_exit ). TRY. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -470,7 +470,7 @@ CLASS ltcl_serialize IMPLEMENTATION. mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). TRY. - mo_cut = NEW #( io_dot_abapgit = mo_dot ). + CREATE OBJECT mo_cut EXPORTING io_dot_abapgit = mo_dot. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -521,13 +521,13 @@ CLASS ltcl_serialize IMPLEMENTATION. -object = 'ABCD'. -obj_name = 'OBJECT'. - li_log1 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log1 TYPE zcl_abapgit_log. mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - li_log2 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log2 TYPE zcl_abapgit_log. mo_cut->serialize( it_tadir = lt_tadir ii_log = li_log2 @@ -575,14 +575,14 @@ CLASS ltcl_serialize IMPLEMENTATION. -obj_name = 'ZCL_TEST_IGNORE'. -devclass = '$ZTEST'. - li_log1 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log1 TYPE zcl_abapgit_log. mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir ii_log = li_log1 iv_force_sequential = abap_true ). - li_log2 = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log2 TYPE zcl_abapgit_log. mo_cut->serialize( iv_package = '$ZTEST' it_tadir = lt_tadir @@ -638,9 +638,9 @@ CLASS ltcl_i18n IMPLEMENTATION. " ls_data-i18n_languages needs to be initial to get classic I18N data TRY. - mo_dot_abapgit = NEW #( is_data = ls_data ). + CREATE OBJECT mo_dot_abapgit EXPORTING is_data = ls_data. - mo_cut = NEW #( io_dot_abapgit = mo_dot_abapgit ). + CREATE OBJECT mo_cut EXPORTING io_dot_abapgit = mo_dot_abapgit. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( 'Error creating serializer' ). ENDTRY. @@ -677,7 +677,7 @@ CLASS ltcl_i18n IMPLEMENTATION. lv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( -file-data ). - lo_input = NEW #( iv_xml = lv_xml ). + CREATE OBJECT lo_input EXPORTING iv_xml = lv_xml. lo_input->zif_abapgit_xml_input~read( EXPORTING iv_name = 'DD02V' CHANGING cg_data = ls_dd02v ). diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap index abbf549df..d39f0d33c 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap @@ -77,8 +77,8 @@ CLASS zcl_abapgit_ecatt_data_upload IMPLEMENTATION. IF ex_ecatt_object->object_type <> ms_current_object-s_obj_type OR ex_ecatt_object->object_name <> ms_current_object-d_obj_name OR ex_ecatt_object->object_version <> ms_current_object-d_obj_ver. - mx_ecatt_apl = NEW #( textid = cx_ecatt_apl=>any_text - free_text = 'Unexpected object in save sequence' ). + CREATE OBJECT mx_ecatt_apl EXPORTING textid = cx_ecatt_apl=>any_text + free_text = 'Unexpected object in save sequence'. RETURN. ENDIF. diff --git a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap index 8bb0e2170..d95010150 100644 --- a/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap +++ b/src/objects/ecatt/zcl_abapgit_ecatt_helper.clas.abap @@ -53,7 +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. - lo_load_help_dummy = NEW #( im_maintain_function = '' ). + CREATE OBJECT lo_load_help_dummy EXPORTING im_maintain_function = ''. io_download->download( im_object_name = iv_object_name im_object_version = iv_object_version diff --git a/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap b/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap index 4555f5e27..9c0770f13 100644 --- a/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap +++ b/src/objects/enh/zcl_abapgit_object_enho_hook.clas.abap @@ -261,7 +261,9 @@ CLASS ZCL_ABAPGIT_OBJECT_ENHO_HOOK IMPLEMENTATION. IF ls_original_object-org_main_type = 'PROG' OR ls_original_object-org_main_type = 'REPS'. TRY. ls_progdir = zcl_abapgit_factory=>get_sap_report( )->read_progdir( ls_original_object-org_main_name ). - ls_original_object-include_bound = xsdbool( ls_progdir-subc = 'I' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ls_progdir-subc = 'I' ). + ls_original_object-include_bound = temp1. CATCH zcx_abapgit_exception. ls_original_object-include_bound = abap_false. ENDTRY. diff --git a/src/objects/jump/zcl_abapgit_adt_link.clas.abap b/src/objects/jump/zcl_abapgit_adt_link.clas.abap index 32bdd14d9..9bd4f2c85 100644 --- a/src/objects/jump/zcl_abapgit_adt_link.clas.abap +++ b/src/objects/jump/zcl_abapgit_adt_link.clas.abap @@ -218,7 +218,9 @@ CLASS zcl_abapgit_adt_link IMPLEMENTATION. RECEIVING result = lv_vit_wb_request. - rv_is_adt_jump_possible = xsdbool( NOT lv_vit_wb_request = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( NOT lv_vit_wb_request = abap_true ). + rv_is_adt_jump_possible = temp1. CATCH cx_root. zcx_abapgit_exception=>raise( 'ADT Jump Error' ). diff --git a/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap b/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap index 6d8b3d269..c9574e56c 100644 --- a/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap +++ b/src/objects/jump/zcl_abapgit_gui_jumper.clas.abap @@ -116,7 +116,9 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_exit = temp1. ENDMETHOD. @@ -135,7 +137,9 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_exit = temp2. ENDMETHOD. @@ -160,7 +164,9 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. invalid_object_type = 2 OTHERS = 3. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( sy-subrc = 0 ). + rv_exit = temp3. ENDIF. @@ -224,7 +230,8 @@ CLASS zcl_abapgit_gui_jumper IMPLEMENTATION. METHOD zif_abapgit_gui_jumper~jump_abapgit. - DATA lt_spagpa TYPE STANDARD TABLE OF rfc_spagpa. + TYPES temp1 TYPE STANDARD TABLE OF rfc_spagpa. +DATA lt_spagpa TYPE temp1. DATA ls_spagpa LIKE LINE OF lt_spagpa. DATA lv_save_sy_langu TYPE sy-langu. DATA lv_subrc TYPE syst-subrc. diff --git a/src/objects/oo/zcl_abapgit_oo_base.clas.abap b/src/objects/oo/zcl_abapgit_oo_base.clas.abap index 61c386424..078bce0b7 100644 --- a/src/objects/oo/zcl_abapgit_oo_base.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_base.clas.abap @@ -260,7 +260,7 @@ CLASS zcl_abapgit_oo_base IMPLEMENTATION. METHOD zif_abapgit_oo_object_fnc~serialize_abap. DATA lo_oo_serializer TYPE REF TO zcl_abapgit_oo_serializer. - lo_oo_serializer = NEW #( ). + CREATE OBJECT lo_oo_serializer. CASE iv_type. WHEN seop_ext_class_locals_def. rt_source = lo_oo_serializer->serialize_locals_def( is_class_key ). diff --git a/src/objects/oo/zcl_abapgit_oo_class.clas.abap b/src/objects/oo/zcl_abapgit_oo_class.clas.abap index 431ec801a..848925656 100644 --- a/src/objects/oo/zcl_abapgit_oo_class.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_class.clas.abap @@ -806,7 +806,9 @@ CLASS zcl_abapgit_oo_class IMPLEMENTATION. no_text = 4 inconsistent = 5 OTHERS = 6. - rv_exists = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = temp1. ENDMETHOD. diff --git a/src/objects/oo/zcl_abapgit_oo_factory.clas.abap b/src/objects/oo/zcl_abapgit_oo_factory.clas.abap index dba196f8b..a47c00f83 100644 --- a/src/objects/oo/zcl_abapgit_oo_factory.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_factory.clas.abap @@ -24,9 +24,9 @@ CLASS zcl_abapgit_oo_factory IMPLEMENTATION. METHOD get_by_type. IF iv_object_type = 'CLAS'. - ri_object_oriented_object = NEW zcl_abapgit_oo_class( ). + CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_class. ELSEIF iv_object_type = 'INTF'. - ri_object_oriented_object = NEW zcl_abapgit_oo_interface( ). + CREATE OBJECT ri_object_oriented_object TYPE zcl_abapgit_oo_interface. ENDIF. ENDMETHOD. @@ -40,13 +40,13 @@ CLASS zcl_abapgit_oo_factory IMPLEMENTATION. ls_object_name-clsname = to_upper( iv_object_name ). - li_class = NEW zcl_abapgit_oo_class( ). + CREATE OBJECT li_class TYPE zcl_abapgit_oo_class. IF li_class->exists( ls_object_name ) = abap_true. ri_object_oriented_object = li_class. RETURN. ENDIF. - li_interface = NEW zcl_abapgit_oo_interface( ). + CREATE OBJECT li_interface TYPE zcl_abapgit_oo_interface. IF li_interface->exists( ls_object_name ) = abap_true. ri_object_oriented_object = li_interface. RETURN. diff --git a/src/objects/oo/zcl_abapgit_oo_interface.clas.abap b/src/objects/oo/zcl_abapgit_oo_interface.clas.abap index 55668236b..ded2eabd2 100644 --- a/src/objects/oo/zcl_abapgit_oo_interface.clas.abap +++ b/src/objects/oo/zcl_abapgit_oo_interface.clas.abap @@ -301,7 +301,9 @@ CLASS zcl_abapgit_oo_interface IMPLEMENTATION. no_text = 4 inconsistent = 5 OTHERS = 6. - rv_exists = xsdbool( sy-subrc = 0 OR sy-subrc = 4 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 OR sy-subrc = 4 ). + rv_exists = temp1. ENDMETHOD. diff --git a/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap b/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap index 8f8ae4ac8..41571bf04 100644 --- a/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap +++ b/src/objects/oo/zcl_abapgit_oo_serializer.clas.testclasses.abap @@ -36,7 +36,7 @@ CLASS ltcl_oo_serialize IMPLEMENTATION. METHOD setup. - mo_oo_serializer = NEW #( ). + CREATE OBJECT mo_oo_serializer. ENDMETHOD. diff --git a/src/objects/rules/zcl_abapgit_field_rules.clas.abap b/src/objects/rules/zcl_abapgit_field_rules.clas.abap index 2e3a695f7..784fb3b48 100644 --- a/src/objects/rules/zcl_abapgit_field_rules.clas.abap +++ b/src/objects/rules/zcl_abapgit_field_rules.clas.abap @@ -36,7 +36,7 @@ CLASS zcl_abapgit_field_rules IMPLEMENTATION. METHOD create. - ro_result = NEW zcl_abapgit_field_rules( ). + CREATE OBJECT ro_result TYPE zcl_abapgit_field_rules. ENDMETHOD. diff --git a/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap b/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap index 987da8ed1..ea1250fa5 100644 --- a/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap +++ b/src/objects/rules/zcl_abapgit_field_rules.clas.testclasses.abap @@ -49,7 +49,7 @@ CLASS zcl_abapgit_field_rules DEFINITION LOCAL FRIENDS ltcl_field_rules. CLASS ltcl_field_rules IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. METHOD fill_value. diff --git a/src/objects/sap/zcl_abapgit_function_module.clas.abap b/src/objects/sap/zcl_abapgit_function_module.clas.abap index e7400293d..edd9bca1e 100644 --- a/src/objects/sap/zcl_abapgit_function_module.clas.abap +++ b/src/objects/sap/zcl_abapgit_function_module.clas.abap @@ -31,7 +31,9 @@ CLASS zcl_abapgit_function_module IMPLEMENTATION. EXCEPTIONS function_not_exist = 1 OTHERS = 2. - rv_exists = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_exists = temp1. CATCH cx_sy_dyn_call_illegal_func. * then its running in ABAP Cloud Programming Model, assume nothing is released * I could not find any way to check for this -Hvam diff --git a/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap b/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap index f5669a391..8ff5cebe6 100644 --- a/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap +++ b/src/objects/sap/zcl_abapgit_sap_namespace.clas.abap @@ -21,7 +21,9 @@ CLASS ZCL_ABAPGIT_SAP_NAMESPACE IMPLEMENTATION. FIELD-SYMBOLS TYPE any. TRY. SELECT SINGLE editflag FROM ('TRNSPACE') INTO lv_editflag WHERE namespace = iv_namespace. - rv_yes = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_yes = temp1. CATCH cx_sy_dynamic_osql_error. ASSIGN ('XCO_CP_SYSTEM=>NAMESPACE') TO . lo_obj = . @@ -44,7 +46,9 @@ CLASS ZCL_ABAPGIT_SAP_NAMESPACE IMPLEMENTATION. FIELD-SYMBOLS TYPE any. TRY. SELECT SINGLE editflag FROM ('TRNSPACE') INTO lv_editflag WHERE namespace = iv_namespace. - rv_yes = xsdbool( sy-subrc = 0 AND lv_editflag = 'X' ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 AND lv_editflag = 'X' ). + rv_yes = temp2. CATCH cx_sy_dynamic_osql_error. ASSIGN ('XCO_CP_SYSTEM=>NAMESPACE') TO . lo_obj = . diff --git a/src/objects/sap/zcl_abapgit_sap_package.clas.abap b/src/objects/sap/zcl_abapgit_sap_package.clas.abap index bd9f0c963..765feac08 100644 --- a/src/objects/sap/zcl_abapgit_sap_package.clas.abap +++ b/src/objects/sap/zcl_abapgit_sap_package.clas.abap @@ -54,7 +54,9 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION. rv_are_changes_rec_in_tr_req = li_package->wbo_korr_flag. WHEN 1. " For new packages, derive from package name - rv_are_changes_rec_in_tr_req = xsdbool( mv_package(1) <> '$' AND mv_package(1) <> 'T' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( mv_package(1) <> '$' AND mv_package(1) <> 'T' ). + rv_are_changes_rec_in_tr_req = temp1. WHEN OTHERS. zcx_abapgit_exception=>raise_t100( ). ENDCASE. @@ -231,7 +233,9 @@ CLASS zcl_abapgit_sap_package IMPLEMENTATION. intern_err = 3 no_access = 4 object_locked_and_modified = 5 ). - rv_bool = xsdbool( sy-subrc <> 1 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc <> 1 ). + rv_bool = temp2. ENDMETHOD. diff --git a/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap b/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap index 91af551af..c192b5717 100644 --- a/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap +++ b/src/objects/tabl/zcl_abapgit_object_tabl.clas.abap @@ -452,9 +452,9 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. METHOD is_db_table_category. " values from domain TABCLASS - rv_is_db_table_type = xsdbool( iv_tabclass = 'TRANSP' - OR iv_tabclass = 'CLUSTER' - OR iv_tabclass = 'POOL' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( iv_tabclass = 'TRANSP' OR iv_tabclass = 'CLUSTER' OR iv_tabclass = 'POOL' ). + rv_is_db_table_type = temp1. ENDMETHOD. @@ -469,7 +469,9 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. FROM edisegment INTO lv_segment_type WHERE segtyp = lv_segment_type. - rv_is_idoc_segment = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_is_idoc_segment = temp2. ENDMETHOD. @@ -486,7 +488,8 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. DATA lv_segment_type TYPE edilsegtyp. DATA lv_result LIKE sy-subrc. DATA lv_devclass TYPE devclass. - DATA lt_segmentdefinitions TYPE STANDARD TABLE OF edisegmdef. + TYPES temp1 TYPE STANDARD TABLE OF edisegmdef. +DATA lt_segmentdefinitions TYPE temp1. DATA ls_segment_definition TYPE zif_abapgit_object_tabl=>ty_segment_definition. FIELD-SYMBOLS: TYPE edisegmdef. @@ -613,7 +616,8 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. as4time TYPE dd02l-as4time, END OF ty_data. - DATA: lt_data TYPE STANDARD TABLE OF ty_data WITH DEFAULT KEY, + TYPES temp2 TYPE STANDARD TABLE OF ty_data WITH DEFAULT KEY. +DATA: lt_data TYPE temp2, ls_data LIKE LINE OF lt_data. @@ -836,7 +840,9 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. SELECT SINGLE tabname FROM dd02l INTO lv_tabname WHERE tabname = lv_tabname. "#EC CI_NOORDER ENDIF. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( sy-subrc = 0 ). + rv_bool = temp3. ENDMETHOD. @@ -847,13 +853,13 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL IMPLEMENTATION. li_local_version_input TYPE REF TO zif_abapgit_xml_input. - li_local_version_output = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_local_version_output TYPE zcl_abapgit_xml_output. zif_abapgit_object~serialize( li_local_version_output ). - li_local_version_input = NEW zcl_abapgit_xml_input( iv_xml = li_local_version_output->render( ) ). + CREATE OBJECT li_local_version_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = li_local_version_output->render( ). - ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = li_local_version_input ). + CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar EXPORTING ii_local = li_local_version_input. ENDMETHOD. diff --git a/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap b/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap index 68318f580..039eec255 100644 --- a/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap +++ b/src/objects/tabl/zcl_abapgit_object_tabl_compar.clas.abap @@ -64,8 +64,9 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL_COMPAR IMPLEMENTATION. METHOD get_where_used_recursive. - DATA: lt_findstrings TYPE string_table, - lt_founds TYPE STANDARD TABLE OF rsfindlst, + TYPES temp1 TYPE STANDARD TABLE OF rsfindlst. +DATA: lt_findstrings TYPE string_table, + lt_founds TYPE temp1, lt_scope TYPE ty_seu_obj, lv_findstring LIKE LINE OF lt_findstrings. @@ -140,16 +141,20 @@ CLASS ZCL_ABAPGIT_OBJECT_TABL_COMPAR IMPLEMENTATION. DELETE lt_founds WHERE object_cls <> 'DT'. - rv_is_structure_used_in_db_tab = xsdbool( lines( lt_founds ) > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lines( lt_founds ) > 0 ). + rv_is_structure_used_in_db_tab = temp1. ENDMETHOD. METHOD validate. - DATA: lt_previous_table_fields TYPE TABLE OF dd03p, + TYPES temp2 TYPE TABLE OF dd03p. +TYPES temp1 TYPE TABLE OF dd03p. +DATA: lt_previous_table_fields TYPE temp2, ls_previous_table_field LIKE LINE OF lt_previous_table_fields, - lt_current_table_fields TYPE TABLE OF dd03p, + lt_current_table_fields TYPE temp1, ls_current_table_field LIKE LINE OF lt_current_table_fields, ls_dd02v TYPE dd02v, ls_item TYPE zif_abapgit_definitions=>ty_item, diff --git a/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap b/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap index 46eb4813c..e9050a887 100644 --- a/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap +++ b/src/objects/tabl/zcl_abapgit_object_tabl_ddl.clas.testclasses.abap @@ -31,7 +31,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA lv_result TYPE string. lv_text = |hello ' world|. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. lv_result = lo_cut->escape_string( lv_text ). cl_abap_unit_assert=>assert_equals( @@ -53,7 +53,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA lv_xml TYPE string. - lo_format = NEW #( ). + CREATE OBJECT lo_format. CALL TRANSFORMATION id OPTIONS value_handling = 'accept_data_loss' diff --git a/src/objects/texts/zcl_abapgit_i18n_params.clas.abap b/src/objects/texts/zcl_abapgit_i18n_params.clas.abap index da9c3502c..52f0fca38 100644 --- a/src/objects/texts/zcl_abapgit_i18n_params.clas.abap +++ b/src/objects/texts/zcl_abapgit_i18n_params.clas.abap @@ -120,19 +120,19 @@ CLASS zcl_abapgit_i18n_params IMPLEMENTATION. METHOD is_lxe_applicable. - rv_yes = xsdbool( ms_params-main_language_only = abap_false AND - ms_params-use_lxe = abap_true AND - ms_params-translation_languages IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ms_params-main_language_only = abap_false AND ms_params-use_lxe = abap_true AND ms_params-translation_languages IS NOT INITIAL ). + rv_yes = temp1. ENDMETHOD. METHOD new. - ro_instance = NEW #( iv_main_language = iv_main_language - iv_main_language_only = iv_main_language_only - it_translation_langs = it_translation_langs - iv_use_lxe = iv_use_lxe - is_params = is_params ). + CREATE OBJECT ro_instance EXPORTING iv_main_language = iv_main_language + iv_main_language_only = iv_main_language_only + it_translation_langs = it_translation_langs + iv_use_lxe = iv_use_lxe + is_params = is_params. ENDMETHOD. diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.abap index 6de65cae0..e8d39f9b2 100644 --- a/src/objects/texts/zcl_abapgit_longtexts.clas.abap +++ b/src/objects/texts/zcl_abapgit_longtexts.clas.abap @@ -214,7 +214,9 @@ CLASS zcl_abapgit_longtexts IMPLEMENTATION. LOOP AT lt_longtexts ASSIGNING . - lv_no_main_lang = xsdbool( iv_main_language <> -dokil-langu ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( iv_main_language <> -dokil-langu ). + lv_no_main_lang = temp1. CALL FUNCTION 'DOCU_UPDATE' EXPORTING diff --git a/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap index 2bc2097c0..5e0e26e3b 100644 --- a/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_longtexts.clas.testclasses.abap @@ -15,7 +15,7 @@ CLASS zcl_abapgit_longtexts DEFINITION LOCAL FRIENDS ltcl_longtexts. CLASS ltcl_longtexts IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. METHOD escape_name. diff --git a/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap b/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap index ddd7d3c52..264c9afab 100644 --- a/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap +++ b/src/objects/texts/zcl_abapgit_lxe_texts.clas.abap @@ -181,7 +181,8 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION. METHOD check_langs_versus_installed. - DATA lt_installed_hash TYPE HASHED TABLE OF laiso WITH UNIQUE KEY table_line. + TYPES temp1 TYPE HASHED TABLE OF laiso WITH UNIQUE KEY table_line. +DATA lt_installed_hash TYPE temp1. FIELD-SYMBOLS LIKE LINE OF it_languages. CLEAR: et_intersection, et_missfits. @@ -518,7 +519,9 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION. METHOD is_object_supported. READ TABLE gt_supported_obj_types TRANSPORTING NO FIELDS WITH KEY table_line = iv_object_type. - rv_yes = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_yes = temp1. ENDMETHOD. @@ -643,7 +646,7 @@ CLASS zcl_abapgit_lxe_texts IMPLEMENTATION. LOOP AT mo_i18n_params->ms_params-translation_languages INTO lv_lang. lv_lang = to_lower( lv_lang ). - lo_po_file = NEW #( iv_lang = lv_lang ). + CREATE OBJECT lo_po_file EXPORTING iv_lang = lv_lang. LOOP AT lt_lxe_texts ASSIGNING . IF iso4_to_iso2( -target_lang ) = lv_lang. lo_po_file->push_text_pairs( diff --git a/src/objects/texts/zcl_abapgit_po_file.clas.abap b/src/objects/texts/zcl_abapgit_po_file.clas.abap index c7d155112..d4a6a1f72 100644 --- a/src/objects/texts/zcl_abapgit_po_file.clas.abap +++ b/src/objects/texts/zcl_abapgit_po_file.clas.abap @@ -93,7 +93,7 @@ CLASS zcl_abapgit_po_file IMPLEMENTATION. FIELD-SYMBOLS LIKE LINE OF mt_pairs. FIELD-SYMBOLS LIKE LINE OF -comments. - ro_buf = NEW #( ). + CREATE OBJECT ro_buf. LOOP AT mt_pairs ASSIGNING . IF sy-tabix <> 1. @@ -116,7 +116,7 @@ CLASS zcl_abapgit_po_file IMPLEMENTATION. METHOD build_po_head. - ro_buf = NEW #( ). + CREATE OBJECT ro_buf. " TODO, more headers ? sample: https://www.gnu.org/software/trans-coord/manual/gnun/html_node/PO-Header.html " TODO, does \n really necessary ? check editors support for non-\n diff --git a/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap index 363e72580..b03b275a0 100644 --- a/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_po_file.clas.testclasses.abap @@ -26,7 +26,7 @@ CLASS ltcl_po_file IMPLEMENTATION. FIELD-SYMBOLS LIKE LINE OF lt_lxe_pairs. - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. APPEND INITIAL LINE TO lt_lxe_pairs ASSIGNING . -textkey = 'K1'. @@ -51,7 +51,7 @@ CLASS ltcl_po_file IMPLEMENTATION. lv_act = lo_po->build_po_body( )->join_w_newline_and_flush( ). - lo_buf = NEW #( ). + CREATE OBJECT lo_buf. lo_buf->add( '#: T1/OBJ1/K1, maxlen=10' )->add( '#: T1/OBJ1/K2 X, maxlen=11' @@ -98,7 +98,7 @@ CLASS ltcl_po_file IMPLEMENTATION. CLEAR -t_text. ENDLOOP. - lo_buf = NEW #( ). + CREATE OBJECT lo_buf. lo_buf->add( 'msgid ""' )->add( 'msgstr ""' @@ -113,7 +113,7 @@ CLASS ltcl_po_file IMPLEMENTATION. )->add( 'msgid "World"' )->add( 'msgstr "World DE"' ). - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. lo_po->parse_po( lo_buf->join_w_newline_and_flush( ) ). lo_po->zif_abapgit_i18n_file~translate( CHANGING ct_text_pairs = lt_lxe_pairs_act ). @@ -127,7 +127,7 @@ CLASS ltcl_po_file IMPLEMENTATION. DATA lo_po TYPE REF TO zcl_abapgit_po_file. - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. TRY. lo_po->parse_po( zcl_abapgit_string_buffer=>new( @@ -223,7 +223,7 @@ CLASS ltcl_po_file IMPLEMENTATION. DATA lo_po TYPE REF TO zcl_abapgit_po_file. FIELD-SYMBOLS LIKE LINE OF lo_po->mt_pairs. - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. lo_po->parse_po( zcl_abapgit_string_buffer=>new( )->add( 'msgid "a"' )->add( 'msgstr "1\n"' @@ -239,7 +239,7 @@ CLASS ltcl_po_file IMPLEMENTATION. act = -target exp = |1{ cl_abap_char_utilities=>newline }2| ). - lo_po = NEW #( iv_lang = 'xx' ). + CREATE OBJECT lo_po EXPORTING iv_lang = 'xx'. lo_po->parse_po( zcl_abapgit_string_buffer=>new( )->add( 'msgid "a"' )->add( 'msgstr ""' diff --git a/src/objects/texts/zcl_abapgit_properties_file.clas.abap b/src/objects/texts/zcl_abapgit_properties_file.clas.abap index d6c55c961..53827fb2c 100644 --- a/src/objects/texts/zcl_abapgit_properties_file.clas.abap +++ b/src/objects/texts/zcl_abapgit_properties_file.clas.abap @@ -54,7 +54,7 @@ CLASS zcl_abapgit_properties_file IMPLEMENTATION. lo_json_path TYPE REF TO zcl_abapgit_json_path, lx_exception TYPE REF TO cx_static_check. - lo_json_path = NEW #( ). + CREATE OBJECT lo_json_path. TRY. lv_translation = lo_json_path->deserialize( mt_translation ). diff --git a/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap b/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap index e122adc52..6dd988690 100644 --- a/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap +++ b/src/objects/texts/zcl_abapgit_properties_file.clas.testclasses.abap @@ -15,7 +15,7 @@ CLASS ltcl_test IMPLEMENTATION. DATA: lo_cut TYPE REF TO zcl_abapgit_properties_file. DATA: lv_act TYPE laiso. - lo_cut = NEW #( iv_lang = 'DE' ). + CREATE OBJECT lo_cut EXPORTING iv_lang = 'DE'. lv_act = lo_cut->zif_abapgit_i18n_file~lang( ). cl_abap_unit_assert=>assert_equals( diff --git a/src/objects/zcl_abapgit_object_acid.clas.abap b/src/objects/zcl_abapgit_object_acid.clas.abap index 2b0efa80b..aeee89fd5 100644 --- a/src/objects/zcl_abapgit_object_acid.clas.abap +++ b/src/objects/zcl_abapgit_object_acid.clas.abap @@ -138,7 +138,9 @@ CLASS zcl_abapgit_object_acid IMPLEMENTATION. lo_aab = create_object( ). lo_aab->get_state( IMPORTING ex_state = lv_state ). - rv_bool = xsdbool( lv_state = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_state = abap_true ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqbg.clas.abap b/src/objects/zcl_abapgit_object_aqbg.clas.abap index 483abec97..0bba5e3a9 100644 --- a/src/objects/zcl_abapgit_object_aqbg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqbg.clas.abap @@ -57,9 +57,9 @@ CLASS zcl_abapgit_object_aqbg IMPLEMENTATION. METHOD get_generic. " transaction SQ03 - ro_generic = NEW #( is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqqu.clas.abap b/src/objects/zcl_abapgit_object_aqqu.clas.abap index 9ef5faef0..a470e41d3 100644 --- a/src/objects/zcl_abapgit_object_aqqu.clas.abap +++ b/src/objects/zcl_abapgit_object_aqqu.clas.abap @@ -36,9 +36,9 @@ CLASS zcl_abapgit_object_aqqu IMPLEMENTATION. METHOD get_generic. " transaction SQ01 - ro_generic = NEW #( is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_aqsg.clas.abap b/src/objects/zcl_abapgit_object_aqsg.clas.abap index 6fe8a2a26..e22f77a87 100644 --- a/src/objects/zcl_abapgit_object_aqsg.clas.abap +++ b/src/objects/zcl_abapgit_object_aqsg.clas.abap @@ -36,9 +36,9 @@ CLASS zcl_abapgit_object_aqsg IMPLEMENTATION. METHOD get_generic. " transaction SQ02 - ro_generic = NEW #( is_item = ms_item - io_field_rules = get_field_rules( ) - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING is_item = ms_item + io_field_rules = get_field_rules( ) + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_asfc.clas.abap b/src/objects/zcl_abapgit_object_asfc.clas.abap index 92e98cb9e..c359b1597 100644 --- a/src/objects/zcl_abapgit_object_asfc.clas.abap +++ b/src/objects/zcl_abapgit_object_asfc.clas.abap @@ -23,8 +23,8 @@ CLASS zcl_abapgit_object_asfc IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_auth.clas.abap b/src/objects/zcl_abapgit_object_auth.clas.abap index 5aea917f5..23e7a0403 100644 --- a/src/objects/zcl_abapgit_object_auth.clas.abap +++ b/src/objects/zcl_abapgit_object_auth.clas.abap @@ -54,7 +54,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. lo_auth TYPE REF TO cl_auth_tools. " authority check - lo_auth = NEW #( ). + CREATE OBJECT lo_auth. IF lo_auth->authority_check_suso( actvt = '06' fieldname = mv_fieldname ) <> 0. MESSAGE e463(01) WITH mv_fieldname INTO zcx_abapgit_exception=>null. @@ -96,7 +96,7 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. tadir_insert( iv_package ). - lo_auth = NEW #( ). + CREATE OBJECT lo_auth. IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0. zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ). @@ -118,7 +118,9 @@ CLASS zcl_abapgit_object_auth IMPLEMENTATION. SELECT SINGLE fieldname FROM authx INTO mv_fieldname WHERE fieldname = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_avar.clas.abap b/src/objects/zcl_abapgit_object_avar.clas.abap index a4eed329a..2f7a91961 100644 --- a/src/objects/zcl_abapgit_object_avar.clas.abap +++ b/src/objects/zcl_abapgit_object_avar.clas.abap @@ -153,7 +153,9 @@ CLASS zcl_abapgit_object_avar IMPLEMENTATION. lo_aab = create_object( ). lo_aab->get_state( IMPORTING ex_state = lv_state ). - rv_bool = xsdbool( lv_state = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_state = abap_true ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_avas.clas.abap b/src/objects/zcl_abapgit_object_avas.clas.abap index 12c81b16a..595d0d81f 100644 --- a/src/objects/zcl_abapgit_object_avas.clas.abap +++ b/src/objects/zcl_abapgit_object_avas.clas.abap @@ -41,7 +41,8 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. METHOD insert_assignments. - DATA: lt_assignment TYPE STANDARD TABLE OF cls_assignment, + TYPES temp1 TYPE STANDARD TABLE OF cls_assignment. +DATA: lt_assignment TYPE temp1, ls_assignment LIKE LINE OF lt_assignment, ls_value LIKE LINE OF is_avas-values. @@ -79,7 +80,7 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. lv_id = ms_item-obj_name. TRY. - ro_avas = NEW #( im_assignment_id = lv_id ). + CREATE OBJECT ro_avas EXPORTING im_assignment_id = lv_id. CATCH cx_pak_wb_object_locked INTO lx_err. zcx_abapgit_exception=>raise( |AVAS { lv_id }: locked: { lx_err->get_longtext( ) }| ). CATCH cx_pak_not_authorized INTO lx_err. @@ -164,7 +165,9 @@ CLASS zcl_abapgit_object_avas IMPLEMENTATION. SELECT SINGLE guid FROM cls_assignment INTO lv_guid WHERE guid = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_char.clas.abap b/src/objects/zcl_abapgit_object_char.clas.abap index c9d042a12..711132161 100644 --- a/src/objects/zcl_abapgit_object_char.clas.abap +++ b/src/objects/zcl_abapgit_object_char.clas.abap @@ -43,14 +43,16 @@ CLASS ZCL_ABAPGIT_OBJECT_CHAR IMPLEMENTATION. SELECT SINGLE name FROM cls_attribute INTO lv_name WHERE name = ms_item-obj_name. - lv_new = xsdbool( sy-subrc <> 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc <> 0 ). + lv_new = temp1. lv_name = ms_item-obj_name. TRY. - ro_char = NEW #( im_name = lv_name - im_type_group = iv_type_group - im_new = lv_new - im_activation_state = iv_activation_state ). + CREATE OBJECT ro_char EXPORTING im_name = lv_name + im_type_group = iv_type_group + im_new = lv_new + im_activation_state = iv_activation_state. CATCH cx_pak_invalid_data cx_pak_not_authorized cx_pak_invalid_state diff --git a/src/objects/zcl_abapgit_object_chdo.clas.abap b/src/objects/zcl_abapgit_object_chdo.clas.abap index aaa1263ce..91a4d9d87 100644 --- a/src/objects/zcl_abapgit_object_chdo.clas.abap +++ b/src/objects/zcl_abapgit_object_chdo.clas.abap @@ -49,9 +49,11 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. METHOD after_import. - DATA: lt_cts_object_entry TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY, + TYPES temp1 TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY. +TYPES temp2 TYPE STANDARD TABLE OF sprot_u WITH DEFAULT KEY. +DATA: lt_cts_object_entry TYPE temp1, ls_cts_object_entry LIKE LINE OF lt_cts_object_entry, - lt_errormsg TYPE STANDARD TABLE OF sprot_u WITH DEFAULT KEY. + lt_errormsg TYPE temp2. ls_cts_object_entry-pgmid = 'R3TR'. ls_cts_object_entry-object = ms_item-obj_type. @@ -220,9 +222,11 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. METHOD zif_abapgit_object~delete. - DATA: lt_cdnames TYPE STANDARD TABLE OF cdnames, + TYPES temp3 TYPE STANDARD TABLE OF cdnames. +TYPES temp4 TYPE STANDARD TABLE OF tcdrs. +DATA: lt_cdnames TYPE temp3, ls_cdnames TYPE cdnames, - lt_tcdrs TYPE STANDARD TABLE OF tcdrs, + lt_tcdrs TYPE temp4, ls_tcdrs TYPE tcdrs, lv_msg TYPE symsgv. @@ -304,7 +308,9 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. FROM tcdrp WHERE object = mv_object. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -341,7 +347,8 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE STANDARD TABLE OF bdcdata, + TYPES temp5 TYPE STANDARD TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp5, ls_bdcdata LIKE LINE OF lt_bdcdata. CLEAR: ls_bdcdata. @@ -381,10 +388,13 @@ CLASS zcl_abapgit_object_chdo IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: ls_change_object TYPE ty_change_document, - lt_tcdrp TYPE STANDARD TABLE OF tcdrp, - lt_tcdob TYPE STANDARD TABLE OF tcdob, - lt_tcdobt TYPE STANDARD TABLE OF tcdobt, + TYPES temp6 TYPE STANDARD TABLE OF tcdrp. +TYPES temp5 TYPE STANDARD TABLE OF tcdob. +TYPES temp1 TYPE STANDARD TABLE OF tcdobt. +DATA: ls_change_object TYPE ty_change_document, + lt_tcdrp TYPE temp6, + lt_tcdob TYPE temp5, + lt_tcdobt TYPE temp1, BEGIN OF ls_nulldatetime, " hack ro reset fields when they exist without syntax errors when they don't udate TYPE sy-datum, utime TYPE sy-uzeit, diff --git a/src/objects/zcl_abapgit_object_cmod.clas.abap b/src/objects/zcl_abapgit_object_cmod.clas.abap index 33b642199..e0d526c8f 100644 --- a/src/objects/zcl_abapgit_object_cmod.clas.abap +++ b/src/objects/zcl_abapgit_object_cmod.clas.abap @@ -72,10 +72,13 @@ CLASS zcl_abapgit_object_cmod IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lv_name TYPE modact-name, - lt_modact TYPE TABLE OF modact, - lt_modtext TYPE TABLE OF modtext, - lt_modattr TYPE TABLE OF modattr. + TYPES temp1 TYPE TABLE OF modact. +TYPES temp2 TYPE TABLE OF modtext. +TYPES temp3 TYPE TABLE OF modattr. +DATA: lv_name TYPE modact-name, + lt_modact TYPE temp1, + lt_modtext TYPE temp2, + lt_modattr TYPE temp3. lv_name = ms_item-obj_name. @@ -125,7 +128,9 @@ CLASS zcl_abapgit_object_cmod IMPLEMENTATION. DATA: lv_name TYPE modact-name. SELECT SINGLE name FROM modact INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -176,9 +181,12 @@ CLASS zcl_abapgit_object_cmod IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lt_modact TYPE TABLE OF modact, - lt_modtext TYPE TABLE OF modtext, - lt_modattr TYPE TABLE OF modattr. + TYPES temp4 TYPE TABLE OF modact. +TYPES temp5 TYPE TABLE OF modtext. +TYPES temp6 TYPE TABLE OF modattr. +DATA: lt_modact TYPE temp4, + lt_modtext TYPE temp5, + lt_modattr TYPE temp6. FIELD-SYMBOLS: TYPE modattr. diff --git a/src/objects/zcl_abapgit_object_cus0.clas.abap b/src/objects/zcl_abapgit_object_cus0.clas.abap index 0d0c8cc47..7e67131e2 100644 --- a/src/objects/zcl_abapgit_object_cus0.clas.abap +++ b/src/objects/zcl_abapgit_object_cus0.clas.abap @@ -111,7 +111,9 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION. IMPORTING message = ls_message. - rv_bool = xsdbool( ls_message IS INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ls_message IS INITIAL ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_cus1.clas.abap b/src/objects/zcl_abapgit_object_cus1.clas.abap index 1098bc9c4..2e06b4982 100644 --- a/src/objects/zcl_abapgit_object_cus1.clas.abap +++ b/src/objects/zcl_abapgit_object_cus1.clas.abap @@ -129,7 +129,9 @@ CLASS zcl_abapgit_object_cus1 IMPLEMENTATION. activity_exists_not = 1 OTHERS = 2. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -165,7 +167,8 @@ CLASS zcl_abapgit_object_cus1 IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdc_data TYPE STANDARD TABLE OF bdcdata. + TYPES temp1 TYPE STANDARD TABLE OF bdcdata. +DATA: lt_bdc_data TYPE temp1. FIELD-SYMBOLS: TYPE bdcdata. APPEND INITIAL LINE TO lt_bdc_data ASSIGNING . diff --git a/src/objects/zcl_abapgit_object_cus2.clas.abap b/src/objects/zcl_abapgit_object_cus2.clas.abap index cee074cff..ef9409a16 100644 --- a/src/objects/zcl_abapgit_object_cus2.clas.abap +++ b/src/objects/zcl_abapgit_object_cus2.clas.abap @@ -126,7 +126,9 @@ CLASS zcl_abapgit_object_cus2 IMPLEMENTATION. attributes_exists_not = 1 OTHERS = 2. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ddls.clas.abap b/src/objects/zcl_abapgit_object_ddls.clas.abap index af5cfeae7..186c5091b 100644 --- a/src/objects/zcl_abapgit_object_ddls.clas.abap +++ b/src/objects/zcl_abapgit_object_ddls.clas.abap @@ -220,10 +220,12 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION. METHOD zif_abapgit_object~delete. - DATA: - lt_deltab TYPE TABLE OF dcdeltb, + TYPES temp1 TYPE TABLE OF dcdeltb. +TYPES temp2 TYPE TABLE OF dcgentb. +DATA: + lt_deltab TYPE temp1, ls_deltab TYPE dcdeltb, - lt_gentab TYPE TABLE OF dcgentb, + lt_gentab TYPE temp2, lv_rc TYPE sy-subrc. " CL_DD_DDL_HANDLER->DELETE does not work for CDS views that reference other views @@ -367,7 +369,9 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION. name = ms_item-obj_name IMPORTING got_state = lv_state. - rv_bool = xsdbool( NOT lv_state IS INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( NOT lv_state IS INITIAL ). + rv_bool = temp1. CATCH cx_root. rv_bool = abap_false. ENDTRY. @@ -441,10 +445,11 @@ CLASS zcl_abapgit_object_ddls IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lo_ddl TYPE REF TO object, + TYPES temp3 TYPE STANDARD TABLE OF fieldname WITH DEFAULT KEY. +DATA: lo_ddl TYPE REF TO object, lr_data TYPE REF TO data, lr_data_baseinfo TYPE REF TO data, - lt_clr_comps TYPE STANDARD TABLE OF fieldname WITH DEFAULT KEY, + lt_clr_comps TYPE temp3, lx_error TYPE REF TO cx_root. FIELD-SYMBOLS: TYPE any, diff --git a/src/objects/zcl_abapgit_object_devc.clas.abap b/src/objects/zcl_abapgit_object_devc.clas.abap index aeedda563..976709030 100644 --- a/src/objects/zcl_abapgit_object_devc.clas.abap +++ b/src/objects/zcl_abapgit_object_devc.clas.abap @@ -139,7 +139,9 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. WHERE pgmid = 'R3TR' AND NOT ( ( object = 'DEVC' OR object = 'SOTR' ) AND obj_name = iv_package_name ) AND devclass = iv_package_name. - rv_is_empty = xsdbool( sy-subrc <> 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc <> 0 ). + rv_is_empty = temp1. ENDMETHOD. @@ -183,9 +185,10 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. METHOD remove_obsolete_tadir. - DATA: + TYPES temp1 TYPE STANDARD TABLE OF devclass. +DATA: lv_pack TYPE devclass, - lt_pack TYPE STANDARD TABLE OF devclass, + lt_pack TYPE temp1, ls_tadir TYPE zif_abapgit_definitions=>ty_tadir, lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt, ls_item TYPE zif_abapgit_definitions=>ty_item. @@ -337,11 +340,12 @@ CLASS zcl_abapgit_object_devc IMPLEMENTATION. METHOD update_pinf_usages. - DATA: lt_current_permissions TYPE tpak_permission_to_use_list, + TYPES temp2 TYPE SORTED TABLE OF i WITH UNIQUE KEY table_line. +DATA: lt_current_permissions TYPE tpak_permission_to_use_list, li_usage TYPE REF TO if_package_permission_to_use, ls_data_sign TYPE scomppsign, ls_add_permission_data TYPE pkgpermdat, - lt_handled TYPE SORTED TABLE OF i WITH UNIQUE KEY table_line. + lt_handled TYPE temp2. FIELD-SYMBOLS: LIKE LINE OF it_usage_data. " Get the current permissions diff --git a/src/objects/zcl_abapgit_object_dial.clas.abap b/src/objects/zcl_abapgit_object_dial.clas.abap index 55c2fb2f9..33116aae6 100644 --- a/src/objects/zcl_abapgit_object_dial.clas.abap +++ b/src/objects/zcl_abapgit_object_dial.clas.abap @@ -30,8 +30,9 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. METHOD zif_abapgit_object~delete. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp1 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp1. ls_bcdata-program = 'SAPMSDIA'. ls_bcdata-dynpro = '1010'. @@ -126,7 +127,9 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. ls_tdct = _read_tdct( ). - rv_bool = xsdbool( ls_tdct IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ls_tdct IS NOT INITIAL ). + rv_bool = temp1. ENDMETHOD. @@ -177,7 +180,9 @@ CLASS zcl_abapgit_object_dial IMPLEMENTATION. object_not_found = 1 OTHERS = 2. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_exit = temp2. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_doct.clas.abap b/src/objects/zcl_abapgit_object_doct.clas.abap index 468acbcee..c9ad088f1 100644 --- a/src/objects/zcl_abapgit_object_doct.clas.abap +++ b/src/objects/zcl_abapgit_object_doct.clas.abap @@ -90,7 +90,9 @@ CLASS zcl_abapgit_object_doct IMPLEMENTATION. WHERE id = c_id AND object = lv_object. "#EC CI_GENBUFF "#EC CI_NOORDER - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -127,9 +129,10 @@ CLASS zcl_abapgit_object_doct IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_dokentry TYPE dokentry, + TYPES temp1 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_dokentry TYPE dokentry, ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + lt_bcdata TYPE temp1. " We need to modify dokentry directly, otherwise " Batch Input on SE61 wouldn't work because it stores diff --git a/src/objects/zcl_abapgit_object_docv.clas.abap b/src/objects/zcl_abapgit_object_docv.clas.abap index dc6445134..4f6f54639 100644 --- a/src/objects/zcl_abapgit_object_docv.clas.abap +++ b/src/objects/zcl_abapgit_object_docv.clas.abap @@ -155,7 +155,9 @@ CLASS zcl_abapgit_object_docv IMPLEMENTATION. WHERE id = mv_id AND object = mv_doc_object. "#EC CI_GENBUFF "#EC CI_NOORDER - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_doma.clas.abap b/src/objects/zcl_abapgit_object_doma.clas.abap index c86b80606..67313160a 100644 --- a/src/objects/zcl_abapgit_object_doma.clas.abap +++ b/src/objects/zcl_abapgit_object_doma.clas.abap @@ -100,11 +100,13 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. METHOD deserialize_texts. - DATA: lv_name TYPE ddobjname, + TYPES temp1 TYPE TABLE OF dd07v. +TYPES temp2 TYPE TABLE OF langu. +DATA: lv_name TYPE ddobjname, lv_valpos TYPE valpos, ls_dd01v_tmp TYPE dd01v, - lt_dd07v_tmp TYPE TABLE OF dd07v, - lt_i18n_langs TYPE TABLE OF langu, + lt_dd07v_tmp TYPE temp1, + lt_i18n_langs TYPE temp2, lt_dd01_texts TYPE ty_dd01_texts, lt_dd07_texts TYPE ty_dd07_texts. @@ -201,11 +203,13 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. METHOD serialize_texts. - DATA: lv_name TYPE ddobjname, + TYPES temp3 TYPE TABLE OF dd07v. +TYPES temp4 TYPE TABLE OF langu. +DATA: lv_name TYPE ddobjname, lv_index TYPE i, ls_dd01v TYPE dd01v, - lt_dd07v TYPE TABLE OF dd07v, - lt_i18n_langs TYPE TABLE OF langu, + lt_dd07v TYPE temp3, + lt_i18n_langs TYPE temp4, lt_dd01_texts TYPE ty_dd01_texts, lt_dd07_texts TYPE ty_dd07_texts, lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter. @@ -335,10 +339,11 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. * package SEDD * package SDIC - DATA: lv_name TYPE ddobjname, + TYPES temp5 TYPE TABLE OF dd07v. +DATA: lv_name TYPE ddobjname, lv_done TYPE abap_bool, ls_dd01v TYPE dd01v, - lt_dd07v TYPE TABLE OF dd07v. + lt_dd07v TYPE temp5. FIELD-SYMBOLS TYPE dd07v. @@ -406,7 +411,9 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. SELECT SINGLE domname FROM dd01l INTO lv_domname WHERE domname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -460,11 +467,12 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lv_name TYPE ddobjname, + TYPES temp6 TYPE TABLE OF dd07v. +DATA: lv_name TYPE ddobjname, lv_state TYPE ddgotstate, ls_dd01v TYPE dd01v, lv_masklen TYPE c LENGTH 4, - lt_dd07v TYPE TABLE OF dd07v. + lt_dd07v TYPE temp6. FIELD-SYMBOLS TYPE dd07v. diff --git a/src/objects/zcl_abapgit_object_dsys.clas.abap b/src/objects/zcl_abapgit_object_dsys.clas.abap index 468dd6a8e..b485163ca 100644 --- a/src/objects/zcl_abapgit_object_dsys.clas.abap +++ b/src/objects/zcl_abapgit_object_dsys.clas.abap @@ -180,7 +180,9 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. WHERE id = c_id AND object = mv_doc_object. "#EC CI_GENBUFF "#EC CI_NOORDER - rv_bool = xsdbool( lv_count > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_count > 0 ). + rv_bool = temp1. ENDMETHOD. @@ -232,7 +234,9 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION. no_editor = 2 OTHERS = 3. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_exit = temp2. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_dtel.clas.abap b/src/objects/zcl_abapgit_object_dtel.clas.abap index c5e766538..ecafcd4c6 100644 --- a/src/objects/zcl_abapgit_object_dtel.clas.abap +++ b/src/objects/zcl_abapgit_object_dtel.clas.abap @@ -40,9 +40,10 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION. METHOD deserialize_texts. - DATA: lv_name TYPE ddobjname, + TYPES temp1 TYPE TABLE OF langu. +DATA: lv_name TYPE ddobjname, ls_dd04v_tmp TYPE dd04v, - lt_i18n_langs TYPE TABLE OF langu, + lt_i18n_langs TYPE temp1, lt_dd04_texts TYPE ty_dd04_texts. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, @@ -92,11 +93,12 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION. METHOD serialize_texts. - DATA: lv_name TYPE ddobjname, + TYPES temp2 TYPE TABLE OF langu. +DATA: lv_name TYPE ddobjname, lv_index TYPE i, ls_dd04v TYPE dd04v, lt_dd04_texts TYPE ty_dd04_texts, - lt_i18n_langs TYPE TABLE OF langu, + lt_i18n_langs TYPE temp2, lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, @@ -244,7 +246,9 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION. SELECT SINGLE rollname FROM dd04l INTO lv_rollname WHERE rollname = lv_rollname. ENDIF. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ecat.clas.abap b/src/objects/zcl_abapgit_object_ecat.clas.abap index 0d31bf529..1a91f6a79 100644 --- a/src/objects/zcl_abapgit_object_ecat.clas.abap +++ b/src/objects/zcl_abapgit_object_ecat.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_download. - ro_download = NEW zcl_abapgit_ecatt_script_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_script_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecat IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_script_upl( ). + CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_script_upl. ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecsd.clas.abap b/src/objects/zcl_abapgit_object_ecsd.clas.abap index f99143551..e9e5e9ced 100644 --- a/src/objects/zcl_abapgit_object_ecsd.clas.abap +++ b/src/objects/zcl_abapgit_object_ecsd.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_download. - ro_download = NEW zcl_abapgit_ecatt_system_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_system_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ecsd IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_system_upl( ). + CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_system_upl. ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecsp.clas.abap b/src/objects/zcl_abapgit_object_ecsp.clas.abap index 9a152ec92..a4e2d7ae0 100644 --- a/src/objects/zcl_abapgit_object_ecsp.clas.abap +++ b/src/objects/zcl_abapgit_object_ecsp.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_download. - ro_download = NEW zcl_abapgit_ecatt_sp_download( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_sp_download. ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecsp IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_sp_upload( ). + CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_sp_upload. ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ectc.clas.abap b/src/objects/zcl_abapgit_object_ectc.clas.abap index 242a3f979..457f2d081 100644 --- a/src/objects/zcl_abapgit_object_ectc.clas.abap +++ b/src/objects/zcl_abapgit_object_ectc.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_download. - ro_download = NEW zcl_abapgit_ecatt_config_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_config_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectc IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_config_upl( ). + CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_config_upl. ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ectd.clas.abap b/src/objects/zcl_abapgit_object_ectd.clas.abap index 941c7810c..86ca112ed 100644 --- a/src/objects/zcl_abapgit_object_ectd.clas.abap +++ b/src/objects/zcl_abapgit_object_ectd.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_download. - ro_download = NEW zcl_abapgit_ecatt_data_downl( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_data_downl. ENDMETHOD. @@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_ectd IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_data_upload( ). + CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_data_upload. ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_ecvo.clas.abap b/src/objects/zcl_abapgit_object_ecvo.clas.abap index 5bcf00ce0..7b49e4c59 100644 --- a/src/objects/zcl_abapgit_object_ecvo.clas.abap +++ b/src/objects/zcl_abapgit_object_ecvo.clas.abap @@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_download. - ro_download = NEW zcl_abapgit_ecatt_val_obj_down( ). + CREATE OBJECT ro_download TYPE zcl_abapgit_ecatt_val_obj_down. ENDMETHOD. @@ -44,7 +44,7 @@ CLASS zcl_abapgit_object_ecvo IMPLEMENTATION. METHOD get_upload. - ro_upload = NEW zcl_abapgit_ecatt_val_obj_upl( ). + CREATE OBJECT ro_upload TYPE zcl_abapgit_ecatt_val_obj_upl. ENDMETHOD. ENDCLASS. diff --git a/src/objects/zcl_abapgit_object_enho.clas.abap b/src/objects/zcl_abapgit_object_enho.clas.abap index 7ad286893..a11ddb760 100644 --- a/src/objects/zcl_abapgit_object_enho.clas.abap +++ b/src/objects/zcl_abapgit_object_enho.clas.abap @@ -25,23 +25,23 @@ CLASS zcl_abapgit_object_enho IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_impl=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_badi( is_item = ms_item ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_badi EXPORTING is_item = ms_item. WHEN cl_enh_tool_hook_impl=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_hook( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_hook EXPORTING is_item = ms_item + io_files = mo_files. WHEN cl_enh_tool_class=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_class( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_class EXPORTING is_item = ms_item + io_files = mo_files. WHEN cl_enh_tool_intf=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_intf( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_intf EXPORTING is_item = ms_item + io_files = mo_files. WHEN cl_wdr_cfg_enhancement=>tooltype. - ri_enho = NEW zcl_abapgit_object_enho_wdyc( is_item = ms_item ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyc EXPORTING is_item = ms_item. WHEN 'FUGRENH'. - ri_enho = NEW zcl_abapgit_object_enho_fugr( is_item = ms_item - io_files = mo_files ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_fugr EXPORTING is_item = ms_item + io_files = mo_files. WHEN 'WDYENH'. - ri_enho = NEW zcl_abapgit_object_enho_wdyn( is_item = ms_item ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enho_wdyn EXPORTING is_item = ms_item. WHEN OTHERS. zcx_abapgit_exception=>raise( |Unsupported ENHO type { iv_tool }| ). ENDCASE. diff --git a/src/objects/zcl_abapgit_object_enhs.clas.abap b/src/objects/zcl_abapgit_object_enhs.clas.abap index 833128ac5..6fdec9eeb 100644 --- a/src/objects/zcl_abapgit_object_enhs.clas.abap +++ b/src/objects/zcl_abapgit_object_enhs.clas.abap @@ -24,9 +24,9 @@ CLASS zcl_abapgit_object_enhs IMPLEMENTATION. CASE iv_tool. WHEN cl_enh_tool_badi_def=>tooltype. - ri_enho = NEW zcl_abapgit_object_enhs_badi_d( ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_badi_d. WHEN cl_enh_tool_hook_def=>tool_type. - ri_enho = NEW zcl_abapgit_object_enhs_hook_d( ). + CREATE OBJECT ri_enho TYPE zcl_abapgit_object_enhs_hook_d. WHEN OTHERS. zcx_abapgit_exception=>raise( |ENHS: Unsupported tool { iv_tool }| ). ENDCASE. diff --git a/src/objects/zcl_abapgit_object_enqu.clas.abap b/src/objects/zcl_abapgit_object_enqu.clas.abap index 071b6e2d1..5778348cd 100644 --- a/src/objects/zcl_abapgit_object_enqu.clas.abap +++ b/src/objects/zcl_abapgit_object_enqu.clas.abap @@ -46,9 +46,10 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lv_name TYPE ddobjname, + TYPES temp1 TYPE TABLE OF dd26e. +DATA: lv_name TYPE ddobjname, ls_dd25v TYPE dd25v, - lt_dd26e TYPE TABLE OF dd26e, + lt_dd26e TYPE temp1, lt_dd27p TYPE ty_dd27p. @@ -93,7 +94,9 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -147,10 +150,11 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lv_name TYPE ddobjname, + TYPES temp2 TYPE TABLE OF dd26e. +DATA: lv_name TYPE ddobjname, lv_state TYPE ddgotstate, ls_dd25v TYPE dd25v, - lt_dd26e TYPE TABLE OF dd26e, + lt_dd26e TYPE temp2, lt_dd27p TYPE ty_dd27p. lv_name = ms_item-obj_name. diff --git a/src/objects/zcl_abapgit_object_fdt0.clas.abap b/src/objects/zcl_abapgit_object_fdt0.clas.abap index 04117f6a5..9417f7331 100644 --- a/src/objects/zcl_abapgit_object_fdt0.clas.abap +++ b/src/objects/zcl_abapgit_object_fdt0.clas.abap @@ -82,7 +82,9 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. WHERE object_type = 'AP' AND id = lv_application_id AND deleted = ''. - ev_create = xsdbool( lv_count = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_count = 0 ). + ev_create = temp1. ENDIF. " Fill in user/time/system-specific fields @@ -394,7 +396,8 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. METHOD zif_abapgit_object~delete. DATA lv_is_local TYPE abap_bool. - DATA lt_application_id TYPE TABLE OF fdt_admn_0000s-application_id. + TYPES temp1 TYPE TABLE OF fdt_admn_0000s-application_id. +DATA lt_application_id TYPE temp1. DATA ls_object_category_sel TYPE if_fdt_query=>s_object_category_sel. DATA lv_failure TYPE abap_bool. DATA lx_fdt_input TYPE REF TO cx_fdt_input. @@ -588,7 +591,9 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. AND name = ms_item-obj_name AND deleted = ''. - rv_bool = xsdbool( lv_count > 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( lv_count > 0 ). + rv_bool = temp2. ENDMETHOD. @@ -598,12 +603,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. - lo_local_version_output = NEW #( ). + CREATE OBJECT lo_local_version_output. zif_abapgit_object~serialize( lo_local_version_output ). - lo_local_version_input = NEW #( iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ) ). + CREATE OBJECT lo_local_version_input EXPORTING iv_xml = lo_local_version_output->zif_abapgit_xml_output~render( ). - ri_comparator = NEW zcl_abapgit_object_tabl_compar( ii_local = lo_local_version_input ). + CREATE OBJECT ri_comparator TYPE zcl_abapgit_object_tabl_compar EXPORTING ii_local = lo_local_version_input. ENDMETHOD. @@ -650,7 +655,9 @@ CLASS zcl_abapgit_object_fdt0 IMPLEMENTATION. lv_index = lines( lt_version ). READ TABLE lt_version ASSIGNING INDEX lv_index. - rv_active = xsdbool( -state = 'A' ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( -state = 'A' ). + rv_active = temp3. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_form.clas.abap b/src/objects/zcl_abapgit_object_form.clas.abap index 8f15f5f96..da10f9082 100644 --- a/src/objects/zcl_abapgit_object_form.clas.abap +++ b/src/objects/zcl_abapgit_object_form.clas.abap @@ -130,7 +130,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. DATA lv_string TYPE string. DATA li_xml TYPE REF TO zif_abapgit_xml_output. - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. li_xml->add( iv_name = c_objectname_tdlines ig_data = it_lines ). lv_string = li_xml->render( ). @@ -174,7 +174,7 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. ENDTRY. - li_xml = NEW zcl_abapgit_xml_input( iv_xml = lv_string ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_input EXPORTING iv_xml = lv_string. li_xml->read( EXPORTING iv_name = c_objectname_tdlines CHANGING cg_data = rt_lines ). @@ -329,7 +329,9 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. IMPORTING olanguage = lv_lang. - rv_bool = xsdbool( lv_lang IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_lang IS NOT INITIAL ). + rv_bool = temp1. ENDMETHOD. @@ -378,7 +380,8 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE TABLE OF bdcdata. + TYPES temp1 TYPE TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp1. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. diff --git a/src/objects/zcl_abapgit_object_fugr.clas.abap b/src/objects/zcl_abapgit_object_fugr.clas.abap index 5441b52b1..ba44bb95c 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -219,11 +219,12 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. METHOD deserialize_functions. - DATA: lv_include TYPE rs38l-include, + TYPES temp1 TYPE TABLE OF abaptxt255. +DATA: lv_include TYPE rs38l-include, lv_area TYPE rs38l-area, lv_group TYPE rs38l-area, lv_namespace TYPE rs38l-namespace, - lt_source TYPE TABLE OF abaptxt255, + lt_source TYPE temp1, lv_msg TYPE string, lx_error TYPE REF TO zcx_abapgit_exception. @@ -361,12 +362,13 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. METHOD deserialize_includes. - DATA: lo_xml TYPE REF TO zif_abapgit_xml_input, + TYPES temp2 TYPE TABLE OF abaptxt255. +DATA: lo_xml TYPE REF TO zif_abapgit_xml_input, ls_progdir TYPE zif_abapgit_sap_report=>ty_progdir, lt_includes TYPE ty_sobj_name_tt, lt_tpool TYPE textpool_table, lt_tpool_ext TYPE zif_abapgit_definitions=>ty_tpool_tt, - lt_source TYPE TABLE OF abaptxt255, + lt_source TYPE temp2, lx_exc TYPE REF TO zcx_abapgit_exception. FIELD-SYMBOLS: LIKE LINE OF lt_includes. @@ -587,14 +589,16 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. progname TYPE reposrc-progname, END OF ty_reposrc. - DATA: lt_reposrc TYPE STANDARD TABLE OF ty_reposrc WITH DEFAULT KEY, + TYPES temp3 TYPE STANDARD TABLE OF ty_reposrc WITH DEFAULT KEY. +TYPES temp1 TYPE HASHED TABLE OF objname WITH UNIQUE KEY table_line. +DATA: lt_reposrc TYPE temp3, ls_reposrc LIKE LINE OF lt_reposrc, lv_program TYPE program, lv_maintviewname LIKE LINE OF rt_includes, lv_offset_ns TYPE i, lv_tabix LIKE sy-tabix, lt_functab TYPE ty_rs38l_incl_tt, - lt_tadir_includes TYPE HASHED TABLE OF objname WITH UNIQUE KEY table_line. + lt_tadir_includes TYPE temp1. FIELD-SYMBOLS: LIKE LINE OF rt_includes, LIKE LINE OF lt_functab. @@ -848,8 +852,9 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. METHOD serialize_functions. - DATA: - lt_source TYPE TABLE OF rssource, + TYPES temp5 TYPE TABLE OF rssource. +DATA: + lt_source TYPE temp5, lt_functab TYPE ty_rs38l_incl_tt, lt_new_source TYPE rsfb_source, ls_function LIKE LINE OF rt_functions. @@ -1060,8 +1065,8 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. LOOP AT it_includes INTO lv_include. - lo_cross = NEW #( p_name = lv_include - p_include = lv_include ). + CREATE OBJECT lo_cross EXPORTING p_name = lv_include + p_include = lv_include. lo_cross->index_actualize( ). @@ -1078,8 +1083,9 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. time TYPE t, END OF ty_stamps. - DATA: - lt_stamps TYPE STANDARD TABLE OF ty_stamps WITH DEFAULT KEY, + TYPES temp6 TYPE STANDARD TABLE OF ty_stamps WITH DEFAULT KEY. +DATA: + lt_stamps TYPE temp6, lv_program TYPE program, lv_found TYPE abap_bool, lt_functions TYPE ty_rs38l_incl_tt. @@ -1272,7 +1278,9 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. function_pool = lv_pool EXCEPTIONS pool_not_exists = 1. - rv_bool = xsdbool( sy-subrc <> 1 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc <> 1 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_g4ba.clas.abap b/src/objects/zcl_abapgit_object_g4ba.clas.abap index 809de5582..15218ba54 100644 --- a/src/objects/zcl_abapgit_object_g4ba.clas.abap +++ b/src/objects/zcl_abapgit_object_g4ba.clas.abap @@ -65,9 +65,9 @@ CLASS zcl_abapgit_object_g4ba IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_g4bs.clas.abap b/src/objects/zcl_abapgit_object_g4bs.clas.abap index f9a106e6a..9902bb017 100644 --- a/src/objects/zcl_abapgit_object_g4bs.clas.abap +++ b/src/objects/zcl_abapgit_object_g4bs.clas.abap @@ -65,9 +65,9 @@ CLASS zcl_abapgit_object_g4bs IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_idoc.clas.abap b/src/objects/zcl_abapgit_object_idoc.clas.abap index e0a45e311..48ef875c4 100644 --- a/src/objects/zcl_abapgit_object_idoc.clas.abap +++ b/src/objects/zcl_abapgit_object_idoc.clas.abap @@ -97,7 +97,9 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. db_error = 2 no_authority = 3 OTHERS = 4. - rv_closed = xsdbool( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 AND ls_idoc-attributes-closed = abap_true ). + rv_closed = temp1. ENDMETHOD. @@ -260,7 +262,9 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. db_error = 2 OTHERS = 3. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_bool = temp2. ENDMETHOD. @@ -297,7 +301,8 @@ CLASS zcl_abapgit_object_idoc IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE TABLE OF bdcdata. + TYPES temp1 TYPE TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp1. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. diff --git a/src/objects/zcl_abapgit_object_iext.clas.abap b/src/objects/zcl_abapgit_object_iext.clas.abap index 775242c14..410001b8d 100644 --- a/src/objects/zcl_abapgit_object_iext.clas.abap +++ b/src/objects/zcl_abapgit_object_iext.clas.abap @@ -122,7 +122,9 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION. EXCEPTIONS OTHERS = 1. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -159,7 +161,8 @@ CLASS zcl_abapgit_object_iext IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE TABLE OF bdcdata. + TYPES temp1 TYPE TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp1. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. diff --git a/src/objects/zcl_abapgit_object_intf.clas.abap b/src/objects/zcl_abapgit_object_intf.clas.abap index 1402d8f86..c0fd72372 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.abap @@ -139,7 +139,7 @@ CLASS zcl_abapgit_object_intf IMPLEMENTATION. mi_object_oriented_object_fct = zcl_abapgit_oo_factory=>get_by_type( ms_item-obj_type ). - li_aff_registry = NEW zcl_abapgit_aff_registry( ). + CREATE OBJECT li_aff_registry TYPE zcl_abapgit_aff_registry. mv_aff_enabled = li_aff_registry->is_supported_object_type( 'INTF' ). @@ -296,7 +296,7 @@ CLASS zcl_abapgit_object_intf IMPLEMENTATION. lv_json_data = mo_files->read_string( 'json' ). ls_intf_aff = lcl_aff_metadata_handler=>deserialize( lv_json_data ). - lo_aff_mapper = NEW lcl_aff_type_mapping( ). + CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping. lo_aff_mapper->to_abapgit( EXPORTING iv_data = ls_intf_aff iv_object_name = ms_item-obj_name IMPORTING es_data = rs_intf ). diff --git a/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap b/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap index 0774bd17a..bb280092a 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.locals_imp.abap @@ -546,14 +546,14 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. lt_paths_to_skip TYPE zcl_abapgit_json_handler=>ty_skip_paths. - lo_aff_mapper = NEW lcl_aff_type_mapping( ). + CREATE OBJECT lo_aff_mapper TYPE lcl_aff_type_mapping. lo_aff_mapper->to_aff( EXPORTING iv_data = is_intf IMPORTING es_data = ls_data_aff ). lt_enum_mappings = get_mappings( ). lt_paths_to_skip = get_paths_to_skip( ). - lo_aff_handler = NEW #( ). + CREATE OBJECT lo_aff_handler. TRY. rv_result = lo_aff_handler->serialize( iv_data = ls_data_aff iv_enum_mappings = lt_enum_mappings @@ -622,7 +622,7 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. lt_enum_mappings = get_mappings( ). - lo_ajson = NEW #( ). + CREATE OBJECT lo_ajson. TRY. lo_ajson->deserialize( EXPORTING @@ -669,10 +669,10 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. ENDTRY. - lo_json_path = NEW #( ). + CREATE OBJECT lo_json_path. lt_translation = lo_json_path->serialize( lv_json ). - lo_trans_file = NEW #( iv_lang = lv_langu ). + CREATE OBJECT lo_trans_file EXPORTING iv_lang = lv_langu. lo_trans_file->push_text_pairs( lt_translation ). @@ -721,7 +721,7 @@ CLASS lcl_aff_metadata_handler IMPLEMENTATION. ls_aff_data-header-original_language = lv_sap1. - lo_type_mapper = NEW lcl_aff_type_mapping( ). + CREATE OBJECT lo_type_mapper TYPE lcl_aff_type_mapping. lo_type_mapper->to_abapgit( EXPORTING iv_data = ls_aff_data diff --git a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap index de2f2fbdf..e795e0e6e 100644 --- a/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_intf.clas.testclasses.abap @@ -148,13 +148,13 @@ CLASS ltcl_unit_test IMPLEMENTATION. mo_files = zcl_abapgit_objects_files=>new( ms_item ). - lo_cut = NEW #( is_item = ms_item - iv_language = 'E' - io_files = mo_files ). + CREATE OBJECT lo_cut EXPORTING is_item = ms_item + iv_language = 'E' + io_files = mo_files. - mo_log = NEW #( ). + CREATE OBJECT mo_log. - mo_object_fnc = NEW #( ). + CREATE OBJECT mo_object_fnc. lo_cut->mi_object_oriented_object_fct = mo_object_fnc. mo_cut = lo_cut. @@ -170,7 +170,7 @@ CLASS ltcl_unit_test IMPLEMENTATION. DATA ls_expected_docu_line TYPE tline. DATA lt_expected_docu_lines TYPE tlinetab. - lo_xmlin = NEW zcl_abapgit_xml_input( iv_xml = get_xml( ) ). + CREATE OBJECT lo_xmlin TYPE zcl_abapgit_xml_input EXPORTING iv_xml = get_xml( ). mo_files->add_abap( get_source( ) ). diff --git a/src/objects/zcl_abapgit_object_iobj.clas.abap b/src/objects/zcl_abapgit_object_iobj.clas.abap index 93df661e7..ccc8acbd4 100644 --- a/src/objects/zcl_abapgit_object_iobj.clas.abap +++ b/src/objects/zcl_abapgit_object_iobj.clas.abap @@ -77,7 +77,8 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION. objnm TYPE c LENGTH 30. TYPES END OF ty_iobj. - DATA: lt_iobjname TYPE STANDARD TABLE OF ty_iobj, + TYPES temp1 TYPE STANDARD TABLE OF ty_iobj. +DATA: lt_iobjname TYPE temp1, lv_subrc TYPE sy-subrc. APPEND ms_item-obj_name TO lt_iobjname. @@ -107,11 +108,12 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: + TYPES temp2 TYPE STANDARD TABLE OF bapiret2. +DATA: lr_details TYPE REF TO data, lr_infoobj TYPE REF TO data, ls_return TYPE bapiret2, - lt_return TYPE STANDARD TABLE OF bapiret2, + lt_return TYPE temp2, lr_compounds TYPE REF TO data, lr_attributes TYPE REF TO data, lr_navigationattributes TYPE REF TO data, @@ -268,7 +270,9 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION. INTO lv_iobjnm WHERE iobjnm = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwmo.clas.abap b/src/objects/zcl_abapgit_object_iwmo.clas.abap index 4595b9ce0..077fb1d6c 100644 --- a/src/objects/zcl_abapgit_object_iwmo.clas.abap +++ b/src/objects/zcl_abapgit_object_iwmo.clas.abap @@ -47,9 +47,9 @@ CLASS zcl_abapgit_object_iwmo IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwom.clas.abap b/src/objects/zcl_abapgit_object_iwom.clas.abap index 9d8b356da..605c4a3a6 100644 --- a/src/objects/zcl_abapgit_object_iwom.clas.abap +++ b/src/objects/zcl_abapgit_object_iwom.clas.abap @@ -47,9 +47,9 @@ CLASS zcl_abapgit_object_iwom IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwpr.clas.abap b/src/objects/zcl_abapgit_object_iwpr.clas.abap index 6b983f3ad..8280c21ce 100644 --- a/src/objects/zcl_abapgit_object_iwpr.clas.abap +++ b/src/objects/zcl_abapgit_object_iwpr.clas.abap @@ -47,9 +47,9 @@ CLASS zcl_abapgit_object_iwpr IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwsg.clas.abap b/src/objects/zcl_abapgit_object_iwsg.clas.abap index 068d9c934..c7d9fa52b 100644 --- a/src/objects/zcl_abapgit_object_iwsg.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsg.clas.abap @@ -49,9 +49,9 @@ CLASS zcl_abapgit_object_iwsg IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwsv.clas.abap b/src/objects/zcl_abapgit_object_iwsv.clas.abap index 48cd5af1e..928cd8d6c 100644 --- a/src/objects/zcl_abapgit_object_iwsv.clas.abap +++ b/src/objects/zcl_abapgit_object_iwsv.clas.abap @@ -47,9 +47,9 @@ CLASS zcl_abapgit_object_iwsv IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_iwvb.clas.abap b/src/objects/zcl_abapgit_object_iwvb.clas.abap index bcf4641a6..0062cf99f 100644 --- a/src/objects/zcl_abapgit_object_iwvb.clas.abap +++ b/src/objects/zcl_abapgit_object_iwvb.clas.abap @@ -47,9 +47,9 @@ CLASS zcl_abapgit_object_iwvb IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_msag.clas.abap b/src/objects/zcl_abapgit_object_msag.clas.abap index 68a6d857a..2a196f202 100644 --- a/src/objects/zcl_abapgit_object_msag.clas.abap +++ b/src/objects/zcl_abapgit_object_msag.clas.abap @@ -110,11 +110,13 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. METHOD deserialize_texts. - DATA: lv_msg_id TYPE rglif-message_id, + TYPES temp1 TYPE TABLE OF t100t. +TYPES temp2 TYPE TABLE OF t100u. +DATA: lv_msg_id TYPE rglif-message_id, ls_t100 TYPE t100, - lt_t100t TYPE TABLE OF t100t, + lt_t100t TYPE temp1, lt_t100_texts TYPE ty_t100_texts, - lt_t100u TYPE TABLE OF t100u. + lt_t100u TYPE temp2. FIELD-SYMBOLS: TYPE ty_t100_text. @@ -171,9 +173,9 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. METHOD serialize_longtexts_msag. - DATA: lv_doku_object_name TYPE dokhl-object, - lt_doku_object_names TYPE STANDARD TABLE OF dokhl-object - WITH NON-UNIQUE DEFAULT KEY, + TYPES temp3 TYPE STANDARD TABLE OF dokhl-object WITH NON-UNIQUE DEFAULT KEY. +DATA: lv_doku_object_name TYPE dokhl-object, + lt_doku_object_names TYPE temp3, lt_dokil TYPE zif_abapgit_definitions=>ty_dokil_tt, ls_dokil LIKE LINE OF lt_dokil, lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter. @@ -223,10 +225,12 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. METHOD serialize_texts. - DATA: lv_msg_id TYPE rglif-message_id, + TYPES temp4 TYPE TABLE OF t100t. +TYPES temp3 TYPE TABLE OF langu. +DATA: lv_msg_id TYPE rglif-message_id, lt_t100_texts TYPE ty_t100_texts, - lt_t100t TYPE TABLE OF t100t, - lt_i18n_langs TYPE TABLE OF langu, + lt_t100t TYPE temp4, + lt_i18n_langs TYPE temp3, lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter. lv_msg_id = ms_item-obj_name. @@ -341,11 +345,13 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. * fm RPY_MESSAGE_ID_INSERT almost works, but not in older versions - DATA: ls_t100a TYPE t100a, + TYPES temp6 TYPE TABLE OF t100. +TYPES temp4 TYPE TABLE OF t100u. +DATA: ls_t100a TYPE t100a, ls_t100t TYPE t100t, ls_t100u TYPE t100u, - lt_t100 TYPE TABLE OF t100, - lt_before TYPE TABLE OF t100u. + lt_t100 TYPE temp6, + lt_before TYPE temp4. FIELD-SYMBOLS: LIKE LINE OF lt_t100. @@ -420,7 +426,9 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION. SELECT SINGLE arbgb FROM t100a INTO lv_arbgb WHERE arbgb = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_nrob.clas.abap b/src/objects/zcl_abapgit_object_nrob.clas.abap index 448cb8a08..c17c3121d 100644 --- a/src/objects/zcl_abapgit_object_nrob.clas.abap +++ b/src/objects/zcl_abapgit_object_nrob.clas.abap @@ -17,10 +17,12 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION. METHOD delete_intervals. - DATA: lv_error TYPE c LENGTH 1, + TYPES temp1 TYPE STANDARD TABLE OF inriv WITH DEFAULT KEY. +TYPES temp2 TYPE STANDARD TABLE OF inriv WITH DEFAULT KEY. +DATA: lv_error TYPE c LENGTH 1, ls_error TYPE inrer, - lt_list TYPE STANDARD TABLE OF inriv WITH DEFAULT KEY, - lt_error_iv TYPE STANDARD TABLE OF inriv WITH DEFAULT KEY. + lt_list TYPE temp1, + lt_error_iv TYPE temp2. FIELD-SYMBOLS: LIKE LINE OF lt_list. @@ -146,7 +148,8 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lt_errors TYPE TABLE OF inoer, + TYPES temp3 TYPE TABLE OF inoer. +DATA: lt_errors TYPE temp3, ls_attributes TYPE tnro, ls_text TYPE tnrot. @@ -243,7 +246,9 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION. SELECT SINGLE object FROM tnro INTO lv_object WHERE object = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -280,8 +285,9 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp4 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp4. ls_bcdata-program = 'SAPMSNRO'. ls_bcdata-dynpro = '0150'. diff --git a/src/objects/zcl_abapgit_object_nspc.clas.abap b/src/objects/zcl_abapgit_object_nspc.clas.abap index 57dfb0f80..b13239cd5 100644 --- a/src/objects/zcl_abapgit_object_nspc.clas.abap +++ b/src/objects/zcl_abapgit_object_nspc.clas.abap @@ -135,10 +135,12 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. METHOD deserialize_texts. - DATA: + TYPES temp1 TYPE TABLE OF langu. +TYPES temp2 TYPE TABLE OF cvers_ref. +DATA: ls_trnspacett TYPE trnspacett, - lt_i18n_langs TYPE TABLE OF langu, - lt_cvers_refs TYPE TABLE OF cvers_ref, + lt_i18n_langs TYPE temp1, + lt_cvers_refs TYPE temp2, ls_cvers_ref TYPE cvers_ref, lt_nspc_texts TYPE ty_nspc_texts. @@ -213,11 +215,13 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. METHOD serialize_texts. - DATA: + TYPES temp3 TYPE TABLE OF cvers_ref. +TYPES temp4 TYPE TABLE OF langu. +DATA: ls_trnspacett TYPE trnspacett, lt_nspc_texts TYPE ty_nspc_texts, - lt_cvers_refs TYPE TABLE OF cvers_ref, - lt_i18n_langs TYPE TABLE OF langu. + lt_cvers_refs TYPE temp3, + lt_i18n_langs TYPE temp4. FIELD-SYMBOLS: LIKE LINE OF lt_i18n_langs, @@ -371,7 +375,9 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. namespace_not_valid = 1 OTHERS = 2. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -430,7 +436,9 @@ CLASS zcl_abapgit_object_nspc IMPLEMENTATION. view_not_found = 13 OTHERS = 14. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_exit = temp2. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_oa2p.clas.abap b/src/objects/zcl_abapgit_object_oa2p.clas.abap index 12904d48e..2213c095f 100644 --- a/src/objects/zcl_abapgit_object_oa2p.clas.abap +++ b/src/objects/zcl_abapgit_object_oa2p.clas.abap @@ -194,9 +194,10 @@ CLASS zcl_abapgit_object_oa2p IMPLEMENTATION. METHOD zif_abapgit_object~is_locked. - DATA: lv_profile_name TYPE eqegraarg, + TYPES temp1 TYPE STANDARD TABLE OF seqg3. +DATA: lv_profile_name TYPE eqegraarg, lv_lock_number TYPE i, - lt_locks TYPE STANDARD TABLE OF seqg3. + lt_locks TYPE temp1. lv_profile_name = mv_profile. @@ -211,7 +212,9 @@ CLASS zcl_abapgit_object_oa2p IMPLEMENTATION. enq = lt_locks. " Number of chosen lock entries - rv_is_locked = xsdbool( lv_lock_number > 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( lv_lock_number > 0 ). + rv_is_locked = temp2. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_odso.clas.abap b/src/objects/zcl_abapgit_object_odso.clas.abap index e1f938029..5a75dd20a 100644 --- a/src/objects/zcl_abapgit_object_odso.clas.abap +++ b/src/objects/zcl_abapgit_object_odso.clas.abap @@ -76,10 +76,11 @@ CLASS zcl_abapgit_object_odso IMPLEMENTATION. METHOD zif_abapgit_object~delete. - DATA: lv_odsonam TYPE c LENGTH 30, + TYPES temp1 TYPE STANDARD TABLE OF bal_s_msg. +DATA: lv_odsonam TYPE c LENGTH 30, lv_objname TYPE sobj_name, lo_collection TYPE REF TO object, - lt_msg TYPE STANDARD TABLE OF bal_s_msg, + lt_msg TYPE temp1, ls_msg TYPE bal_s_msg. TRY. @@ -119,13 +120,14 @@ CLASS zcl_abapgit_object_odso IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lv_dsonam TYPE c LENGTH 30, + TYPES temp2 TYPE STANDARD TABLE OF bapiret2. +DATA: lv_dsonam TYPE c LENGTH 30, lr_details TYPE REF TO data, lr_infoobjects TYPE REF TO data, lr_navigation TYPE REF TO data, lr_indexes TYPE REF TO data, lr_index_iobj TYPE REF TO data, - lt_return TYPE STANDARD TABLE OF bapiret2, + lt_return TYPE temp2, ls_return TYPE bapiret2. FIELD-SYMBOLS: @@ -232,7 +234,9 @@ CLASS zcl_abapgit_object_odso IMPLEMENTATION. INTO lv_iobjnm WHERE odsobject = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_otgr.clas.abap b/src/objects/zcl_abapgit_object_otgr.clas.abap index a62107248..b68b028c2 100644 --- a/src/objects/zcl_abapgit_object_otgr.clas.abap +++ b/src/objects/zcl_abapgit_object_otgr.clas.abap @@ -47,9 +47,9 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION. lv_name = ms_item-obj_name. TRY. - ro_otgr = NEW #( im_name = lv_name - im_new = lv_new - im_activation_state = lv_state ). + CREATE OBJECT ro_otgr EXPORTING im_name = lv_name + im_new = lv_new + im_activation_state = lv_state. CATCH cx_pak_invalid_data cx_pak_not_authorized cx_pak_invalid_state diff --git a/src/objects/zcl_abapgit_object_para.clas.abap b/src/objects/zcl_abapgit_object_para.clas.abap index 5ca4632db..e7afd3ad1 100644 --- a/src/objects/zcl_abapgit_object_para.clas.abap +++ b/src/objects/zcl_abapgit_object_para.clas.abap @@ -156,7 +156,9 @@ CLASS zcl_abapgit_object_para IMPLEMENTATION. SELECT SINGLE paramid FROM tpara INTO lv_paramid WHERE paramid = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap b/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap index a4cd0faca..e8ccc60e4 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.locals_imp.abap @@ -73,7 +73,7 @@ CLASS lcl_task_definition IMPLEMENTATION. DATA lo_taskdef TYPE REF TO lcl_task_definition. - lo_taskdef = NEW #( ). + CREATE OBJECT lo_taskdef. lo_taskdef->mv_objid = iv_objid. lo_taskdef->supply_instance( ). @@ -185,7 +185,7 @@ CLASS lcl_task_definition IMPLEMENTATION. METHOD create. DATA lo_task TYPE REF TO lcl_task_definition. - lo_task = NEW lcl_task_definition( ). + CREATE OBJECT lo_task TYPE lcl_task_definition. lo_task->mv_objid = iv_objid. lo_task->ms_task = is_task_data. ri_result = lo_task. diff --git a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap index 7a2b34963..6cfb7506b 100644 --- a/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdts.clas.testclasses.abap @@ -61,8 +61,8 @@ CLASS ltc_smoke_test IMPLEMENTATION. ls_item-obj_name = '99999999'. TRY. - mo_cut = NEW zcl_abapgit_object_pdts( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT mo_cut TYPE zcl_abapgit_object_pdts EXPORTING is_item = ls_item + iv_language = sy-langu. CATCH zcx_abapgit_exception. cl_abap_unit_assert=>fail( ). ENDTRY. diff --git a/src/objects/zcl_abapgit_object_pdxx_super.clas.abap b/src/objects/zcl_abapgit_object_pdxx_super.clas.abap index c3bef42eb..21809f7be 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.abap @@ -105,7 +105,9 @@ CLASS zcl_abapgit_object_pdxx_super IMPLEMENTATION. not_found = 1 OTHERS = 2. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap index bc318c3e3..7260fb827 100644 --- a/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_pdxx_super.clas.testclasses.abap @@ -46,8 +46,8 @@ CLASS ltc_lock IMPLEMENTATION. ls_item-obj_type = 'PDXX'. ls_item-obj_name = 'XX' && lc_dummy. - lo_cut = NEW lth_object_pdxx( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT lo_cut TYPE lth_object_pdxx EXPORTING is_item = ls_item + iv_language = sy-langu. cl_abap_unit_assert=>assert_equals( act = lo_cut->is_locked( ) exp = abap_true ). @@ -103,8 +103,8 @@ CLASS ltc_general_tests IMPLEMENTATION. ls_item-obj_type = 'PDZZ'. ls_item-obj_name = 'ZZ99999999'. - lo_cut = NEW lth_object_pdxx( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT lo_cut TYPE lth_object_pdxx EXPORTING is_item = ls_item + iv_language = sy-langu. cl_abap_unit_assert=>assert_equals( act = lo_cut->get_objkey( )-otype exp = 'ZZ' ). diff --git a/src/objects/zcl_abapgit_object_pers.clas.abap b/src/objects/zcl_abapgit_object_pers.clas.abap index 3d4c3fd0d..3975982ca 100644 --- a/src/objects/zcl_abapgit_object_pers.clas.abap +++ b/src/objects/zcl_abapgit_object_pers.clas.abap @@ -151,7 +151,9 @@ CLASS zcl_abapgit_object_pers IMPLEMENTATION. pers_key_does_not_exist = 1 OTHERS = 2 ). - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -191,8 +193,9 @@ CLASS zcl_abapgit_object_pers IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp1 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp1. ls_bcdata-program = 'SAPLSPERS_REG_DIALOG'. ls_bcdata-dynpro = '0100'. diff --git a/src/objects/zcl_abapgit_object_pinf.clas.abap b/src/objects/zcl_abapgit_object_pinf.clas.abap index 5902f3442..76e188d70 100644 --- a/src/objects/zcl_abapgit_object_pinf.clas.abap +++ b/src/objects/zcl_abapgit_object_pinf.clas.abap @@ -61,7 +61,7 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. METHOD create_facade. - ri_facade = NEW lcl_package_interface_facade( ii_interface = ii_interface ). + CREATE OBJECT ri_facade TYPE lcl_package_interface_facade EXPORTING ii_interface = ii_interface. ENDMETHOD. @@ -295,12 +295,16 @@ CLASS zcl_abapgit_object_pinf IMPLEMENTATION. SELECT SINGLE pack_name FROM intf INTO lv_pack_name WHERE intf_name = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. IF rv_bool = abap_true. SELECT SINGLE mainpack FROM tdevc INTO lv_main_pack WHERE devclass = lv_pack_name. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_bool = temp2. ENDIF. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_prog.clas.abap b/src/objects/zcl_abapgit_object_prog.clas.abap index 1d3b14d42..44b530f5f 100644 --- a/src/objects/zcl_abapgit_object_prog.clas.abap +++ b/src/objects/zcl_abapgit_object_prog.clas.abap @@ -277,7 +277,9 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION. SELECT SINGLE progname FROM reposrc INTO lv_progname WHERE progname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_scp1.clas.abap b/src/objects/zcl_abapgit_object_scp1.clas.abap index 79541671b..6e4e19960 100644 --- a/src/objects/zcl_abapgit_object_scp1.clas.abap +++ b/src/objects/zcl_abapgit_object_scp1.clas.abap @@ -389,7 +389,9 @@ CLASS zcl_abapgit_object_scp1 IMPLEMENTATION. profid = lv_profid IMPORTING rc = lv_rc. - rv_bool = xsdbool( lv_rc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_rc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_scvi.clas.abap b/src/objects/zcl_abapgit_object_scvi.clas.abap index 4ef5874b0..6c37cff86 100644 --- a/src/objects/zcl_abapgit_object_scvi.clas.abap +++ b/src/objects/zcl_abapgit_object_scvi.clas.abap @@ -117,7 +117,9 @@ CLASS zcl_abapgit_object_scvi IMPLEMENTATION. EXCEPTIONS no_variant = 1 OTHERS = 2. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sfpf.clas.abap b/src/objects/zcl_abapgit_object_sfpf.clas.abap index ba6035323..b548212dc 100644 --- a/src/objects/zcl_abapgit_object_sfpf.clas.abap +++ b/src/objects/zcl_abapgit_object_sfpf.clas.abap @@ -47,7 +47,8 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION. * it is better to collect all attributes in a cache table * instead of implementing of a nested loop using get_next(). - DATA: + TYPES temp1 LIKE SORTED TABLE OF ls_attr_href WITH NON-UNIQUE KEY val. +DATA: li_iterator TYPE REF TO if_ixml_node_iterator, li_elem TYPE REF TO if_ixml_element, lv_new TYPE string, @@ -57,7 +58,7 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION. val TYPE string, attr TYPE REF TO if_ixml_attribute, END OF ls_attr_href, - lt_attr_href LIKE SORTED TABLE OF ls_attr_href WITH NON-UNIQUE KEY val. + lt_attr_href TYPE temp1. FIELD-SYMBOLS LIKE LINE OF lt_attr_href. @@ -286,7 +287,9 @@ CLASS zcl_abapgit_object_sfpf IMPLEMENTATION. SELECT SINGLE name FROM fplayout INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sfpi.clas.abap b/src/objects/zcl_abapgit_object_sfpi.clas.abap index a6e44daf0..064892988 100644 --- a/src/objects/zcl_abapgit_object_sfpi.clas.abap +++ b/src/objects/zcl_abapgit_object_sfpi.clas.abap @@ -129,7 +129,9 @@ CLASS zcl_abapgit_object_sfpi IMPLEMENTATION. SELECT SINGLE name FROM fpinterface INTO lv_name WHERE name = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_shi3.clas.abap b/src/objects/zcl_abapgit_object_shi3.clas.abap index 0003efdb9..c4570e7d6 100644 --- a/src/objects/zcl_abapgit_object_shi3.clas.abap +++ b/src/objects/zcl_abapgit_object_shi3.clas.abap @@ -112,13 +112,16 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. METHOD insert_transport. - DATA: + TYPES temp1 TYPE TABLE OF e071. +TYPES temp2 TYPE TABLE OF e071k. +TYPES temp3 TYPE TABLE OF ko200. +DATA: ls_msg TYPE hier_mess, ls_object TYPE e071, - lt_objects TYPE TABLE OF e071, - lt_keys TYPE TABLE OF e071k, + lt_objects TYPE temp1, + lt_keys TYPE temp2, ls_ko200 TYPE ko200, - lt_ko200 TYPE TABLE OF ko200. + lt_ko200 TYPE temp3. " This function shows a popup so get objects and keys and insert " them into transport below @@ -159,7 +162,8 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. METHOD is_used. - DATA: lt_used_in_structures TYPE STANDARD TABLE OF ttree WITH DEFAULT KEY. + TYPES temp4 TYPE STANDARD TABLE OF ttree WITH DEFAULT KEY. +DATA: lt_used_in_structures TYPE temp4. CALL FUNCTION 'STREE_GET_STRUCTURE_USAGE' EXPORTING @@ -203,7 +207,8 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. METHOD jump_se43. - DATA: lt_bdcdata TYPE TABLE OF bdcdata. + TYPES temp5 TYPE TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp5. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. @@ -267,13 +272,17 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: ls_msg TYPE hier_mess, + TYPES temp6 TYPE TABLE OF ttreet. +TYPES temp4 TYPE TABLE OF hier_iface. +TYPES temp5 TYPE TABLE OF hier_texts. +TYPES temp1 TYPE TABLE OF hier_ref. +DATA: ls_msg TYPE hier_mess, ls_head TYPE ttree, ls_ttree TYPE ttree, - lt_titles TYPE TABLE OF ttreet, - lt_nodes TYPE TABLE OF hier_iface, - lt_texts TYPE TABLE OF hier_texts, - lt_refs TYPE TABLE OF hier_ref. + lt_titles TYPE temp6, + lt_nodes TYPE temp4, + lt_texts TYPE temp5, + lt_refs TYPE temp1. io_xml->read( EXPORTING iv_name = 'TREE_HEAD' CHANGING cg_data = ls_head ). @@ -364,7 +373,9 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. structure_header = ls_header structure_tadir = ls_tadir. - rv_bool = xsdbool( ls_header-id IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ls_header-id IS NOT INITIAL ). + rv_bool = temp1. ENDMETHOD. @@ -433,12 +444,16 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: ls_msg TYPE hier_mess, + TYPES temp10 TYPE TABLE OF ttreet. +TYPES temp8 TYPE TABLE OF hier_iface. +TYPES temp9 TYPE TABLE OF hier_texts. +TYPES temp2 TYPE TABLE OF hier_ref. +DATA: ls_msg TYPE hier_mess, ls_head TYPE ttree, - lt_titles TYPE TABLE OF ttreet, - lt_nodes TYPE TABLE OF hier_iface, - lt_texts TYPE TABLE OF hier_texts, - lt_refs TYPE TABLE OF hier_ref, + lt_titles TYPE temp10, + lt_nodes TYPE temp8, + lt_texts TYPE temp9, + lt_refs TYPE temp2, lv_all_languages TYPE abap_bool. diff --git a/src/objects/zcl_abapgit_object_shi5.clas.abap b/src/objects/zcl_abapgit_object_shi5.clas.abap index ca027d2c4..9b1072f85 100644 --- a/src/objects/zcl_abapgit_object_shi5.clas.abap +++ b/src/objects/zcl_abapgit_object_shi5.clas.abap @@ -51,11 +51,12 @@ CLASS zcl_abapgit_object_shi5 IMPLEMENTATION. METHOD zif_abapgit_object~delete. - DATA: + TYPES temp1 TYPE TABLE OF treenamesp. +DATA: ls_msg TYPE hier_mess, lv_found_users TYPE hier_yesno, ls_check_extensions TYPE treenamesp, - lt_check_extensions TYPE TABLE OF treenamesp, + lt_check_extensions TYPE temp1, lv_obj_name TYPE ko200-obj_name. " STREE_EXTENSION_DELETE shows a popup so do the same here @@ -174,7 +175,9 @@ CLASS zcl_abapgit_object_shi5 IMPLEMENTATION. IMPORTING extension_header = ls_extension_header. - rv_bool = xsdbool( ls_extension_header IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ls_extension_header IS NOT INITIAL ). + rv_bool = temp1. ENDMETHOD. @@ -210,7 +213,8 @@ CLASS zcl_abapgit_object_shi5 IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_extension TYPE STANDARD TABLE OF ttree_ext. + TYPES temp2 TYPE STANDARD TABLE OF ttree_ext. +DATA: lt_extension TYPE temp2. FIELD-SYMBOLS: LIKE LINE OF lt_extension. INSERT INITIAL LINE INTO TABLE lt_extension ASSIGNING . diff --git a/src/objects/zcl_abapgit_object_shlp.clas.abap b/src/objects/zcl_abapgit_object_shlp.clas.abap index 1ab9808dd..9bd13c829 100644 --- a/src/objects/zcl_abapgit_object_shlp.clas.abap +++ b/src/objects/zcl_abapgit_object_shlp.clas.abap @@ -106,12 +106,15 @@ CLASS zcl_abapgit_object_shlp IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lv_name TYPE ddobjname, + TYPES temp1 TYPE TABLE OF dd31v. +TYPES temp2 TYPE TABLE OF dd32p. +TYPES temp3 TYPE TABLE OF dd33v. +DATA: lv_name TYPE ddobjname, lv_done TYPE abap_bool, ls_dd30v TYPE dd30v, - lt_dd31v TYPE TABLE OF dd31v, - lt_dd32p TYPE TABLE OF dd32p, - lt_dd33v TYPE TABLE OF dd33v. + lt_dd31v TYPE temp1, + lt_dd32p TYPE temp2, + lt_dd33v TYPE temp3. io_xml->read( EXPORTING iv_name = 'DD30V' CHANGING cg_data = ls_dd30v ). @@ -169,7 +172,9 @@ CLASS zcl_abapgit_object_shlp IMPLEMENTATION. SELECT SINGLE shlpname FROM dd30l INTO lv_shlpname WHERE shlpname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -222,12 +227,15 @@ CLASS zcl_abapgit_object_shlp IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lv_name TYPE ddobjname, + TYPES temp4 TYPE TABLE OF dd31v. +TYPES temp5 TYPE TABLE OF dd32p. +TYPES temp6 TYPE TABLE OF dd33v. +DATA: lv_name TYPE ddobjname, lv_state TYPE ddgotstate, ls_dd30v TYPE dd30v, - lt_dd31v TYPE TABLE OF dd31v, - lt_dd32p TYPE TABLE OF dd32p, - lt_dd33v TYPE TABLE OF dd33v. + lt_dd31v TYPE temp4, + lt_dd32p TYPE temp5, + lt_dd33v TYPE temp6. FIELD-SYMBOLS: LIKE LINE OF lt_dd32p. diff --git a/src/objects/zcl_abapgit_object_shma.clas.abap b/src/objects/zcl_abapgit_object_shma.clas.abap index 843b3968d..015fcba24 100644 --- a/src/objects/zcl_abapgit_object_shma.clas.abap +++ b/src/objects/zcl_abapgit_object_shma.clas.abap @@ -167,7 +167,9 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION. INTO lv_area_name WHERE area_name = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -206,8 +208,9 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp1 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp1. ls_bcdata-program = 'SAPLSHMA'. ls_bcdata-dynpro = '0100'. diff --git a/src/objects/zcl_abapgit_object_sicf.clas.abap b/src/objects/zcl_abapgit_object_sicf.clas.abap index 9757c4481..a70d8fd5f 100644 --- a/src/objects/zcl_abapgit_object_sicf.clas.abap +++ b/src/objects/zcl_abapgit_object_sicf.clas.abap @@ -95,8 +95,9 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. METHOD change_sicf. - DATA: lt_icfhndlist TYPE icfhndlist, - lt_existing TYPE TABLE OF icfhandler, + TYPES temp1 TYPE TABLE OF icfhandler. +DATA: lt_icfhndlist TYPE icfhndlist, + lt_existing TYPE temp1, ls_icfserdesc TYPE icfserdesc. FIELD-SYMBOLS: LIKE LINE OF lt_existing. @@ -502,12 +503,13 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: ls_icfservice TYPE icfservice, + TYPES temp2 TYPE TABLE OF icfhandler. +DATA: ls_icfservice TYPE icfservice, ls_read TYPE icfservice, ls_icfdocu TYPE icfdocu, lv_url TYPE string, lv_exists TYPE abap_bool, - lt_icfhandler TYPE TABLE OF icfhandler. + lt_icfhandler TYPE temp2. io_xml->read( EXPORTING iv_name = 'URL' CHANGING cg_data = lv_url ). @@ -549,7 +551,9 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. SELECT SINGLE icfaltnme FROM icfservice INTO ls_key-icf_name WHERE icf_name = ms_item-obj_name(15) AND icfparguid = ms_item-obj_name+15. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -594,8 +598,9 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp3 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp3. ls_bcdata-program = 'RSICFTREE'. ls_bcdata-dynpro = '1000'. @@ -663,10 +668,11 @@ CLASS zcl_abapgit_object_sicf IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: ls_icfservice TYPE icfservice, + TYPES temp4 TYPE TABLE OF icfhandler. +DATA: ls_icfservice TYPE icfservice, ls_icfdocu TYPE icfdocu, lv_url TYPE string, - lt_icfhandler TYPE TABLE OF icfhandler. + lt_icfhandler TYPE temp4. read( IMPORTING es_icfservice = ls_icfservice es_icfdocu = ls_icfdocu diff --git a/src/objects/zcl_abapgit_object_smim.clas.abap b/src/objects/zcl_abapgit_object_smim.clas.abap index 15ec98937..4ca521dc6 100644 --- a/src/objects/zcl_abapgit_object_smim.clas.abap +++ b/src/objects/zcl_abapgit_object_smim.clas.abap @@ -67,8 +67,9 @@ CLASS zcl_abapgit_object_smim IMPLEMENTATION. METHOD get_filename. - DATA: lv_lines TYPE i, - lt_strings TYPE TABLE OF string. + TYPES temp1 TYPE TABLE OF string. +DATA: lv_lines TYPE i, + lt_strings TYPE temp1. SPLIT iv_url AT '/' INTO TABLE lt_strings. @@ -259,7 +260,9 @@ CLASS zcl_abapgit_object_smim IMPLEMENTATION. SELECT SINGLE loio_id FROM smimloio INTO lv_loio WHERE loio_id = lv_loio. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sobj.clas.abap b/src/objects/zcl_abapgit_object_sobj.clas.abap index bff9b8ee2..9a93b9731 100644 --- a/src/objects/zcl_abapgit_object_sobj.clas.abap +++ b/src/objects/zcl_abapgit_object_sobj.clas.abap @@ -85,9 +85,9 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. @@ -98,7 +98,9 @@ CLASS zcl_abapgit_object_sobj IMPLEMENTATION. METHOD is_locked. - rv_is_locked = xsdbool( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( is_objtype_locked( ) = abap_true OR is_program_locked( ) = abap_true ). + rv_is_locked = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_splo.clas.abap b/src/objects/zcl_abapgit_object_splo.clas.abap index 2cfebe50d..3c805f6b4 100644 --- a/src/objects/zcl_abapgit_object_splo.clas.abap +++ b/src/objects/zcl_abapgit_object_splo.clas.abap @@ -69,7 +69,9 @@ CLASS zcl_abapgit_object_splo IMPLEMENTATION. SELECT SINGLE papart INTO lv_papart FROM tsp1d WHERE papart = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sppf.clas.abap b/src/objects/zcl_abapgit_object_sppf.clas.abap index 88e6749f2..11c105b1b 100644 --- a/src/objects/zcl_abapgit_object_sppf.clas.abap +++ b/src/objects/zcl_abapgit_object_sppf.clas.abap @@ -23,8 +23,8 @@ CLASS zcl_abapgit_object_sppf IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sprx.clas.abap b/src/objects/zcl_abapgit_object_sprx.clas.abap index ae81e67bf..2604bc6ac 100644 --- a/src/objects/zcl_abapgit_object_sprx.clas.abap +++ b/src/objects/zcl_abapgit_object_sprx.clas.abap @@ -321,7 +321,9 @@ CLASS zcl_abapgit_object_sprx IMPLEMENTATION. status = lv_status status_text = lv_status_text ). - rv_bool = xsdbool( lv_status = if_proxy=>c_state_active ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_status = if_proxy=>c_state_active ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sqsc.clas.abap b/src/objects/zcl_abapgit_object_sqsc.clas.abap index 1d277aef3..2e3281c89 100644 --- a/src/objects/zcl_abapgit_object_sqsc.clas.abap +++ b/src/objects/zcl_abapgit_object_sqsc.clas.abap @@ -156,10 +156,10 @@ CLASS zcl_abapgit_object_sqsc IMPLEMENTATION. IF zcl_abapgit_objects=>exists( ls_item ) = abap_true. - lo_interface = NEW #( is_item = ls_item - iv_language = mv_language - io_files = mo_files - io_i18n_params = mo_i18n_params ). + CREATE OBJECT lo_interface EXPORTING is_item = ls_item + iv_language = mv_language + io_files = mo_files + io_i18n_params = mo_i18n_params. lo_interface->zif_abapgit_object~delete( iv_package = iv_package iv_transport = iv_transport ). diff --git a/src/objects/zcl_abapgit_object_srvb.clas.abap b/src/objects/zcl_abapgit_object_srvb.clas.abap index 459a05f81..2fdb35be1 100644 --- a/src/objects/zcl_abapgit_object_srvb.clas.abap +++ b/src/objects/zcl_abapgit_object_srvb.clas.abap @@ -423,7 +423,9 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION. p_object_data = lo_object_data ). ENDIF. - rv_bool = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = temp1. CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_srvd.clas.abap b/src/objects/zcl_abapgit_object_srvd.clas.abap index 53057ceef..493dd41f6 100644 --- a/src/objects/zcl_abapgit_object_srvd.clas.abap +++ b/src/objects/zcl_abapgit_object_srvd.clas.abap @@ -467,7 +467,9 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION. data_selection = 'P' IMPORTING eo_object_data = lo_object_data. - rv_bool = xsdbool( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lo_object_data IS NOT INITIAL AND lo_object_data->get_object_key( ) IS NOT INITIAL ). + rv_bool = temp1. CATCH cx_root. rv_bool = abap_false. ENDTRY. diff --git a/src/objects/zcl_abapgit_object_ssfo.clas.abap b/src/objects/zcl_abapgit_object_ssfo.clas.abap index b2c175717..d9560731c 100644 --- a/src/objects/zcl_abapgit_object_ssfo.clas.abap +++ b/src/objects/zcl_abapgit_object_ssfo.clas.abap @@ -200,7 +200,8 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. METHOD sort_texts. - DATA: li_node TYPE REF TO if_ixml_node, + TYPES temp1 TYPE STANDARD TABLE OF stxfobjt. +DATA: li_node TYPE REF TO if_ixml_node, li_item TYPE REF TO if_ixml_node, li_field TYPE REF TO if_ixml_node, li_item_list TYPE REF TO if_ixml_node_list, @@ -209,7 +210,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. lv_index TYPE i, lv_field TYPE fieldname, ls_item TYPE stxfobjt, - lt_items TYPE STANDARD TABLE OF stxfobjt. + lt_items TYPE temp1. FIELD-SYMBOLS TYPE any. @@ -313,7 +314,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. lv_text TYPE string, lv_within_code_section TYPE abap_bool. - lo_sf = NEW #( ). + CREATE OBJECT lo_sf. * set "created by" and "changed by" to current user li_iterator = io_xml->get_raw( )->get_root_element( )->create_iterator( ). @@ -372,7 +373,9 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. SELECT SINGLE formname FROM stxfadm INTO lv_formname WHERE formname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -410,7 +413,9 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. IMPORTING o_inactive = lv_inactive. - rv_active = xsdbool( lv_inactive = abap_false ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( lv_inactive = abap_false ). + rv_active = temp2. ENDMETHOD. @@ -425,7 +430,8 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE TABLE OF bdcdata, + TYPES temp2 TYPE TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp2, lv_formtype TYPE stxfadm-formtype. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. @@ -503,7 +509,7 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. li_ixml = cl_ixml=>create( ). li_xml_doc = li_ixml->create_document( ). - lo_sf = NEW #( ). + CREATE OBJECT lo_sf. lv_formname = ms_item-obj_name. " convert type TRY. lo_sf->load( im_formname = lv_formname diff --git a/src/objects/zcl_abapgit_object_ssst.clas.abap b/src/objects/zcl_abapgit_object_ssst.clas.abap index d8bde82fc..0618cbc2a 100644 --- a/src/objects/zcl_abapgit_object_ssst.clas.abap +++ b/src/objects/zcl_abapgit_object_ssst.clas.abap @@ -72,11 +72,14 @@ CLASS zcl_abapgit_object_ssst IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. * see fm SSF_UPLOAD_STYLE - DATA: ls_header TYPE ssfcats, + TYPES temp1 TYPE TABLE OF ssfparas. +TYPES temp2 TYPE TABLE OF ssfstrings. +TYPES temp3 TYPE TABLE OF stxstab. +DATA: ls_header TYPE ssfcats, ls_new_header TYPE ssfcats, - lt_paragraphs TYPE TABLE OF ssfparas, - lt_strings TYPE TABLE OF ssfstrings, - lt_tabstops TYPE TABLE OF stxstab. + lt_paragraphs TYPE temp1, + lt_strings TYPE temp2, + lt_tabstops TYPE temp3. FIELD-SYMBOLS: TYPE spras. @@ -148,7 +151,9 @@ CLASS zcl_abapgit_object_ssst IMPLEMENTATION. WHERE active = c_style_active AND stylename = ms_item-obj_name AND vari = ''. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -186,8 +191,9 @@ CLASS zcl_abapgit_object_ssst IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp4 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp4. ls_bcdata-program = 'SAPMSSFS'. ls_bcdata-dynpro = '0100'. @@ -226,11 +232,14 @@ CLASS zcl_abapgit_object_ssst IMPLEMENTATION. METHOD zif_abapgit_object~serialize. * see fm SSF_DOWNLOAD_STYLE - DATA: lv_style_name TYPE tdssname, + TYPES temp5 TYPE TABLE OF ssfparas. +TYPES temp4 TYPE TABLE OF ssfstrings. +TYPES temp6 TYPE TABLE OF stxstab. +DATA: lv_style_name TYPE tdssname, ls_header TYPE ssfcats, - lt_paragraphs TYPE TABLE OF ssfparas, - lt_strings TYPE TABLE OF ssfstrings, - lt_tabstops TYPE TABLE OF stxstab. + lt_paragraphs TYPE temp5, + lt_strings TYPE temp4, + lt_tabstops TYPE temp6. lv_style_name = ms_item-obj_name. diff --git a/src/objects/zcl_abapgit_object_styl.clas.abap b/src/objects/zcl_abapgit_object_styl.clas.abap index 99c7af6a6..3474e649f 100644 --- a/src/objects/zcl_abapgit_object_styl.clas.abap +++ b/src/objects/zcl_abapgit_object_styl.clas.abap @@ -100,7 +100,9 @@ CLASS zcl_abapgit_object_styl IMPLEMENTATION. strings = ls_style-strings tabs = ls_style-tabs. - rv_bool = xsdbool( lv_found = abap_true ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_found = abap_true ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sucu.clas.abap b/src/objects/zcl_abapgit_object_sucu.clas.abap index 5e21fab35..4d7d28e91 100644 --- a/src/objects/zcl_abapgit_object_sucu.clas.abap +++ b/src/objects/zcl_abapgit_object_sucu.clas.abap @@ -23,8 +23,8 @@ CLASS zcl_abapgit_object_sucu IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_susc.clas.abap b/src/objects/zcl_abapgit_object_susc.clas.abap index fc54e138b..d71013c7d 100644 --- a/src/objects/zcl_abapgit_object_susc.clas.abap +++ b/src/objects/zcl_abapgit_object_susc.clas.abap @@ -179,7 +179,9 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION. SELECT SINGLE oclss FROM tobc INTO lv_oclss WHERE oclss = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sush.clas.abap b/src/objects/zcl_abapgit_object_sush.clas.abap index 27c50e5bc..1023f912f 100644 --- a/src/objects/zcl_abapgit_object_sush.clas.abap +++ b/src/objects/zcl_abapgit_object_sush.clas.abap @@ -245,7 +245,9 @@ CLASS zcl_abapgit_object_sush IMPLEMENTATION. SELECT SINGLE * FROM usobhash INTO ls_usobhash "#EC CI_ALL_FIELDS_NEEDED WHERE name = ms_item-obj_name. "#EC CI_SGLSELECT - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_suso.clas.abap b/src/objects/zcl_abapgit_object_suso.clas.abap index 1cc41d1ff..8e8915d99 100644 --- a/src/objects/zcl_abapgit_object_suso.clas.abap +++ b/src/objects/zcl_abapgit_object_suso.clas.abap @@ -164,9 +164,11 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION. METHOD regenerate_sap_all. - DATA: ls_e071 TYPE e071, - lt_e071 TYPE STANDARD TABLE OF e071, - lt_e071k TYPE STANDARD TABLE OF e071k. + TYPES temp1 TYPE STANDARD TABLE OF e071. +TYPES temp2 TYPE STANDARD TABLE OF e071k. +DATA: ls_e071 TYPE e071, + lt_e071 TYPE temp1, + lt_e071k TYPE temp2. ls_e071-pgmid = 'R3TR'. ls_e071-object = ms_item-obj_type. @@ -226,13 +228,16 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. * see function group SUSA - DATA: lv_objectname TYPE trobj_name, + TYPES temp3 TYPE TABLE OF tactz. +TYPES temp4 TYPE TABLE OF tobjvordat. +TYPES temp1 TYPE TABLE OF tobjvor. +DATA: lv_objectname TYPE trobj_name, ls_tobj TYPE tobj, ls_tobjt TYPE tobjt, ls_tobjvorflg TYPE tobjvorflg, - lt_tactz TYPE TABLE OF tactz, - lt_tobjvordat TYPE TABLE OF tobjvordat, - lt_tobjvor TYPE TABLE OF tobjvor. + lt_tactz TYPE temp3, + lt_tobjvordat TYPE temp4, + lt_tobjvor TYPE temp1. ASSERT NOT ms_item-obj_name IS INITIAL. @@ -286,7 +291,9 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION. SELECT SINGLE objct FROM tobj INTO lv_objct WHERE objct = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -346,12 +353,15 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: ls_tobj TYPE tobj, + TYPES temp6 TYPE TABLE OF tactz. +TYPES temp7 TYPE TABLE OF tobjvordat. +TYPES temp2 TYPE TABLE OF tobjvor. +DATA: ls_tobj TYPE tobj, ls_tobjt TYPE tobjt, ls_tobjvorflg TYPE tobjvorflg, - lt_tactz TYPE TABLE OF tactz, - lt_tobjvordat TYPE TABLE OF tobjvordat, - lt_tobjvor TYPE TABLE OF tobjvor. + lt_tactz TYPE temp6, + lt_tobjvordat TYPE temp7, + lt_tobjvor TYPE temp2. SELECT SINGLE * FROM tobj INTO ls_tobj diff --git a/src/objects/zcl_abapgit_object_sxci.clas.abap b/src/objects/zcl_abapgit_object_sxci.clas.abap index 8cf43045c..c91e1580f 100644 --- a/src/objects/zcl_abapgit_object_sxci.clas.abap +++ b/src/objects/zcl_abapgit_object_sxci.clas.abap @@ -86,8 +86,8 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. lv_package = iv_package. - lo_filter_values_object = NEW #( filter_object = lo_filter_object - filter_values = ls_classic_badi_implementation-filters ). + CREATE OBJECT lo_filter_values_object EXPORTING filter_object = lo_filter_object + filter_values = ls_classic_badi_implementation-filters. CALL FUNCTION 'SXO_IMPL_SAVE' EXPORTING @@ -148,7 +148,9 @@ CLASS zcl_abapgit_object_sxci IMPLEMENTATION. data_inconsistency = 2 OTHERS = 3. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_sxsd.clas.abap b/src/objects/zcl_abapgit_object_sxsd.clas.abap index ad4f8b4c7..f912755de 100644 --- a/src/objects/zcl_abapgit_object_sxsd.clas.abap +++ b/src/objects/zcl_abapgit_object_sxsd.clas.abap @@ -66,7 +66,9 @@ CLASS zcl_abapgit_object_sxsd IMPLEMENTATION. METHOD zif_abapgit_object~exists. - rv_bool = xsdbool( ms_badi_attr IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ms_badi_attr IS NOT INITIAL ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tobj.clas.abap b/src/objects/zcl_abapgit_object_tobj.clas.abap index 5d3454201..98471c991 100644 --- a/src/objects/zcl_abapgit_object_tobj.clas.abap +++ b/src/objects/zcl_abapgit_object_tobj.clas.abap @@ -46,7 +46,8 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. METHOD update_extra. - DATA: lt_current_tvimf TYPE STANDARD TABLE OF tvimf. + TYPES temp1 TYPE STANDARD TABLE OF tvimf. +DATA: lt_current_tvimf TYPE temp1. FIELD-SYMBOLS: TYPE tvimf. MODIFY tddat FROM is_tobj-tddat. @@ -214,7 +215,9 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. SELECT SINGLE objectname FROM objh INTO lv_objectname WHERE objectname = ms_item-obj_name(lv_type_pos) AND objecttype = ms_item-obj_name+lv_type_pos. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -264,7 +267,9 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION. jump_not_possible = 1 OTHERS = 2. - rv_exit = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_exit = temp2. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_tran.clas.abap b/src/objects/zcl_abapgit_object_tran.clas.abap index 23413baa0..0aa6b8f60 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.abap @@ -35,8 +35,9 @@ CLASS zcl_abapgit_object_tran DEFINITION object TYPE rglif-docutype VALUE 'O' ##NO_TEXT, END OF c_variant_type. - DATA: - mt_bcdata TYPE STANDARD TABLE OF bdcdata . + TYPES temp1_15c4f683bb TYPE STANDARD TABLE OF bdcdata. +DATA: + mt_bcdata TYPE temp1_15c4f683bb . METHODS transaction_read IMPORTING @@ -122,7 +123,8 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD call_se93. - DATA: lt_message TYPE STANDARD TABLE OF bdcmsgcoll. + TYPES temp2 TYPE STANDARD TABLE OF bdcmsgcoll. +DATA: lt_message TYPE temp2. DATA lv_msg TYPE string. FIELD-SYMBOLS: TYPE bdcmsgcoll. @@ -157,7 +159,8 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD clear_functiongroup_globals. TYPES ty_param_vari TYPE abap_bool. - DATA lt_error_list TYPE STANDARD TABLE OF rsmp_check WITH DEFAULT KEY. + TYPES temp3 TYPE STANDARD TABLE OF rsmp_check WITH DEFAULT KEY. +DATA lt_error_list TYPE temp3. FIELD-SYMBOLS TYPE ty_param_vari. " only way to clear global fields in function group @@ -342,7 +345,8 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD deserialize_texts. - DATA lt_tpool_i18n TYPE TABLE OF tstct. + TYPES temp4 TYPE TABLE OF tstct. +DATA lt_tpool_i18n TYPE temp4. FIELD-SYMBOLS LIKE LINE OF lt_tpool_i18n. @@ -373,7 +377,9 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD is_variant_transaction. - rv_variant_transaction = xsdbool( is_tstcp-param(1) = '@' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( is_tstcp-param(1) = '@' ). + rv_variant_transaction = temp1. ENDMETHOD. @@ -399,7 +405,8 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD serialize_texts. - DATA lt_tpool_i18n TYPE TABLE OF tstct. + TYPES temp5 TYPE TABLE OF tstct. +DATA lt_tpool_i18n TYPE temp5. IF mo_i18n_params->ms_params-main_language_only = abap_true. RETURN. @@ -603,8 +610,10 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD transaction_read. - DATA: lt_tcodes TYPE TABLE OF tstc, - lt_gui_attr TYPE TABLE OF tstcc. + TYPES temp6 TYPE TABLE OF tstc. +TYPES temp1 TYPE TABLE OF tstcc. +DATA: lt_tcodes TYPE temp6, + lt_gui_attr TYPE temp1. CLEAR: es_transaction, es_gui_attr. @@ -803,7 +812,9 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. SELECT SINGLE tcode FROM tstc INTO lv_tcode WHERE tcode = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_bool = temp2. ENDMETHOD. @@ -842,7 +853,8 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE TABLE OF bdcdata. + TYPES temp8 TYPE TABLE OF bdcdata. +DATA: lt_bdcdata TYPE temp8. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. diff --git a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap index 9bc9601b6..12e234fbb 100644 --- a/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_object_tran.clas.testclasses.abap @@ -52,8 +52,8 @@ CLASS ltcl_split_parameters IMPLEMENTATION. ls_item-obj_name = 'ZDUMMY'. ls_item-obj_type = 'TRAN'. - mo_cut = NEW #( is_item = ls_item - iv_language = sy-langu ). + CREATE OBJECT mo_cut EXPORTING is_item = ls_item + iv_language = sy-langu. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_ttyp.clas.abap b/src/objects/zcl_abapgit_object_ttyp.clas.abap index b19931b2c..04fc973bb 100644 --- a/src/objects/zcl_abapgit_object_ttyp.clas.abap +++ b/src/objects/zcl_abapgit_object_ttyp.clas.abap @@ -105,7 +105,9 @@ CLASS zcl_abapgit_object_ttyp IMPLEMENTATION. SELECT SINGLE typename FROM dd40l INTO lv_typename WHERE typename = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_udmo.clas.abap b/src/objects/zcl_abapgit_object_udmo.clas.abap index 32e5d1e62..11ae7375e 100644 --- a/src/objects/zcl_abapgit_object_udmo.clas.abap +++ b/src/objects/zcl_abapgit_object_udmo.clas.abap @@ -219,7 +219,8 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. METHOD deserialize_entities. - DATA lt_udmo_entities TYPE STANDARD TABLE OF dm41s WITH DEFAULT KEY. + TYPES temp1 TYPE STANDARD TABLE OF dm41s WITH DEFAULT KEY. +DATA lt_udmo_entities TYPE temp1. DATA ls_udmo_entity LIKE LINE OF lt_udmo_entities. @@ -247,7 +248,8 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. DATA content TYPE xstring. DATA END OF ls_udmo_long_text. - DATA lt_udmo_long_texts LIKE STANDARD TABLE OF ls_udmo_long_text. + TYPES temp2 LIKE STANDARD TABLE OF ls_udmo_long_text. +DATA lt_udmo_long_texts TYPE temp2. DATA ls_header TYPE thead. io_xml->read( EXPORTING iv_name = 'UDMO_LONG_TEXTS' @@ -325,7 +327,8 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. METHOD deserialize_short_texts. - DATA lt_udmo_texts TYPE STANDARD TABLE OF ty_udmo_text_type WITH DEFAULT KEY. + TYPES temp3 TYPE STANDARD TABLE OF ty_udmo_text_type WITH DEFAULT KEY. +DATA lt_udmo_texts TYPE temp3. DATA ls_udmo_text TYPE ty_udmo_text_type. DATA ls_dm40t TYPE dm40t. @@ -405,7 +408,8 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. METHOD serialize_entities. - DATA lt_udmo_entities TYPE STANDARD TABLE OF dm41s WITH DEFAULT KEY. + TYPES temp4 TYPE STANDARD TABLE OF dm41s WITH DEFAULT KEY. +DATA lt_udmo_entities TYPE temp4. FIELD-SYMBOLS TYPE dm41s. SELECT * FROM dm41s @@ -450,8 +454,10 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. DATA content TYPE xstring. DATA END OF ls_udmo_long_text. - DATA lt_udmo_long_texts LIKE STANDARD TABLE OF ls_udmo_long_text. - DATA lt_udmo_languages TYPE STANDARD TABLE OF ty_language_type. + TYPES temp5 LIKE STANDARD TABLE OF ls_udmo_long_text. +DATA lt_udmo_long_texts TYPE temp5. + TYPES temp6 TYPE STANDARD TABLE OF ty_language_type. +DATA lt_udmo_languages TYPE temp6. DATA ls_udmo_language LIKE LINE OF lt_udmo_languages. DATA: lv_error_status TYPE lxestatprc. @@ -540,7 +546,8 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. METHOD serialize_short_texts. - DATA lt_udmo_texts TYPE STANDARD TABLE OF ty_udmo_text_type WITH DEFAULT KEY. + TYPES temp7 TYPE STANDARD TABLE OF ty_udmo_text_type WITH DEFAULT KEY. +DATA lt_udmo_texts TYPE temp7. " You are reminded that administrative information, such as last changed by user, date, time is not serialized. " You are reminded that active short texts of all (existent) languages are serialized. @@ -666,7 +673,9 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. SELECT COUNT( * ) FROM dm40l WHERE dmoid = mv_data_model AND as4local = mv_activation_state. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. @@ -713,7 +722,8 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION. " CALL FUNCTION 'SDU_MODEL_SHOW' " CALL FUNCTION 'RS_TOOL_ACCESS' - DATA lt_bdcdata TYPE TABLE OF bdcdata. + TYPES temp8 TYPE TABLE OF bdcdata. +DATA lt_bdcdata TYPE temp8. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. diff --git a/src/objects/zcl_abapgit_object_ueno.clas.abap b/src/objects/zcl_abapgit_object_ueno.clas.abap index 877892e9b..25b5cf19a 100644 --- a/src/objects/zcl_abapgit_object_ueno.clas.abap +++ b/src/objects/zcl_abapgit_object_ueno.clas.abap @@ -451,9 +451,9 @@ CLASS zcl_abapgit_object_ueno IMPLEMENTATION. METHOD get_generic. - ro_generic = NEW #( io_field_rules = get_field_rules( ) - is_item = ms_item - iv_language = mv_language ). + CREATE OBJECT ro_generic EXPORTING io_field_rules = get_field_rules( ) + is_item = ms_item + iv_language = mv_language. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_vcls.clas.abap b/src/objects/zcl_abapgit_object_vcls.clas.abap index d4806ea64..b917f2b38 100644 --- a/src/objects/zcl_abapgit_object_vcls.clas.abap +++ b/src/objects/zcl_abapgit_object_vcls.clas.abap @@ -75,10 +75,13 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: ls_vcldir_entry TYPE v_vcldir, - lt_vclstruc TYPE TABLE OF v_vclstruc, - lt_vclstrudep TYPE TABLE OF v_vclstdep, - lt_vclmf TYPE TABLE OF v_vclmf, + TYPES temp1 TYPE TABLE OF v_vclstruc. +TYPES temp2 TYPE TABLE OF v_vclstdep. +TYPES temp3 TYPE TABLE OF v_vclmf. +DATA: ls_vcldir_entry TYPE v_vcldir, + lt_vclstruc TYPE temp1, + lt_vclstrudep TYPE temp2, + lt_vclmf TYPE temp3, lv_objectname TYPE ob_object. @@ -133,7 +136,9 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. SELECT SINGLE changedate INTO lv_changedate FROM vcldir WHERE vclname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -166,7 +171,9 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. WHERE vclname = ms_item-obj_name. * see logic in function module VIEWCLUSTER_GET_DEFINITION - rv_active = xsdbool( lv_changedate IS NOT INITIAL ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( lv_changedate IS NOT INITIAL ). + rv_active = temp2. ENDMETHOD. @@ -200,8 +207,9 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: ls_bcdata TYPE bdcdata, - lt_bcdata TYPE STANDARD TABLE OF bdcdata. + TYPES temp4 TYPE STANDARD TABLE OF bdcdata. +DATA: ls_bcdata TYPE bdcdata, + lt_bcdata TYPE temp4. ls_bcdata-program = 'SAPMSVIM'. ls_bcdata-dynpro = '0050'. @@ -260,11 +268,14 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lv_vclname TYPE vcl_name, + TYPES temp5 TYPE TABLE OF v_vclstruc. +TYPES temp4 TYPE TABLE OF v_vclstdep. +TYPES temp6 TYPE TABLE OF v_vclmf. +DATA: lv_vclname TYPE vcl_name, ls_vcldir_entry TYPE v_vcldir, - lt_vclstruc TYPE TABLE OF v_vclstruc, - lt_vclstrudep TYPE TABLE OF v_vclstdep, - lt_vclmf TYPE TABLE OF v_vclmf. + lt_vclstruc TYPE temp5, + lt_vclstrudep TYPE temp4, + lt_vclmf TYPE temp6. IF zif_abapgit_object~exists( ) = abap_false. diff --git a/src/objects/zcl_abapgit_object_view.clas.abap b/src/objects/zcl_abapgit_object_view.clas.abap index bf44d12a9..b6423ce50 100644 --- a/src/objects/zcl_abapgit_object_view.clas.abap +++ b/src/objects/zcl_abapgit_object_view.clas.abap @@ -78,9 +78,10 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION. METHOD deserialize_texts. - DATA: + TYPES temp1 TYPE TABLE OF langu. +DATA: lv_name TYPE ddobjname, - lt_i18n_langs TYPE TABLE OF langu, + lt_i18n_langs TYPE temp1, lt_dd25_texts TYPE ty_dd25_texts, ls_dd25v_tmp TYPE dd25v. @@ -171,11 +172,12 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION. METHOD serialize_texts. - DATA: + TYPES temp2 TYPE TABLE OF langu. +DATA: lv_index TYPE i, ls_dd25v TYPE dd25v, lt_dd25_texts TYPE ty_dd25_texts, - lt_i18n_langs TYPE TABLE OF langu, + lt_i18n_langs TYPE temp2, lt_language_filter TYPE zif_abapgit_environment=>ty_system_language_filter. FIELD-SYMBOLS: @@ -276,13 +278,17 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lv_name TYPE ddobjname, + TYPES temp3 TYPE TABLE OF dd26v. +TYPES temp1 TYPE TABLE OF dd27p. +TYPES temp2 TYPE TABLE OF dd28j. +TYPES temp4 TYPE TABLE OF dd28v. +DATA: lv_name TYPE ddobjname, ls_dd25v TYPE dd25v, ls_dd09l TYPE dd09l, - lt_dd26v TYPE TABLE OF dd26v, - lt_dd27p TYPE TABLE OF dd27p, - lt_dd28j TYPE TABLE OF dd28j, - lt_dd28v TYPE TABLE OF dd28v, + lt_dd26v TYPE temp3, + lt_dd27p TYPE temp1, + lt_dd28j TYPE temp2, + lt_dd28v TYPE temp4, ls_extras TYPE zif_abapgit_object_tabl=>ty_internal-extras. FIELD-SYMBOLS: LIKE LINE OF lt_dd27p. @@ -364,7 +370,9 @@ CLASS ZCL_ABAPGIT_OBJECT_VIEW IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = ms_item-obj_name. - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. IF rv_bool = abap_true. TRY. diff --git a/src/objects/zcl_abapgit_object_wapa.clas.abap b/src/objects/zcl_abapgit_object_wapa.clas.abap index 0a17d79f3..a8e680980 100644 --- a/src/objects/zcl_abapgit_object_wapa.clas.abap +++ b/src/objects/zcl_abapgit_object_wapa.clas.abap @@ -270,8 +270,9 @@ CLASS zcl_abapgit_object_wapa IMPLEMENTATION. METHOD zif_abapgit_object~changed_by. - DATA: lv_name TYPE o2applname, - lt_pages TYPE STANDARD TABLE OF o2pagdir WITH DEFAULT KEY, + TYPES temp1 TYPE STANDARD TABLE OF o2pagdir WITH DEFAULT KEY. +DATA: lv_name TYPE o2applname, + lt_pages TYPE temp1, ls_latest LIKE LINE OF lt_pages. @@ -544,7 +545,9 @@ CLASS zcl_abapgit_object_wapa IMPLEMENTATION. object_not_existing = 1 permission_failure = 2 error_occured = 3 ). - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_wdca.clas.abap b/src/objects/zcl_abapgit_object_wdca.clas.abap index 3184a454f..d5deac9e7 100644 --- a/src/objects/zcl_abapgit_object_wdca.clas.abap +++ b/src/objects/zcl_abapgit_object_wdca.clas.abap @@ -68,8 +68,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - lo_cfg = NEW #( config_key = ls_key - object_name = lv_name ). + CREATE OBJECT lo_cfg EXPORTING config_key = ls_key + object_name = lv_name. MOVE-CORRESPONDING ls_key TO ls_outline. @@ -128,8 +128,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. ls_key = ms_item-obj_name. TRY. - lo_cfg = NEW #( config_key = ls_key - object_name = lv_name ). + CREATE OBJECT lo_cfg EXPORTING config_key = ls_key + object_name = lv_name. MOVE-CORRESPONDING ls_key TO es_outline. @@ -184,8 +184,8 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. MOVE-CORRESPONDING is_outline TO ls_key. TRY. - lo_cfg = NEW #( config_key = ls_key - object_name = lv_name ). + CREATE OBJECT lo_cfg EXPORTING config_key = ls_key + object_name = lv_name. READ TABLE it_data INDEX 1 INTO ls_data. ASSERT sy-subrc = 0. @@ -256,9 +256,10 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: ls_outline TYPE wdy_cfg_outline_data, + TYPES temp1 TYPE TABLE OF wdy_config_appt. +DATA: ls_outline TYPE wdy_cfg_outline_data, lt_data TYPE wdy_cfg_persist_data_appl_tab, - lt_config_appt TYPE TABLE OF wdy_config_appt, + lt_config_appt TYPE temp1, lv_xml_string TYPE string, lv_xml_xstring TYPE xstring. @@ -329,7 +330,9 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. WHERE config_id = ls_wdy_config_key-config_id AND config_type = ls_wdy_config_key-config_type AND config_var = ls_wdy_config_key-config_var. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -380,9 +383,10 @@ CLASS zcl_abapgit_object_wdca IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: ls_outline TYPE wdy_cfg_outline_data, + TYPES temp2 TYPE TABLE OF wdy_config_appt. +DATA: ls_outline TYPE wdy_cfg_outline_data, lt_data TYPE wdy_cfg_persist_data_appl_tab, - lt_cc_text TYPE TABLE OF wdy_config_appt, + lt_cc_text TYPE temp2, lv_xml_xstring TYPE xstring, lv_xml_string TYPE string. diff --git a/src/objects/zcl_abapgit_object_wdcc.clas.abap b/src/objects/zcl_abapgit_object_wdcc.clas.abap index 374b8282f..ff59c34b4 100644 --- a/src/objects/zcl_abapgit_object_wdcc.clas.abap +++ b/src/objects/zcl_abapgit_object_wdcc.clas.abap @@ -69,12 +69,14 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. METHOD zif_abapgit_object~deserialize. - DATA: lv_config_id TYPE c LENGTH 32, + TYPES temp1 TYPE TABLE OF wdy_config_compt. +TYPES temp2 TYPE TABLE OF wdy_config_datt. +DATA: lv_config_id TYPE c LENGTH 32, lv_config_type TYPE n LENGTH 2, lv_config_var TYPE c LENGTH 6, - lt_otr_texts TYPE TABLE OF wdy_config_compt, + lt_otr_texts TYPE temp1, ls_orig_config TYPE wdy_config_data, - lt_config_datt TYPE TABLE OF wdy_config_datt, + lt_config_datt TYPE temp2, lv_xml_string TYPE string, lv_xml_xstring TYPE xstring. @@ -287,7 +289,8 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. METHOD zif_abapgit_object~is_locked. - DATA: lt_enq TYPE STANDARD TABLE OF seqg3, + TYPES temp3 TYPE STANDARD TABLE OF seqg3. +DATA: lt_enq TYPE temp3, lv_subrc TYPE sysubrc, lv_garg TYPE eqegraarg. @@ -309,7 +312,9 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. zcx_abapgit_exception=>raise( 'Error check object lock WDCC: ' && ms_item-obj_name ). ENDIF. - rv_is_locked = xsdbool( lines( lt_enq ) > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lines( lt_enq ) > 0 ). + rv_is_locked = temp1. ENDMETHOD. @@ -331,9 +336,11 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: lv_xml_xstring TYPE xstring, - lt_otr_texts TYPE TABLE OF wdy_config_compt, - lt_cc_text TYPE TABLE OF wdy_config_datt, + TYPES temp4 TYPE TABLE OF wdy_config_compt. +TYPES temp3 TYPE TABLE OF wdy_config_datt. +DATA: lv_xml_xstring TYPE xstring, + lt_otr_texts TYPE temp4, + lt_cc_text TYPE temp3, ls_orig_config TYPE wdy_config_data, ls_outline TYPE wdy_cfg_outline_data, ls_config_key TYPE wdy_config_key, diff --git a/src/objects/zcl_abapgit_object_wdya.clas.abap b/src/objects/zcl_abapgit_object_wdya.clas.abap index 61b1ca489..79edc8961 100644 --- a/src/objects/zcl_abapgit_object_wdya.clas.abap +++ b/src/objects/zcl_abapgit_object_wdya.clas.abap @@ -72,9 +72,9 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYA IMPLEMENTATION. TRY. - lo_app = NEW #( name = is_app-application_name - definition = is_app - devclass = iv_package ). + CREATE OBJECT lo_app EXPORTING name = is_app-application_name + definition = is_app + devclass = iv_package. LOOP AT it_properties ASSIGNING . li_prop = lo_app->if_wdy_md_application~create_property( -name ). diff --git a/src/objects/zcl_abapgit_object_wdyn.clas.abap b/src/objects/zcl_abapgit_object_wdyn.clas.abap index 6ac70dd39..a46d5d8cd 100644 --- a/src/objects/zcl_abapgit_object_wdyn.clas.abap +++ b/src/objects/zcl_abapgit_object_wdyn.clas.abap @@ -14,9 +14,11 @@ CLASS zcl_abapgit_object_wdyn DEFINITION CONSTANTS c_longtext_id_wd TYPE dokil-id VALUE 'WD' ##NO_TEXT. CONSTANTS c_longtext_name_wc TYPE string VALUE 'LONGTEXTS_WC' ##NO_TEXT. - DATA: - mt_components TYPE TABLE OF wdy_ctlr_compo_vrs, - mt_sources TYPE TABLE OF wdy_ctlr_compo_source_vrs. + TYPES temp1_cda9d1eaa8 TYPE TABLE OF wdy_ctlr_compo_vrs. +TYPES temp2_cda9d1eaa8 TYPE TABLE OF wdy_ctlr_compo_source_vrs. +DATA: + mt_components TYPE temp1_cda9d1eaa8, + mt_sources TYPE temp2_cda9d1eaa8. METHODS: get_limu_objects @@ -498,11 +500,16 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. METHOD read_controller. - DATA: lt_components TYPE TABLE OF wdy_ctlr_compo_vrs, - lt_sources TYPE TABLE OF wdy_ctlr_compo_source_vrs, - lt_definition TYPE TABLE OF wdy_controller, - lt_psmodilog TYPE TABLE OF smodilog, - lt_psmodisrc TYPE TABLE OF smodisrc, + TYPES temp3 TYPE TABLE OF wdy_ctlr_compo_vrs. +TYPES temp4 TYPE TABLE OF wdy_ctlr_compo_source_vrs. +TYPES temp1 TYPE TABLE OF wdy_controller. +TYPES temp2 TYPE TABLE OF smodilog. +TYPES temp5 TYPE TABLE OF smodisrc. +DATA: lt_components TYPE temp3, + lt_sources TYPE temp4, + lt_definition TYPE temp1, + lt_psmodilog TYPE temp2, + lt_psmodisrc TYPE temp5, lt_fm_param TYPE abap_func_parmbind_tab, lt_fm_exception TYPE abap_func_excpbind_tab. @@ -610,9 +617,12 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. METHOD read_definition. - DATA: lt_definition TYPE TABLE OF wdy_component, - lt_psmodilog TYPE TABLE OF smodilog, - lt_psmodisrc TYPE TABLE OF smodisrc. + TYPES temp8 TYPE TABLE OF wdy_component. +TYPES temp9 TYPE TABLE OF smodilog. +TYPES temp6 TYPE TABLE OF smodisrc. +DATA: lt_definition TYPE temp8, + lt_psmodilog TYPE temp9, + lt_psmodisrc TYPE temp6. CALL FUNCTION 'WDYD_GET_OBJECT' @@ -655,9 +665,12 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. METHOD read_view. - DATA: lt_definition TYPE TABLE OF wdy_view_vrs, - lt_psmodilog TYPE TABLE OF smodilog, - lt_psmodisrc TYPE TABLE OF smodisrc. + TYPES temp11 TYPE TABLE OF wdy_view_vrs. +TYPES temp12 TYPE TABLE OF smodilog. +TYPES temp7 TYPE TABLE OF smodisrc. +DATA: lt_definition TYPE temp11, + lt_psmodilog TYPE temp12, + lt_psmodisrc TYPE temp7. FIELD-SYMBOLS: LIKE LINE OF lt_definition. @@ -803,12 +816,12 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. lv_object_name TYPE seu_objkey. - lo_component = NEW #( ). + CREATE OBJECT lo_component. lv_object_name = ms_item-obj_name. - lo_request = NEW #( p_object_type = 'YC' - p_object_name = lv_object_name - p_operation = swbm_c_op_delete_no_dialog ). + CREATE OBJECT lo_request EXPORTING p_object_type = 'YC' + p_object_name = lv_object_name + p_operation = swbm_c_op_delete_no_dialog. lo_component->if_wb_program~process_wb_request( p_wb_request = lo_request @@ -877,7 +890,9 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. SELECT SINGLE component_name FROM wdy_component INTO lv_component_name WHERE component_name = ms_item-obj_name. "#EC CI_GENBUFF - rv_bool = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_bool = temp1. ENDMETHOD. @@ -929,11 +944,13 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION. METHOD zif_abapgit_object~serialize. - DATA: ls_component TYPE wdy_component_metadata, + TYPES temp14 TYPE STANDARD TABLE OF dokil-object WITH DEFAULT KEY. +TYPES temp15 TYPE STANDARD TABLE OF dokil WITH DEFAULT KEY. +DATA: ls_component TYPE wdy_component_metadata, ls_comp TYPE wdy_ctlr_compo_vrs, lv_object TYPE dokil-object, - lt_object TYPE STANDARD TABLE OF dokil-object WITH DEFAULT KEY, - lt_dokil TYPE STANDARD TABLE OF dokil WITH DEFAULT KEY, + lt_object TYPE temp14, + lt_dokil TYPE temp15, ls_description TYPE wdy_ext_ctx_map. ls_component = read( ). diff --git a/src/objects/zcl_abapgit_object_webi.clas.abap b/src/objects/zcl_abapgit_object_webi.clas.abap index 7389d499e..651d93814 100644 --- a/src/objects/zcl_abapgit_object_webi.clas.abap +++ b/src/objects/zcl_abapgit_object_webi.clas.abap @@ -360,7 +360,7 @@ CLASS ZCL_ABAPGIT_OBJECT_WEBI IMPLEMENTATION. lv_name = ms_item-obj_name. - lo_vif = NEW #( ). + CREATE OBJECT lo_vif. TRY. lo_vif->if_ws_md_vif_root~delete_virtual_interface( lv_name ). CATCH cx_ws_md_exception. diff --git a/src/objects/zcl_abapgit_object_xinx.clas.abap b/src/objects/zcl_abapgit_object_xinx.clas.abap index 13acd9c73..1e3a4b9d2 100644 --- a/src/objects/zcl_abapgit_object_xinx.clas.abap +++ b/src/objects/zcl_abapgit_object_xinx.clas.abap @@ -318,7 +318,9 @@ CLASS zcl_abapgit_object_xinx IMPLEMENTATION. illegal_input = 1 OTHERS = 2. - rv_bool = xsdbool( ls_dd12v IS NOT INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( ls_dd12v IS NOT INITIAL ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_object_xslt.clas.abap b/src/objects/zcl_abapgit_object_xslt.clas.abap index 6a4ce4d64..929fd2a6f 100644 --- a/src/objects/zcl_abapgit_object_xslt.clas.abap +++ b/src/objects/zcl_abapgit_object_xslt.clas.abap @@ -174,7 +174,9 @@ CLASS zcl_abapgit_object_xslt IMPLEMENTATION. lv_name = ms_item-obj_name. rv_bool = cl_o2_api_xsltdesc=>exists( lv_name ). - rv_bool = xsdbool( rv_bool = '1' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( rv_bool = '1' ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects.clas.abap b/src/objects/zcl_abapgit_objects.clas.abap index 3b5f42c17..32b3cdad9 100644 --- a/src/objects/zcl_abapgit_objects.clas.abap +++ b/src/objects/zcl_abapgit_objects.clas.abap @@ -265,10 +265,11 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. METHOD check_duplicates. - DATA: lt_files TYPE zif_abapgit_git_definitions=>ty_files_tt, + TYPES temp1 TYPE STANDARD TABLE OF string WITH DEFAULT KEY. +DATA: lt_files TYPE zif_abapgit_git_definitions=>ty_files_tt, lv_path TYPE string, lv_filename TYPE string, - lt_duplicates TYPE STANDARD TABLE OF string WITH DEFAULT KEY, + lt_duplicates TYPE temp1, lv_duplicates LIKE LINE OF lt_duplicates, lv_all_duplicates TYPE string. @@ -414,8 +415,8 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. RETURN. ENDIF. - li_remote_version = NEW zcl_abapgit_xml_input( iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data ) - iv_filename = ls_remote_file-filename ). + CREATE OBJECT li_remote_version TYPE zcl_abapgit_xml_input EXPORTING iv_xml = zcl_abapgit_convert=>xstring_to_string_utf8( ls_remote_file-data ) + iv_filename = ls_remote_file-filename. ls_result = li_comparator->compare( ii_remote = li_remote_version ii_log = ii_log ). @@ -508,11 +509,11 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. IF iv_native_only = abap_false. TRY. " 2nd step, try looking for plugins IF io_files IS BOUND AND io_i18n_params IS BOUND. - ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item - io_files = io_files - io_i18n_params = io_i18n_params ). + CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge EXPORTING is_item = is_item + io_files = io_files + io_i18n_params = io_i18n_params. ELSE. - ri_obj = NEW zcl_abapgit_objects_bridge( is_item = is_item ). + CREATE OBJECT ri_obj TYPE zcl_abapgit_objects_bridge EXPORTING is_item = is_item. ENDIF. CATCH cx_sy_create_object_error. zcx_abapgit_exception=>raise( lv_message ). @@ -724,7 +725,7 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. ii_log->add_info( |>>> Deserializing { lines( lt_items ) } objects| ). ENDIF. - lo_abap_language_vers = NEW #( io_dot_abapgit = lo_dot ). + CREATE OBJECT lo_abap_language_vers EXPORTING io_dot_abapgit = lo_dot. lo_folder_logic = zcl_abapgit_folder_logic=>get_instance( ). LOOP AT lt_results ASSIGNING . @@ -1207,14 +1208,16 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. io_files = lo_files io_i18n_params = io_i18n_params ). - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. rs_files_and_item-item = is_item. TRY. li_obj->serialize( li_xml ). CATCH zcx_abapgit_exception INTO lx_error. - rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = temp1. RAISE EXCEPTION lx_error. ENDTRY. @@ -1237,7 +1240,9 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. check_duplicates( rs_files_and_item-files ). - rs_files_and_item-item-inactive = xsdbool( li_obj->is_active( ) = abap_false ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( li_obj->is_active( ) = abap_false ). + rs_files_and_item-item-inactive = temp2. LOOP AT rs_files_and_item-files ASSIGNING . -sha1 = zcl_abapgit_hash=>sha1_blob( -data ). @@ -1248,7 +1253,8 @@ CLASS zcl_abapgit_objects IMPLEMENTATION. METHOD supported_list. - DATA lt_objects TYPE STANDARD TABLE OF ko100. + TYPES temp2 TYPE STANDARD TABLE OF ko100. +DATA lt_objects TYPE temp2. DATA ls_item TYPE zif_abapgit_definitions=>ty_item. DATA ls_supported_obj_type TYPE ty_supported_types. DATA lt_types TYPE zif_abapgit_exit=>ty_object_types. diff --git a/src/objects/zcl_abapgit_objects.clas.testclasses.abap b/src/objects/zcl_abapgit_objects.clas.testclasses.abap index 18423238f..3bf6283f5 100644 --- a/src/objects/zcl_abapgit_objects.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects.clas.testclasses.abap @@ -73,7 +73,7 @@ CLASS lcl_settings_with_features IMPLEMENTATION. METHOD zif_abapgit_persist_settings~read. - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. ro_settings->set_experimental_features( mv_features ). ENDMETHOD. @@ -209,7 +209,7 @@ CLASS ltcl_serialize IMPLEMENTATION. ls_item-obj_name = 'IF_BADI_TADIR_CHANGED'. lv_features = |{ zcl_abapgit_aff_registry=>c_aff_feature }, { zcl_abapgit_properties_file=>c_properties_feature }|. - lo_settings = NEW #( iv_features = lv_features ). + CREATE OBJECT lo_settings EXPORTING iv_features = lv_features. zcl_abapgit_persist_injector=>set_settings( lo_settings ). diff --git a/src/objects/zcl_abapgit_objects_factory.clas.abap b/src/objects/zcl_abapgit_objects_factory.clas.abap index 08568a6e8..11a781863 100644 --- a/src/objects/zcl_abapgit_objects_factory.clas.abap +++ b/src/objects/zcl_abapgit_objects_factory.clas.abap @@ -21,7 +21,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_FACTORY IMPLEMENTATION. METHOD get_gui_jumper. IF gi_gui_jumper IS INITIAL. - gi_gui_jumper = NEW zcl_abapgit_gui_jumper( ). + CREATE OBJECT gi_gui_jumper TYPE zcl_abapgit_gui_jumper. ENDIF. ri_gui_jumper = gi_gui_jumper. diff --git a/src/objects/zcl_abapgit_objects_generic.clas.abap b/src/objects/zcl_abapgit_objects_generic.clas.abap index 5bf46ed22..6e1070f06 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.abap @@ -43,10 +43,12 @@ CLASS zcl_abapgit_objects_generic DEFINITION ty_t_objkey TYPE SORTED TABLE OF ty_s_objkey WITH UNIQUE KEY num . DATA ms_object_header TYPE objh . - DATA: - mt_object_table TYPE STANDARD TABLE OF objsl WITH DEFAULT KEY . - DATA: - mt_object_method TYPE STANDARD TABLE OF objm WITH DEFAULT KEY . + TYPES temp1_c6f892cf3d TYPE STANDARD TABLE OF objsl WITH DEFAULT KEY. +DATA: + mt_object_table TYPE temp1_c6f892cf3d . + TYPES temp2_c6f892cf3d TYPE STANDARD TABLE OF objm WITH DEFAULT KEY. +DATA: + mt_object_method TYPE temp2_c6f892cf3d . DATA ms_item TYPE zif_abapgit_definitions=>ty_item . DATA mv_language TYPE spras . @@ -130,9 +132,11 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION. METHOD after_import. - DATA: lt_cts_object_entry TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY, + TYPES temp3 TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY. +TYPES temp1 TYPE STANDARD TABLE OF e071k WITH DEFAULT KEY. +DATA: lt_cts_object_entry TYPE temp3, ls_cts_object_entry LIKE LINE OF lt_cts_object_entry, - lt_cts_key TYPE STANDARD TABLE OF e071k WITH DEFAULT KEY. + lt_cts_key TYPE temp1. FIELD-SYMBOLS LIKE LINE OF mt_object_method. @@ -184,9 +188,11 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION. METHOD before_export. - DATA: lt_cts_object_entry TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY, + TYPES temp5 TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY. +TYPES temp2 TYPE STANDARD TABLE OF e071k WITH DEFAULT KEY. +DATA: lt_cts_object_entry TYPE temp5, ls_cts_object_entry LIKE LINE OF lt_cts_object_entry, - lt_cts_key TYPE STANDARD TABLE OF e071k WITH DEFAULT KEY, + lt_cts_key TYPE temp2, lv_client TYPE trclient. FIELD-SYMBOLS LIKE LINE OF mt_object_method. @@ -422,7 +428,9 @@ CLASS zcl_abapgit_objects_generic IMPLEMENTATION. ASSIGN lr_table_line->* TO . SELECT SINGLE * FROM (lv_primary) INTO WHERE (lv_where_clause). - rv_bool = xsdbool( sy-dbcnt > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-dbcnt > 0 ). + rv_bool = temp1. ENDMETHOD. diff --git a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap index 4dda78e06..c4df28e9b 100644 --- a/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_generic.clas.testclasses.abap @@ -28,9 +28,9 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_001'. - lo_cut = NEW #( is_item = ls_item ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item. - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. lo_cut->serialize( li_xml ). * checks that it does not dump @@ -46,8 +46,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. cl_abap_unit_assert=>assert_equals( exp = 'AGR_DEFINE' @@ -66,8 +66,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ACGR'. ls_item-obj_name = 'SAP_BC_BASIS_ADMIN'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. lt_key_fields = lo_cut->get_key_fields( 'AGR_HIER' ). @@ -92,8 +92,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'NSPC'. ls_item-obj_name = '/BIC/'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. cl_abap_unit_assert=>assert_equals( exp = `NAMESPACE = '/BIC/'` @@ -120,8 +120,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_name+32 = '09'. ls_item-obj_name+34 = 'TEST'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. lt_key_fields = lo_cut->get_key_fields( 'WDY_CONFIG_DATA' ). @@ -176,8 +176,8 @@ CLASS ltcl_test IMPLEMENTATION. ls_item-obj_type = 'ASFC'. ls_item-obj_name = 'SAP_AS_TEST_002'. - lo_cut = NEW #( is_item = ls_item - iv_language = zif_abapgit_definitions=>c_english ). + CREATE OBJECT lo_cut EXPORTING is_item = ls_item + iv_language = zif_abapgit_definitions=>c_english. lt_key_fields = lo_cut->get_key_fields( 'AIND_STR4' ). diff --git a/src/objects/zcl_abapgit_objects_program.clas.abap b/src/objects/zcl_abapgit_objects_program.clas.abap index f8c9018d5..2a7d1bb7e 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.abap @@ -319,10 +319,12 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. CONSTANTS lc_rpyty_force_off TYPE c LENGTH 1 VALUE '/'. - DATA: lv_name TYPE dwinactiv-obj_name, - lt_d020s_to_delete TYPE TABLE OF d020s, + TYPES temp1 TYPE TABLE OF d020s. +TYPES temp2 TYPE TABLE OF d023s. +DATA: lv_name TYPE dwinactiv-obj_name, + lt_d020s_to_delete TYPE temp1, ls_d020s LIKE LINE OF lt_d020s_to_delete, - lt_params TYPE TABLE OF d023s, + lt_params TYPE temp2, ls_dynpro LIKE LINE OF it_dynpros. FIELD-SYMBOLS: TYPE rpy_dyfatc. @@ -731,9 +733,9 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. METHOD is_exit_include. - rv_is_exit_include = xsdbool( - iv_program CP 'LX*' OR iv_program CP 'SAPLX*' OR - iv_program+1 CP '/LX*' OR iv_program+1 CP '/SAPLX*' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( iv_program CP 'LX*' OR iv_program CP 'SAPLX*' OR iv_program+1 CP '/LX*' OR iv_program+1 CP '/SAPLX*' ). + rv_is_exit_include = temp1. ENDMETHOD. @@ -801,13 +803,16 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. METHOD serialize_dynpros. - DATA: ls_header TYPE rpy_dyhead, + TYPES temp3 TYPE TABLE OF d020s. +TYPES temp4 TYPE TABLE OF d021t. +TYPES temp1 TYPE TABLE OF d021s. +DATA: ls_header TYPE rpy_dyhead, lt_containers TYPE dycatt_tab, lt_fields_to_containers TYPE dyfatc_tab, lt_flow_logic TYPE swydyflow, - lt_d020s TYPE TABLE OF d020s, - lt_texts TYPE TABLE OF d021t, - lt_fieldlist_int TYPE TABLE OF d021s. "internal format + lt_d020s TYPE temp3, + lt_texts TYPE temp4, + lt_fieldlist_int TYPE temp1. "internal format FIELD-SYMBOLS: LIKE LINE OF lt_d020s, TYPE scrpostyle, @@ -935,12 +940,13 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. METHOD serialize_program. - DATA: ls_progdir TYPE zif_abapgit_sap_report=>ty_progdir, + TYPES temp6 TYPE TABLE OF abaptxt255. +DATA: ls_progdir TYPE zif_abapgit_sap_report=>ty_progdir, lv_program_name TYPE syrepid, lt_dynpros TYPE ty_dynpro_tt, ls_cua TYPE ty_cua, li_report TYPE REF TO zif_abapgit_sap_report, - lt_source TYPE TABLE OF abaptxt255, + lt_source TYPE temp6, lt_tpool TYPE textpool_table, ls_tpool LIKE LINE OF lt_tpool, li_xml TYPE REF TO zif_abapgit_xml_output. @@ -1002,7 +1008,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION. IF io_xml IS BOUND. li_xml = io_xml. ELSE. - li_xml = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_xml TYPE zcl_abapgit_xml_output. ENDIF. li_xml->add( iv_name = 'PROGDIR' diff --git a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap index 46d438649..c801a2931 100644 --- a/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap +++ b/src/objects/zcl_abapgit_objects_program.clas.testclasses.abap @@ -34,8 +34,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'PROG'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut EXPORTING iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -45,8 +45,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 2, FUGR ls_item-obj_type = 'FUGR'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut EXPORTING iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -66,8 +66,8 @@ CLASS ltcl_test IMPLEMENTATION. APPEND 'some code starts here' TO lt_src_orig. ls_item-obj_type = 'FUGR'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut EXPORTING iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). @@ -101,8 +101,8 @@ CLASS ltcl_test IMPLEMENTATION. " case 1, not FUGR, should skip ls_item-obj_type = 'FUGR'. - lo_cut = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT lo_cut EXPORTING iv_language = 'E' + is_item = ls_item. lt_src_act = lt_src_orig. lo_cut->strip_generation_comments( CHANGING ct_source = lt_src_act ). diff --git a/src/persist/zcl_abapgit_persist_factory.clas.abap b/src/persist/zcl_abapgit_persist_factory.clas.abap index 5b646d093..64d82b806 100644 --- a/src/persist/zcl_abapgit_persist_factory.clas.abap +++ b/src/persist/zcl_abapgit_persist_factory.clas.abap @@ -30,7 +30,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_repo. IF gi_repo IS INITIAL. - gi_repo = NEW zcl_abapgit_persistence_repo( ). + CREATE OBJECT gi_repo TYPE zcl_abapgit_persistence_repo. ENDIF. ri_repo = gi_repo. @@ -41,7 +41,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_repo_cs. IF gi_repo_cs IS INITIAL. - gi_repo_cs = NEW zcl_abapgit_persistence_repo( ). + CREATE OBJECT gi_repo_cs TYPE zcl_abapgit_persistence_repo. ENDIF. ri_repo_cs = gi_repo_cs. @@ -52,7 +52,7 @@ CLASS ZCL_ABAPGIT_PERSIST_FACTORY IMPLEMENTATION. METHOD get_settings. IF gi_settings IS INITIAL. - gi_settings = NEW zcl_abapgit_persist_settings( ). + CREATE OBJECT gi_settings TYPE zcl_abapgit_persist_settings. ENDIF. ri_settings = gi_settings. diff --git a/src/persist/zcl_abapgit_persist_migrate.clas.abap b/src/persist/zcl_abapgit_persist_migrate.clas.abap index 451399376..86b5f42ab 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.abap @@ -96,17 +96,21 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. ENDTRY. " New exists and differs from own - then it is really new, needs to be installed - rv_exists = xsdbool( lv_h_own = lv_h_new ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lv_h_own = lv_h_new ). + rv_exists = temp1. ENDMETHOD. METHOD lock_create. - DATA: lv_obj_name TYPE tadir-obj_name, + TYPES temp1 TYPE STANDARD TABLE OF dd26e WITH DEFAULT KEY. +TYPES temp2 TYPE STANDARD TABLE OF dd27p WITH DEFAULT KEY. +DATA: lv_obj_name TYPE tadir-obj_name, ls_dd25v TYPE dd25v, - lt_dd26e TYPE STANDARD TABLE OF dd26e WITH DEFAULT KEY, - lt_dd27p TYPE STANDARD TABLE OF dd27p WITH DEFAULT KEY. + lt_dd26e TYPE temp1, + lt_dd27p TYPE temp2. FIELD-SYMBOLS: LIKE LINE OF lt_dd26e, LIKE LINE OF lt_dd27p. @@ -194,7 +198,9 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. SELECT SINGLE viewname FROM dd25l INTO lv_viewname WHERE viewname = zcl_abapgit_persistence_db=>c_lock. - rv_exists = xsdbool( sy-subrc = 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( sy-subrc = 0 ). + rv_exists = temp2. ENDMETHOD. @@ -216,11 +222,12 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. METHOD table_create. - DATA: lv_rc LIKE sy-subrc, + TYPES temp3 TYPE STANDARD TABLE OF dd03p WITH DEFAULT KEY. +DATA: lv_rc LIKE sy-subrc, lv_obj_name TYPE tadir-obj_name, ls_dd02v TYPE dd02v, ls_dd09l TYPE dd09l, - lt_dd03p TYPE STANDARD TABLE OF dd03p WITH DEFAULT KEY. + lt_dd03p TYPE temp3. FIELD-SYMBOLS: LIKE LINE OF lt_dd03p. @@ -315,7 +322,9 @@ CLASS zcl_abapgit_persist_migrate IMPLEMENTATION. SELECT SINGLE tabname FROM dd02l INTO lv_tabname WHERE tabname = zcl_abapgit_persistence_db=>c_tabname. "#EC CI_NOORDER - rv_exists = xsdbool( sy-subrc = 0 ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( sy-subrc = 0 ). + rv_exists = temp3. ENDMETHOD. ENDCLASS. diff --git a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap index 9652bb2b6..17206399a 100644 --- a/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap +++ b/src/persist/zcl_abapgit_persist_migrate.clas.locals_imp.abap @@ -27,8 +27,8 @@ CLASS lcl_cua_interface IMPLEMENTATION. AND object = 'PROG' AND obj_name = sy-cprog. - ro_instance = NEW #( iv_language = 'E' - is_item = ls_item ). + CREATE OBJECT ro_instance EXPORTING iv_language = 'E' + is_item = ls_item. ENDMETHOD. @@ -46,7 +46,7 @@ CLASS lcl_cua_interface IMPLEMENTATION. is_cua = is_cua iv_program_name = ms_item-obj_name ). - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE zcl_abapgit_log. zcl_abapgit_objects_activation=>activate( li_log ). zcl_abapgit_objects_activation=>clear( ). diff --git a/src/persist/zcl_abapgit_persist_packages.clas.abap b/src/persist/zcl_abapgit_persist_packages.clas.abap index 1abe63540..425d44737 100644 --- a/src/persist/zcl_abapgit_persist_packages.clas.abap +++ b/src/persist/zcl_abapgit_persist_packages.clas.abap @@ -61,7 +61,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. DATA lo_input TYPE REF TO zif_abapgit_xml_input. - lo_input = NEW zcl_abapgit_xml_input( iv_xml = iv_xml ). + CREATE OBJECT lo_input TYPE zcl_abapgit_xml_input EXPORTING iv_xml = iv_xml. lo_input->read( EXPORTING @@ -75,7 +75,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. METHOD get_instance. IF go_persist IS NOT BOUND. - go_persist = NEW #( ). + CREATE OBJECT go_persist. ENDIF. ro_persist = go_persist. @@ -144,7 +144,7 @@ CLASS zcl_abapgit_persist_packages IMPLEMENTATION. DATA li_output TYPE REF TO zif_abapgit_xml_output. - li_output = NEW zcl_abapgit_xml_output( ). + CREATE OBJECT li_output TYPE zcl_abapgit_xml_output. li_output->add( iv_name = zcl_abapgit_persistence_db=>c_type_packages diff --git a/src/persist/zcl_abapgit_persist_settings.clas.abap b/src/persist/zcl_abapgit_persist_settings.clas.abap index 2174e8f79..125dc3af9 100644 --- a/src/persist/zcl_abapgit_persist_settings.clas.abap +++ b/src/persist/zcl_abapgit_persist_settings.clas.abap @@ -52,7 +52,7 @@ CLASS ZCL_ABAPGIT_PERSIST_SETTINGS IMPLEMENTATION. ENDIF. " Settings have changed or have not yet been loaded - ro_settings = NEW #( ). + CREATE OBJECT ro_settings. TRY. diff --git a/src/persist/zcl_abapgit_persistence_db.clas.abap b/src/persist/zcl_abapgit_persistence_db.clas.abap index 8fb9b5add..f73f44ac9 100644 --- a/src/persist/zcl_abapgit_persistence_db.clas.abap +++ b/src/persist/zcl_abapgit_persistence_db.clas.abap @@ -131,7 +131,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION. METHOD get_instance. IF go_db IS NOT BOUND. - go_db = NEW #( ). + CREATE OBJECT go_db. ENDIF. ro_db = go_db. diff --git a/src/persist/zcl_abapgit_persistence_repo.clas.abap b/src/persist/zcl_abapgit_persistence_repo.clas.abap index 28d1a727d..e7024d64a 100644 --- a/src/persist/zcl_abapgit_persistence_repo.clas.abap +++ b/src/persist/zcl_abapgit_persistence_repo.clas.abap @@ -19,7 +19,8 @@ CLASS zcl_abapgit_persistence_repo DEFINITION PRIVATE SECTION. - DATA mt_meta_fields TYPE STANDARD TABLE OF abap_compname. + TYPES temp1_ad823f8588 TYPE STANDARD TABLE OF abap_compname. +DATA mt_meta_fields TYPE temp1_ad823f8588. DATA mo_db TYPE REF TO zcl_abapgit_persistence_db . METHODS from_xml @@ -242,7 +243,7 @@ CLASS zcl_abapgit_persistence_repo IMPLEMENTATION. DATA: lo_background TYPE REF TO zcl_abapgit_persist_background. - lo_background = NEW #( ). + CREATE OBJECT lo_background. lo_background->delete( iv_key ). mo_db->delete( iv_type = zcl_abapgit_persistence_db=>c_type_repo @@ -262,7 +263,9 @@ CLASS zcl_abapgit_persistence_repo IMPLEMENTATION. it_keys = lt_keys iv_type = zcl_abapgit_persistence_db=>c_type_repo ). - rv_yes = xsdbool( lines( lt_content ) > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lines( lt_content ) > 0 ). + rv_yes = temp1. ENDMETHOD. diff --git a/src/persist/zcl_abapgit_persistence_user.clas.abap b/src/persist/zcl_abapgit_persistence_user.clas.abap index 81f47ef0b..a72359a9e 100644 --- a/src/persist/zcl_abapgit_persistence_user.clas.abap +++ b/src/persist/zcl_abapgit_persistence_user.clas.abap @@ -116,11 +116,11 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. IF iv_user = sy-uname ##USER_OK. IF gi_current_user IS NOT BOUND. - gi_current_user = NEW zcl_abapgit_persistence_user( ). + CREATE OBJECT gi_current_user TYPE zcl_abapgit_persistence_user. ENDIF. ri_user = gi_current_user. ELSE. - ri_user = NEW zcl_abapgit_persistence_user( iv_user = iv_user ). + CREATE OBJECT ri_user TYPE zcl_abapgit_persistence_user EXPORTING iv_user = iv_user. ENDIF. ENDMETHOD. @@ -335,7 +335,9 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. READ TABLE ms_user-favorites TRANSPORTING NO FIELDS WITH KEY table_line = iv_repo_key. - rv_yes = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_yes = temp1. ENDMETHOD. @@ -449,7 +451,9 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_changes_only. - ms_user-changes_only = xsdbool( ms_user-changes_only = abap_false ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( ms_user-changes_only = abap_false ). + ms_user-changes_only = temp2. update( ). rv_changes_only = ms_user-changes_only. @@ -459,7 +463,9 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_diff_unified. - ms_user-diff_unified = xsdbool( ms_user-diff_unified = abap_false ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( ms_user-diff_unified = abap_false ). + ms_user-diff_unified = temp3. update( ). rv_diff_unified = ms_user-diff_unified. @@ -485,7 +491,9 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_hide_files. - ms_user-hide_files = xsdbool( ms_user-hide_files = abap_false ). + DATA temp4 TYPE xsdboolean. + temp4 = boolc( ms_user-hide_files = abap_false ). + ms_user-hide_files = temp4. update( ). rv_hide = ms_user-hide_files. @@ -494,7 +502,9 @@ CLASS zcl_abapgit_persistence_user IMPLEMENTATION. METHOD zif_abapgit_persist_user~toggle_show_folders. - ms_user-show_folders = xsdbool( ms_user-show_folders = abap_false ). + DATA temp5 TYPE xsdboolean. + temp5 = boolc( ms_user-show_folders = abap_false ). + ms_user-show_folders = temp5. update( ). rv_folders = ms_user-show_folders. diff --git a/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap b/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap index 51e31fe93..ba0e65057 100644 --- a/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap +++ b/src/repo/filter/zcl_abapgit_object_filter_tran.clas.testclasses.abap @@ -24,7 +24,7 @@ ENDCLASS. CLASS ltcl_adjust_filter IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. METHOD teardown. diff --git a/src/repo/stage/zcl_abapgit_merge.clas.abap b/src/repo/stage/zcl_abapgit_merge.clas.abap index cfe84fa74..e018ccba2 100644 --- a/src/repo/stage/zcl_abapgit_merge.clas.abap +++ b/src/repo/stage/zcl_abapgit_merge.clas.abap @@ -92,7 +92,7 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. lt_files = all_files( ). - ms_merge-stage = NEW #( iv_merge_source = ms_merge-source-sha1 ). + CREATE OBJECT ms_merge-stage EXPORTING iv_merge_source = ms_merge-source-sha1. LOOP AT lt_files ASSIGNING . @@ -110,9 +110,15 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. WITH KEY path_name COMPONENTS path = -path name = -name. "#EC CI_SUBRC - lv_found_source = xsdbool( IS ASSIGNED ). - lv_found_target = xsdbool( IS ASSIGNED ). - lv_found_common = xsdbool( IS ASSIGNED ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( IS ASSIGNED ). + lv_found_source = temp1. + DATA temp2 TYPE xsdboolean. + temp2 = boolc( IS ASSIGNED ). + lv_found_target = temp2. + DATA temp3 TYPE xsdboolean. + temp3 = boolc( IS ASSIGNED ). + lv_found_common = temp3. IF lv_found_source = abap_false AND lv_found_target = abap_false. @@ -369,7 +375,9 @@ CLASS zcl_abapgit_merge IMPLEMENTATION. METHOD zif_abapgit_merge~has_conflicts. - rv_conflicts_exists = xsdbool( lines( mt_conflicts ) > 0 ). + DATA temp4 TYPE xsdboolean. + temp4 = boolc( lines( mt_conflicts ) > 0 ). + rv_conflicts_exists = temp4. ENDMETHOD. diff --git a/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap b/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap index 580ad16bd..9a903c0b8 100644 --- a/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap +++ b/src/repo/utils/zcl_abapgit_repo_item_state.clas.abap @@ -48,9 +48,9 @@ CLASS zcl_abapgit_repo_item_state IMPLEMENTATION. METHOD is_unchanged. - rv_is_unchanged = xsdbool( mv_is_reassigned = abap_false - AND mv_lstate = zif_abapgit_definitions=>c_state-unchanged - AND mv_rstate = zif_abapgit_definitions=>c_state-unchanged ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( mv_is_reassigned = abap_false AND mv_lstate = zif_abapgit_definitions=>c_state-unchanged AND mv_rstate = zif_abapgit_definitions=>c_state-unchanged ). + rv_is_unchanged = temp1. ENDMETHOD. @@ -86,7 +86,9 @@ CLASS zcl_abapgit_repo_item_state IMPLEMENTATION. mv_rstate = reduce( iv_prev = mv_rstate iv_cur = is_repo_item-rstate ). - mv_is_reassigned = xsdbool( mv_is_reassigned = abap_true OR is_repo_item-packmove = abap_true ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( mv_is_reassigned = abap_true OR is_repo_item-packmove = abap_true ). + mv_is_reassigned = temp2. ENDMETHOD. @@ -99,7 +101,9 @@ CLASS zcl_abapgit_repo_item_state IMPLEMENTATION. mv_rstate = reduce( iv_prev = mv_rstate iv_cur = is_status_item-rstate ). - mv_is_reassigned = xsdbool( mv_is_reassigned = abap_true OR is_status_item-packmove = abap_true ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( mv_is_reassigned = abap_true OR is_status_item-packmove = abap_true ). + mv_is_reassigned = temp3. ENDMETHOD. ENDCLASS. diff --git a/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap b/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap index 272d338c7..477f0ec8f 100644 --- a/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap +++ b/src/repo/utils/zcl_abapgit_repo_item_state.clas.testclasses.abap @@ -13,7 +13,7 @@ CLASS ltcl_state_test IMPLEMENTATION. DATA ls_item TYPE zif_abapgit_definitions=>ty_result. DATA lo_cut TYPE REF TO zcl_abapgit_repo_item_state. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. cl_abap_unit_assert=>assert_equals( act = lo_cut->local( ) @@ -123,7 +123,7 @@ CLASS ltcl_state_test IMPLEMENTATION. DATA ls_item TYPE zif_abapgit_definitions=>ty_repo_item. DATA lo_cut TYPE REF TO zcl_abapgit_repo_item_state. - lo_cut = NEW #( ). + CREATE OBJECT lo_cut. cl_abap_unit_assert=>assert_equals( act = lo_cut->local( ) diff --git a/src/repo/utils/zcl_abapgit_repo_news.clas.abap b/src/repo/utils/zcl_abapgit_repo_news.clas.abap index 3ddbe6f92..93ed510f9 100644 --- a/src/repo/utils/zcl_abapgit_repo_news.clas.abap +++ b/src/repo/utils/zcl_abapgit_repo_news.clas.abap @@ -157,9 +157,9 @@ CLASS zcl_abapgit_repo_news IMPLEMENTATION. LOOP AT lt_remote ASSIGNING WHERE path = lc_log_path AND ( filename CP lc_log_filename OR filename CP lc_log_filename_up ). - ro_instance = NEW #( iv_rawdata = -data - iv_current_version = lv_version - iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ) ). + CREATE OBJECT ro_instance EXPORTING iv_rawdata = -data + iv_current_version = lv_version + iv_lastseen_version = zcl_abapgit_version=>normalize( lv_last_seen ). EXIT. @@ -181,26 +181,32 @@ CLASS zcl_abapgit_repo_news IMPLEMENTATION. METHOD has_important. READ TABLE mt_log WITH KEY is_important = abap_true TRANSPORTING NO FIELDS. - rv_boolean = xsdbool( sy-subrc IS INITIAL ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc IS INITIAL ). + rv_boolean = temp1. ENDMETHOD. METHOD has_news. - rv_boolean = xsdbool( lines( mt_log ) > 0 ). + DATA temp2 TYPE xsdboolean. + temp2 = boolc( lines( mt_log ) > 0 ). + rv_boolean = temp2. ENDMETHOD. METHOD has_unseen. - rv_boolean = xsdbool( zcl_abapgit_version=>compare( - iv_a = mv_latest_version - iv_b = mv_lastseen_version ) > 0 ). + DATA temp3 TYPE xsdboolean. + temp3 = boolc( zcl_abapgit_version=>compare( iv_a = mv_latest_version + iv_b = mv_lastseen_version ) > 0 ). + rv_boolean = temp3. ENDMETHOD. METHOD has_updates. - rv_boolean = xsdbool( zcl_abapgit_version=>compare( - iv_a = mv_latest_version - iv_b = mv_current_version ) > 0 ). + DATA temp4 TYPE xsdboolean. + temp4 = boolc( zcl_abapgit_version=>compare( iv_a = mv_latest_version + iv_b = mv_current_version ) > 0 ). + rv_boolean = temp4. ENDMETHOD. @@ -277,7 +283,9 @@ CLASS zcl_abapgit_repo_news IMPLEMENTATION. iv_b = iv_current_version ). ELSE. FIND FIRST OCCURRENCE OF REGEX '^\s*!' IN iv_line. - rs_log-is_important = xsdbool( sy-subrc IS INITIAL ). " Change is important + DATA temp5 TYPE xsdboolean. + temp5 = boolc( sy-subrc IS INITIAL ). + rs_log-is_important = temp5. " Change is important ENDIF. rs_log-text = iv_line. diff --git a/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap b/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap index eef570087..fac2c0c4c 100644 --- a/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap +++ b/src/repo/utils/zcl_abapgit_repo_news.clas.testclasses.abap @@ -152,7 +152,7 @@ CLASS ltcl_news IMPLEMENTATION. DATA lo_log_entries TYPE REF TO lcl_log_entries. " Generate test data - lo_src_text_buf = NEW #( ). + CREATE OBJECT lo_src_text_buf. lo_src_text_buf->add( '======' ). lo_src_text_buf->add( '------' ). lo_src_text_buf->add( ` ` ). @@ -169,7 +169,7 @@ CLASS ltcl_news IMPLEMENTATION. " Case 1 " Generate expected results - lo_log_entries = NEW #( ). + CREATE OBJECT lo_log_entries. " VERSION HEAD IMP POS TEXT lo_log_entries->add( '1.28.0 /X / /1 /2017-02-13 v1.28.0' ). lo_log_entries->add( '1.28.0 / / /0 /+ Staging page redesigned' ). @@ -187,7 +187,7 @@ CLASS ltcl_news IMPLEMENTATION. " Case 2 (exect version match) - lo_log_entries = NEW #( ). + CREATE OBJECT lo_log_entries. " VERSION HEAD IMP UPD TEXT lo_log_entries->add( '1.28.0 /X / /1 /2017-02-13 v1.28.0' ). lo_log_entries->add( '1.28.0 / / /0 /+ Staging page redesigned' ). @@ -202,7 +202,7 @@ CLASS ltcl_news IMPLEMENTATION. msg = ' Error during parsing: Case 2.' ). " Case 3 (display tail) - lo_log_entries = NEW #( ). + CREATE OBJECT lo_log_entries. " VERSION HEAD IMP UPD TEXT lo_log_entries->add( '1.28.0 /X / /0 /2017-02-13 v1.28.0' ). lo_log_entries->add( '1.28.0 / / /0 /+ Staging page redesigned' ). diff --git a/src/repo/utils/zcl_abapgit_zip.clas.abap b/src/repo/utils/zcl_abapgit_zip.clas.abap index e399f761d..854e317b3 100644 --- a/src/repo/utils/zcl_abapgit_zip.clas.abap +++ b/src/repo/utils/zcl_abapgit_zip.clas.abap @@ -88,7 +88,7 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. FIELD-SYMBOLS: LIKE LINE OF it_files. - lo_zip = NEW #( ). + CREATE OBJECT lo_zip. LOOP AT it_files ASSIGNING . CONCATENATE -file-path+1 -file-filename INTO lv_filename. @@ -107,15 +107,15 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. DATA lt_zip TYPE zif_abapgit_definitions=>ty_files_item_tt. DATA lo_serialize TYPE REF TO zcl_abapgit_serialize. - li_log = NEW zcl_abapgit_log( ). + CREATE OBJECT li_log TYPE zcl_abapgit_log. li_log->set_title( 'Zip Export Log' ). IF zcl_abapgit_factory=>get_sap_package( iv_package )->exists( ) = abap_false. zcx_abapgit_exception=>raise( |Package { iv_package } doesn't exist| ). ENDIF. - lo_serialize = NEW #( io_dot_abapgit = io_dot_abapgit - is_local_settings = is_local_settings ). + CREATE OBJECT lo_serialize EXPORTING io_dot_abapgit = io_dot_abapgit + is_local_settings = is_local_settings. lt_zip = lo_serialize->files_local( iv_package = iv_package @@ -313,7 +313,7 @@ CLASS zcl_abapgit_zip IMPLEMENTATION. LIKE LINE OF rt_files. - lo_zip = NEW #( ). + CREATE OBJECT lo_zip. lo_zip->load( EXPORTING zip = iv_xstr EXCEPTIONS diff --git a/src/repo/zcl_abapgit_dot_abapgit.clas.abap b/src/repo/zcl_abapgit_dot_abapgit.clas.abap index db8ee9264..fe71b7b4d 100644 --- a/src/repo/zcl_abapgit_dot_abapgit.clas.abap +++ b/src/repo/zcl_abapgit_dot_abapgit.clas.abap @@ -170,7 +170,7 @@ CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION. ls_data-starting_folder = '/src/'. ls_data-folder_logic = zif_abapgit_dot_abapgit=>c_folder_logic-prefix. - ro_dot_abapgit = NEW #( is_data = ls_data ). + CREATE OBJECT ro_dot_abapgit EXPORTING is_data = ls_data. ENDMETHOD. @@ -190,7 +190,7 @@ CLASS zcl_abapgit_dot_abapgit IMPLEMENTATION. ls_data = from_xml( lv_xml ). - ro_dot_abapgit = NEW #( is_data = ls_data ). + CREATE OBJECT ro_dot_abapgit EXPORTING is_data = ls_data. ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo.clas.abap b/src/repo/zcl_abapgit_repo.clas.abap index 9df77bd70..6a86d060b 100644 --- a/src/repo/zcl_abapgit_repo.clas.abap +++ b/src/repo/zcl_abapgit_repo.clas.abap @@ -205,7 +205,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. DATA lo_abapgit_abap_language_vers TYPE REF TO zcl_abapgit_abap_language_vers. DATA lv_text TYPE string. - lo_abapgit_abap_language_vers = NEW #( io_dot_abapgit = get_dot_abapgit( ) ). + CREATE OBJECT lo_abapgit_abap_language_vers EXPORTING io_dot_abapgit = get_dot_abapgit( ). IF lo_abapgit_abap_language_vers->is_import_allowed( ms_data-package ) = abap_false. lv_text = |Repository cannot be imported. | && @@ -270,7 +270,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD create_new_log. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE zcl_abapgit_log. mi_log->set_title( iv_title ). ri_log = mi_log. @@ -368,7 +368,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. RETURN. ENDIF. - ri_config = NEW zcl_abapgit_data_config( ). + CREATE OBJECT ri_config TYPE zcl_abapgit_data_config. mi_data_config = ri_config. " Assume remote data has been loaded already @@ -468,7 +468,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. CLEAR lt_tadir. INSERT ls_tadir INTO TABLE lt_tadir. - lo_serialize = NEW #( ). + CREATE OBJECT lo_serialize. lt_new_local_files = lo_serialize->serialize( iv_package = ms_data-package it_tadir = lt_tadir ). @@ -677,7 +677,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~checksums. - ri_checksums = NEW zcl_abapgit_repo_checksums( iv_repo_key = ms_data-key ). + CREATE OBJECT ri_checksums TYPE zcl_abapgit_repo_checksums EXPORTING iv_repo_key = ms_data-key. ENDMETHOD. @@ -777,7 +777,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~get_dot_abapgit. - ro_dot_abapgit = NEW #( is_data = ms_data-dot_abapgit ). + CREATE OBJECT ro_dot_abapgit EXPORTING is_data = ms_data-dot_abapgit. ENDMETHOD. @@ -791,8 +791,8 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. RETURN. ENDIF. - lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ) ). + CREATE OBJECT lo_serialize EXPORTING io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ). rt_files = lo_serialize->files_local( iv_package = get_package( ) @@ -813,8 +813,8 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. DATA lt_filter TYPE zif_abapgit_definitions=>ty_tadir_tt. - lo_serialize = NEW #( io_dot_abapgit = get_dot_abapgit( ) - is_local_settings = get_local_settings( ) ). + CREATE OBJECT lo_serialize EXPORTING io_dot_abapgit = get_dot_abapgit( ) + is_local_settings = get_local_settings( ). lt_filter = ii_obj_filter->get_filter( ). @@ -843,7 +843,7 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. IF ii_obj_filter IS NOT INITIAL. lt_filter = ii_obj_filter->get_filter( ). - lr_filter = NEW #( ). + CREATE OBJECT lr_filter. lr_filter->apply_object_filter( EXPORTING it_filter = lt_filter @@ -897,7 +897,9 @@ CLASS ZCL_ABAPGIT_REPO IMPLEMENTATION. METHOD zif_abapgit_repo~has_remote_source. - rv_yes = xsdbool( lines( mt_remote ) > 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( lines( mt_remote ) > 0 ). + rv_yes = temp1. ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo.clas.testclasses.abap b/src/repo/zcl_abapgit_repo.clas.testclasses.abap index 3ad6e045d..f6a3f4ed4 100644 --- a/src/repo/zcl_abapgit_repo.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo.clas.testclasses.abap @@ -64,7 +64,7 @@ CLASS ltcl_find_remote_dot_abapgit IMPLEMENTATION. ls_data-key = c_dummy_repo_key. " online/offline doesn't matter... - mo_repo = NEW zcl_abapgit_repo_offline( is_data = ls_data ). + CREATE OBJECT mo_repo TYPE zcl_abapgit_repo_offline EXPORTING is_data = ls_data. ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap index 61eb0be6d..1c944de48 100644 --- a/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo_checksums.clas.testclasses.abap @@ -364,13 +364,13 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA li_cut TYPE REF TO zif_abapgit_repo_checksums. DATA lt_checksums_exp TYPE zif_abapgit_persistence=>ty_local_checksum_tt. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). ltcl_test_checksum_serializer=>get_mock( IMPORTING et_checksums = lt_checksums_exp ). - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums EXPORTING iv_repo_key = '1'. cl_abap_unit_assert=>assert_equals( act = li_cut->get( ) @@ -386,25 +386,25 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_r_builder TYPE REF TO lcl_remote_file_builder. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - lo_l_builder = NEW #( ). + CREATE OBJECT lo_l_builder. lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.abap hash1' ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.xml hash2' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). lo_mock->mt_local_files = lo_l_builder->mt_tab. " Remote - lo_r_builder = NEW #( ). + CREATE OBJECT lo_r_builder. lo_r_builder->add( '/ zhello.prog.abap hash1' ). lo_r_builder->add( '/ zhello.prog.xml hash2' ). lo_r_builder->add( '/ $pkg.devc.xml hash3' ). lo_mock->mt_remote_files = lo_r_builder->mt_tab. - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums EXPORTING iv_repo_key = '1'. li_cut->rebuild( ). @@ -431,16 +431,16 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lv_cs_exp TYPE string. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). - lo_f_builder = NEW #( ). + CREATE OBJECT lo_f_builder. lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums EXPORTING iv_repo_key = '1'. li_cut->update( lo_f_builder->mt_tab ). @@ -486,25 +486,25 @@ CLASS ltcl_test_checksums IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_r_builder TYPE REF TO lcl_remote_file_builder. - lo_mock = NEW #( ). + CREATE OBJECT lo_mock. zcl_abapgit_repo_srv=>inject_instance( lo_mock ). zcl_abapgit_persist_injector=>set_repo_cs( me ). " Local - lo_l_builder = NEW #( ). + CREATE OBJECT lo_l_builder. lo_l_builder->add( '@ @ @ / .abapgit.xml hashZ' ). lo_l_builder->add( '@ @ @ / .gitignore whatever' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). lo_mock->mt_local_files = lo_l_builder->mt_tab. " Remote - lo_r_builder = NEW #( ). + CREATE OBJECT lo_r_builder. lo_r_builder->add( '/ .abapgit.xml hashZ' ). lo_r_builder->add( '/ .gitignore whatever' ). lo_r_builder->add( '/ $pkg.devc.xml hash3' ). lo_mock->mt_remote_files = lo_r_builder->mt_tab. - li_cut = NEW zcl_abapgit_repo_checksums( iv_repo_key = '1' ). + CREATE OBJECT li_cut TYPE zcl_abapgit_repo_checksums EXPORTING iv_repo_key = '1'. li_cut->rebuild( ). @@ -547,11 +547,11 @@ CLASS ltcl_update_calculator_test IMPLEMENTATION. DATA lo_l_builder TYPE REF TO lcl_local_file_builder. DATA lo_f_builder TYPE REF TO lcl_file_sig_builder. - lo_f_builder = NEW #( ). + CREATE OBJECT lo_f_builder. lo_f_builder->add( '/ zhello.prog.abap hash1' ). lo_f_builder->add( '/ zhello.prog.xml hashNEW' ). - lo_l_builder = NEW #( ). + CREATE OBJECT lo_l_builder. lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.abap hash1' ). lo_l_builder->add( '$PKG PROG ZHELLO / zhello.prog.xml hash2' ). lo_l_builder->add( '$PKG DEVC $PKG / $pkg.devc.xml hash3' ). diff --git a/src/repo/zcl_abapgit_repo_content_list.clas.abap b/src/repo/zcl_abapgit_repo_content_list.clas.abap index 76b4deec4..2f30bf983 100644 --- a/src/repo/zcl_abapgit_repo_content_list.clas.abap +++ b/src/repo/zcl_abapgit_repo_content_list.clas.abap @@ -92,7 +92,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. ls_folder-path = -path. ls_folder-sortkey = c_sortkey-dir. " Directory ls_folder-is_dir = abap_true. - lo_state = NEW #( ). + CREATE OBJECT lo_state. ENDAT. ls_folder-changes = ls_folder-changes + -changes. @@ -136,12 +136,14 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. -changes = 0. -path = -path. -srcsystem = -srcsystem. - lo_state = NEW #( ). + CREATE OBJECT lo_state. ENDAT. IF -filename IS NOT INITIAL. MOVE-CORRESPONDING TO ls_file. - ls_file-is_changed = xsdbool( -match = abap_false ). " TODO refactor + DATA temp1 TYPE xsdboolean. + temp1 = boolc( -match = abap_false ). + ls_file-is_changed = temp1. " TODO refactor APPEND ls_file TO -files. IF -inactive = abap_true AND -sortkey > c_sortkey-changed. @@ -204,7 +206,7 @@ CLASS zcl_abapgit_repo_content_list IMPLEMENTATION. METHOD constructor. mo_repo = io_repo. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE zcl_abapgit_log. ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_cs_migration.clas.abap b/src/repo/zcl_abapgit_repo_cs_migration.clas.abap index 87e6488b1..6dd5f1ac5 100644 --- a/src/repo/zcl_abapgit_repo_cs_migration.clas.abap +++ b/src/repo/zcl_abapgit_repo_cs_migration.clas.abap @@ -71,7 +71,7 @@ CLASS ZCL_ABAPGIT_REPO_CS_MIGRATION IMPLEMENTATION. RETURN. ENDIF. - lo_cs = NEW #( iv_repo_key = iv_repo_key ). + CREATE OBJECT lo_cs EXPORTING iv_repo_key = iv_repo_key. lo_cs->force_write( ls_repo_extract-local_checksums ). ENDMETHOD. diff --git a/src/repo/zcl_abapgit_repo_srv.clas.abap b/src/repo/zcl_abapgit_repo_srv.clas.abap index 51bbfe330..c91599a36 100644 --- a/src/repo/zcl_abapgit_repo_srv.clas.abap +++ b/src/repo/zcl_abapgit_repo_srv.clas.abap @@ -122,7 +122,7 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD get_instance. IF gi_ref IS INITIAL. - gi_ref = NEW zcl_abapgit_repo_srv( ). + CREATE OBJECT gi_ref TYPE zcl_abapgit_repo_srv. ENDIF. ri_srv = gi_ref. ENDMETHOD. @@ -136,9 +136,9 @@ CLASS zcl_abapgit_repo_srv IMPLEMENTATION. METHOD instantiate_and_add. IF is_repo_meta-offline = abap_false. - ri_repo = NEW zcl_abapgit_repo_online( is_data = is_repo_meta ). + CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_online EXPORTING is_data = is_repo_meta. ELSE. - ri_repo = NEW zcl_abapgit_repo_offline( is_data = is_repo_meta ). + CREATE OBJECT ri_repo TYPE zcl_abapgit_repo_offline EXPORTING is_data = is_repo_meta. ENDIF. add( ri_repo ). diff --git a/src/repo/zcl_abapgit_repo_status.clas.abap b/src/repo/zcl_abapgit_repo_status.clas.abap index f542c40e8..b2e167346 100644 --- a/src/repo/zcl_abapgit_repo_status.clas.abap +++ b/src/repo/zcl_abapgit_repo_status.clas.abap @@ -136,7 +136,9 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. rs_result-path = is_local-file-path. rs_result-filename = is_local-file-filename. - rs_result-match = xsdbool( is_local-file-sha1 = is_remote-sha1 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( is_local-file-sha1 = is_remote-sha1 ). + rs_result-match = temp1. IF rs_result-match = abap_true. RETURN. ENDIF. @@ -288,8 +290,8 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. ct_local = lt_local ct_remote = lt_remote ). - lo_instance = NEW #( iv_root_package = ii_repo->get_package( ) - io_dot = ii_repo->get_dot_abapgit( ) ). + CREATE OBJECT lo_instance EXPORTING iv_root_package = ii_repo->get_package( ) + io_dot = ii_repo->get_dot_abapgit( ). rt_results = lo_instance->calculate_status( it_local = lt_local @@ -298,8 +300,8 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. IF ii_log IS BOUND. " This method just adds messages to the log. No log, nothing to do here - lo_consistency_checks = NEW #( iv_root_package = ii_repo->get_package( ) - io_dot = ii_repo->get_dot_abapgit( ) ). + CREATE OBJECT lo_consistency_checks EXPORTING iv_root_package = ii_repo->get_package( ) + io_dot = ii_repo->get_dot_abapgit( ). ii_log->merge_with( lo_consistency_checks->run_checks( rt_results ) ). ENDIF. @@ -423,12 +425,13 @@ CLASS zcl_abapgit_repo_status IMPLEMENTATION. METHOD process_items. - DATA: + TYPES temp1 TYPE SORTED TABLE OF devclass WITH UNIQUE KEY table_line. +DATA: ls_item LIKE LINE OF ct_items, lv_is_xml TYPE abap_bool, lv_is_json TYPE abap_bool, lv_sub_fetched TYPE abap_bool, - lt_sub_packages TYPE SORTED TABLE OF devclass WITH UNIQUE KEY table_line. + lt_sub_packages TYPE temp1. FIELD-SYMBOLS LIKE LINE OF it_unprocessed_remote. diff --git a/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap b/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap index 69e5d4b91..938bab5f4 100644 --- a/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap +++ b/src/repo/zcl_abapgit_repo_status.clas.locals_imp.abap @@ -65,7 +65,7 @@ CLASS lcl_status_consistency_checks IMPLEMENTATION. METHOD run_checks. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE zcl_abapgit_log. " Find all objects which were assigned to a different package check_package_move( it_results ). diff --git a/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap b/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap index 4af21c2cb..9e9d289a2 100644 --- a/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap +++ b/src/repo/zcl_abapgit_repo_status.clas.testclasses.abap @@ -118,7 +118,9 @@ CLASS ltcl_run_checks IMPLEMENTATION. ENDMETHOD. METHOD zif_abapgit_sap_namespace~exists. - rv_yes = xsdbool( iv_namespace <> 'NOTEXIST' ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( iv_namespace <> 'NOTEXIST' ). + rv_yes = temp1. ENDMETHOD. METHOD zif_abapgit_sap_namespace~is_editable. @@ -149,7 +151,7 @@ CLASS ltcl_run_checks IMPLEMENTATION. METHOD setup. - mi_log = NEW zcl_abapgit_log( ). + CREATE OBJECT mi_log TYPE zcl_abapgit_log. mo_dot = zcl_abapgit_dot_abapgit=>build_default( ). mo_dot->set_starting_folder( '/' ). " assumed by unit tests @@ -162,8 +164,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. zcl_abapgit_injector=>set_sap_namespace( me ). - mo_instance = NEW #( iv_root_package = '$Z$' - io_dot = mo_dot ). + CREATE OBJECT mo_instance EXPORTING iv_root_package = '$Z$' + io_dot = mo_dot. ENDMETHOD. @@ -503,8 +505,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '#notexist#zclass1.clas.xml' ). - mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot ). + CREATE OBJECT mo_instance EXPORTING iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot. mi_log = mo_instance->run_checks( mt_results ). @@ -530,8 +532,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '/' iv_filename = '(notexist)zclass1.clas.json' ). - mo_instance = NEW #( iv_root_package = '/NOTEXIST/Z' - io_dot = mo_dot ). + CREATE OBJECT mo_instance EXPORTING iv_root_package = '/NOTEXIST/Z' + io_dot = mo_dot. mi_log = mo_instance->run_checks( mt_results ). @@ -565,8 +567,8 @@ CLASS ltcl_run_checks IMPLEMENTATION. iv_path = '' iv_filename = 'package.devc.xml' ). - mo_instance = NEW #( iv_root_package = '$MAIN' - io_dot = mo_dot ). + CREATE OBJECT mo_instance EXPORTING iv_root_package = '$MAIN' + io_dot = mo_dot. mi_log = mo_instance->run_checks( mt_results ). @@ -681,8 +683,9 @@ CLASS ltcl_status_helper DEFINITION FOR TESTING. devclass TYPE tadir-devclass, END OF ty_tadir. - DATA: - mt_tadir TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY, + TYPES temp1_69da81890d TYPE STANDARD TABLE OF ty_tadir WITH DEFAULT KEY. +DATA: + mt_tadir TYPE temp1_69da81890d, mt_local TYPE zif_abapgit_definitions=>ty_files_item_tt, mt_remote TYPE zif_abapgit_git_definitions=>ty_files_tt, mt_state TYPE zif_abapgit_git_definitions=>ty_file_signatures_tt. @@ -771,15 +774,15 @@ CLASS ltcl_status_helper IMPLEMENTATION. lo_dot = zcl_abapgit_dot_abapgit=>build_default( ). lo_dot->set_starting_folder( '/' ). " assumed by unit tests - lo_instance = NEW #( iv_root_package = iv_devclass - io_dot = lo_dot ). + CREATE OBJECT lo_instance EXPORTING iv_root_package = iv_devclass + io_dot = lo_dot. lt_results = lo_instance->calculate_status( it_local = mt_local it_remote = mt_remote it_cur_state = mt_state ). - ro_result = NEW #( it_results = lt_results ). + CREATE OBJECT ro_result EXPORTING it_results = lt_results. ENDMETHOD. @@ -820,7 +823,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD setup. - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. zcl_abapgit_injector=>set_tadir( mo_helper ). ENDMETHOD. @@ -920,7 +923,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. METHOD diff. " Modified both - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -948,7 +951,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-modified ). " Modified local only - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' @@ -976,7 +979,7 @@ CLASS ltcl_calculate_status IMPLEMENTATION. exp = zif_abapgit_definitions=>c_state-unchanged ). " Modified remote only - mo_helper = NEW #( ). + CREATE OBJECT mo_helper. mo_helper->add_local( iv_obj_type = 'DOMA' iv_obj_name = '$$ZDOMA1' diff --git a/src/syntax/zcl_abapgit_syntax_abap.clas.abap b/src/syntax/zcl_abapgit_syntax_abap.clas.abap index ddb4c1aac..49169cd6c 100644 --- a/src/syntax/zcl_abapgit_syntax_abap.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_abap.clas.abap @@ -75,8 +75,9 @@ CLASS ZCL_ABAPGIT_SYNTAX_ABAP IMPLEMENTATION. METHOD init_keywords. - DATA: lv_keywords TYPE string, - lt_keywords TYPE STANDARD TABLE OF string. + TYPES temp1 TYPE STANDARD TABLE OF string. +DATA: lv_keywords TYPE string, + lt_keywords TYPE temp1. lv_keywords = '&&|?TO|ABAP-SOURCE|ABBREVIATED|ABS|ABSTRACT|ACCEPT|ACCEPTING' && @@ -206,7 +207,9 @@ CLASS ZCL_ABAPGIT_SYNTAX_ABAP IMPLEMENTATION. lv_str = to_upper( iv_chunk ). READ TABLE gt_keywords WITH KEY table_line = lv_str TRANSPORTING NO FIELDS. - rv_yes = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_yes = temp1. ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap index 5e4e5a283..2f258d464 100644 --- a/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_abap.clas.testclasses.abap @@ -17,7 +17,7 @@ CLASS ltcl_abapgit_syntax_abap IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. @@ -64,7 +64,7 @@ ENDCLASS. CLASS ltcl_syntax_basic_logic IMPLEMENTATION. METHOD setup. - mo_syntax_highlighter = NEW #( ). + CREATE OBJECT mo_syntax_highlighter. ENDMETHOD. METHOD format_line. @@ -182,7 +182,7 @@ CLASS ltcl_syntax_cases IMPLEMENTATION. lo_syntax TYPE REF TO zcl_abapgit_syntax_abap. - lo_syntax = NEW #( ). + CREATE OBJECT lo_syntax. lt_matches_act = lo_syntax->parse_line( iv_line ). SORT lt_matches_act BY offset. diff --git a/src/syntax/zcl_abapgit_syntax_css.clas.abap b/src/syntax/zcl_abapgit_syntax_css.clas.abap index 5d16feeef..f6a84de39 100644 --- a/src/syntax/zcl_abapgit_syntax_css.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_css.clas.abap @@ -342,7 +342,8 @@ CLASS zcl_abapgit_syntax_css IMPLEMENTATION. METHOD insert_keywords. - DATA: lt_keywords TYPE STANDARD TABLE OF string, + TYPES temp1 TYPE STANDARD TABLE OF string. +DATA: lt_keywords TYPE temp1, ls_keyword TYPE ty_keyword. FIELD-SYMBOLS: TYPE any. @@ -365,7 +366,9 @@ CLASS zcl_abapgit_syntax_css IMPLEMENTATION. lv_str = to_lower( iv_chunk ). READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS. - rv_yes = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_yes = temp1. ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_factory.clas.abap b/src/syntax/zcl_abapgit_syntax_factory.clas.abap index 15204ac83..6f1e62929 100644 --- a/src/syntax/zcl_abapgit_syntax_factory.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_factory.clas.abap @@ -24,17 +24,17 @@ CLASS zcl_abapgit_syntax_factory IMPLEMENTATION. " Create instance of highlighter dynamically dependent on syntax type IF iv_filename CP '*.abap'. - ro_instance = NEW zcl_abapgit_syntax_abap( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_abap. ELSEIF iv_filename CP '*.xml' OR iv_filename CP '*.html' OR iv_filename CP '*.xdp'. - ro_instance = NEW zcl_abapgit_syntax_xml( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_xml. ELSEIF iv_filename CP '*.css'. - ro_instance = NEW zcl_abapgit_syntax_css( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_css. ELSEIF iv_filename CP '*.js'. - ro_instance = NEW zcl_abapgit_syntax_js( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_js. ELSEIF iv_filename CP '*.json' OR iv_filename CP '*.jsonc'. - ro_instance = NEW zcl_abapgit_syntax_json( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_json. ELSEIF iv_filename CP '*.txt' OR iv_filename CP '*.ini' OR iv_filename CP '*.text'. - ro_instance = NEW zcl_abapgit_syntax_txt( ). + CREATE OBJECT ro_instance TYPE zcl_abapgit_syntax_txt. ELSE. CLEAR ro_instance. ENDIF. diff --git a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap index 8bd1501bb..9859b339f 100644 --- a/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_highlighter.clas.abap @@ -33,8 +33,9 @@ CLASS zcl_abapgit_syntax_highlighter DEFINITION END OF ty_rule . CONSTANTS c_token_none TYPE c VALUE '.' ##NO_TEXT. - DATA: - mt_rules TYPE STANDARD TABLE OF ty_rule . + TYPES temp1_fcfa3a189b TYPE STANDARD TABLE OF ty_rule. +DATA: + mt_rules TYPE temp1_fcfa3a189b . DATA mv_hidden_chars TYPE abap_bool . METHODS add_rule @@ -93,8 +94,8 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. DATA ls_rule LIKE LINE OF mt_rules. IF NOT iv_regex IS INITIAL. - ls_rule-regex = NEW #( pattern = iv_regex - ignore_case = abap_true ). + CREATE OBJECT ls_rule-regex EXPORTING pattern = iv_regex + ignore_case = abap_true. ENDIF. ls_rule-token = iv_token. @@ -192,7 +193,9 @@ CLASS zcl_abapgit_syntax_highlighter IMPLEMENTATION. "/^\s+$/ lv_whitespace = ` ` && cl_abap_char_utilities=>horizontal_tab && cl_abap_char_utilities=>cr_lf. - rv_result = xsdbool( iv_string CO lv_whitespace ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( iv_string CO lv_whitespace ). + rv_result = temp1. ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_js.clas.abap b/src/syntax/zcl_abapgit_syntax_js.clas.abap index 93d6f417d..78e7dfe29 100644 --- a/src/syntax/zcl_abapgit_syntax_js.clas.abap +++ b/src/syntax/zcl_abapgit_syntax_js.clas.abap @@ -151,7 +151,8 @@ CLASS zcl_abapgit_syntax_js IMPLEMENTATION. METHOD insert_keywords. - DATA: lt_keywords TYPE STANDARD TABLE OF string, + TYPES temp1 TYPE STANDARD TABLE OF string. +DATA: lt_keywords TYPE temp1, ls_keyword TYPE ty_keyword. FIELD-SYMBOLS: TYPE any. @@ -174,7 +175,9 @@ CLASS zcl_abapgit_syntax_js IMPLEMENTATION. lv_str = to_lower( iv_chunk ). READ TABLE gt_keywords WITH TABLE KEY keyword = lv_str TRANSPORTING NO FIELDS. - rv_yes = xsdbool( sy-subrc = 0 ). + DATA temp1 TYPE xsdboolean. + temp1 = boolc( sy-subrc = 0 ). + rv_yes = temp1. ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap index d4141262c..dd12c12fd 100644 --- a/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_json.clas.testclasses.abap @@ -19,7 +19,7 @@ CLASS ltcl_abapgit_syntax_json IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. diff --git a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap index 37a3e4fc4..587c5d464 100644 --- a/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap +++ b/src/syntax/zcl_abapgit_syntax_xml.clas.testclasses.abap @@ -24,7 +24,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. METHOD setup. - mo_cut = NEW #( ). + CREATE OBJECT mo_cut. ENDMETHOD. @@ -121,7 +121,7 @@ CLASS ltcl_abapgit_syntax_xml IMPLEMENTATION. act = mo_cut->process_line( |