SELECT_OPTIONS_RESTRICT
Make use of SELECT-OPTIONS easier on the selection screen
FORM frm_options_restrict .DATA:
liw_restrict TYPE sscr_restrict,
liw_optlist TYPE sscr_opt_list,
liw_ass TYPE sscr_ass.
* 自定义名称
liw_optlist-name = cos_v1.
liw_optlist-options-eq = cos_x.
APPEND liw_optlist TO liw_restrict-opt_list_tab.
* 接口文件名
liw_ass-kind = cos_s.
liw_ass-name = cos_fil." cos_fil TYPE char7 VALUE 'S_ZZFIL', s_zzfil FOR zglzzt0010-zzfil NO INTERVALS LOWER CASE, "接口文件名
liw_ass-sg_main = cos_i.
liw_ass-op_main = cos_v1.
APPEND liw_ass TO liw_restrict-ass_tab.
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
EXPORTING
restriction = liw_restrict
EXCEPTIONS
too_late = 1
repeated = 2
selopt_without_options = 3
selopt_without_signs = 4
invalid_sign = 5
empty_option_list = 6
invalid_kind = 7
repeated_kind_a = 8
OTHERS = 9.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "frm_options_restrict