SAP FI GS01 集的使用

  METHOD set2range.
    " this is a common method . It's used to convert FI set values into ABAP range tables.
    " Easy for coding with the business logic defined in the sets.

    DATA:
          lt_set_values TYPE TABLE OF rgsb4.

    CALL FUNCTION 'G_SET_GET_ALL_VALUES'
      EXPORTING
        client          = sy-mandt
        setnr           = i_setnr
        table           = i_table
        class           = i_class
        fieldname       = i_fieldname
        no_descriptions = ' '
      TABLES
        set_values      = lt_set_values
      EXCEPTIONS
        set_not_found   = 1
        OTHERS          = 2.

    IF i_title IS NOT INITIAL.
      DELETE lt_set_values WHERE title <> i_title.
    ENDIF.

    LOOP AT lt_set_values ASSIGNING FIELD-SYMBOL(<fs_set_value>).
      IF <fs_set_value>-to IS INITIAL.
        APPEND 'IEQ' && <fs_set_value>-from TO rt_range.
      ELSE.
        APPEND 'IBT' && <fs_set_value>-from TO rt_range ASSIGNING FIELD-SYMBOL(<fs_range>).
        <fs_range>-high = <fs_set_value>-to .
      ENDIF.

    ENDLOOP.

  ENDMETHOD.