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

来源：互联网发布：棋牌软件开发编辑：程序博客网时间：2024/05/17 08:07

使用函数 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 响应用户事件.