DATA:  BEGIN OF IT_SETVAL OCCURS 0.
         INCLUDE STRUCTURE RGSB4.
DATA:  END OF IT_SETVAL.
PARAMETERS:    P_KOSTL  LIKE T800S-SETNR,             "Cost Center Group
               HP_KOSTL LIKE T800S-SETNR NO-DISPLAY.
ranges:  r_kostl  for csks-kostl.                     "Cost center range


************************************************************************
FORM SELECT_COST_CENTERS.
  IF P_KOSTL <> SPACE.                                "Cost Center Group
    CONCATENATE '0H' P_KOSTL INTO HP_KOSTL.
    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.
    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.
************************************************************************