To restrict the select-options popup message

TYPE-POOLS sscr.

DATA: restrict     TYPE sscr_restrict,
      opt_list     TYPE sscr_opt_list,
      associate    TYPE sscr_ass.

CLEAR :opt_list,associate,restrict.

* Set the complex
  MOVE 'EQ'  TO opt_list-name.
  opt_list-options-eq = 'X'.
  APPEND opt_list TO restrict-opt_list_tab.
  associate-kind    = 'S'.
  associate-name    = '<select-option name>'.
  associate-sg_main = 'I'.
  associate-sg_addy = ' '.
  associate-op_main = 'EQ'.
  associate-op_addy = 'EQ'.
  APPEND associate TO restrict-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      program                      = sy-repid
      restriction                  = restrict
*   DB                           = ' '
   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

Note: It should be declared in the PBO in Module pool program.