Используем функциональный модуль 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.
Комментариев нет:
Отправить комментарий