"定义选择下拉框
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截取状态