SELECT_OPTIONS_RESTRICT

An excerpt from the include H99_DP_FORMS_CE of standard program H99_DISPLAY_PAYRESULT serves as a guide as follows :

*&---------------------------------------------------------------------*

*& Form Modify_select_options

*&---------------------------------------------------------------------*

FORM modify_select_options.

DATA: restrict TYPE sscr_restrict,

opt_list TYPE sscr_opt_list,

ass TYPE sscr_ass.

opt_list-name = 'PERNR'.

opt_list-options-eq = true.

opt_list-options-bt = true.

APPEND opt_list TO restrict-opt_list_tab.

ass-kind = 'A'.

ass-sg_main = 'I'.

ass-sg_addy = ' '.

ass-op_main = 'PERNR'.

ass-op_addy = 'PERNR'.

APPEND ass TO restrict-ass_tab.

CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'

EXPORTING

program = g_repid

restriction = restrict

db = false

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 a002 WITH sy-subrc 'SELECT_OPTIONS_RESTRICT'.

ENDIF.

ENDFORM. "modify_select_options