ABAP 設置下拉框

TYPE-POOLS: VRM.
DATA: NAME1 TYPE VRM_ID,
      LIST1 TYPE VRM_VALUES,
      VALUE1 LIKE LINE OF LIST1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T02.
PARAMETERS: P_BSART LIKE EKKO-BSART AS LISTBOX VISIBLE LENGTH 20
OBLIGATORY. "配送訂單類型
SELECTION-SCREEN: END OF BLOCK B2.

AT SELECTION-SCREEN OUTPUT.
REFRESH LIST1.
  NAME1 = 'P_BSART'.
  VALUE1-KEY = 'ZEB'.
  VALUE1-TEXT = '配送轉儲採購訂單'.
  APPEND VALUE1 TO LIST1.
  VALUE1-KEY = 'ZCB'.
  VALUE1-TEXT = '非生產材料領料單'.
  APPEND VALUE1 TO LIST1.
  VALUE1-KEY = 'ZPB'.
  VALUE1-TEXT = '生產領料單'.
  APPEND VALUE1 TO LIST1.
  VALUE1-KEY = 'ZXB'.
  VALUE1-TEXT = '計劃直傳轉儲採購訂單'.
  APPEND VALUE1 TO LIST1.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = NAME1
      VALUES = LIST1.

http://blog.csdn.net/reacleliu/article/details/6653309