Create abap internal table dynamically



Αξιολόγηση Χρήστη:  / 3
ΧειρότεροΚαλύτερο 
Λεπτομέρειες

Then following simple program creates abap internel table dynamicaly , select 2 rows of any database table and display data to screen : 

View source
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.


You have no rights to post comments

   
   

     

© Developerpages