SELECT-OPTIONS的控制

REPORT Z_TEST.
TYPE-POOLS SSCR.

DATA: RESTRICT TYPE SSCR_RESTRICT,
      OPTLIST  TYPE SSCR_OPT_LIST,
      ASS      TYPE SSCR_ASS.
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS  S_DATE FOR SY-DATUM NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK BLK.

INITIALIZATION.
  OPTLIST-NAME       = 'OBJECTKEY1'.
  OPTLIST-OPTIONS-EQ = 'X'.           " 控制显示条件 EQ 等于
  OPTLIST-OPTIONS-BT = 'X'.
  APPEND OPTLIST TO RESTRICT-OPT_LIST_TAB.
  ASS-KIND      = 'S'.
  ASS-NAME      = 'S_DATE'.
  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
       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.

START-OF-SELECTION.
  WRITE: / 'aa'.

 

备注,下面给出需要控制的条件

 

*NO-EXTENSION
*NO INTERVALS
 
*BT SELECT-OPTIONS: 活动范围
*CP 选项: 活动模式
*EQ 选项: 单一活动值
*GE 选项: 大于或等于
*GT 选项: 大于
*LE 选项: 小于或等于
*LT 选项: 小于
*NB SELECT-OPTIONS: 排除范围激活
*NE SELECT-OPTIONS: 单值活动除外
*NP 选项: 活动的模型除外