Sample List Box

*&---------------------------------------------------------------------*
*& Report  ZTEST4_09
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztest4_09.

TABLES: sflight.

TYPE-POOLS: vrm.
DATA: name  TYPE vrm_id,
      list  TYPE vrm_values,
      value LIKE LINE OF list.

DATA: itab TYPE TABLE OF sflight,
      wa LIKE LINE OF itab.

PARAMETERS: p_parm(20) AS LISTBOX VISIBLE LENGTH 10.


AT SELECTION-SCREEN OUTPUT.
  SELECT DISTINCT currency FROM sflight INTO CORRESPONDING FIELDS OF TABLE itab.

  LOOP AT itab INTO wa.
    value-key = wa-currency.
    value-text = wa-currency.
    APPEND value TO list.
  ENDLOOP.

  name = 'P_PARM'.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.


START-OF-SELECTION.
  WRITE: / 'SELECTED CURRENCY VALUE KEY:', p_parm.