FM u2018SELECT_OPTIONS_RESTRICTu2019 but it is not working.

Question

I am trying to restrict the selection options using FM u2018SELECT_OPTIONS_RESTRICTu2019 but it is not working. Here is the code I am using and it is not changing any option for S_CoCd. Please help me out.
TYPE-POOLS SSCR.
DATA: T_***_TAB  TYPE SSCR_***,      "select-options to be restricted
      T_OPT_LIST TYPE SSCR_OPT_LIST, "switches controlling each option
      RESTRICT   TYPE SSCR_RESTRICT. "structure holding above 2 tables
  SELECTION SCREEN
selection-screen begin of block box1 with frame title text-t01.
select-options: S_CoCd for CoCd obligatory DEFAULT 'US10'.
selection-screen end of block box1.
Initialize Selection Screen
initialization.
Create t_opt_list entry to specify capabilities of S_CoCd.
  CLEAR T_OPT_LIST.
  T_OPT_LIST-NAME       = 'S_CoCd'."This must match ***_tab-op_main
  T_OPT_LIST-OPTIONS-BT = SPACE.     "Do not permit BETWEEN
  T_OPT_LIST-OPTIONS-CP = SPACE.     "Do not permit MATCHES-PATTERN
  T_OPT_LIST-OPTIONS-EQ = 'X'.       "       Permit EQUALS
  T_OPT_LIST-OPTIONS-GE = SPACE.     "Do not permit GREATER-OR-EQUAL
  T_OPT_LIST-OPTIONS-GT = SPACE.     "Do not permit GREATER-THAN
  T_OPT_LIST-OPTIONS-LE = SPACE.     "Do not permit LESS-OR-EQUAL
  T_OPT_LIST-OPTIONS-LT = SPACE.     "Do not permit LESS-THAN
  T_OPT_LIST-OPTIONS-NB = SPACE.     "Do not permit NOT-BETWEEN
  T_OPT_LIST-OPTIONS-NE = SPACE.     "Do not permit NOT-EQUAL
  T_OPT_LIST-OPTIONS-NP = SPACE.     "Do not permit NO-PATTERN-MATCH
  APPEND T_OPT_LIST TO RESTRICT-OPT_LIST_TAB.
Create t_***_tab entry to show we're restricting select-option S_CoCd.
  CLEAR T_***_TAB.
  T_***_TAB-KIND    = 'S'.        "Apply only to the named SELECT-OPTION
  T_***_TAB-NAME    = 'S_CoCd'.    "This is name of the SELECT-OPTION
  T_***_TAB-SG_MAIN = 'I'.        "I = ONLY Inclusions; * = Both
  T_***_TAB-SG_ADDY = Space.
  T_***_TAB-OP_MAIN = 'S_CoCd'. "This must match opt_list-name
  APPEND T_***_TAB TO RESTRICT-***_TAB.
Call function to restrict the capabilities of select-option
  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.
Provide error if attempt to restrict capabilities of S_BUKRS failed.
  IF SY-SUBRC <> 0.
    MESSAGE E089(ZZ) WITH SY-REPID
                          SY-SUBRC
                         'SELECT_OPTIONS_RESTRICT'.
  ENDIF.
Edited by: Rajesh Hemnani on Jun 17, 2009 11:42 AM

Answer 1

Hi,
Please use the name in capital letters while specifying the NAME value.
TYPE-POOLS sscr.
DATA: t_***_tab TYPE sscr_***, "select-options to be restricted
      t_opt_list TYPE sscr_opt_list, "switches controlling each option
      restrict TYPE sscr_restrict. "structure holding above 2 tables
* SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK box1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: s_cocd FOR CoCd OBLIGATORY DEFAULT 'US10'.
SELECTION-SCREEN END OF BLOCK box1.
***************************** Initialize Selection Screen
INITIALIZATION.
* Create t_opt_list entry to specify capabilities of S_CoCd.
  CLEAR t_opt_list.
  t_opt_list-name = 'S_COCD'.
  "This must match ***_tab-op_main
  t_opt_list-options-bt = space.
  "Do not permit BETWEEN
  t_opt_list-options-cp = space. "Do not permit MATCHES-PATTERN
  t_opt_list-options-eq = 'X'.  " Permit EQUALS
  t_opt_list-options-ge = space. "Do not permit GREATER-OR-EQUAL
  t_opt_list-options-gt = space. "Do not permit GREATER-THAN
  t_opt_list-options-le = space. "Do not permit LESS-OR-EQUAL
  t_opt_list-options-lt = space. "Do not permit LESS-THAN
  t_opt_list-options-nb = space. "Do not permit NOT-BETWEEN
  t_opt_list-options-ne = space. "Do not permit NOT-EQUAL
  t_opt_list-options-np = space. "Do not permit NO-PATTERN-MATCH
  APPEND t_opt_list TO restrict-opt_list_tab.
* Create t_***_tab entry to show we're restricting select-option S_CoCd.
  CLEAR t_***_tab.
  t_***_tab-kind = 'S'. "Apply only to the named     SELECT-OPTION
  t_***_tab-name = 'S_COCD'. "This is name of the SELECT-OPTION
  t_***_tab-sg_main = 'I'. "I = ONLY Inclusions; * = Both
  t_***_tab-sg_addy = space.
  t_***_tab-op_main = 'S_COCD'. "This must match opt_list-name
  APPEND t_***_tab TO restrict-***_tab.
*  Call function to restrict the capabilities of select-option
  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.
*       * Provide error if attempt to restrict capabilities of S_BUKRS failed.
  IF sy-subrc NE 0.
    MESSAGE e089(zz) WITH sy-repid sy-subrc 'SELECT_OPTIONS_RESTRICT'.
  ENDIF.
Regards
Bhupal Reddy