REPORT  z_list_boxes.


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

PARAMETERS: options(10) AS LISTBOX VISIBLE LENGTH 15.

AT SELECTION-SCREEN OUTPUT.
  name = 'options'.
  value-key = '1'.
  value-text = 'option1'.
  APPEND value TO list.
  value-key = '2'.
  value-text = 'option2'.
  APPEND value TO list.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.

START-OF-SELECTION.
  WRITE: / 'Option selected', options.


Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com