选择屏幕的下拉 Test

REPORT ztest1.

TYPE-POOLS vrm.

DATA: name  TYPE vrm_id,
      list  TYPE vrm_values,
      value LIKE LINE OF list.
PARAMETERS: ps_parm(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

  name = 'PS_PARM'.

  value-key = 'NO1'.
  value-text = 'AHEADJAVA'.
  APPEND value TO list.

  value-key = 'NO2'.
  value-text = 'ZHAOSHUXIANTEST'.
  APPEND value TO list.

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

START-OF-SELECTION.
  WRITE: / 'Parameter:', ps_parm.