about selecting data from a db table....

[Former Member]

Hi frienz, in a requirement, if a table name is given in selection screen, data is to be selected from that table. For ex, if MARA is entered in selection screen, data from mara to be selected, if VBAK is selected, fows from VBAK should be selected. Pls guide me on this.

Thanks in advance,

Suresh....

[Former Member]

Hi..

suppose p_table is the selection variable containing table name..

then u can rite like this

select * into v_table from (p_table).

sample code

data:w_matnr type mara-matnr.

parameter:p_mara type char4 default 'MARA'.

select single matnr into w_matnr from (p_mara)

where matnr = 'BOLT'.

write:w_matnr.

Edited by: Sheeba Bhaskaran on Dec 26, 2007 4:49 PM

Edited by: Sheeba Bhaskaran on Dec 26, 2007 4:53 PM

[Former Member]

Hai,

Check the example code to select data from database table dynamically:

report z_dynamic.

type-pools : abap.

field-symbols: <dyn_table> type standard table,

<dyn_wa>,

<dyn_field>.

data: dy_table type ref to data,

dy_line type ref to data,

xfc type lvc_s_fcat,

ifc type lvc_t_fcat.

selection-screen begin of block b1 with frame.

parameters: p_table(30) type c default 'T001'.

selection-screen end of block b1.

start-of-selection.

perform get_structure.

perform create_dynamic_itab.

perform get_data.

perform write_out.

form get_structure.

data : idetails type abap_compdescr_tab,

xdetails type abap_compdescr.

data : ref_table_des type ref to cl_abap_structdescr.

• Get the structure of the table.

ref_table_des ?=

cl_abap_typedescr=>describe_by_name( p_table ).

idetails [ ] = ref_table_des->components [ ].

loop at idetails into xdetails.

clear xfc.

xfc-fieldname = xdetails-name .

xfc-datatype = xdetails-type_kind.

xfc-inttype = xdetails-type_kind.

xfc-intlen = xdetails-length.

xfc-decimals = xdetails-decimals.

append xfc to ifc.

endloop.

endform.

form create_dynamic_itab.

• Create dynamic internal table and assign to FS

call method cl_alv_table_create=>create_dynamic_table

exporting

it_fieldcatalog = ifc

importing

ep_table = dy_table.

assign dy_table->* to <dyn_table>.

• Create dynamic work area and assign to FS

create data dy_line like line of <dyn_table>.

assign dy_line->* to <dyn_wa>.

endform.

form get_data.

• Select Data from table.

select * into table <dyn_table>

from (p_table).

endform.

form write_out.

• Write out data from table.

loop at <dyn_table> into <dyn_wa>.

do.

assign component sy-index

of structure <dyn_wa> to <dyn_field>.

if sy-subrc <> 0.

exit.

endif.

if sy-index = 1.

write:/ <dyn_field>.

else.

write: <dyn_field>.

endif.

enddo.

endloop.

endform.