[mialma]

No te puede valer algo asi :

REPORT ZZZZZ.

parameters DOMNAME type DOMNAME.
parameters c(80).

data l_table type dd03l occurs 0 with header line.
data l_where(80).
data l_dd02l type dd02l.
data l_tab(80).

select * into table l_table
from DD03L
where domname = domname.


loop at l_table.
select single * into l_dd02l
from DD02L
where TABNAME = l_table-TABNAME and tabclass = 'TRANSP'.

check sy-subrc = 0.
concatenate l_table-fieldname '=' c into l_where separated by space.

select single (l_table-fieldname) into l_tab
from (l_table-TABNAME)
where (l_where).

if sy-subrc <> 0.
write :/ l_table-TABNAME.
endif.
endloop.