topic Re: Dynamic structure Internal table in Application Development and Automation Discussions

Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 07:48:58 GMT

Hi Friends,

In my report i have a statement like this

SELECT * FROM (wa_report-tabna) INTO TABLE i_tabna.

In this based on the dynamically selected database table the internal table structure will also be changing. Is it possible to have dynamically changing internal table structure? If so can you help on this. Sample code will be very useful.

Thanks in Advance.

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 07:52:09 GMT

Please look at the following blogs

/people/ravikumar.allampallam/blog/2005/05/31/expand-the-list-of-columns-in-a-report-dynamically

/people/rich.heilman2/blog/2005/07/27/dynamic-internal-tables-and-structures--abap

regards,

Ravi

Note - Please mark all the helpful answers

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 07:52:55 GMT

Check

Regards,

Santosh

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 08:05:24 GMT

Hi shri,

For this purpose,

in my program,

there is an INDEPENDENT FORM

whose inputs are

TABLE NAME / STRUCTURE NAME

and from those, it consructs dynamic table.

2. Here is the program.

the dynamic table name will be

<DYNTABLE>.

3. U can use this program (FORM in this program)

to generate any kind of internal table

by specifying TABLE NAME .

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 : iname LIKE dd02l-tabname.

*----

START-OF-SELECTION.

*----

PERFORM

PERFORM mydyntable USING lt.

BREAK-POINT.

*----

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 = iname

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: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 08:31:23 GMT

Thank you Amit, it is really useful but i need some more help like , I need to read some fields from that dynamic internal table and pass those certain field values to a subroutine to update a transaction vk13. Can you help me on this.

Thanks.

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 08:34:39 GMT

If you know the name of the fields.

LOOP AT <ITAB> ASSIGNING <FS_ITAB>

ASSIGN COMPONENT 'COLUMN NAME' OF STRUCTURE <FS_ITAB> TO <FS_ANY>.

Now you have the value of the field in the field symbol <fs_any> and the same can be passed to sub routine.

ENDLOOP

Same has to be done for other fields as well.

Regards,

Ravi

Note - Please mark all the helpful answers

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 08:46:35 GMT

Hi again,

1. To display data of internal table, using field-symbols

2. just copy paste

Report abc.

*----

data : itab like t001 occurs 0 with header line.

*----

field-symbols : <ft> type table.

FIELD-SYMBOLS: <dynline> TYPE ANY.

FIELD-SYMBOLS: <fld> TYPE ANY.

select * from t001 into table itab.

*----

assign itab[] to <FT>.

LOOP AT <ft> ASSIGNING <DYNLINE>.

sy-subrc = 0.

write 😕 '----

WHILE SY-SUBRC = 0.

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

WRITE : <FLD>.

ENDWHILE.

ENDLOOP.

regards,

amit m.

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 09:48:09 GMT

In my case the table itab is the dynamic internal table if i give a statement like this SELECT * into table <dyntable>

FROM (iname).

LOOP AT <dyntable> ASSIGNING <dynline>.

sy-subrc = 0.

WHILE sy-subrc = 0.

ASSIGN COMPONENT sy-index OF STRUCTURE <dynline> TO <fld>.

WRITE : <fld>.

ENDWHILE.

ENDLOOP.

it is showing error statement is not accessible. What is wrong with the select statement. Help me.

Thanks.

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 09:49:56 GMT

SELECT * into <b>correspodning fields of</b> table <dyntable>

FROM (iname).

Regards,

Ravi

Note - Please mark the helpful answers

Re: Dynamic structure Internal table

Former Member — Thu, 16 Nov 2006 09:58:30 GMT

Hi Amit,

Now my code is

FIELD-SYMBOLS: <dyntable> TYPE ANY TABLE.

FIELD-SYMBOLS: <dynline> TYPE ANY.

FIELD-SYMBOLS: <fld> TYPE ANY.

DATA: lt TYPE lvc_t_fcat.

DATA: ls TYPE lvc_s_fcat.

DATA : fldname(50) TYPE c.

PARAMETERS : iname LIKE dd02l-tabname.

START-OF-SELECTION.

PERFORM mydyntable USING lt.

&----

*& Form mydyntable

&----

text

----

-->PTABNAME text

----

FORM mydyntable USING ptabname.

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 = iname

TABLES

ddfields = ddfields.

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 <fs_data>->* TO <fs_1>.

ASSIGN <fs_1> TO <fs_2>.

ASSIGN <fs_1> TO <dyntable>.

ENDFORM. "MYDYNTABLE

SELECT * INTO TABLE <dyntable>

FROM (iname).

LOOP AT <dyntable> ASSIGNING <dynline>.

sy-subrc = 0.

WHILE sy-subrc = 0.

ASSIGN COMPONENT sy-index OF STRUCTURE <dynline> TO <fld>.

WRITE : <fld>.

ENDWHILE.

ENDLOOP.

It is giving error in the line of select query. Can you help me out.

Thanks.

Re: Dynamic structure Internal table

Clemenss — Thu, 16 Nov 2006 10:16:41 GMT

Hi,

make it simple:

<pre>

FIELD-SYMBOLS:

<table> TYPE table.

DATA:

lt_ref TYPE REF TO data.

*...

CREATE DATA lt_ref TYPE TABLE OF (wa_report-tabna).

ASSIGN lt_ref->* TO <table>.

SELECT * FROM (wa_report-tabna) INTO TABLE <table> UP TO 10 ROWS.

</pre>

Note that the internal table has no headerline but the desired structure.

Enjoy!

Regards,

Clemens

Re: Dynamic structure Internal table

Former Member — Sun, 19 Nov 2006 03:26:25 GMT

Finally If I try an insert with dynamic table with an entry onto the dynamic table, it doesn't insert a record, any ideas?