Friday, December 23, 2011

SELECT-OPTIONS to show only single selection


Sample form to suppress tabs in select-option.............

FORM initialization .
  PERFORM selopt_no_interv.
ENDFORM.                    " initialization

*&---------------------------------------------------------------------*
*&      Form  selopt_no_interv
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM selopt_no_interv.

  DATA: restriction TYPE sscr_restrict,
        w_opt_list TYPE sscr_opt_list,
        w_ass_tab TYPE sscr_ass.

  w_opt_list-name = 'OBJECTKEY1'.
  w_opt_list-options-eq = 'X'.
  APPEND w_opt_list TO restriction-opt_list_tab.
  w_ass_tab-kind = 'S'.
  w_ass_tab-name = 'CUSOBJ'.
  w_ass_tab-sg_main = 'I'.
  w_ass_tab-sg_addy = ' '.
  w_ass_tab-op_main = 'OBJECTKEY1'.
*  w_ass_tab-op_addy = 'OBJECTKEY1'.
  APPEND w_ass_tab TO restriction-ass_tab.

  w_opt_list-name = 'OBJECTKEY2'.
  w_opt_list-options-eq = 'X'.
  APPEND w_opt_list TO restriction-opt_list_tab.
  w_ass_tab-kind = 'S'.
  w_ass_tab-name = 'EMAILS'.
  w_ass_tab-sg_main = 'I'.
  w_ass_tab-sg_addy = ' '.
  w_ass_tab-op_main = 'OBJECTKEY2'.
*  w_ass_tab-op_addy = 'OBJECTKEY2'.
  APPEND w_ass_tab TO restriction-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
      EXPORTING
*         PROGRAM                =
           restriction            = restriction
*         DB                     = ' '
EXCEPTIONS
      too_late               = 0
      repeated               = 0
      selopt_without_options = 0
      selopt_without_signs   = 0
      invalid_sign           = 0
      empty_option_list      = 0
      invalid_kind           = 0
      repeated_kind_a        = 0
      OTHERS                 = 0.
ENDFORM.                               " SELOPT_NO_INTERV

No comments:

Post a Comment