F4IF_INT_TABLE_VALUE_REQUEST返回多个值

 TYPE-POOLS:      shlp,

 

*&---------------------------------------------------------------------*
*&      Form  fm_callback_f4
*&---------------------------------------------------------------------*
FORM callback_f4
            TABLES record_tab STRUCTURE seahlpres
            CHANGING shlp TYPE shlp_descr
                     callcontrol LIKE ddshf4ctrl.
* define local data
  DATA:
    ls_intf     LIKE LINE OF shlp-interface,
    ls_prop     LIKE LINE OF shlp-fieldprop.
*Hide unwanted fields
  CLEAR: ls_prop-shlpselpos,
         ls_prop-shlplispos.
  MODIFY shlp-fieldprop FROM ls_prop
    TRANSPORTING shlpselpos shlplispos

显示列的设定
  WHERE ( fieldname NE 'F0001'  AND
          fieldname NE 'F0002'  AND
          fieldname NE 'F0003'  AND
          fieldname NE 'F0004'  AND
          fieldname NE 'F0005'  AND
          fieldname NE 'F0006'
          ).
*  " Overwrite selectable fields on search help

返回列的设定
  REFRESH: shlp-interface.
  ls_intf-shlpfield = 'F0001'.
  ls_intf-valfield = 'X'.
  APPEND ls_intf TO shlp-interface.
  ls_intf-shlpfield = 'F0002'.
  APPEND ls_intf TO shlp-interface.
  ls_intf-shlpfield = 'F0003'.
  APPEND ls_intf TO shlp-interface.
  ls_intf-shlpfield = 'F0004'.
  APPEND ls_intf TO shlp-interface.
  ls_intf-shlpfield = 'F0005'.
  APPEND ls_intf TO shlp-interface.

ENDFORM.                    "callback_f4

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = ' '
*     MULTIPLE_CHOICE = 'X'
      callback_program       = syst-repid
      callback_form          = 'CALLBACK_F4'
      window_title    = u_c_title
      value_org       = 'S'
    TABLES
      value_tab       = itab_t9010_pop
      field_tab       = output_fields
      return_tab      = itab_return
      dynpfld_mapping  = dy_tab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.