How to create dynamic selection-screen

Question

Hi all,
I want to create dynamic selection-screen.in that dynamic selectio-screen i want to display date fields based on table name given in the selection-screen.
Regards,
Billa

Answer 1

Hi Billa,
Look into the function group SSEL, this has some SAP standard functions to work with dynamic selection screens.
Below is sample FM, I wrote making use of standard FM from the above. This FM will take table name as input and will display a screen with all the fields within that table for selection. This can also be customized to restrict the fields for display.
Hope this helps,
Sumant.
FUNCTION y_ss_test_dynamic_selection.
""Local interface:
*"  IMPORTING
*"     REFERENCE(TABNAME) LIKE  DD02L-TABNAME
*"  EXPORTING
*"     REFERENCE(DS_CLAUSES) TYPE  RSDS_WHERE
*"  EXCEPTIONS
*"      TABLE_NOT_VALID
*"      OTHER_ERROR
  DATA texpr TYPE rsds_texpr.
  DATA twhere TYPE rsds_twhere.
  DATA trange TYPE rsds_trange.
  DATA BEGIN OF qcat.                    "Selections View for
          INCLUDE STRUCTURE rsdsqcat.    "Free Selectoptions
  DATA END OF qcat.
  DATA BEGIN OF tabs OCCURS 10.
          INCLUDE STRUCTURE rsdstabs.
  DATA END   OF tabs.
  DATA BEGIN OF fields OCCURS 10.
          INCLUDE STRUCTURE rsdsfields.
  DATA END   OF fields.
  DATA BEGIN OF efields OCCURS 10.
          INCLUDE STRUCTURE rsdsfields.
  DATA END   OF efields.
  DATA selid LIKE rsdynsel-selid.
  DATA actnum LIKE sy-tfill.
  DATA title LIKE sy-title VALUE 'Selection Screen'.
  DATA: maxnum LIKE sy-subrc VALUE '69'.
  CLEAR    tabs.
  tabs-prim_tab = tabname.
  COLLECT  tabs.
  DATA: position LIKE dd03l-position.
  DATA: keyflag  LIKE dd03l-keyflag.
  CLEAR fields.
  fields-tablename = tabname.
  fields-sign      = 'I'.
  DATA: step LIKE sy-subrc.
  SELECT fieldname keyflag position
    INTO (fields-fieldname, keyflag, position)
    FROM dd03l
    WHERE tabname = tabname
      AND fieldname NOT LIKE '.INCLU%'
      AND datatype NE 'CLNT'
    ORDER BY position.
    ADD 1 TO step.
    CHECK step LE maxnum.
    IF keyflag <> 'X'.
      efields = fields.
      APPEND efields.
    ENDIF.
    APPEND fields.
  ENDSELECT.
  IF sy-subrc <> 0.
    RAISE table_not_valid.
  ENDIF.
  CALL FUNCTION 'FREE_SELECTIONS_INIT'
       EXPORTING
            expressions              = texpr
            kind                     = 'F'
       IMPORTING
            selection_id             = selid
            expressions              = texpr
            where_clauses            = twhere
            field_ranges             = trange
            number_of_active_fields  = actnum
       TABLES
            tables_tab               = tabs
            fields_tab               = fields
            fields_not_selected      = efields
       EXCEPTIONS
            fields_incomplete        = 01
            fields_no_join           = 02
            field_not_found          = 03
            no_tables                = 04
            table_not_found          = 05
            expression_not_supported = 06
            incorrect_expression     = 07
            illegal_kind             = 08
            area_not_found           = 09
            inconsistent_area        = 10
            kind_f_no_fields_left    = 11
            kind_f_no_fields         = 12
            too_many_fields          = 13.
  IF sy-subrc = 0.
    CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
         EXPORTING
              selection_id            = selid
              title                   = title
         IMPORTING
              where_clauses           = twhere
              expressions             = texpr
              field_ranges            = trange
              number_of_active_fields = actnum
         TABLES
              fields_tab              = fields
         EXCEPTIONS
              internal_error          = 01
              no_action               = 02
              no_fields_selected      = 03
              no_tables_selected      = 04
              selid_not_found         = 05.
    IF sy-subrc = 0.
      CLEAR ds_clauses.
      MOVE tabname TO ds_clauses-tablename.
      READ TABLE twhere WITH KEY ds_clauses-tablename INTO ds_clauses.
      IF sy-subrc <> 0.
        RAISE other_error.
      ENDIF.
    ELSE.
      RAISE other_error.
    ENDIF.
  ELSE.
    RAISE other_error.
  ENDIF.
ENDFUNCTION.