Show Tcode User exit

Selection-screen SKIP.Selection-screen END  of BLOCKA01.*&---------------------------------------------------------------------**& Start of main program*&---------------------------------------------------------------------*start-of-selection.*Validate Transaction Code  SELECT  Single* fromTSTCWHERETcodeEQP_tcode.*Find Repository Objects for transaction code  IFSy-subrcEQ 0. SELECT  Single* fromTadirWHEREPgmid ='r3tr'          and Object='PROG'          andObj_name = tstc-Pgmna. MOVE: Tadir-devclass toV_devclass. IFSy-subrcNE 0. SELECT  Single* fromTrdirWHEREName = tstc-Pgmna. IFTrdir-subcEQ 'F'. SELECT  Single* fromTfdirWHEREPName = tstc-Pgmna. SELECT  Single* fromEnlfdirWHEREFuncName = tfdir-funcname. SELECT  Single* fromTadirWHEREPgmid ='r3tr'             and Object='Fugr'             andObj_name = enlfdir-Area . MOVE: Tadir-devclass toV_devclass. ENDIF. ENDIF.*Find SAP modifactions    SELECT* fromTadir into TABLEJtabWHEREPgmid ='r3tr'         and Object='Smod'         andDevclass =V_devclass. SELECT  Single* fromTSTCTWHERESprslEQsy-Langu andTcodeEQP_tcode. FORMAT COLORCol_positiveintensified OFF. WRITE:/( +)'Transaction Code-',     -( -) P_tcode, $( -) tstct-Ttext. SKIP. IF  notJtab[] is INITIAL. WRITE:/( the) sy-Uline. FORMAT COLORCol_headingintensified  on. WRITE:/1sy-VLine,2 'Exit Name',       +sy-VLine, A 'Description',       thesy-VLine. WRITE:/( the) sy-Uline. LOOP  atJtab. SELECT  Single* frommodsaptWHERESPRSL = Sy-langu andname= jtab-Obj_name. FORMAT COLORCol_normalintensified OFF. WRITE:/1sy-VLine,2Jtab-obj_name HOTSPOT on,         +sy-VLine, Amodsapt-Modtext, thesy-VLine. Endloop. WRITE:/( the) sy-Uline. DESCRIBE TABLEJtab. SKIP. FORMAT COLORCol_totalintensified  on. WRITE:/'No of Exits:', sy-Tfill. ELSE. FORMAT COLORCol_negativeintensified  on. WRITE:/( the)'No User Exit exists'. ENDIF. ELSE. FORMAT COLORCol_negativeintensified  on. WRITE:/( the)'Transaction Code Does not Exist'. ENDIF.*Take the user to Smod for the Exit, which was selected. at  Line-SELECTION. GET CURSOR FIELDfield1. CHECKField1 (4)EQ 'Jtab'. SET PARAMETER ID 'MON' FIELDsy-lisel+1(Ten). Pager TRANSACTION 'Smod'  and SKIP  First  Screen.

Show Tcode User exit