data : begin of it_dd03l_one occurs 0,
tabname type dd03l-tabname,
fieldname type dd03l-fieldname,
keyflag type dd03l-keyflag,
end of it_dd03l_one.
data : begin of it_dd03l_two occurs 0,
tabname type dd03l-tabname,
fieldname type dd03l-fieldname,
keyflag type dd03l-keyflag,
end of it_dd03l_two.
data : begin of it_details occurs 0,
tabname type dd03l-tabname,
keyfl1 type dd03l-keyflag,
keyfl2 type dd03l-keyflag,
ddtext type dd02t-ddtext,
end of it_details.
tables : dd03l, dd02l.
parameters : p_field1 type dd03l-fieldname,
p_field2 type dd03l-fieldname.
parameters : P_struc radiobutton group rb1,
P_table radiobutton group rb1,
P_all radiobutton group rb1.
select-options s_search for dd03l-tabname.
select tabname
fieldname
keyflag
from dd03l
into table it_dd03l_one
where tabname in s_search
and fieldname = p_field1
and as4local = 'A'.
select tabname
fieldname
keyflag
from dd03l
into table it_dd03l_two
where tabname in s_search
and fieldname = p_field2
and as4local = 'A'.
loop at it_dd03l_one.
if p_table = 'X'.
select single *
from dd02l
where tabname = it_dd03l_one-tabname
and tabclass <> 'INTTAB'.
if sy-subrc <> 0.
continue.
endif.
elseif p_struc = 'X'.
select single *
from dd02l
where tabname = it_dd03l_one-tabname
and tabclass = 'INTTAB'.
if sy-subrc <> 0.
continue.
endif.
endif.
read table it_dd03l_two with key tabname = it_dd03l_one-tabname.
if sy-subrc = 0.
it_details-tabname = it_dd03l_one-tabname.
it_details-keyfl1 = it_dd03l_one-keyflag.
it_details-keyfl2 = it_dd03l_two-keyflag.
select single ddtext
from dd02t
into it_details-ddtext
where tabname = it_details-tabname
and ddlanguage = 'EN'
and AS4local = 'A'.
append it_details.
clear it_details.
endif.
endloop.
data : w_text1(30) type c,
w_text2(30) type c.
concatenate 'Field' p_field1 'Key in table?' into w_text1 separated by space.
concatenate 'Field' p_field2 'Key in table?' into w_text2 separated by space.
write : /(30) 'Table Name' color col_heading,
(30) w_text1 color col_heading,
(30) w_text2 color col_heading,
(60) 'Table Description' color col_heading.
sort it_details by tabname.
loop at it_details.
write :/ it_details-tabname color col_key hotspot on,
46 it_details-keyfl1 as checkbox,
76 it_details-keyfl1 as checkbox,
94 it_details-ddtext color col_normal.
hide it_Details-tabname.
endloop.
at line-selection.
set parameter id 'DTB' field it_details-tabname.
call transaction 'SE11' and skip first screen.
0 Comments