Custom search help with F4IF_INT_TABLE_VALUE_REQUEST to retrieve 2 columns

Question

Hi all,
i have a problem to retrieve selected value from a custom search help. I need to retrieve 2 columns from the selected line. eg. there are A,B,C,D column in the search help. I need to get the B and D. can anyone help? Thanks

Answer 1

For achieving this follow the following 4 steps:
1. While calling F4IF_INT_TABLE_VALUE_REQUEST pass the importing paramter return_tab  to make the data selected by the user IN SELECTION screen. Remember that without this the user entry is avaliable only at START OF SELECTION.
2. Use this value to READ TABLE your internal table to get the  value of other column.
3. Load an internal table with values you want to assign to selection screen fields.
4. Assign  values to the field in selection field using Fn Module: 'DYNP_VALUES_UPDATE'.
Example:
DATA: ......,
    lit_fields     type table of dynpread,
    ls_fields      type dynpread,
    lit_ret_tab    type table of ddshretval,
    ls_ret_tab     type ddshretval.
. call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield        = 'VARI'
      dynpprog        = sy-cprog
      dynpnr          = sy-dynnr
      dynprofield     = 'P_VARI'
      value_org       = 'S'
    tables
      value_tab       = lit_abc
      return_tab      = lit_ret_tab
    exceptions
      parameter_error = 1
      no_values_found = 2
      others          = 3.
check sy-subrc eq 0.
*-----get the entered value of field vari
read table lit_ret_tab into ls_ret_tab index 1.
  lv_vari = ls_ret_tab-fieldval.
check sy-subrc eq 0.
*-----get value of the other column vari_d
read table lit_abc into ls_abc with key vari = lv_vari.
  lv_vari_d = ls_abc-vari_d.
*----- Append to an internal table with values you want to assin to selection screen fields.
ls_fields-fieldname = 'P_VARI'.
  ls_fields-fieldvalue = lv_vari.
  append ls_fields to lit_fields.
  ls_fields-fieldname = 'P_VARI_D'.
  ls_fields-fieldvalue = lv_vari-d.
  append ls_fields to lit_fields.
*---- Assign  values to the field in selection field
call function 'DYNP_VALUES_UPDATE'
    exporting
      dyname               = sy-cprog
      dynumb               = sy-dynnr
    tables
      dynpfields           = lit_fields
    exceptions
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      undefind_error       = 7
      others               = 8.