Create abap internal table dynamically
/ 3
Λεπτομέρειες
- Λεπτομέρειες
- Κατηγορία: ABAP
- Δημιουργηθηκε στις Τρίτη, 14 Αυγούστου 2012 07:12
- Τελευταία Ενημέρωση στις Τρίτη, 14 Αυγούστου 2012 07:12
- Δημοσιεύτηκε στις Τρίτη, 14 Αυγούστου 2012 07:12
- Γράφτηκε από τον/την Administrator
- Εμφανίσεις: 13031
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.
(3) 
