函数F4IF_INT_TABLE_VALUE_REQUEST返回多个值到屏幕上

使用函数 F4IF_INT_TABLE_VALUE_REQUEST 返回多个值到屏幕上,需要用到 callback_form 参数,定义同名FORM.同时参数需要和默认一致.在FORM里进行返回值指定,具体见以下代码.

MODULE f4_value INPUT. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'CARRID' dynpprog = sy-repid dynpnr = sy-dynnr dynprofield = 'F1' * STEPL = 0 * WINDOW_TITLE = * VALUE = ' ' value_org = 'S' * MULTIPLE_CHOICE = ' ' * DISPLAY = ' ' callback_program = sy-repid callback_form = 'USER_FORM' * MARK_TAB = * IMPORTING * USER_RESET = TABLES value_tab = it_output * FIELD_TAB = return_tab = return_tab * DYNPFLD_MAPPING = * 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. ENDMODULE. " F4_VALUE INPUT *&---------------------------------------------------------------------* *& Form USER_FORM *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->SHLP text *----------------------------------------------------------------------* FORM user_form TABLES record_tab STRUCTURE seahlpres CHANGING shlp TYPE shlp_descr_t callcontrol LIKE ddshf4ctrl . DATA: interface LIKE LINE OF shlp-interface. READ TABLE shlp-interface INTO interface INDEX 1. interface-shlpfield+4(1) = '2'. interface-valfield = 'F2'. APPEND interface TO shlp-interface. interface-shlpfield+4(1) = '3'. interface-valfield = 'F3'. APPEND interface TO shlp-interface. CLEAR interface. ENDFORM. "USER_FORM

 

其中 interface-shlpfield+4(1) 必须要写成这种形式,只是更改最后一位,自己命名好像会出错.使用情况类似于FUNCTION 实现的ALV中的CALL_BACK 响应用户事件.