How to restrict more than one 1 range in select option on selection screen.

Question

Hi all,
I have a requirement where I need to restrict user from giving more than 1 range for a date selct option ..other all features of multiple selection will be as usual...
for eg we can do this if we disable / hide other cells if the user clicks on multiple ranges tab.. If only 1 cell is available to give the range user will not be able to give more than 1 range....
I was thinking if I could use select_options_restrict but how do i fill its parameters...
Can anyone send me the sample code or the same to achieve this functionality...I have used select_options_restrict to hide multiple ranges itself  ... But here user will be able to give range but only 1....
Thanks and Regards
Sweta

Answer 1

HI,
Please try the below logic.
SELECT-OPTIONS: so_addr   FOR    ADR6-SMTP_ADDR NO INTERVALS.
***********remove_range_for_select_option******************* .
  DATA: ls_restrict  TYPE  SSCR_RESTRICT,    "The type for SELECT_OPTIONS_RESTRICT
        ls_opt_list  TYPE  SSCR_OPT_LIST,    "One list of options
        ls_asn       TYPE  SSCR_***.         "One line of table associating selection screen
                                                                  "object with opt. list
  CLEAR: ls_restrict,
         ls_opt_list,
         ls_asn.
*Only EQ valid, discrete values, Include & Exclude
  ls_opt_list-name       = 'EQ'.
  ls_opt_list-options-eq = 'X'.
  APPEND ls_opt_list TO ls_RESTRICT-OPT_LIST_TAB.
  LS_ASN-KIND            = 'S'.
  LS_ASN-NAME            = 'SO_ADDR'.            "Select Option
  LS_ASN-SG_MAIN         = 'I'.
  LS_ASN-SG_ADDY         = '*'.
  LS_ASN-OP_MAIN         = 'EQ'.
  LS_ASN-OP_ADDY         = ' '.
  APPEND LS_ASN TO LS_RESTRICT-***_TAB.
*Make use of SELECT-OPTIONS easier on the selection screen
  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.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
Edited by: Rajasekhar Reddy P on Mar 16, 2009 2:03 PM