diff --git a/abap_transpile.json b/abap_transpile.json index 15a93e0..aa7b94d 100644 --- a/abap_transpile.json +++ b/abap_transpile.json @@ -12,8 +12,8 @@ "\\.g4ba\\.", "zbp_", "zasis_cl_interprettypetext", - "zasis_cl_catstattext", "zasis_cl_calc_export_url", + "zasis_cl_catstattext", "zasis_cl_get_domain_fix_values" ], "output_folder": "output", @@ -39,4 +39,4 @@ "addCommonJS": true, "unknownTypes": "compileError" } -} \ No newline at end of file +} diff --git a/src/catalogs/sharedobjects/zasis_cl_catstattext.clas.abap b/src/catalogs/sharedobjects/zasis_cl_catstattext.clas.abap index 9dd5470..15c943d 100644 --- a/src/catalogs/sharedobjects/zasis_cl_catstattext.clas.abap +++ b/src/catalogs/sharedobjects/zasis_cl_catstattext.clas.abap @@ -13,10 +13,7 @@ ENDCLASS. CLASS zasis_cl_catstattext IMPLEMENTATION. - - METHOD if_sadl_exit_calc_element_read~calculate. - TYPES: BEGIN OF ty_stat, status TYPE zasis_cat_stat, statustext TYPE c LENGTH 20, @@ -26,24 +23,21 @@ CLASS zasis_cl_catstattext IMPLEMENTATION. original_data = CORRESPONDING #( it_original_data ). - SELECT domvalue_l, ddtext - FROM dd07t - WHERE ddlanguage = @sy-langu AND domname = 'ZASIS_CAT_STAT' - ORDER BY domvalue_l - INTO TABLE @DATA(domain_values). - - IF sy-subrc = 0. - - LOOP AT original_data ASSIGNING FIELD-SYMBOL(). + CAST cl_abap_elemdescr( cl_abap_typedescr=>describe_by_name( 'ZASIS_CAT_STAT' ) )->get_ddic_fixed_values( + EXPORTING p_langu = sy-langu + RECEIVING p_fixed_values = DATA(fixed_values) + EXCEPTIONS not_found = 1 + no_ddic_type = 2 + OTHERS = 3 ). - READ TABLE domain_values WITH KEY domvalue_l = -status INTO DATA(domain_value). - IF sy-subrc = 0. - -statustext = domain_value-ddtext. - ENDIF. + LOOP AT original_data ASSIGNING FIELD-SYMBOL(). - ENDLOOP. + READ TABLE fixed_values WITH KEY low = -status INTO DATA(domain_value). + IF sy-subrc = 0. + -statustext = domain_value-ddtext. + ENDIF. - ENDIF. + ENDLOOP. ct_calculated_data = CORRESPONDING #( original_data ). ENDMETHOD. diff --git a/src/utils/zasis_cl_get_domain_fix_values.clas.abap b/src/utils/zasis_cl_get_domain_fix_values.clas.abap index bb42c29..709ef29 100644 --- a/src/utils/zasis_cl_get_domain_fix_values.clas.abap +++ b/src/utils/zasis_cl_get_domain_fix_values.clas.abap @@ -87,7 +87,7 @@ CLASS zasis_cl_get_domain_fix_values IMPLEMENTATION. SELECT domain_name, pos, low, high, description FROM @result AS data_source_fields WHERE domain_name IN @domain_name_filter-range - ORDER BY domain_name + ORDER BY domain_name INTO TABLE @result UP TO @max_index ROWS ##SUBRC_OK.