DATA:  BEGIN OF IT_SETVAL OCCURS 0.
         INCLUDE STRUCTURE RGSB4.
DATA:  END OF IT_SETVAL.
PARAMETERS:    p_kostl  like sethier-setid,           "Cost Center Group
               HP_KOSTL like sethier-setid NO-DISPLAY.
ranges:  r_kostl  for csks-kostl.                     "Cost center range


************************************************************************
FORM SELECT_COST_CENTERS.
  IF P_KOSTL <> SPACE.                                "Cost Center Group
    call function 'G_SET_GET_ID_FROM_NAME'
      exporting
        shortname                      = p_kostl
        tabname                        = 'CCSS      '
      importing
        new_setid                      = hp_kostl
      exceptions
        no_set_found                   = 1
        no_set_picked_from_popup       = 2
        wrong_class                    = 3
        wrong_subclass                 = 4
        table_field_not_found          = 5
        fields_dont_match              = 6
        set_is_empty                   = 7
        formula_in_set                 = 8
        set_is_dynamic                 = 9
        others                         = 10.
    if sy-subrc = 0.
      CALL FUNCTION 'G_SET_GET_ALL_VALUES'
        EXPORTING
            SETNR                 = HP_KOSTL
            TABLE                 = 'CCSS      '
        TABLES
            SET_VALUES            = IT_SETVAL
        EXCEPTIONS
            SET_NOT_FOUND         = 1
            OTHERS                = 2.
    endif.
    LOOP AT IT_SETVAL.
      R_KOSTL-LOW  = IT_SETVAL-FROM.
      R_KOSTL-HIGH = IT_SETVAL-TO.
      R_KOSTL-SIGN   = 'I'.                 "Inclusion
      IF IT_SETVAL-TO = SPACE.
        R_KOSTL-OPTION = 'EQ'.              "Equivalent
      ELSE.
        R_KOSTL-OPTION = 'BT'.              "Between
      ENDIF.
      APPEND R_KOSTL.
    ENDLOOP.
  ENDIF.
ENDFORM.
************************************************************************