REPORT  ztest000001.

 

*需要调用的类型池
type-pools: vrm.
DATA: name1 TYPE vrm_id,  " value table
      list TYPE vrm_values,
      value LIKE LINE OF list.
DATA: ps_t(10) TYPE c.

PARAMETERS: ps(10) AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY.

AT SELECTION-SCREEN OUTPUT.
  REFRESH list.
  CLEAR list.
  name1 = 'PS'.
  value-key = 'A3'.
  value-text = 'A3'.
  APPEND value TO list.
  value-key = 'A4'.
  value-text = 'A4'.
  APPEND value TO list.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name1
      values = list.