How to restrict values displayed using a select-options

Question

Can someone please tell me how to restrict values displayed using a select-options.
Example- in my table I have 100 entries. However when the user will click on the required field- I want to be display only 25 options based on a given value of another field in the table.
Thanks,
Mahesh.

Answer 1

get the screen value for the selectd field  using the fm
DYNP_VALUES_READ.
for that value filter the internal table values and pass the table to f4 help of the field.
below code will help u
write the f4 help for the field.
At Selection Screen on value request                                *
F4 help for Corporate
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_CORP.
Get Corporates for selected division
  PERFORM GET_CORP.
  PERFORM F4HELP_CORP.
*&      Form  GET_CORP
Get the corporates for the selected division
There are no interface parameters to be passed to this routine
FORM GET_CORP .
Table for conglomerate
  DATA:
    LT_CONG      LIKE STANDARD TABLE OF FS_CORP,
Fields of current screen
    LFS_DYNPREAD TYPE DYNPREAD,
Table for current Screen fields
    LT_DYNPREAD  LIKE STANDARD TABLE OF LFS_DYNPREAD.
  LFS_DYNPREAD-FIELDNAME = 'P_DIV'.
  APPEND LFS_DYNPREAD TO LT_DYNPREAD.
Get selection screen value for division
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME               = SY-REPID
      DYNUMB               = SY-DYNNR
    TABLES
      DYNPFIELDS           = LT_DYNPREAD
    EXCEPTIONS
      INVALID_ABAPWORKAREA = 1
      INVALID_DYNPROFIELD  = 2
      INVALID_DYNPRONAME   = 3
      INVALID_DYNPRONUMMER = 4
      INVALID_REQUEST      = 5
      NO_FIELDDESCRIPTION  = 6
      INVALID_PARAMETER    = 7
      UNDEFIND_ERROR       = 8
      DOUBLE_CONVERSION    = 9
      STEPL_NOT_FOUND      = 10
      OTHERS               = 11.
  IF SY-SUBRC EQ 0.
    READ TABLE LT_DYNPREAD INTO LFS_DYNPREAD INDEX 1.
    IF SY-SUBRC EQ 0.
      P_DIV = LFS_DYNPREAD-FIELDVALUE.
    ENDIF.                             " IF SY-SUBRC EQ 0
  ENDIF.                               " IF SY-SUBRC EQ 0
  REFRESH T_CORP.
Get the conglomerate for the selected division
  SELECT KUNNR                         " Conglomerate
    FROM KNVH
    INTO TABLE  LT_CONG
   WHERE HITYP  EQ C_HITYP
     AND VKORG  EQ C_VKORG
     AND VTWEG  EQ C_VTWEG
     AND SPART  EQ P_DIV
     AND DATAB  LE SY-DATUM
     AND DATBI  GE SY-DATUM
     AND HKUNNR EQ SPACE.
  IF SY-SUBRC EQ 0.
    SORT LT_CONG BY KUNNR.
    DELETE ADJACENT DUPLICATES FROM LT_CONG
                    COMPARING KUNNR.
Get the corporates for the selected conglomerates
    SELECT KUNNR                       " Customer Number
      FROM KNVH
      INTO TABLE  T_CORP
       FOR ALL ENTRIES IN LT_CONG
     WHERE HITYP  EQ C_HITYP
       AND VKORG  EQ C_VKORG
       AND VTWEG  EQ C_VTWEG
       AND SPART  EQ P_DIV
       AND DATAB  LE SY-DATUM
       AND DATBI  GE SY-DATUM
       AND HKUNNR EQ LT_CONG-KUNNR.
    IF SY-SUBRC NE 0.
      CLEAR: SSCRFIELDS.
      MESSAGE I531(0U) WITH TEXT-005.
      STOP.
    ENDIF.                             " IF SY-SUBRC NE 0
  ELSE.
    CLEAR: SSCRFIELDS.
    MESSAGE I531(0U) WITH TEXT-004.
    STOP.
  ENDIF.                               " IF SY-SUBRC EQ 0
ENDFORM.                               " GET_CORP
*&      Form  F4HELP_CORP
F4 help for corporate
There are no interface parameters to be passed to this routine
FORM F4HELP_CORP .
F4 help for corporate
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = 'KUNNR'
      DYNPPROG        = 'Z_EXCESS_USAGE'
      DYNPNR          = '1000'
      DYNPROFIELD     = 'P_CORP'
      VALUE_ORG       = 'S'
    TABLES
      VALUE_TAB       = T_CORP
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS          = 3.
  IF SY-SUBRC EQ 0.
Do nothing
  ENDIF.                               " IF SY-SUBRC EQ 0
ENDFORM.                               " F4HELP_CORP