【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.