ABAP - Parameters as list boxes

*&---------------------------------------------------------------------*
*& Report  YRAMYA_LIST_BOXES
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yramya_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.