START-OF-SELECTION.
  SELECTION-SCREEN BEGIN OF BLOCK opt WITH FRAME TITLE text-opt.

  SELECT-OPTIONS s_date FOR sy-datum OBLIGATORY NO-EXTENSION.

  SELECTION-SCREEN END OF BLOCK opt.

INITIALIZATION.

  DATA: g_restrict TYPE sscr_restrict,
        g_ass      TYPE sscr_ass,
        g_opt      TYPE sscr_opt_list.
* Selection option restriction - disable the function allowing users
* to enter values to be excluded from the selection
  CLEAR: g_ass, g_opt, g_restrict.

  MOVE 'JUST_EQ' TO g_opt-name.
  MOVE 'X' TO g_opt-options-eq.
  APPEND g_opt TO g_restrict-opt_list_tab.

  MOVE: 'S'          TO g_ass-kind,
        'S_DATE'   TO g_ass-name,
        'I'          TO g_ass-sg_main,
        ' '          TO g_ass-sg_addy,
        'JUST_EQ'    TO g_ass-op_main.
  APPEND g_ass TO g_restrict-ass_tab.
 
  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      restriction            = g_restrict
.
 

  MOVE 'X' TO g_opt-options-eq.

MOVE 'X' TO g_opt-options-eq.

MOVE 'X' TO g_opt-options-bt