topic Re: Define internal table where structure is defined at runtime in Application Development and Automation Discussions

Define internal table where structure is defined at runtime

Former Member — Fri, 13 Apr 2007 07:40:49 GMT

Hi,

I want to define an internal table where the structure (which is a table name) in after syntax "INCLUDE STRUCTURE" is defined at runtime. How do I do this, I get the syntax error "The included type has no structure":

I want to do:

DATA: BEGIN OF itab OCCURS 0.

INCLUDE STRUCTURE i_table_name.

DATA: END OF itab.

where i_table_name is a imported string which refers to the database table in question.

regards

Baran

Re: Define internal table where structure is defined at runtime

Former Member — Fri, 13 Apr 2007 07:46:04 GMT

Hi baran,

1. Just give the Table name on selection screen, and it will consruct dynamic internal table.

2. just copy paste.

REPORT abc.

*----

COMPULSORY

FIELD-SYMBOLS: <dyntable> TYPE ANY TABLE.

FIELD-SYMBOLS: <dynline> TYPE ANY.

DATA: lt TYPE lvc_t_fcat.

DATA: ls TYPE lvc_s_fcat.

FIELD-SYMBOLS: <fld> TYPE ANY.

DATA : fldname(50) TYPE c.

*----

parameters : tabname LIKE dd02l-tabname DEFAULT 'T001' OBLIGATORY.

*----

START-OF-SELECTION.

*----

PERFORM

PERFORM mydyntable USING lt.

PERFORM GET_DATA.

PERFORM SHOW_DATA.

BREAK-POINT.

*----

FORM

*----

FORM GET_DATA.

SELECT * FROM (TABNAME)

INTO TABLE <DYNTABLE>.

ENDFORM. "GET_DATA

*----

FORM

*----

FORM SHOW_DATA.

loop at <dyntable> ASSIGNING <dynline>.

sy-subrc = 0.

write 😕 .

WHILE SY-SUBRC = 0.

ASSIGN COMPONENT SY-INDEX OF STRUCTURE <DYNLINE> TO <FLD>.

WRITE : <FLD>.

ENDWHILE.

endloop.

ENDFORM. "SHOW_DATA

*----

INDEPENDENT FORM

*----

FORM mydyntable USING ptabname.

*----

Create Dyn Table From FC

FIELD-SYMBOLS: <fs_data> TYPE REF TO data.

FIELD-SYMBOLS: <fs_1>.

FIELD-SYMBOLS: <fs_2> TYPE ANY TABLE.

DATA: lt_data TYPE REF TO data.

data : lt TYPE lvc_t_fcat .

DATA : ddfields LIKE ddfield OCCURS 0 WITH HEADER LINE.

*----

CALL FUNCTION 'DD_NAMETAB_TO_DDFIELDS'

EXPORTING

tabname = tabname

TABLES

ddfields = ddfields.

*----

CONSTRUCT FIELD LIST

LOOP AT ddfields.

ls-fieldname = ddfields-fieldname.

APPEND ls TO lt.

ENDLOOP.

ASSIGN lt_data TO <fs_data>.

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = lt

IMPORTING

ep_table = <fs_data>

EXCEPTIONS

generate_subpool_dir_full = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

*----

Assign Dyn Table To Field Sumbol

ASSIGN <fs_data>->* TO <fs_1>.

ASSIGN <fs_1> TO <fs_2>.

ASSIGN <fs_1> TO <dyntable>.

ENDFORM. "MYDYNTABLE

regards,

amit m.

Re: Define internal table where structure is defined at runtime

Former Member — Fri, 13 Apr 2007 07:48:09 GMT

You can use

field-symbols: <dyn_table> type standard table,

and than

Create dynamic internal table and assign to FS

call method cl_alv_table_create=>create_dynamic_table

exporting

it_fieldcatalog = it_fldcat

importing

ep_table = new_table.

assign new_table->* to <dyn_table>.

Create dynamic work area and assign to FS

create data new_line like line of <dyn_table>.

assign new_line->* to <dyn_wa>.

Hope this answers your question.

Assign reward points if it helps.

-Gaurang

Re: Define internal table where structure is defined at runtime

Former Member — Fri, 13 Apr 2007 07:48:19 GMT

Hi Baran,

Just click on the below link.

Here you can see the complete details of HOW TO CREATE DYANMIC INTERNAL TABLE( Defining structure at runtime ). It is Crystal Clear.

" http://www.saptechnical.com/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm "

<b>Hope you can understand it easily.

Reward if helpful.</b>

Regards,

V.Raghavender.