loop inkl. Select

Code: Alles auswählen.

ypes: BEGIN OF ty_itab,
        tabname type dd02l-tabname, "Tabellenname
        contflag  type dd02l-contflag, " Tabellenart
        masterlang type dd02l-masterlang, "'Masterlanguage'
        fieldname type dd03l-fieldname, " Feldname
        comptype type dd03l-comptype, " Comptype
        End of ty_itab.
       
Types: BEGIN OF ty_spras,
        tabname type dd03l-tabname, "Tabellenname
        spras type tvakt-spras, "Sprachschlüssel  
        end of ty_spras.     

data lt_itab type TABLE OF ty_itab. "interne Tabelle aller Tabellen
data lt_spras type table of ty_spras. " interne Tabelle mit alle Sprachschlüsseln zu einer Tabelle .

Code: Alles auswählen.

Select dd02l~tabname dd02l~contflag dd02l~masterlang dd03l~fieldname dd03l~comptype
  From dd02l LEFT outer join dd03l on dd02l~tabname = dd03l~tabname
    into CORRESPONDING FIELDS OF table lt_itab
        where ( dd02l~contflag = 'C' OR
              dd02l~contflag = 'G') AND
              dd02l~tabname in so_tab AND
              dd02l~masterlang in so_mlang.


DELETE lt_itab where fieldname <> 'SPRAS' .

loop at lt_itab ASSIGNING <z1>.
  
  Select * from <z1>-tabname into CORRESPONDING FIELDS OF TABLE lt_spras.
    
 endloop.