ABAP使用SE11 search help的方法

SAP ABAP使用se11创建的搜索帮助search help的代码

  IF p_lx = 'D'.
    tabname    = 'RF02D'.
    fieldname    = 'KUNNR'.

  ELSEIF p_lx = 'K'.

    tabname    = 'RF02K'.
    fieldname    = 'LIFNR'.

  ENDIF.

  CALL FUNCTION 'DD_SHLP_GET_HELPMETHOD'
    EXPORTING
      tabname           = tabname
      fieldname         = fieldname
      langu             = sy-langu
    CHANGING
      shlp              = shlp
    EXCEPTIONS
      field_not_found   = 1
      no_help_for_field = 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.

  searchhelp = shlp-shlpname.
  dynprofield = pv_fieldname.
  CAL