搜索帮助函数F4IF_INT_TABLE_VALUE_REQUEST

*&---------------------------------------------------------------------*
*& Report  ZTESTIAN3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztestian3.


TYPES:BEGIN OF typ_name,
name TYPE char20,
END OF typ_name.

PARAMETERS p_name TYPE char20.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_name.

PERFORM f_value_request_for_name.

*&---------------------------------------------------------------------*
*&      Form  F_VALUE_REQUEST_FOR_NAME
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM f_value_request_for_name .

  DATA:

    l_w_name   TYPE typ_name,

    l_tab_name TYPE STANDARD TABLE OF typ_name.

  l_w_name-name = 'MIKE'.

  APPEND l_w_name TO l_tab_name.

  l_w_name-name = 'BILY'.

  APPEND l_w_name TO l_tab_name.

  l_w_name-name = 'FRANK'.

  APPEND l_w_name TO l_tab_name.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'NAME'    "大写,可选值内表的字段名
      value_org       = 'S'         "就写'S'
      dynpprog        = sy-repid    "返回的输入框所在的main program
      dynpnr          = sy-dynnr       "返回的输入框所在屏幕
      dynprofield     = 'P_NAME'        "返回的输入框名
    TABLES
      value_tab       = l_tab_name              "可选值的内表
    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.
ENDFORM.                    "F_VALUE_REQUEST_FOR_NAME