F4 help for name1 field

Question

Dear Experts,
                   I want to add f4 help for name1 in kna1 table how to achieve it...
Thanks and Regards,
Thirukumaran. R
tables : kna1.
DATA : T_RETURN TYPE STANDARD TABLE OF DDSHRETVAL with header line.
parameter : p_kunnr type kna1-kunnr,
p_name1 type kna1-name1.
data : begin of it_kna1 occurs 0,
       kunnr type kna1-kunnr,
       name1 type kna1-name1,
       end of it_kna1.
       select kunnr name1 into table it_kna1  from kna1 where kunnr eq p_kunnr and name1 eq p_name1.
       at selection-screen on value-request for p_name1.
       CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
         EXPORTING
           retfield               = 'NAME1'
          DYNPPROG               = SY-REPID
          DYNPNR                 = '1000'
          DYNPROFIELD            = 'P-NAME1'
          VALUE_ORG              = 'C'
         tables
           value_tab              = IT_KNA1
          RETURN_TAB             = T_RETURN.
       loop at it_kna1.
       write :  / it_kna1-kunnr,
       it_kna1-name1.
       endloop.

Answer 1

Hi..
You need to create a search help exit and associate with the field.
You need to create a function module which u will give in the search help exit.
Function Module Code:
*DATA DECLARATION
types: begin of t_bukrs,
          bukrs type bukrs,
         end of t_bukrs.
types: t_bukrs_tab type standard table of t_bukrs.
  DATA :  l_wa_bukrs  TYPE t_bukrs,               " Company Code
              lit_bukrs type t_bukrs_tab.
          l_v_record TYPE astmo.               " Variable to store company code value.
*CONSTANT DECLARATION
  CONSTANTS: l_c_bukr TYPE astmo VALUE 'CO_CODE',          " Constant for Memory ID
             l_c_no   TYPE flag VALUE '1',                 " Constant To limit no of entries to be displayed
             l_c_step_val TYPE bukrs VALUE 'DISP',         " Constant For display when F4
             l_c_app_str TYPE clsrt VALUE '123'.           " Constant for prefix wehn appending value in F4 help.
  IF sy-subrc EQ 0.
    callcontrol-maxrecords = l_c_no.
    IF  callcontrol-step = l_c_step_val.
      REFRESH record_tab.
*FETCH VALUE FROM CHECK TABLE T001 FOR COMPANY CODE ENTERED IN THE SELECTION-SCREEN.
      SELECT  bukrs FROM t001
                    INTO l_it_bukrs.               "TABLE record_tab
      IF sy-subrc = 0.
        loop at l_it_bukrs into lwa_bukrs.
        CONCATENATE  l_c_app_str l_wa_bukrs-bukrs  INTO l_v_record.
        record_tab = l_v_record.
*APPEND COMPANY CODE TO TABLE FOR F4 HELP.
        APPEND record_tab.
      ENDIF.
    ENDIF.
  ENDIF.
ENDFUNCTION.
In the above code i am having a search help exit for company code.
Hope this helps.