SAP選擇屏幕下拉框實現

DATA:vid TYPE vrm_id , "屏幕字段(可以是單個的I/O空間或者是Table Control中的一個單元格)
     list TYPE vrm_values,
     value LIKE LINE OF list.

PARAMETERS S_LSBOX TYPE c  AS LISTBOX VISIBLE LENGTH 20 DEFAULT '2'.     “選擇條件字段

*初始化時下拉框賦值
INITIALIZATION.

AT SELECTION-SCREEN OUTPUT

REFRESH LIST .

VALUE-KEY = '1' . "這個就是變量P_LIST的值
VALUE-TEXT = 'ZPR0' . "這個是text
APPEND VALUE TO LIST .

VALUE-KEY = '2' .
VALUE-TEXT = 'ZB01' .
APPEND VALUE TO LIST .

VALUE-KEY = '3' .
VALUE-TEXT = 'ZB02' .
APPEND VALUE TO LIST .

**調用下拉框賦值函數
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
        ID = 'S_LSBOX'    
        VALUES = LIST.

或者PBO中的module：

PARAMETERS P_ZSCRF TYPE c AS LISTBOX VISIBLE LENGTH 3 .

Module drop_down_list output.

  TYPE-POOLS vrm.
  DATA :"name TYPE vrm_id,
        List TYPE vrm_values,
        Value LIKE LINE OF list.
  Name = 'P_ZSCRF'. "屏幕上綁定的下拉框也是這個名字。
  REFRESH list.
  Value-key = '1'.
  Value-text = 'M'.
  APPEND value TO list.

  Value-key = '2'.
  Value-text = 'D'.
  APPEND value TO list.

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

ENDMODULE.                    "drop_down_list OUTPUT