F4 help for one field in modulepool program..(Possible values)

Question

Hello Experts,
I have 3 fields in my module pool screen.
PLANT, MATERIALNO AND STORAGELOCATION.
BASED ON PLANT AND MATERIAL I NEED TO PROVIDE F4 HELP FOR STORAGE LOCATION(LGORT).
How can i write the code in PROCESS ON VALUE REQUEST ..
AND WHICH FUNCTION MODULE SHOULD BE USED.
Please can anybody send me the code asap.
I will give u full points if ur code matches my requirement.

Answer 1

Hi Raja,
           i will send a sample code for ur problem check in once..In that code i explicitly hardcoded the values for serchhelp.Instead of that we have to use select statement based on ur condition and place them in internal table ok.
FUNCTION MODULE:
F4IF_INT_TABLE_VALUE_REQUEST.
CODE:
*& Report  YSEARCHHELP                                                 *
*& DEVELOPER   : KIRAN KUMAR.G.A                                       *
*& PURPOSE     : DEMO ON SEARCH HELP                                   *
*& CREATION DT : 27/12/2007                                            *
*& REQUEST     : ERPK900035                                            *
REPORT  YSEARCHHELP.
INTERNAL TABLE FOR STORING NAMES IN SELECTION LIST
data: begin of t_itab occurs 0,
        name(10) type c,
      end of t_itab.
*FIELDNAME AND TAB NAME FOR THE SELECTION
DATA :field_tab LIKE dfies  OCCURS 0 WITH HEADER LINE.
*THE TABLE FOR RETURNING THE NAME OF THE SELECTED ITEM
DATA : return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
*START THE SELECTION SCREEN BLOCK
selection-screen begin of block ss1 with frame.
parameters: p_name1(10) type c.
selection-screen end of block ss1.
*& F4 Help for p_name1                                                 *
at selection-screen on value-request for p_name1.
*CLEAR ALL EXISTING DATA
*TO BE DONE EVERYTIME F4 HELP IS REQUESTED
REFRESH t_itab.
REFRESH field_tab.
  field_tab-fieldname = 'ERNAM'.
  field_tab-tabname = 'VBAK'.
APPEND field_tab.
t_itab-name = 'Andrews'.
append t_itab.
t_itab-name = 'Jennie'.
append t_itab.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
  DDIC_STRUCTURE         = ' '
    retfield               = field_tab-fieldname
  PVALKEY                = ' '
  DYNPPROG               = ' '
  DYNPNR                 = ' '
  DYNPROFIELD            = ' '
  STEPL                  = 0
    WINDOW_TITLE           = 'Select name'
  VALUE                  = ' '
  VALUE_ORG              = 'C'
  MULTIPLE_CHOICE        = ' '
  DISPLAY                = ' '
  CALLBACK_PROGRAM       = ' '
  CALLBACK_FORM          = ' '
  MARK_TAB               =
IMPORTING
  USER_RESET             =
  tables
   value_tab              = t_itab
   FIELD_TAB              = field_tab
   RETURN_TAB             = return_tab
  DYNPFLD_MAPPING        =
EXCEPTIONS
   PARAMETER_ERROR        = 1
   NO_VALUES_FOUND        = 2
   OTHERS                 = 3
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else.
p_name1 = return_tab-fieldval.
ENDIF.
Award points if helpful.
Kiran Kumar.G
                Have a Nice Day..