Restrict values for F4 on field in Selection-screen

Question

Hi,
For f4 on particular field I am getting list of values. These values are fixed in Value Range of DOMAIN of that field. There are 26  values fixed for that DOMAIN. Now what I need is I need to restrict 26th value from displaying on F4 for that field in selection screen.
I tried doing it in AT SELECTION SCREEN OUTPUT event  using F4_ON_VALUE REQUEST  FM, fetching data and deleting 26th entry , but before i delete it, It shows all values in selection-screen.
Please any one guide me.
  Thanks,
Vanitha P

Answer 1

You have to use AT SELECTION-SCREEN ON VALUE-REQUEST event.
Tables:mara.
TYPES :BEGIN OF gty_mtart,
       mtart TYPE mara-mtart,
       END OF gty_mtart.
DATA: gt_mtart  TYPE STANDARD TABLE OF gty_mtart,
      gtt_mtart TYPE gty_mtart.
DATA: gt_return_tab  TYPE TABLE OF ddshretval,
      gwa_return_tab TYPE ddshretval.
SELECT-OPTIONS:so_mtart FOR mara-mtart.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR so_mtart-low.
  REFRESH gt_mtart.
  gtt_mtart-mtart = 'Z01'.
  APPEND gtt_mtart TO gt_mtart.
  gtt_mtart-mtart = 'Z02'.
  APPEND gtt_mtart TO gt_mtart.
  gtt_mtart-mtart = 'Z03'.
  APPEND gtt_mtart TO gt_mtart.
  gtt_mtart-mtart = 'Z04'.
  APPEND gtt_mtart TO gt_mtart.
  gtt_mtart-mtart = 'Z05'.
  APPEND gtt_mtart TO gt_mtart.
  gtt_mtart-mtart = 'Z06'.
  APPEND gtt_mtart TO gt_mtart.
  gtt_mtart-mtart = 'Z90'.
  APPEND gtt_mtart TO gt_mtart.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
*   DDIC_STRUCTURE         = ' '
          retfield               = 'SO_MTART-LOW'
*   PVALKEY                = ' '
*   DYNPPROG               = ' '
*   DYNPNR                 = ' '
*   DYNPROFIELD            = ' '
       value_org              = 'S'
*   MULTIPLE_CHOICE        = ' '
* IMPORTING
*   USER_RESET             =
        TABLES
          value_tab              = gt_mtart
*   FIELD_TAB              =
       return_tab             = gt_return_tab
*   DYNPFLD_MAPPING        =
     EXCEPTIONS
       parameter_error        = 1
       no_values_found        = 2
       OTHERS                 = 3
  IF sy-subrc = 0 AND gt_return_tab IS NOT INITIAL.
    CLEAR gwa_return_tab.
    READ TABLE gt_return_tab INTO gwa_return_tab INDEX 1.
    IF sy-subrc = 0 AND gwa_return_tab-fieldval IS NOT INITIAL.
      so_mtart-low = gwa_return_tab-fieldval.
    ENDIF.
  ELSEIF sy-subrc <> 0.
    REFRESH gt_return_tab.  CLEAR: gwa_return_tab.
  ENDIF.