Используем функциональный модуль F4IF_INT_TABLE_VALUE_REQUEST.
DATA: lt_tab1 TYPE TABLE OF ztab1,
lt_return_tab TYPE TABLE OF ddshretval,
ls_return_tab LIKE LINE OF lt_return_tab.
SELECT *
FROM ztab1
INTO TABLE lt_tab1.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* ddic_structure = ' '
retfield = 'DOCTYPE' " for example
* pvalkey = ' '
* dynpprog = ' '
* dynpnr = ' '
* dynprofield = ' '
* stepl = 0
* window_title =
* value = ' '
value_org = 'S'
* multiple_choice = ' '
* display = ' '
* callback_program = ' '
* callback_form = ' '
* callback_method =
* mark_tab =
* IMPORTING
* user_reset =
TABLES
value_tab = lt_tab1
* field_tab =
return_tab = lt_return_tab
* dynpfld_mapping =
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE lt_return_tab INTO ls_return_tab INDEX 1.
IF sy-subrc EQ 0.
" ls_return_tab-fieldval содержит выбранное значение
ENDIF.
ENDIF.
Комментариев нет:
Отправить комментарий