Hi Srinu,
Kindly use this code to find the exit.
report ztest_screen_exit.
tables: modsap, modact, tstc.
parameters: input1 like tstc-tcode default ' ',
input2 like modsap-typ default ' '.
data: search1(6),
search2(3),
search3 like modsap-member.
data : first_row value 'Y'.
concatenate: '%' input1 '%' into search1,
'%' input2 into search2.
select * from tstc where tcode like search1.
first_row = 'Y'.
check tstc-pgmna ne space.
concatenate '%' tstc-pgmna '%' into search3.
select * from modsap where typ like search2
and member like search3.
select single * from modact where member = modsap-name.
if first_row eq 'Y'.
write: /0 text-000,tstc-tcode.
uline.
write: /0 text-001, tstc-pgmna.
write: /0 text-002, modsap-name.
write: /0 text-003, 20 modsap-typ, 25 text-006.
write: /0 text-004,modsap-member.
write: /0 text-005,modact-name.
first_row = 'N'.
else.
uline.
write: /0 text-002, modsap-name.
write: /0 text-003, modsap-typ ,20 text-006.
write: /0 text-004, modsap-member.
write: /0 text-005, modact-name.
endif.
clear : modsap, modact.
endselect.
if sy-subrc ne 0.
uline.
write : /0 text-000, tstc-tcode.
write : /0 text-001, tstc-pgmna, 60 'No exits found'.
endif.
clear tstc.
endselect.
end-of-selection.
clear: search1, search2, search3.
*Text-Symbols*
000 Transaction Code:
001 Program Name:
002 SAP extension name:
003 Component type :
004 Enhancement:
005 Name of the extension project:
006 (E for Function exit, S for Screens, T for Tables, C for GUI code)