Sample form to suppress tabs in select-option.............
FORM initialization .
PERFORM selopt_no_interv.
ENDFORM. " initialization
*&---------------------------------------------------------------------*
*& Form selopt_no_interv
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM selopt_no_interv.
DATA: restriction TYPE sscr_restrict,
w_opt_list TYPE sscr_opt_list,
w_ass_tab TYPE sscr_ass.
w_opt_list-name = 'OBJECTKEY1'.
w_opt_list-options-eq = 'X'.
APPEND w_opt_list TO restriction-opt_list_tab.
w_ass_tab-kind = 'S'.
w_ass_tab-name = 'CUSOBJ'.
w_ass_tab-sg_main = 'I'.
w_ass_tab-sg_addy = ' '.
w_ass_tab-op_main = 'OBJECTKEY1'.
* w_ass_tab-op_addy = 'OBJECTKEY1'.
APPEND w_ass_tab TO restriction-ass_tab.
w_opt_list-name = 'OBJECTKEY2'.
w_opt_list-options-eq = 'X'.
APPEND w_opt_list TO restriction-opt_list_tab.
w_ass_tab-kind = 'S'.
w_ass_tab-name = 'EMAILS'.
w_ass_tab-sg_main = 'I'.
w_ass_tab-sg_addy = ' '.
w_ass_tab-op_main = 'OBJECTKEY2'.
* w_ass_tab-op_addy = 'OBJECTKEY2'.
APPEND w_ass_tab TO restriction-ass_tab.
CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
EXPORTING
* PROGRAM =
restriction = restriction
* DB = ' '
EXCEPTIONS
too_late = 0
repeated = 0
selopt_without_options = 0
selopt_without_signs = 0
invalid_sign = 0
empty_option_list = 0
invalid_kind = 0
repeated_kind_a = 0
OTHERS = 0.
ENDFORM. " SELOPT_NO_INTERV
No comments:
Post a Comment