Search help icon for select option

Question

hello all...
can some one let me know , how to attach F4 help icon to select option..??
in select option im referrin to a data element, this data element has a domain which has value range.
if i press F4 on the select option, im gettin the values in the search help but the icon is not appearing..
any suggestions...
regards..
vishal

Answer 1

Hi,
Select TABLE-FIELD GOTO>Search help>For field.
If you have Search help you can assign here or else you need to create search help through SE11.
Or programatically you can code like below.
See below code........
selection-screen: begin of block B1 with frame title text-001.
select-options: s_pernr for zfdmr_records-pernr,
selection-screen end of block B1.
data: begin of t_itab occurs 0,
      pernr like zfdmr_records-pernr,
      end of t_itab.
DATA: t_return like ddshretval occurs 0 with header line.
*at selection-screen on value-request for s_pernr-low.
perform get_values changing s_pernr-low.
*at selection-screen on value-request for s_pernr-high.
perform get_values changing s_pernr-high.
*&      Form  get_values
      text
     -->P_S_PERNR_LOW  text
FORM get_values CHANGING    P_S_PERNR.
  refresh t_itab.
  clear t_return.
  select pernr  from zfdmr_records into table t_itab.
  delete adjacent duplicates from t_itab.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
  DDIC_STRUCTURE         = ' '
      RETFIELD               = 'PERNR'
  PVALKEY                = ' '
     DYNPPROG               = sy-cprog
     DYNPNR                 = sy-dynnr
     DYNPROFIELD            = 'ZFDMR_RECORDS-PERNR'
  STEPL                  = 0
  WINDOW_TITLE           =
  VALUE                  = ' '
     VALUE_ORG              = 'S'
     MULTIPLE_CHOICE        = ' '
     DISPLAY                = 'F'
  CALLBACK_PROGRAM       = ' '
  CALLBACK_FORM          = ' '
    TABLES
      VALUE_TAB              = t_itab
  FIELD_TAB              =
     RETURN_TAB             = t_return
  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.
  ENDIF.
  READ TABLE t_return INDEX 1.
  p_s_pernr = t_return-fieldval.
ENDFORM.                    " get_values
Thanks.
If this helps you award points and close the thread.
Message was edited by: Deepak333 k
Message was edited by: Deepak333 k