ABAP限制选择屏幕输入方式

记录一下，有时候需要限制用户只能查询单值，如图所示

选择屏幕代码:

SELECT-OPTIONS:s_field FOR ztab-field NO INTERVALS.

 屏幕初始化事件

  DATA: ls_restrict TYPE sscr_restrict,
        ls_optlist  TYPE sscr_opt_list,
        ls_ass      TYPE sscr_ass.
  "设置只能单值查询
  ls_optlist-name       = 'OBJECTKEY'.
  ls_optlist-options-eq = abap_true.   " 单值
*  ls_optlist-options-bt = abap_true.   " 区间
  APPEND ls_optlist TO ls_restrict-opt_list_tab.
  ls_ass-kind           = 'S'.
  ls_ass-name           = 'S_FIELD'.   " 选择字段
  ls_ass-sg_main        = 'I'.         " Sign
  ls_ass-sg_addy        = space.
  ls_ass-op_main        = 'OBJECTKEY'.
  APPEND ls_ass TO ls_restrict-ass_tab.
  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      restriction            = ls_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.

参考链接：ABAP限制SELECT-OPTIONS - _fun_ny - 博客园 (cnblogs.com)