How to assign table name for select query in loop.

Question

Hi friends my requirement is count the no of records of all the database table which comes into an internal table ."Check the below coding". Iam  fetching the tables from dd03l table into an internal table .plz give me a sujjesion how to assign a table name in select query  in a loop.
  SELECT tabname FROM dd09l
            INTO TABLE i_dd09l
            WHERE protokoll = 'X'.
  IF sy-subrc = 0.
    SORT i_dd09l BY tabname.
  ENDIF.
  LOOP AT i_dd09l.
    SELECT COUNT(*) INTO val FROM i_dd09l-tabname.
    IF sy-subrc = 0.
      i_dd09l-count = val.
    ENDIF.
    MODIFY i_dd09l INDEX sy-index.
    CLEAR val.
  ENDLOOP.
error : 'I_DD09L-TABNAME' is not defined in the abap dictionary as a table.

Answer 1

data: dy_table type ref to data,
      dy_line type ref to data,
      xfc type lvc_s_fcat,
      ifc type lvc_t_fcat,
      dy_field type ref to data.
LOOP AT i_dd09l.
perform get_structure using i_dd09l-tabname .
CREATE DATA dy_table TYPE TABLE OF (_dd09l-tab_name).
    UNASSIGN <dyn_table>.
    ASSIGN dy_table->* TO <dyn_table>.
SELECT COUNT(*) INTO val FROM <dyn_table>.
IF sy-subrc = 0.
i_dd09l-count = val.
ENDIF.
MODIFY i_dd09l INDEX sy-index.
CLEAR val.
ENDLOOP.
form get_structure using p_table.
  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.                    "get_structure
Try like this hope it will work.
Regards,
madan.