Select-Options Exclude Intervals

Бывает недостаточно в SELECT-OPTIONS указать свойство NO INTERVALS. Интервал можно заполнить все равно через свойства.

Для решения проблемы используем следующий код в инициализации:

INITIALIZATION.
  TYPE-POOLS: sscr.
  DATA: wa_restrict   TYPE sscr_restrict.

  APPEND VALUE #( name = 'EQ' options-eq = 'X' ) TO wa_restrict-opt_list_tab.
  APPEND VALUE #( kind = 'S' name = 'S_TR_TNM'
                  sg_main = 'I' sg_addy = space
                  op_main = 'EQ' op_addy = 'EQ' ) TO wa_restrict-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      program                = sy-cprog
      restriction            = wa_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.

INITIALIZATION.

TYPE-POOLS: sscr.

DATA: wa_restrict TYPE sscr_restrict.

APPEND VALUE #( name = 'EQ' options-eq = 'X' ) TO wa_restrict-opt_list_tab.

APPEND VALUE #( kind = 'S' name = 'S_TR_TNM'

sg_main = 'I' sg_addy = space

op_main = 'EQ' op_addy = 'EQ' ) TO wa_restrict-ass_tab.

CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'

EXPORTING

program = sy-cprog

restriction = wa_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.

Если вы все сделали правильно, то список возможностей ограничится лишь выбором отдельных значений.