【Enhancement】--How to Find a Screen Exit for T-code

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 tstc-tcode,
6 tstc-pgmna,
16 modsap-name,
32 modsap-typ,
45 modsap-member,
70 modact-name.
first_row = 'N'.
ELSE.
WRITE: /16 modsap-name, 32 modsap-typ,
45 modsap-member, 70 modact-name.
ENDIF.
CLEAR : modsap, modact.
ENDSELECT.
IF sy-subrc NE 0.
WRITE : /0 tstc-tcode,
6 tstc-pgmna,
30 'No exits found'.
ENDIF.
CLEAR tstc.
ENDSELECT.

END-OF-SELECTION.
CLEAR:search1, search2, search3.