constants:  c_x(1)  type c value 'X',
            c_kstar like t800s-feld value 'KSTAR     '.
parameters: p_kstar like t800s-setnr.         "Cost Element Group



*--------- F4 for Cost Element Group -----------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_KSTAR.
  CALL FUNCTION 'K_GROUP_SELECT'
       EXPORTING
            FIELD_NAME         = C_KSTAR
            SELECT_SETS_WITHOUT_CLASS = C_X
       IMPORTING
            SET_NAME           = P_KSTAR
       EXCEPTIONS
            NO_SET_PICKED      = 02.
  CASE SY-SUBRC.
    WHEN 1. MESSAGE S003(GR).
    WHEN 2. MESSAGE S004(GR).
  ENDCASE.
*-----------------------------------------------------------------------