Create abap internal table dynamically
/ 3
Details
- Details
- Category: ABAP
- Created on Tuesday, 14 August 2012 07:12
- Last Updated on Tuesday, 14 August 2012 07:12
- Published on Tuesday, 14 August 2012 07:12
- Written by Administrator
- Hits: 12212
Then following simple program creates abap internel table dynamicaly , select 2 rows of any database table and display data to screen :
report zdyn_itab.
*-------------------------------------------------------------
* www.developerpages.gr
*-------------------------------------------------------------
parameters : tabname(20) DEFAULT 'KNA1'.
DATA : itab TYPE REF TO data.
DATA : wtab TYPE REF TO data.
FIELD-SYMBOLS : <F>, <fs_itab> TYPE STANDARD TABLE , <fs_wtab>.
CREATE DATA itab TYPE STANDARD TABLE OF (tabname).
ASSIGN itab->* TO <fs_itab>.
CREATE DATA wtab TYPE (tabname).
ASSIGN wtab->* TO <fs_wtab>.
SELECT * UP TO 2 ROWS FROM (tabname) INTO <fs_wtab>.
append <fs_wtab> to <fs_itab>.
ENDSELECT.
loop at <fs_itab> into <fs_wtab>.
write :/ 'Line ', sy-tabix, ':'.
DO.
ASSIGN COMPONENT SY-INDEX OF STRUCTURE <fs_wtab> TO <F>.
IF SY-SUBRC NE 0. EXIT. ENDIF.
write : <F>.
ENDDO.
ENDLOOP.
(20) 
