How To Find User Exit In Sap Program

Find User exits with TCode By Roshini Selection Text: PTCODE: Transaction Code to Search Text Symbols: 001 - Enter the Transaction Code that you want to search through for a User Exit REPORT zfinduserexit 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.&-.

• Sap User Exit

This is the simple tricks but useful for you. Because sometime you need to work in an user exits in SAP Standard program, for example you want to know all.

DATA: jtab LIKE tadir OCCURS 0 WITH HEADER LINE. DATA: field1(30). DATA: vdevclass LIKE tadir-devclass.&-.& Selection Screen Parameters.&-. SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.

SELECTION-SCREEN SKIP. PARAMETERS: ptcode 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 ptcode. Find Repository Objects for transaction code IF sy-subrc EQ 0. SELECT SINGLE. FROM tadir WHERE pgmid = 'R3TR' AND object = 'PROG' AND objname = tstc-pgmna. MOVE: tadir-devclass TO vdevclass.

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 objname = enlfdir-area.

MOVE: tadir-devclass TO vdevclass. Find SAP® Modifactions SELECT. FROM tadir INTO TABLE jtab WHERE pgmid = 'R3TR' AND object = 'SMOD' AND devclass = vdevclass. SELECT SINGLE. FROM tstct WHERE sprsl EQ sy-langu AND tcode EQ ptcode. FORMAT COLOR COLPOSITIVE INTENSIFIED OFF. WRITE:/(19) 'Transaction Code - ', 20(20) ptcode, 45(50) tstct-ttext.

IF NOT jtab IS INITIAL. WRITE:/(95) sy-uline. FORMAT COLOR COLHEADING INTENSIFIED ON. WRITE:/1 sy-vline, 2 'Exit Name', 21 sy-vline, 22 'Description', 95 sy-vline.

WRITE:/(95) sy-uline. LOOP AT jtab. SELECT SINGLE. FROM modsapt WHERE sprsl = sy-langu AND name = jtab-objname. FORMAT COLOR COLNORMAL INTENSIFIED OFF. WRITE:/1 sy-vline, 2 jtab-objname HOTSPOT ON, 21 sy-vline, 22 modsapt-modtext, 95 sy-vline.

WRITE:/(95) sy-uline. DESCRIBE TABLE jtab. FORMAT COLOR COLTOTAL INTENSIFIED ON. WRITE:/ 'No of Exits:', sy-tfill. FORMAT COLOR COLNEGATIVE INTENSIFIED ON. WRITE:/(95) 'No User Exit exists'. FORMAT COLOR COLNEGATIVE INTENSIFIED ON.

WRITE:/(95) 'Transaction Code Does Not Exist'. Take the user to SMOD for the Exit that was selected. AT LINE-SELECTION. GET CURSOR FIELD field1.

CHECK field1(4) EQ 'JTAB'. SET PARAMETER ID 'MON' FIELD sy-lisel+1(10). CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN. Please send us your feedback/suggestions at. © 2006-2007 SAPTechnical.COM.

All rights reserved. All product names are trademarks of their respective companies. SAPTechnical.COM is in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver, and and any other SAP trademarks are registered trademarks of SAP AG in Germany and in several other countries. Every effort is made to ensure content integrity. Use information on this site at your own risk.

Graphic Design.

REPORT YVENEXIT MESSAGE-ID ZUTIL. TABLES: TSTC, 'SAP Transaction Codes TADIR, 'Directory of Repository Objects MODSAPT, 'SAP Enhancements - Short Texts TRDIR, 'System table TRDIR TFDIR, 'Function Module ENLFDIR, 'Additional Attributes for Function Modules TSTCT, 'Transaction Code Texts. For BADI's SXSATTRT. 'Exit: Definition side: Attributes, Text table.&-.& Variables.&-. For Enhancements DATA: BEGIN OF ITEXITS OCCURS 0, OBJNAME LIKE TADIR-OBJNAME, 'Enhancement Name MODTEXT LIKE MODSAPT-MODTEXT, 'Enhancement Description END OF ITEXITS. For BADI's DATA: BEGIN OF ITFINAL OCCURS 0, EXITNAME LIKE SXSATTR-EXITNAME, 'BADI Name TEXT LIKE SXSATTRT-TEXT, 'BADI Description END OF ITFINAL.

DATA: VDEVCLASS LIKE TADIR-DEVCLASS, 'Development Class VPGMNA LIKE TSTC-PGMNA, 'Program Name VLINES TYPE I, 'No. Of BADI's VLINES1 TYPE I, 'No. Of Enhancement VFIELD1(30) TYPE C. 'Selection Field in the Basic List CONSTANTS: CPGMID LIKE TADIR-PGMID VALUE 'R3TR', 'Program ID in Requests and Tasks COBJECT LIKE TADIR-OBJECT VALUE 'PROG', 'Object Type COBJECT1 LIKE TADIR-OBJECT VALUE 'SMOD', 'Object Type COBJECT2 LIKE TADIR-OBJECT VALUE 'FUGR'.

'Object Type.&-.& Selection Screen Parameters.&-. Vsphere 5.5 client windows 10. SELECTION-SCREEN BEGIN OF BLOCK BLCK1 WITH FRAME TITLE TEXT-001. PARAMETERS: PTCODE LIKE TSTC-TCODE OBLIGATORY.

