Restrict Select options

***********************This is function module to restrict the select-options*******************************

FORM select_options_restrict .
* Define the object to be passed to the RESTRICTION
  DATA:
    l_restrict               TYPE sscr_restrict,
* Auxiliary objects for filling RESTRICT
    l_opt_list               TYPE sscr_opt_list,
    l_ass                    TYPE sscr_ass.
  MOVE 'JUST_EQ' TO l_opt_list-name.
  MOVE 'X' TO l_opt_list-options-eq.
  APPEND l_opt_list TO l_restrict-opt_list_tab.
  MOVE: 'S'        TO l_ass-kind,
        'S_STEQU'  TO l_ass-name,
        'I'        TO l_ass-sg_main,
        '*'        TO l_ass-sg_addy,
        'JUST_EQ'  TO l_ass-op_main.
  APPEND l_ass TO l_restrict-ass_tab.
  MOVE: 'S'        TO l_ass-kind,
        'S_STYYY'  TO l_ass-name,
        'I'        TO l_ass-sg_main,
        '*'        TO l_ass-sg_addy,
        'JUST_EQ'  TO l_ass-op_main.
  APPEND l_ass TO l_restrict-ass_tab.
  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
*     PROGRAM                =
      restriction            = l_restrict
*     DB                     = ' '
    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.
*   Implement suitable error handling here
  ENDIF.
ENDFORM.                    " SELECT_OPTIONS_RESTRICT

Comments

Post a Comment

Popular posts from this blog

Export data to xls using OOPS

* REPORT  ZDEMO_EXCEL20 * Demo for method zcl_excel_worksheet-bind_alv: * export data from ALV (CL_GUI_ALV_GRID) object to excel *--------------------------------------------------------------------* REPORT  zdemo_excel20. *----------------------------------------------------------------------* *       CLASS lcl_handle_events DEFINITION *----------------------------------------------------------------------* * *----------------------------------------------------------------------* CLASS lcl_handle_events DEFINITION.   PUBLIC SECTION.     METHODS:       on_user_command FOR EVENT added_function OF cl_salv_events         IMPORTING e_salv_function. ENDCLASS.                    "lcl_handle_events DEFINITION *---------------------------------------------------------------------...
Read more

Factory method ALV sap abap

DATA lo_salv TYPE REF TO cl_salv_table , lo_functions TYPE REF TO cl_salv_functions_list , lo_columns TYPE REF TO cl_salv_columns_table , lo_columns2 TYPE REF TO cl_salv_columns_table , lo_column TYPE REF TO cl_salv_column_table , l_short TYPE scrtext_s , l_long TYPE scrtext_l , l_medium TYPE scrtext_m , lo_display TYPE REF TO cl_salv_display_settings , l_header_text TYPE lvc_title , not_found TYPE REF TO cx_salv_not_found , data_error TYPE REF TO cx_salv_data_error , l_string TYPE string , text TYPE string , oref TYPE REF TO cx_root . CONSTANTS : lc_info TYPE c VALUE 'I' , wc_error TYPE c VALUE wc_e . CLEAR : lo_salv , lo_functions . IF w_alv IS NOT INITIAL . * Use factory method TRY . CALL METHOD cl_salv_table => factory EXPORTING list_display = if_salv_c_bool_sa...
Read more

Delete Selected Record in ALV Report

form delete_selected_information.        data : i_lines type i.      *       Reading the index of the selected row in the ALV grid.   call method addressbook_grid->get_selected_rows        importing             et_index_rows = i_index_rows.      *       Check whether a row is selected or not. If not it popups a *       dialog box as warning to select a row.   describe table i_index_rows lines i_lines.        if i_lines = 0.     message i002.     exit.   endif.      *        Reads the selected rows into work area for display   loop at i_index_rows into i_selected_row.     if sy-tabix = 1.   ...
Read more