SAP 自建搜索帮助

*&---------------------------------------------------------------------*
*&           自建搜索帮助
*&           函数：HELP_VALUES_GET_WITH_TABLE
*&
*&---------------------------------------------------------------------*
TABLES: t001w.
DATA: lc_werks      LIKE t001w-werks,

      ltab_fields LIKE help_value OCCURS 0 WITH HEADER LINE,

      BEGIN OF ltab_values OCCURS 0,
         feld(40) TYPE c,
      END OF ltab_values.

PARAMETERS: werks(4) TYPE C .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR werks.
  PERFORM get_werks USING werks text-006.
INITIALIZATION .

*-- Set up fields to retrieve data
  ltab_fields-tabname    = 'T001W'.
  ltab_fields-fieldname  = 'WERKS'.
  ltab_fields-selectflag = 'X'.
  APPEND ltab_fields.
  ltab_fields-tabname    = 'T001W'.
  ltab_fields-fieldname  = 'NAME1'.
  l