Expand internal table at runtime

[Former Member]

Hello guys,

i have a problem with my internal table.

i create a dynamical internal table with:

CREATE DATA lt_object1 TYPE STANDARD TABLE OF ('VBAK').
   ASSIGN lt_object1->* TO <gt_object>.

This works fine. but after this statement i have a fixed structure of the table VBAK. i have to add an another column to my internal table, because i need the field input_style TYPE lvc_t_styl, for my ALV-GRID.

I tried also to create the dynamical table with the CALL METHOD cl_alv_table_create=>create_dynamic_table, but then i get a issue with the widht of my internal table, compared to the real table.

does anyone have a solution for this?

best regards

[Former Member]

Hello guys,

i have a problem with my internal table.

i create a dynamical internal table with:

CREATE DATA lt_object1 TYPE STANDARD TABLE OF ('VBAK').
   ASSIGN lt_object1->* TO <gt_object>.

This works fine. but after this statement i have a fixed structure of the table VBAK. i have to add an another column to my internal table, because i need the field input_style TYPE lvc_t_styl, for my ALV-GRID.

I tried also to create the dynamical table with the CALL METHOD cl_alv_table_create=>create_dynamic_table, but then i get a issue with the widht of my internal table, compared to the real table.

does anyone have a solution for this?

best regards

[Former Member]

Hi,

for LVC_T_STYL is a table type and not a simple column I don't know, if this is possible for a dynamic internal table. Maybe this is not supported.

Regards,

Klaus

[Former Member]

hi,

thanks i used LVC_T_STYL in a another programm. but there i had to handle this only for one fixed table not for more tables.

so i dont know how to expand my internal table.

[Former Member]

Hi,

maybe class CL_ABAP_TABLEDESCR may solve your issue, but I have no experience with it.

Regards,

Klaus

[former_member192842]

Hi,

Please go through the below link, you may get an idea.

http://zevolving.com/2008/09/dynamic-internal-table-creation/

Dynamic Internal Table with Deep structure | ABAP Help Blog

Regards

Anand

[SuhaSaha]

Hello,

First-of-all a very unique name

Anyway the RTTS classes are very intuitive and you can think of creating the components of a runtime structure similar to creating a static structure.

The algorithm is as follows -

1. Get the components(read: fields) from the data reference you have created earlier.
2. Add the component, type LVC_T_STYL, to the table from (1).
3. Get the RTTC instance of the table using the component table from (2).
4. Create the data reference using the RTTC handle from (3).

So you can try this code snippet

1. DATA dref_tab TYPE REF TO data.
3. CREATE DATA dref_tab TYPE STANDARD TABLE OF ('SFLIGHT').
4. ASSIGN dref_tab->* TO FIELD-SYMBOL(<tab>).
6. * Get the fields from the data reference
7. DATA(comp_tab) =
8. CAST cl_abap_structdescr(
9.      CAST cl_abap_tabledescr(
10.           cl_abap_typedescr=>describe_by_data_ref( dref_tab )
11.           )->get_table_line_type( )
12.      )->get_components( ).
14. * Add the field for the "Style" element
15. DATA component TYPE abap_componentdescr.
16. component-name = `STYLE`.
17. component-type
18. = CAST cl_abap_tabledescr(
19.        cl_abap_typedescr=>describe_by_name( 'LVC_T_STYL' )
20.        ).
21. APPEND component TO comp_tab.
23. TRY .
24.     DATA(oref_rttc_tab) =
25.     cl_abap_tabledescr=>get( cl_abap_structdescr=>get( comp_tab ) ).
26.   CATCH ##no_handler
27.         cx_sy_struct_creation
28.         cx_sy_table_creation.
30. ENDTRY.
32. DATA dref_tab_alv TYPE REF TO data.
33. CREATE DATA dref_tab_alv TYPE HANDLE oref_rttc_tab.
35. UNASSIGN <tab>.
36. ASSIGN dref_tab_alv->* TO <tab>.

BR,

Suhas

PS - Please excuse me i can't stop loving ABAP 740

[bassanders40]

We have to have a small discussion about intuitive, but.... For me it worked out perfectly