report z_limit_select .
type-pools sscr."选择屏幕类型池
tables : sflight.
select-options : s_carrid for sflight-carrid,
s_connid for sflight-connid.
data: restrict type sscr_restrict,"母限制
optlist type sscr_opt_list,"子限制1
ass type sscr_ass."子限制2
initialization.
optlist-name = 'OBJECTKEY1'.
optlist-options-eq = 'X'."设置为'X'的是不被禁止的
optlist-options-bt = ''.
append optlist to restrict-opt_list_tab.
ass-kind = 'S'.
ass-name = 'S_CARRID'.
ass-sg_main = 'I'.
ass-sg_addy = space.
ass-op_main = 'OBJECTKEY1'.
append ass to restrict-ass_tab.
clear optlist.
clear ass.
optlist-name = 'OBJECTKEY2'.
optlist-options-cp = 'X'."包含
optlist-options-ge = 'X'.
optlist-options-lt = 'X'.
optlist-options-ne = 'X'.
optlist-options-eq = 'X'.
optlist-options-bt = 'X'.
append optlist to restrict-opt_list_tab.
ass-kind = 'S'.
ass-name = 'S_CONNID'.
ass-sg_main = 'I'.
ass-sg_addy = space.
ass-op_main = 'OBJECTKEY2'.
append ass to restrict-ass_tab.
call function 'SELECT_OPTIONS_RESTRICT'
exporting
restriction = 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.
*NO-EXTENSION
*NO INTERVALS
*BT SELECT-OPTIONS: 活动范围
*CP 选项: 活动模式
*EQ 选项: 单一活动值
*GE 选项: 大于或等于
*GT 选项: 大于
*LE 选项: 小于或等于
*LT 选项: 小于
*NB SELECT-OPTIONS: 排除范围激活
*NE SELECT-OPTIONS: 单值活动除外
*NP 选项: 活动的模型除外
评论