topic Re: Read tables dynamically in Application Development and Automation Discussions

Read tables dynamically

david_escofettrenado — Tue, 14 Apr 2009 10:19:58 GMT

Hi,

We need to read several tables to determine if they are empty. We have create a program that read all tables from a text file. But <ft_comp> is not assigned with header structure to read table.

DATA: BEGIN OF i_table OCCURS 500,

table(30),

END OF i_table.

DATA: tabname(30).

FIELD-SYMBOLS <fs_comp> type any.

PARAMETERS p_file(128).

START-OF-SELECTION.

Obtains file with tables

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

filename = p_file

filetype = 'DAT'

TABLES

data_tab = i_table

EXCEPTIONS

conversion_error = 01

file_open_error = 02.

Read all tables

loop at i_table.

tabname = i_table-table.

assign (tabname) to <fs_comp>.

SELECT SINGLE * into <fs_comp>

FROM (tabname).

if sy-subrc = 0.

Exist registers.

endif.

endloop.

Re: Read tables dynamically

Former Member — Tue, 14 Apr 2009 10:24:40 GMT

hi there.... you need not have header line.... infact you need not select anything into a header....

simply use :

select single * from <table name > where <conditions>.

if even a single value is returned, then subrc will be 0, which can be checked easily. if the subrc is not zero, no value was returned and you can easily make out which table is empty. Moreover it will improve the performance also as only one record will be fetched instead of the entire table contents.

hope this helps....

cheers,

Prem Sharma

Re: Read tables dynamically

david_escofettrenado — Tue, 14 Apr 2009 10:30:09 GMT

This is not running because I can assing dinamically value to <table name>. Can you write your abap code?

Re: Read tables dynamically

seshatalpasai_madala — Tue, 14 Apr 2009 10:39:28 GMT

Hi,

Try the below code.

DATA dref TYPE REF TO data. 
loop at i_table.

tabname = i_table-table.
    CREATE DATA dref TYPE (tabname). 
    ASSIGN dref->* TO <fs_comp>. 

SELECT SINGLE * into <fs_comp>
FROM (tabname).
if sy-subrc = 0.
* Exist registers.
endif.

endloop.

Regards,

Sesh

Re: Read tables dynamically

andrea_olivieri — Tue, 14 Apr 2009 10:41:30 GMT

Hi, try this (your code adapted):

.DATA: BEGIN OF i_table OCCURS 500,
table(30),
END OF i_table.
DATA: tabname(30).
*FIELD-SYMBOLS <fs_comp> type any.

PARAMETERS p_file(128).

START-OF-SELECTION.

* Obtains file with tables
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename         = p_file
      filetype         = 'DAT'
    TABLES
      data_tab         = i_table
    EXCEPTIONS
      conversion_error = 01
      file_open_error  = 02.

* Read all tables
  LOOP AT i_table.

    tabname = i_table-table.

*assign (tabname) to <fs_comp>.
    SELECT COUNT( * ) FROM (tabname).
    IF sy-dbcnt > 0.
      WRITE:/ tabname, sy-dbcnt.
* Exist registers.
    ENDIF.

  ENDLOOP.

This should works.

Andrea