dynamic selection

[Former Member]

Hi all,

What is meant by dynamic selection.

regards,

kushagra

[Former Member]

Hi,

If this question is regarding dynamic selection screen

just execute this sample code ...

This program displays an empty selection screen with two Push buttons on Application tool bar 'Material' , 'Purchase Document'..

When u click on the Material .. u will get a select option to enter values for the Material.. and when u click on the purchase Document ,, u will get a select option to enter PO numbers...

tables : mara, ekko, sscrfields.

data : w_flag1 type i,

w_flag2 type i.

SELECT-OPTIONS : S_MATNR FOR MARA-MATNR MODIF ID sc1.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN MODIF ID sc2.

SELECTION-SCREEN: FUNCTION KEY 1,

FUNCTION KEY 2.

INITIALIZATION.

sscrfields-functxt_01 = 'Material'.

sscrfields-functxt_02 = 'Purchase document'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'SC1' OR SCREEN-GROUP1 = 'SC2'.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

CONTINUE.

ENDIF.

ENDLOOP.

At selection-screen output.

IF w_flag1 = 1.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'SC2'.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

CLEAR W_FLAG1.

ELSEIF W_FLAG2 EQ 1.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'SC1'.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

CLEAR W_FLAG2.

ENDIF.

AT SELECTION-SCREEN.

CASE sscrfields-ucomm.

WHEN 'FC01'.

w_flag1 = 1.

WHEN 'FC02'.

w_flag2 = 1.

ENDCASE.

If this regarding Dynamic Select Statement

The very useful SELECT statement could be fully dynamic from release 6.10 and up.

Here is an example of a fully dynamic select.

Code:

REPORT zdany_dynamic_select.

We use some parameters to dynamically control the select, this is not very

clever but this is just a test program !!

PARAMETER : p_tabnam TYPE tabname DEFAULT 'SFLIGHT',

p_selfl1 TYPE edpline DEFAULT 'CARRID',

p_selfl2 TYPE edpline DEFAULT 'CONNID',

p_selfl3 TYPE edpline DEFAULT 'FLDATE',

p_selfl4 TYPE edpline DEFAULT 'PRICE',

p_selfl5 TYPE edpline DEFAULT 'CURRENCY',

p_where1 TYPE edpline DEFAULT 'PRICE > 300',

p_where2 TYPE edpline DEFAULT 'AND CURRENCY = ''EUR'''.

FIELD-SYMBOLS : <lt_outtab> TYPE ANY TABLE,

<ls_outtab> TYPE ANY,

<l_fld> TYPE ANY.

DATA: lt_where TYPE TABLE OF edpline,

lt_sel_list TYPE TABLE OF edpline,

lt_group TYPE TABLE OF edpline,

l_having TYPE string,

l_wa_name TYPE string,

l_sel_list TYPE edpline,

dref TYPE REF TO data,

itab_type TYPE REF TO cl_abap_tabledescr,

struct_type TYPE REF TO cl_abap_structdescr,

elem_type TYPE REF TO cl_abap_elemdescr,

comp_tab TYPE cl_abap_structdescr=>component_table,

comp_fld TYPE cl_abap_structdescr=>component.

TYPES: f_count TYPE i.

Creation of the output table including a non standard field, f_count

see ABAP FAQ #14 for more information on this topic

struct_type ?= cl_abap_typedescr=>describe_by_name( p_tabnam ).

elem_type ?= cl_abap_elemdescr=>describe_by_name( 'F_COUNT' ).

comp_tab = struct_type->get_components( ).

We remove the unnecessary fields

LOOP AT comp_tab INTO comp_fld.

IF comp_fld-name p_selfl1 AND

comp_fld-name p_selfl2 AND

comp_fld-name p_selfl3 AND

comp_fld-name p_selfl4 AND

comp_fld-name p_selfl5.

DELETE TABLE comp_tab WITH TABLE KEY name = comp_fld-name.

ENDIF.

ENDLOOP.

comp_fld-name = 'F_COUNT'.

comp_fld-type = elem_type.

APPEND comp_fld TO comp_tab.

struct_type = cl_abap_structdescr=>create( comp_tab ).

itab_type = cl_abap_tabledescr=>create( struct_type ).

l_wa_name = 'l_WA'.

CREATE DATA dref TYPE HANDLE itab_type.

ASSIGN dref->* TO <lt_outtab>.

CREATE DATA dref TYPE HANDLE struct_type.

ASSIGN dref->* TO <ls_outtab>.

Creation of the selection fields and the "group by" clause

APPEND p_selfl1 TO lt_sel_list.APPEND p_selfl1 TO lt_group.

APPEND p_selfl2 TO lt_sel_list.APPEND p_selfl2 TO lt_group.

APPEND p_selfl3 TO lt_sel_list.APPEND p_selfl3 TO lt_group.

APPEND p_selfl4 TO lt_sel_list.APPEND p_selfl4 TO lt_group.

APPEND p_selfl5 TO lt_sel_list.APPEND p_selfl5 TO lt_group.

APPEND 'COUNT(*) AS F_COUNT' TO lt_sel_list.

• creation of the "where" clause

APPEND p_where1 TO lt_where.

APPEND p_where2 TO lt_where.

Creation of the "having" clause

l_having = 'count(*) >= 1'.

THE dynamic selectSELECT (lt_sel_list)

FROM (p_tabnam)

INTO CORRESPONDING FIELDS OF TABLE <lt_outtab>

WHERE (lt_where)

GROUP BY (lt_group)

HAVING (l_having)

ORDER BY (lt_group).

display of the results

LOOP AT <lt_outtab> ASSIGNING <ls_outtab>.

LOOP AT comp_tab INTO comp_fld.

ASSIGN COMPONENT comp_fld-name OF STRUCTURE <ls_outtab> TO <l_fld>.

WRITE: <l_fld>.

ENDLOOP.

SKIP.

ENDLOOP.

Reward Points if found helpfull..

check this code:

Display of flight connections after input of airline and flight number:

PARAMETERS: carr_id TYPE spfli-carrid,

conn_id TYPE spfli-connid.

DATA: where_clause TYPE STRING,

and(4),

wa_spfli TYPE spfli.

IF carr_id IS NOT INITIAL.

CONCATENATE 'CARRID = ''' carr_id '''' INTO where_clause.

and = ' AND'.

ENDIF.

IF conn_id IS NOT INITIAL.

CONCATENATE where_clause and ' CONNID = ''' conn_id ''''

INTO where_clause.

ENDIF.

SELECT * FROM spfli INTO wa_spfli WHERE (where_clause).

WRITE: / wa_spfli-carrid, wa_spfli-connid, wa_spfli-cityfrom,

wa_spfli-cityto, wa_spfli-deptime.

ENDSELECT.

Regards,

Raj.

[Former Member]

Hi,

Dynamic selections allow the users to enter the values for the fields that are not part of main selection screen of logical database.

Go throught the following link:

http://help.sap.com/saphelp_nw04/helpdata/en/9f/dba65c35c111d1829f0000e829fbfe/frameset.htm

Reward if helpful.

Chandrasekhar K

[Former Member]

hi check this..

http://help.sap.com/saphelp_nw04/helpdata/en/67/93b80914a911d2953c0000e8353423/frameset.htm

regards,

venkat