您还可以参考以下代码：CHECK OUT SELECT OPTION sel_1_0。

＆----

---

*＆报告ZTESTREP

*＆

＆----

---

*＆

*＆

＆----

---

报告ztestrep。

• 包括类型池SSCR

TYPE-POOLS sscr。

• 定义要传递给RESTRICTION参数的对象

数据限制类型sscr_restrict。

• 用于填充RESTRICT的辅助对象

DATA opt_list TYPE sscr_opt_list。

数据屁股类型sscr_ass。

• 定义选择屏幕对象

• 第一段：3个选择项

第block_0块的选择屏幕开始，带有FRAME TITLE文本-bl0。

SELECT-OPTIONS sel_0_0用于sy-tvar0。

SELECT-OPTIONS sel_0_1 for sy-tvar1。

用于sy-tvar2的SELECT-OPTIONS sel_0_2。

为sy-tvar3选择选项sel_0_3。

SELECTION-SCREEN END OF BLOCK块_0。

• 第二个块：2个选择项

第block_1块的选择屏幕开始，其标题为text-bl1。

SELECT-OPTIONS sel_1_0 for sy-subrc。

SELECT-OPTIONS sel_1_1用于sy-repid。

第1个块的选择屏幕结尾。

初始化。

• 定义选项列表

• 全部：允许所有选项

将"全部"移到opt_list-name。

将" X"移动到：opt_list-options-bt，

opt_list-options-cp，

opt_list-options-eq，

opt_list-options-ge

opt_list-options-gt，

opt_list-options-le

opt_list-options-lt，

opt_list-options-nb

opt_list-options-ne

opt_list-options-np。

APPEND opt_list来限制-opt_list_tab。

• 注意：不允许使用CP和NP

清除opt_list。

将" NOPATTERN"移动到opt_list-name。

将" X"移动到：opt_list-options-bt，

opt_list-options-eq，

opt_list-options-ge

opt_list-options-gt，

opt_list-options-le

opt_list-options-lt，

opt_list-options-nb

opt_list-options-ne。

APPEND opt_list来限制-opt_list_tab。

• 禁止上网：不允许使用BT和NB

清除opt_list。

将" NOINTERVLS"移动到opt_list-name。

将" X"移动到：opt_list-options-cp，

opt_list-options-eq，

opt_list-options-ge

opt_list-options-gt，

opt_list-options-le

opt_list-options-lt，

opt_list-options-ne

opt_list-options-np。

APPEND opt_list来限制-opt_list_tab。

• EQ_AND_CP：仅允许EQ和CP

清除opt_list。

将" EQ_AND_CP"移动到opt_list-name。

将" X"移动到：opt_list-options-cp，

opt_list-options-eq。

APPEND opt_list来限制-opt_list_tab。

• JUST_EQ：仅允许EQ

清除opt_list。

将" JUST_EQ"移动到opt_list-name。

将'X'移动到opt_list-options-eq。

APPEND opt_list来限制-opt_list_tab。

• 将选择屏幕对象分配给选项列表并签名

• KIND ='A'：适用于所有SELECT-OPTIONS

移动：" A"代表屁股，

'*'到ass-sg_main，

'NOPATTERN'到ass-op_main，

'NOINTERVLS'到ass-op_addy。

APPEND驴子到strict-ass_tab。

• KIND ='B'：适用于块BLOCK_0中的所有SELECT-OPTIONS，

• ，即SEL_0_0，SEL_0_1，SEL_0_2

清除屁股。

移动：" B"代表屁股，

'BLOCK_0'TO屁股名称，

"我"是ass-sg_main，

'*'TO ass-sg_addy，

'NOINTERVLS'到ass-op_main。

APPEND驴子到strict-ass_tab。

• KIND ='S'：适用于SELECT-OPTION SEL-0-2

清除屁股。

移动：" S"代表屁股，

'SEL_0_2'TO屁股名称，

"我"是ass-sg_main，

'*'TO ass-sg_addy，

'EQ_AND_CP'到ass-op_main，

'全部'到ass-op_addy。

APPEND驴子到strict-ass_tab。

• KIND ='S'：适用于SELECT-OPTION SEL_0_3

清除屁股。

移动：" S"代表屁股，

'SEL_0_3'TO屁股名称，

"我"是ass-sg_main，

'N'TO ass-sg_addy，

'JUST_EQ'到ass-op_main。

APPEND驴子到strict-ass_tab。

• 调用功能模块

通话功能'SELECT_OPTIONS_RESTRICT'

导出

限制=限制

• DB =''

例外情况

too_late = 1

重复= 2

not_during_submit = 3

db_call_after_report_call = 4

selopt_without_options = 5

selopt_without_signs = 6

invalid_sign = 7

report_call_after_db_error = 8

empty_option_list = 9

invalid_kind = 10

repeating_kind_a = 11

OTHERS = 12。