[ABAP]选择屏幕1-下拉列表

相关需求：

选择屏幕上的选择条件需要设置为下拉列表的形式，实现LISTBOX。

相关代码：

*&---------------------------------------------------------------------*
*& DATA/定义
*&---------------------------------------------------------------------*
DATA: gt_val TYPE vrm_values,
      gs_val LIKE LINE OF gt_val.
*&---------------------------------------------------------------------*
*& SELECTION SCREEN/选择屏幕
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TEXT-a01.
PARAMETERS: p_mode TYPE c OBLIGATORY DEFAULT 'M' AS LISTBOX VISIBLE LENGTH 7.
SELECTION-SCREEN END OF BLOCK bk1.
*&---------------------------------------------------------------------*
*& INITIALIZATION/选择屏幕初始化                                     *
*&---------------------------------------------------------------------*
INITIALIZATION.
  FREE: gt_val.
  APPEND gs_val TO gt_val.
  gs_val-key  = 'A'.
  gs_val-text = '自动'.
  APPEND gs_val TO gt_val.
  gs_val-key  = 'M'.
  gs_val-text = '手动'.
  APPEND gs_val TO gt_val.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT/屏幕动作响应
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_MODE'
      values = gt_val.
*&---------------------------------------------------------------------*
*& START-OF-SELECTION/开始选择屏幕                                     *
*&---------------------------------------------------------------------*
START-OF-SELECTION.
  WRITE p_mode.  "显示key键值

测试展示：