SAP ABAP PARAMETERS定义下拉列表

PARAMETERS定义下拉列表：

方法一：代码如下：
PARAMETERS: p_statu(20) AS LISTBOX VISIBLE LENGTH 20 OBLIGATORY.
SELECTION-SCREEN SKIP.
PARAMETERS: p_cuur(21)  AS LISTBOX VISIBLE LENGTH 21 OBLIGATORY.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.

AT SELECTION-SCREEN OUTPUT.
  name = 'P_STATU'.
  value-key = '1'.
  value-text = 'CB BANK'.
  APPEND value TO list.

  value-key = '2'.
  value-text = 'AYA BANK'.
  APPEND value TO list.

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

  CLEAR: VALUE.
  REFRESH list[].

  
  name = 'P_CUUR'.
  value-key = '01'.
  value-text = 'MMK'.
  APPEND value TO list.

  value-key = '02'.
  value-text = 'USD'.
  APPEND value TO list.

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

截屏如下：

 

  

 

方法二：代码如下：

PARAMETERS: P_LANG(20) AS LISTBOX VISIBLE LENGTH 22.
DATA: INIT .
AT SELECTION-SCREEN OUTPUT.
  PERFORM SETLIST.
FORM SETLIST.
  TYPE-POOLS VRM.
  DATA VALUES TYPE VRM_VALUES WITH HEADER LINE.
  VALUES-KEY = 'CHINESE'. APPEND VALUES.
  VALUES-KEY = 'AMERICAN'. APPEND VALUES.
  VALUES-KEY = 'ENGLISH'. APPEND VALUES.
  IF INIT IS INITIAL.
    CALL FUNCTION 'VRM_SET_VALUES'
      EXPORTING
        id                    = 'P_LANG'
        values                = VALUES[]
     EXCEPTIONS
       ID_ILLEGAL_NAME       = 1
       OTHERS                = 2.
    ENDIF.
    INIT = 'X'.
    ENDFORM.

截屏如下：

 

转载于:https://www.cnblogs.com/KevinGoGoing/p/6542996.html