'Transaction Code SELECTION-SCREEN END OF BLOCK BLCK1.&-.& Select Screen validation.&-. Validation for Transaction code against table TSTC AT SELECTION-SCREEN ON PTCODE.

Initialize the Program Variable CLEAR VPGMNA. SELECT SINGLE. FROM TSTC WHERE TCODE = PTCODE. IF SY-SUBRC 0. Generate an Error Message 'Please Enter Valid Transaction Code' MESSAGE E000 WITH TEXT-002. Assigne the Program Name(From TSTC) to Variable VPGMNA = TSTC-PGMNA.&-.& START-OF-SELECTION.&-. START-OF-SELECTION.

Get the Development class from Table TADIR Based on PGMID, OBJNAME and. Program Name(From TSTC table) PERFORM FGETDEVCLASS. Get all the Enhancements from Table TADIR and MODSAPT PERFORM FGETEXITS.

Sap User Exit

Get all the BADI's From Table SXSATTR and SXSATTRT PERFORM FGETBADI.&-.& END-OF-SELECTION.&-. END-OF-SELECTION. Display tthe available Enhancements and BADI's for the Given Transaction PERFORM FOUTPUTDISPLAY.

AT LINE-SELECTION. GET CURSOR FIELD VFIELD1. IF VFIELD1(8) EQ 'ITEXITS'. SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10). CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN. ELSEIF VFIELD1(8) EQ 'ITFINAL'. SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(19).

CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.&-.& Form FGETDEVCLASS.&-. Get Development Classs.-.

FORM FGETDEVCLASS. Get Development Class for the given Transaction IF TSTC IS NOT INITIAL. SELECT SINGLE.

FROM TADIR WHERE PGMID = CPGMID AND OBJECT = COBJECT AND OBJNAME = VPGMNA. IF SY-SUBRC = 0. Initialize the Development Class Variable CLEAR VDEVCLASS. Assign the Development Class(From TADIR) to Variable MOVE: TADIR-DEVCLASS TO VDEVCLASS. SELECT SINGLE.

FROM TRDIR WHERE NAME = TSTC-PGMNA. IF TRDIR-SUBC EQ 'F'. SELECT. UP TO 1 ROWS FROM TFDIR WHERE PNAME = TSTC-PGMNA.

SELECT SINGLE. FROM ENLFDIR WHERE FUNCNAME = TFDIR-FUNCNAME. SELECT SINGLE.

FROM TADIR WHERE PGMID = CPGMID AND OBJECT = COBJECT2 AND OBJNAME = ENLFDIR-AREA. MOVE: TADIR-DEVCLASS TO VDEVCLASS. 'SY-SUBRC check for TADIR ENDIF.

'Check for TSTC ENDFORM. ' FGETDEVCLASS.&-.& Form FGETEXITS.&-. Get All Enhancements.-. FORM FGETEXITS.

Find SAP Modifactions SELECT OBJNAME FROM TADIR INTO TABLE ITEXITS WHERE PGMID = CPGMID AND OBJECT = COBJECT1 AND DEVCLASS = VDEVCLASS. IF SY-SUBRC = 0. LOOP AT ITEXITS. SELECT SINGLE. FROM MODSAPT WHERE NAME = ITEXITS-OBJNAME AND SPRSL = SY-LANGU.

ITEXITS-MODTEXT = MODSAPT-MODTEXT. MODIFY ITEXITS. ' FGETEXITS.&-.& Form FGETBADI.&-. Get All BADI's.-. FORM FGETBADI. Get All BADI's for that particular Development Class SELECT EXITNAME FROM SXSATTR INTO TABLE ITFINAL WHERE DEVCLASS = VDEVCLASS AND INTERNAL 'X'. IF SY-SUBRC 0.

Generate a Warning Message 'No BADI's are Available for this Transaction' MESSAGE W000 WITH TEXT-003. LOOP AT ITFINAL. Get the text name for BADI SELECT SINGLE. FROM SXSATTRT WHERE EXITNAME = ITFINAL-EXITNAME AND SPRSL = SY-LANGU. ITFINAL-TEXT = SXSATTRT-TEXT.

MODIFY ITFINAL. ' FGETBADI.&-.& Form FOUTPUTDISPLAY.&-. Display the Output.-.

FORM FOUTPUTDISPLAY. Get the Transaction Code description SELECT SINGLE. FROM TSTCT WHERE TCODE = PTCODE AND SPRSL = SY-LANGU.

FORMAT COLOR COLPOSITIVE INTENSIFIED OFF. Selection Text: PTCODE: Transaction Code to Search Text Symbols: 001 - Enter the Transaction Code that you want to search through for a User Exit REPORT zfinduserexit NO STANDARD PAGE. User Exit Defination Either with modification or with enhancement user can add a field, menu, screen and own functionality for sap provided application is called USER EXIT.Userexit allow us to add. SAP ABAP USER EXITSIn computer software, a user exit is a place in a software program where a customer can arrange for their own tailor-made program to be called.

In the R/3 system from SAP, a user. User exits:1.

How to find user exits3. Using Project management of SAP Enhancements 1. Introduction: User exits (Function module exits) are exits developed by SAP.