SAP ABAP 屏幕下拉框listbox

"定义选择下拉框
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-T01.
PARAMETERS p_lbbox(50) TYPE c AS LISTBOX VISIBLE LENGTH 40 . "选择下拉框

SELECTION-SCREEN END OF BLOCK BLK1.

AT SELECTION-SCREEN OUTPUT.
PERFORM frm_listbox.

CALL FUNCTION ‘VRM_SET_VALUES’ "下拉框赋值函数
EXPORTING
id = ‘P_LBBOX’
values = list.

&-----------------------------------------------------------------
*& Form FRM_LISTBOX
&---------------------------------------------------------------------

•   选择屏幕 p_lbbox下拉框初始化赋值
  

--------------------------------------------------------

• –> p1 text
• <-- p2 text
  ------------------------------------------------

FORM frm_listbox .
REFRESH list .

value-key = ‘发送成功’ .
value-text = ‘维修工单发送成功；状态S’.
APPEND value TO list .

value-key = ‘发送失败’ .
value-text = ‘维修工单发送失败；状态E’.
APPEND value TO list .

value-key = ‘回复失败’ .
value-text = ‘设备平台回复失败；状态O’.
APPEND value TO list .

ENDFORM.

START-OF-SELECTION.

DATA lv_type TYPE char30.
FIELD-SYMBOLS <fs_list> LIKE LINE OF list.
READ TABLE list ASSIGNING <fs_list> WITH KEY key = p_lbbox.
IF sy-subrc = 0.
lv_type = <fs_list>-text.
ENDIF.
lv_type = lv_type+11(1). "从类别p_lbbox截取状态