Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

How to create dynamic selection-screen

Former Member
0 Kudos

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

2 REPLIES 2

Former Member
0 Kudos

Hi Billa,

Chk this thread if it can help you

Try to close the threads if solved by rewarding points

Former Member
0 Kudos

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.