DATA: lt_tcurc  LIKE TABLE OF tcurc,
        lv_factor TYPE p DECIMALS 3.

  SELECT * INTO TABLE lt_tcurc FROM tcurc.

  LOOP AT lt_tcurc INTO DATA(ls_tcurc).

    CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
      EXPORTING
        currency          = ls_tcurc-waers
      IMPORTING
        factor            = lv_factor
      EXCEPTIONS
        too_many_decimals = 1
        OTHERS            = 2.

    et_result[] = VALUE #( BASE et_result[] (
      waers = ls_tcurc-waers
      factor = lv_factor
    ) ).
  ENDLOOP.

  SORT et_result BY waers.