How to populate a listbox with key in a table control

Question

I have the following code:
MODULE carga_huecos INPUT.
DATA: BEGIN OF li_huecos OCCURS 0,
        key(40) TYPE c,
        text(80) TYPE c,
END OF li_huecos.
DATA: BEGIN OF estru_hueco OCCURS 0,
      hueco LIKE zmov_wm-hueco,
END OF estru_hueco.
CLEAR: li_huecos, estru_hueco.
REFRESH: li_huecos, estru_hueco.
SELECT lgpla
    FROM lagp
    INTO TABLE estru_hueco
  WHERE lgnum = 'WWM' AND
        lgtyp = i_zmov_wm-almacen.
  LOOP AT estru_hueco.
    li_huecos-key  = estru_hueco-hueco.
    li_huecos-text = estru_hueco-hueco.
    APPEND li_huecos.
    CLEAR li_huecos.
  ENDLOOP.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'I_ZMOV_WM-HUECO'
      values          = li_huecos[]
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
I see that internal table  li_huecos has the values I need. But vrm_set_values function is not working. I need this values to be seen in a table control field which I have defined as "listbox with key". The name of the internal table associated to the table control is "I_zmov_wm" and the field is HUECO.
After function is executed sy-subrc = 0 but no value is seen in the list.
Thanks.

Answer 1

hi ,
instead of this 
LOOP AT estru_hueco.
li_huecos-key = estru_hueco-hueco.
li_huecos-text = estru_hueco-hueco.
APPEND li_huecos.
CLEAR li_huecos.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'I_ZMOV_WM-HUECO'
values = li_huecos[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
add this 
data : name  type vrm_id  .
LOOP AT estru_hueco.
li_huecos-key = estru_hueco-hueco.
li_huecos-text = estru_hueco-hueco.
APPEND li_huecos.
CLEAR li_huecos.
ENDLOOP.
name  = 'I_ZMOV_WM-HUECO' .
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id =   name
values = li_huecos[]
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
regards
Deepak.