Problem in search field

Question

hi
i am working on module pool program.
in the screen i have one field called name.
if user enter any value in the name field(A to Z),and press the search button,it should featch the all the data in to itab.how to search this,is there any select query for this,can any body help me in this regard.
Thanks,
Rammohan.

Answer 1

i m not getting ur query..
do u need to create search help (F4 for this field) , if so then do this -
PROCESS ON VALUE-REQUEST.
   FIELD ITAB-PERNR MODULE F4_HELP.
module F4_HELP input.
data: begin of lt_all occurs 0.
        include structure DYNPREAD.
data  end of lt_all.
data: begin of lt_selected occurs 0.
       include structure DDSHRETVAL.
data: end of lt_selected.
DATA: BEGIN OF lt_code OCCURS 0,
            code LIKE zgill_main-PERNR,
      END OF lt_code.
data no_dyn like sy-dynnr.
no_dyn =  sy-dynnr.   "give the scren no directly or sy-dynnr in case of report.
*At selection-screen on value-request for ECODE.
select PERNR into table lt_code from zgill_main.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield               = 'ITAB-PERNR'
        dynpprog               = sy-repid
       dynpnr                  = no_dyn
      dynprofield              =       'ITAB-PERNR'
      window_title           = 'Employee Details'
       value_org              = 'S'
      DISPLAY                = 'F'
   TABLES
        value_tab             = lt_code
       RETURN_TAB             = lt_selected.
EXCEPTIONS
  PARAMETER_ERROR        = 1
  NO_VALUES_FOUND        = 2
  OTHERS                 = 3
*if sy-subrc eq '0' .
  write: 'success'.
*endif.
read   table lt_selected index sy-tabix.
move lt_selected-fieldval to ITAB-PERNR.
endmodule.                 " F4_HELP  INPUT
2) if u want to fetch some data into itab on pressing a button (ur search button) then u have to code at PAI as follows -
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
module USER_COMMAND_0100 input.
case ok_code.
  when 'SEARCH'.
    clear ok_code.
  VAR1 = ITAB-NAME.  "SCREEN FIELD FOR NAME
CONCATENATE VAR1 '% ' INTO VAR1.
   SELECT NAME INTO CORRESPONDING FIELDS OF TABLE ITAB FROM  
   PA0002 WHERE NAME LIKE VAR1.
endcase.
endmodule.                 " USER_COMMAND_0100  INPUT