Dynamische itab....

Code: Alles auswählen.

PARAMETERS: dbtab TYPE c LENGTH 10, 
            rows  TYPE i DEFAULT 100. 

DATA dref TYPE REF TO data. 

FIELD-SYMBOLS: <table> TYPE ANY TABLE, 
               <wa>    TYPE ANY, 
               <comp>  TYPE ANY. 

TRY. 
    CREATE DATA dref TYPE STANDARD TABLE OF (dbtab) 
                          WITH NON-UNIQUE DEFAULT KEY. 
    ASSIGN dref->* TO <table>. 
    SELECT * 
           FROM (dbtab) UP TO rows ROWS 
           INTO TABLE <table>. 
    LOOP AT <table> ASSIGNING <wa>. 
      DO. 
        ASSIGN COMPONENT sy-index 
               OF STRUCTURE <wa> TO <comp>. 
        IF sy-subrc = 0. 
          WRITE / <comp>. 
        ELSE. 
          EXIT. 
        ENDIF. 
      ENDDO. 
      ULINE. 
    ENDLOOP. 
  CATCH cx_sy_create_data_error. 
    WRITE 'Wrong Database!'. 
ENDTRY.