USER-EXIT and CUSTOMER EXIT

[Former Member]

Hi,

1) how to find USER-EXIT and CUSTOMER EXIT for

transaction.

2) how to find USER-EXIT for standard bapi

BAPI_GOODSMVT_CREATE

3) how to find USER-EXIT for standard IDOC

LOIPR01

Thanx.

[Former Member]

The R/3 enhancement concept allows you to add your own functionality to SAP’s standard business applications without having to modify the original applications. SAP creates customer exits for specific programs, screens, and menus within standard R/3 applications. These exits do not contain any functionality. Instead, the customer exits act as hooks. You can hang your own add-on functionality onto these hooks."

Customer exits are implemented in Z-includes and are ENHANCEMENTS to the system.

User-exits were firstly intended to be developed for the SD module. You make your coding in includes in SAP namespace (e.g MV*). That's why, user exits are MODIFICATIONS to the system. In includes for user exits there are empty subroutines ( generally with the name convention "userexit_...") and you code using global variables of the main program.

But, generally developers use these terms without this distinction. So, someone may mean a "customer exit" when (s)he says "user exit" or vice-versa.

[Former Member]

Hai

Go through the following

Go to se93 and give the tcode to find the main program associated to it.

Go to se38 and give the main program.

Find the package associated to it.Go to->Object Directory Entry.

Go to smod transaction.

Press f4.

Press Information System Button.

Give the Project(Dev Class).

Press enter.

Find the enhancements associated

Thanks & regards

Sreeni

[Former Member]

Use the below code to find User exit for a transaction.

Give the TCODE as input.

Cheers,

Thomas.

report zuserexit no standard page heading.		
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.		
         tables : tstct.		
data : jtab like tadir occurs 0 with header line.		
data : field1(30).		
data : v_devclass like tadir-devclass.		
parameters : p_tcode like tstc-tcode obligatory.		

select single * from tstc where tcode eq p_tcode.		
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 eq enlfdir-area.	

            move : tadir-devclass to v_devclass.	
          endif.	
       endif.	
       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_tcode.	
        format color col_positive intensified off.	
        write:/(19) 'Transaction Code - ',	
             20(20) p_tcode,	
             45(50) tstct-ttext.	
                    skip.	
        if not jtab[] is initial.	
           write:/(95) sy-uline.	
           format color col_heading 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-obj_name.	
                   format color col_normal intensified off.	
                   write:/1 sy-vline,	
                          2 jtab-obj_name hotspot on,	
                         21 sy-vline ,	
                         22 modsapt-modtext,	
                         95 sy-vline.	
           endloop.	
           write:/(95) sy-uline.	
           describe table jtab.	
           skip.	
           format color col_total intensified on.	
           write:/ 'No of Exits:' , sy-tfill.	
        else.	
           format color col_negative intensified on.	
           write:/(95) 'No User Exit exists'.	
        endif.	
      else.	
          format color col_negative intensified on.	
          write:/(95) 'Transaction Code Does Not Exist'.	
      endif.	

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.	

[Former Member]

Hi,

check this link:

regards,

keerthi,.

[Former Member]

HI

GOOD

I HAVE DEVELOPED A REPORT TO SOLVE ALL THIS AND VERY SOON I AM TO PUT THIS IN WEBLOG ,

THANKS

MRUTYUN

[Former Member]

please let me know the report once it is done to find user exit and customer exit.

Thanx,

pillac

[Former Member]

Use this code to find the customer and User exit...

you have to provide the T Code as input....

Enjoy....Thanking You,,,,

Samad Farooq

-

---

Start of the Program----

---

REPORT YMH_FIND_USER_EXIT NO STANDARD PAGE HEADING.

********

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

******

DATA:

******

t_tadir LIKE tadir OCCURS 0 WITH HEADER LINE,

field1(30) TYPE c,

v_devclass LIKE tadir-devclass.

*----

---

• SELECTION SCREEN

*----

---

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(17) t001.

PARAMETERS: p_tcode LIKE tstc-tcode OBLIGATORY.

SELECTION-SCREEN END OF LINE.

****************

INITIALIZATION.

****************

t001 = 'Transaction Code'.

********************

START-OF-SELECTION.

********************

SELECT SINGLE *

FROM tstc

WHERE tcode EQ p_tcode.

IF sy-subrc EQ 0.

SELECT SINGLE *

FROM tadir

WHERE pgmid EQ 'R3TR'

AND object EQ 'PROG'

AND obj_name EQ 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 EQ enlfdir-area.

MOVE : tadir-devclass TO v_devclass.

ENDIF.

ENDIF.

SELECT * FROM tadir INTO TABLE t_tadir

WHERE pgmid = 'R3TR'

AND object = 'SMOD'

AND devclass = v_devclass.

SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND

tcode EQ p_tcode.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

WRITE:/(19) 'Transaction Code - ',

20(20) p_tcode,

45(50) tstct-ttext.

SKIP.

IF NOT t_tadir[] IS INITIAL.

WRITE:/(95) sy-uline.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE:/1 sy-vline,

2 'Exit Name',

21 sy-vline ,

22 'Description',

95 sy-vline.

WRITE:/(95) sy-uline.

LOOP AT t_tadir.

SELECT SINGLE * FROM modsapt

WHERE sprsl = sy-langu AND

name = t_tadir-obj_name.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WRITE:/1 sy-vline,

2 t_tadir-obj_name HOTSPOT ON,

21 sy-vline ,

22 modsapt-modtext,

95 sy-vline.

ENDLOOP.

WRITE:/(95) sy-uline.

DESCRIBE TABLE t_tadir.

SKIP.

FORMAT COLOR COL_TOTAL INTENSIFIED ON.

WRITE:/ 'No of Exits:' , sy-tfill.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(95) 'No User Exit exists'.

ENDIF.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(95) 'Transaction Code Does Not Exist'.

ENDIF.

*******************

AT LINE-SELECTION.

*******************

GET CURSOR FIELD field1.

CHECK field1 EQ 'T_TADIR-OBJ_NAME'.

SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

*---End of Program