根据TCODE查看相应的增强.docVIP

根据TCODE查看相应的增强 REPORT z_find_userexit NO STANDARD PAGE HEADING. ** * Enter the transaction code that you want to search through in order * to find which Standard SAP User Exits exists. * ** ** * Tables ** TABLES : tstc, SAP Transaction Codes tadir, Directory of Repository Objects modsapt, SAP Enhancements - Short Texts modact, Modifications trdir, System table TRDIR tfdir, Function Module enlfdir, Additional Attributes for Function Modules tstct. Transaction Code Texts ** * Variables ** DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE. DATA : field1(30). DATA : v_devclass LIKE tadir-devclass. ** * Selection Screen Parameters ** SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001. SELECTION-SCREEN SKIP. PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY. SELECTION-SCREEN SKIP. SELECTION-SCREEN END OF BLOCK a01. ** * Start of main program ** START-OF-SELECTION. * Validate Transaction Code SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode. * Find Repository Objects for transaction code IF sy-subrc EQ 0. SELECT SINGLE * FROM tadir WHERE pgmid = R3TR AND object = PROG AND obj_name = tstc-pgmna. MOVE : tadir-devclass TO v_devclass. IF sy-subrc NE 0. SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna. IF trdir-subc EQ F. SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna. SELECT SINGLE * FROM enlfdir WHERE funcname = tfdir-funcname. SELECT SINGLE * FROM tadir WHERE pgmid = R3TR AND object = FUGR AND obj_name = enlfdir-area. MOVE : tadir-devclass TO v_devclass. ENDIF. ENDIF. * Find SAP Modifactions SELECT * FROM tadir INTO TABLE jtab WHERE pgmid = R3TR AND object = SMOD AND devclass = v_devclass. SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND tcode EQ p