Search help for custom entries in selection screen

Question

Hi Gurus,
I have a requirement of adding four entries as a search help to a selection screen field P_TABLE.I tried using the function module F4IF_INT_ TABLE_VALUE_REQUEST as below.I want to add four entries Revenue,Cost,RIH and Summarised WBS Actual Data for the selection screen field P_TABLE but the problem is the function module is not getting triggered.
See the code below.
REPORT  Z_DEL_OHTABLE.
DATA: V_RESPONSES(6),
      V_TEXTS LIKE ALDBOUT,
      V_PROG TYPE SY-REPID,
      V_DYNNR TYPE SY-DYNNR.
DATA: begin of it_openhubs occurs 0,
      v_tabname type c length 30,
      end of it_openhubs.
DATA:
       it_return type STANDARD TABLE OF DDSHRETVAL,
       wa_return like line of it_return,
      l_i_field_tab TYPE STANDARD TABLE OF dfies INITIAL SIZE 0,
      l_i_dynpfld_mapping TYPE STANDARD TABLE OF dselc INITIAL SIZE 0.
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE title.
  parameters:P_TABLE(30) type c.  " USER-COMMAND UPD,
SELECTION-SCREEN END OF BLOCK B0.
V_PROG = SY-REPID.
V_DYNNR = SY-DYNNR.
  it_openhubs-v_tabname = 'Cost and Expense'.
      append it_openhubs.
  it_openhubs-v_tabname = 'Revenue'.
  append it_openhubs.
   it_openhubs-v_tabname = 'Revenue in Hand'.
   append it_openhubs.
    it_openhubs-v_tabname = 'Summarised WBS Actual Data'.
    append it_openhubs.
    CLEAR IT_OPENHUBS.
INITIALIZATION.
  title = 'OH TABLE DELETION- DELETE CAREFULLY'.
START-OF-SELECTION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_TABLE.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
    DDIC_STRUCTURE         = ' '
      RETFIELD               = 'v_tabname'
    PVALKEY                = ' '
     DYNPPROG               = V_PROG
     DYNPNR                 = V_DYNNR
     DYNPROFIELD            = 'P_TABLE'
    STEPL                  = 0
    WINDOW_TITLE           =
    VALUE                  = ' '
     VALUE_ORG              = 'S'
    MULTIPLE_CHOICE        = ' '
    DISPLAY                = ' '
    CALLBACK_PROGRAM       = ' '
    CALLBACK_FORM          = ' '
    MARK_TAB               =
  IMPORTING
    USER_RESET             =
    TABLES
      VALUE_TAB              = it_openhubs
    FIELD_TAB              = l_i_field_tab
    RETURN_TAB             = it_return
    DYNPFLD_MAPPING        = l_i_dynpfld_mapping
  EXCEPTIONS
    PARAMETER_ERROR        = 1
    NO_VALUES_FOUND        = 2
    OTHERS                 = 3
  IF SY-SUBRC <> 0.
    READ TABLE it_return INTO wa_return INDEX 1.
     IF sy-subrc EQ 0.     
p_table = wa_return-fieldval.
     endif.
Please help me out.
Thanks,
Srini.
Edited by: Srinivasan Ganapathy on Jan 28, 2010 6:05 AM

Answer 1

Hi ,
Change your code as below:
1. Fill the internal table it_openhubs inside the event "at selection screen on value request".
2.  Always follow the below sequence:
    Initialisation
   At selection screen
   Start of selection.
3. The declaration of variable v_tabname is changed from type c length 30 to type char30.
I tried the below code , its working fine.
DATA: V_RESPONSES(6),
      V_TEXTS LIKE ALDBOUT,
      V_PROG TYPE SY-REPID,
      V_DYNNR TYPE SY-DYNNR.
DATA: begin of it_openhubs occurs 0,
      v_tabname type char30,  " length 30,
      end of it_openhubs.
DATA:
       it_return type STANDARD TABLE OF DDSHRETVAL,
       wa_return like line of it_return,
      l_i_field_tab TYPE STANDARD TABLE OF dfies INITIAL SIZE 0,
      l_i_dynpfld_mapping TYPE STANDARD TABLE OF dselc INITIAL SIZE 0.
SELECTION-SCREEN BEGIN OF BLOCK B0 WITH FRAME TITLE title.
  parameters:P_TABLE(30) type c.  " USER-COMMAND UPD,
SELECTION-SCREEN END OF BLOCK B0.
INITIALIZATION.
  title = 'OH TABLE DELETION- DELETE CAREFULLY'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_TABLE.
  V_PROG = SY-REPID.
V_DYNNR = SY-DYNNR.
clear  IT_OPENHUBS.
  it_openhubs-v_tabname = 'Cost and Expense'.
      append it_openhubs.
  it_openhubs-v_tabname = 'Revenue'.
  append it_openhubs.
   it_openhubs-v_tabname = 'Revenue in Hand'.
   append it_openhubs.
    it_openhubs-v_tabname = 'Summarised WBS Actual Data'.
    append it_openhubs.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'v_tabname'
      dynpprog        = v_prog
      dynpnr          = v_dynnr
      dynprofield     = 'P_TABLE'
      value_org       = 'S'
    TABLES
      value_tab       = it_openhubs
      return_tab      = it_return
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    READ TABLE it_return INTO wa_return INDEX 1.
    IF sy-subrc EQ 0.
      p_table = wa_return-fieldval.
    ENDIF.
  ENDIF