ABAP 屏幕增加下拉选项 demo

ABAP 屏幕增加下拉选项

DATA:it_val TYPE vrm_values,
it_val2 TYPE vrm_values,

PARAMETERS:p_spzt TYPE ztmm022-zspzt AS LISTBOX VISIBLE LENGTH 8 DEFAULT ‘N’ MODIF ID m31.

w_line-key = ‘X’.
w_line-text = ‘已审批’.
APPEND w_line TO it_val.
w_line-key = ‘N’.
w_line-text = ‘未审批’.
APPEND w_line TO it_val.

CALL FUNCTION ‘VRM_SET_VALUES’
EXPORTING
id = ‘P_SPZT’
values = it_val
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
REFRESH it_val.
ENDIF.