选择屏幕显示单值

选择屏幕OPTIONS 变成单值
可以选择输入多个单值进行输入

代码实现：

SELECT-OPTIONS: s_id FOR ztmm0057-id NO INTERVALS MODIF ID md1.

INITIALIZATION.
  PERFORM frm_initialization.

*&---------------------------------------------------------------------*
*& Form FRM_INITIALIZATION
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_initialization .
  DATA:restrict TYPE sscr_restrict,
       optlist  TYPE sscr_opt_list,
       ass      TYPE sscr_ass.
  " 选择列框 的显示单值的功能
  optlist-name = 'OBJECTKEY1'.
  optlist-options-eq = 'X'.

  APPEND optlist TO restrict-opt_list_tab.

  ass-kind = 'S'.
  ass-name = 'S_ID'.
  ass-sg_main = 'I'.
  ass-sg_addy = space.
  ass-op_main = 'OBJECTKEY1'.
  APPEND ass TO restrict-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      restriction = restrict
      db          = ''.
ENDFORM.