Re: Dynamic internal table

Former Member · ‎2007 Jul 12

Hi All,

Can anyone tell me how to create a dynamic internal table? Any code for the dynamic internal table...

Former Member · ‎2007 Jul 12

check this

regards

shiba dutta

Former Member · ‎2007 Jul 12

hi..

Check this sample.

REPORT ZV_DYNAMIC .

PARAMETERS: P_COL1 TYPE I,

P_COL2 TYPE I.

FIELD-SYMBOLS: <FS> TYPE ANY.

DATA: CHECK.

TYPES: BEGIN OF TYP_ITAB,

COL1 TYPE I,

COL2 TYPE I,

COL3 TYPE I,

COL4 TYPE I,

COL5 TYPE I,

COL6 TYPE I,

END OF TYP_ITAB.

DATA: ITAB TYPE TABLE OF TYP_ITAB, WA LIKE LINE OF ITAB.

WA-COL1 = 1.

WA-COL2 = 2.

WA-COL3 = 3.

WA-COL4 = 4.

WA-COL5 = 5.

WA-COL6 = 6.

APPEND WA TO ITAB.

WA-COL1 = 1.

WA-COL2 = 2.

WA-COL3 = 3.

WA-COL4 = 4.

WA-COL5 = 5.

WA-COL6 = 6.

APPEND WA TO ITAB.

DATA: COL1(20),

COL2(20),

CHAR,

CHAR2.

WRITE P_COL1 TO CHAR.

CONCATENATE 'COL' CHAR INTO COL1.

WRITE P_COL2 TO CHAR.

CONCATENATE 'COL' CHAR INTO COL2.

*FIELD-SYMBOLS <F> TYPE ANY.

*ASSIGN (COL1) TO <F>.

DATA: BEGIN OF ITAB1 OCCURS 0,

COL1 TYPE I,

COL2 TYPE I,

END OF ITAB1.

FIELD-SYMBOLS: <FS1> TYPE ANY,

<FS2> TYPE ANY.

DATA: VAR TYPE I.

LOOP AT ITAB ASSIGNING <FS>.

IF SY-TABIX = 1.

ASSIGN COMPONENT COL1 OF STRUCTURE <FS> TO <FS1>.

ELSE.

ASSIGN COMPONENT COL2 OF STRUCTURE <FS> TO <FS2>.

ENDIF.

APPEND <FS1> TO ITAB1.

MOVE <FS1> TO ITAB1-COL1.

MOVE <FS2> TO ITAB1-COL2.

APPEND ITAB1.

WRITE:/ <FS1>,<FS2>.

ENDLOOP.

LOOP AT ITAB1.

WRITE:/ ITAB1-COL1, ITAB1-COL2.

ENDLOOP.

Reward points if useful

Regards

Ashu

Former Member · ‎2007 Jul 12

HI,

see this program

REPORT ZDYN_ITAB.

PARAMETERS:DB_TABLE(30).

DATA FCAT1 TYPE LVC_T_FCAT.

DATA:DYN_ITAB TYPE REF TO DATA,

WA TYPE REF TO DATA.

FIELD-SYMBOLS: <DISP_TABLE> TYPE TABLE,

<WA> TYPE ANY.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = DB_TABLE

CHANGING

CT_FIELDCAT = FCAT1[].

CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE

EXPORTING

IT_FIELDCATALOG = FCAT1[]

IMPORTING

EP_TABLE = DYN_ITAB.

ASSIGN DYN_ITAB->* TO <DISP_TABLE>.

CREATE DATA WA LIKE LINE OF <DISP_TABLE>.

ASSIGN WA->* TO <WA>.

SELECT * FROM (db_table) INTO <WA>.

APPEND <WA> TO <DISP_table>.

ENDSELECT.

rgds,

bharat.

former_member194669 · ‎2007 Jul 12

Hi,

check this

data: dref type ref to data.

field-symbols: <wa> type any, <comp> type any.

create data dref type (query_table).

assign dref->* to <wa>.

https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/dynamicInternalTable&

aRs

Former Member · ‎2007 Jul 12

Dynamic Internal table

/people/subramanian.venkateswaran2/blog/2004/11/19/dynamic-internal-table

Former Member · ‎2007 Jul 12

Field Symbols

Field symbols are placeholders or symbolic names for other fields. They do not physically reserve space for a field, but point to its contents. A field symbol cam point to any data object. The data object to which a field symbol points is assigned to it after it has been declared in the program.

Whenever you address a field symbol in a program, you are addressing the field that is assigned to the field symbol. After successful assignment, there is no difference in ABAP whether you reference the field symbol or the field itself. You must assign a field to each field symbol before you can address the latter in programs.

Example using the obsolete STRUCTURE addition:

DATA: wa(10) VALUE '0123456789'.

DATA: BEGIN OF line1,
         col1(3),
         col2(2),
         col3(5),
      END OF line1.

DATA: BEGIN OF line2,
         col1(2),
         col2 LIKE sy-datum,
      END OF line2.

FIELD-SYMBOLS: <f1> STRUCTURE line1 DEFAULT wa,
               <f2> STRUCTURE line2 DEFAULT wa.

WRITE: / <f1>-col1, <f1>-col2, <f1>-col3,
       / <f2>-col1, <f2>-col2.

Example using the correct syntax (TYPE and CASTING):

DATA: wa(10) VALUE '0123456789'.

DATA: BEGIN OF line1,
         col1(3),
         col2(2),
         col3(5),
      END OF line1.

DATA: BEGIN OF line2,
         COL1(2),
         COL2 LIKE sy-datum,
      END OF line2.

FIELD-SYMBOLS: <f1> LIKE line1.
ASSIGN wa TO <f1> CASTING.

FIELD-SYMBOLS: <f2> LIKE line2.
ASSIGN wa TO <f2> CASTING.

WRITE: / <f1>-col1, <F1>-col2, <F1>-col3,
       / <f2>-col1, <F2>-col2.

In both cases, the list appears as follows:

012 34 56789
01 2345/67/89

reward points if it is usefull.....

Girish

Former Member · ‎2007 Jul 12

Hi,

Dynamic internal tables can be created using CL_ALV_TABLE_CREATE class and method CREATE_DYNAMIC_TABLE.

Just fill the field catalog(IT_FIELDCATALOG) in the parameter of method (like you do in normal ALV reports) and it creates a pointer to dynamic data table.

Check this code.

report ytest.

data: lt_fieldcatalog type lvc_t_fcat.

data: ls_fieldcatalog type lvc_s_fcat.

field-symbols: <fs_data> type ref to data.

field-symbols: <fs_1>.

field-symbols: <fs_2> type any table.

field-symbols: <fs_3> type ypoll.

data: lt_data type ref to data.

assign lt_data to <fs_data>.

ls_fieldcatalog-fieldname = 'MANDT'.

ls_fieldcatalog-tabname = 'LT_TAB'.