Search help on screen elements

Question

Hi I have a screen where I need to include a seach help on the screen element.  The element itself is just a generic char 8 field with no dictionary reference.  I have tried using the VRM_SET_ VALUES in the PBO but as soon as I press enter it looses the value selected. So I have now tried the using the process on value_request but despite finding and populating 138 values in the search help pop up, the actual pop up screen shows a blank list, with the text at the bottom saying 138 values.
Any ideas what I am doing wrong?
Set list values
    call function 'VRM_SET_VALUES'
      exporting
        id              = lv_vrm_id
        values          = it_values
      exceptions
        id_illegal_name = 1
        others          = 2.
    if sy-subrc <> 0.
   MESSAGE I000 WITH 'Failed to populate username list values'.
    endif.
process on value-request.
  field my_field module fill_my_field.
  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield        = 'MY_FIELD
      dynprofield     = 'MY_FIELD'
      value_org       = ' '
      dynpprog        = progname
      dynpnr          = dynnum
    tables
      value_tab       = it_values "it contains 2 fields that will be shown in the list box
    exceptions
      parameter_error = 1
      no_values_found = 2
      others          = 3.

Answer 1

I'm still having problems with this.  Here is my VRM set values - the problem I have with this is as soon as i choose a value from the list and press enter, the value dissappears from the screen element:
data: lv_vrm_id(80)    type c.
    data: lv_key(3)        type n value 1,
          lv_index         type sy-tabix.
    data: it_values  type standard table of vrm_value,
          s_values   type vrm_value.
    lv_vrm_id = i_type.
    lv_key    = 1.
    clear it_values.
    loop at it_cabn into s_cabn
                    where ATNAM = i_type.
      read table it_cawn into s_cawn with key atinn = s_cabn-atinn
                                     binary search.
      while s_cawn-atinn = s_cabn-atinn.
        lv_index = sy-tabix.
        s_values-key  = 1.
        s_values-text =   s_cawn-ATWRT.
        condense s_values-text.
        append s_values to it_values.
        add 1 to lv_key.
        lv_index = lv_index + 1.
        read table it_cawn into s_cawn index lv_index.
        if sy-subrc <> 0.
          exit.
        endif.
      endwhile.
    endloop.
* Set list values
    call function 'VRM_SET_VALUES'
      exporting
        id              = lv_vrm_id
        values          = it_values
      exceptions
        id_illegal_name = 1
        others          = 2.
    if sy-subrc <> 0.
*    MESSAGE I000 WITH 'Failed to populate username list values'.
    endif.
And here is my code for the F4 lookup - the problem here is that the search help pop dispklays nothing depsite saying it has 138 values.  I am wondering if its my it_values that is the wrong format, or is it the fact that my field type doesn't point to a dictionary element?
TYPES: BEGIN OF ty_values,
           type(8),
           descr(20),
         END OF ty_values.
  DATA: it_values TYPE STANDARD TABLE OF ty_values,
        s_values  type ty_values.
  data: lv_key(3)        type n value 1,
        lv_index         type sy-tabix.
* Build lookup values for wood type test
  clear it_values.
  loop at it_cabn into s_cabn
                  where atnam = i_type.
    read table it_cawn into s_cawn with key atinn = s_cabn-atinn
                                   binary search.
    while s_cawn-atinn = s_cabn-atinn.
      lv_index = sy-tabix.
*      s_values-key  = 1.
*      s_values-value1 =   s_cawn-atwrt.
      s_values-type =   s_cawn-atwrt.
      append s_values to it_values.
      lv_index = lv_index + 1.
      read table it_cawn into s_cawn index lv_index.
      if sy-subrc <> 0.
        exit.
      endif.
      add 1 to lv_key.
    endwhile.
  endloop.
DATA: progname TYPE sy-repid,
      dynnum   TYPE sy-dynnr,
      dynpro_values TYPE TABLE OF dynpread,
      field_value LIKE LINE OF dynpro_values.
  progname = sy-repid.
  dynnum   = sy-dynnr.
  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield        = 'ATWRT'
      dynprofield     = 'TYPE'
      value_org       = ' '
      dynpprog        = progname
      dynpnr          = dynnum
    tables
      value_tab       = it_values "it contains 2 fields that will be shown in the list box
    exceptions
      parameter_error = 1
      no_values_found = 2
      others          = 3.
  if sy-subrc <> 0.
  endif.