Hi everyone ,
Here we are having requirement as we have to display all the zobjects in the output screen.
when in selection screen if we select z* it should select z-programs
and ztables and zfunction modules to be dispalyed in output screen.
in ouptut screen if we click on table name it should go to se11 ,
as if we click on program name it should go ot se38,
and as when it click on function module it has to go se37.
i have written small program, will anyobdy help how to display in grid.
tables : dd02t,
tfdir,
trdirt.
types : begin of ts_objects,
tabname type TABNAME,
ddtext type AS4TEXT,
name type program,
text type REPTI,
funcname type RS38L_FNAM,
stext type RS38L_FTXT,
end of ts_objects,
tt_objects type standard table of ts_objects,
begin of ts_tables,
tabname type tabname,
ddtext type as4text,
end of ts_tables,
tt_tables type standard table of ts_tables,
begin of ts_programs,
name type program,
text type repti,
end of ts_programs,
tt_programs type standard table of ts_programs.
data: gt_objects type tt_objects ,
gs_objects type ts_objects.
data: gt_tables type tt_tables ,
gs_tables type ts_tables,
gt_programs type tt_programs,
gs_programs type ts_programs.
selection-screen:begin of block z_objects ."with frame title - text-001.
select-options : so_objs for trdirt-name.
selection-screen : end of block z_objects.
select tabname
ddtext
from dd02t
into table gt_tables
where tabname in so_objs.
if sy-subrc ne 0.
message i001.
endif.
select name
text
from trdirt
into table gt_programs
where name in so_objs.
if sy-subrc ne 0.
message i002.
endif.
if not gt_tables is initial.
loop at gt_tables into gs_tables.
gs_objects-tabname = gs_tables-tabname.
gs_objects-ddtext = gs_tables-ddtext.
append gs_objects to gt_objects.
endloop.
endif.
if not gt_programs is initial.
loop at gt_programs into gs_programs.
gs_objects-name = gs_programs-name.
gs_objects-text = gs_programs-text.
append corresponding fileds from gs_objects to gt_objects.
endloop.
loop at gt_objects into gs_objects.
endloop.
endif.
any body help me to resolve the problem.
regards,
Bluesky
