topic Re: enhancements in Application Development and Automation Discussions

enhancements

Former Member — Wed, 23 Aug 2006 07:15:18 GMT

what is the easiest way to find out suitable customer user exit give detailed procedure

Re: enhancements

Former Member — Wed, 23 Aug 2006 07:19:16 GMT

Hi,

There are diffrent ways for finding an user-exit in the system. Some of the ways are:

a) Using transaction SPRO and under each hierarchy, you will get these enhancements and exits.

b)There is a program called as ZUSEREXIT. Run this in SE38 and execute the report by giving the name of the transaction for which you need to find the exit.

c) You can also go to transaction SMOD and press F4 and then find out the exits available for each transaction.

Regards,

Sumit.

Re: enhancements

Former Member — Wed, 23 Aug 2006 07:20:03 GMT

Hi Harsh!

execute the the code shown below to find out the list of exit associated with a particular transaction code

Reward if helpful

Thanks,

Harkamal

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.

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

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.

Re: enhancements

Former Member — Wed, 23 Aug 2006 07:20:52 GMT

This program will find user exits for you.

==============

&----

*& Report ZSSD_FINDUSEREXIT *

*& *

&----

*& *

&----

report zssd_finduserexit .

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.

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.

==============

Please reward if helpful.

Re: enhancements

Former Member — Wed, 23 Aug 2006 07:25:06 GMT

Hi,

Using the custom programs, using the SMOD ,Using Se18 you can find the Exits and BADI's related . for SMOD and Se18 you can use Package of the Program.and search for exits.

Regards

vijay

Re: enhancements

Former Member — Wed, 23 Aug 2006 07:28:38 GMT

JUST FOLLOW THE FOLLOWING PROCEDURE

1)GoTO SE93 GIVE TCODE OF WHICH USEREXIT IS TO BE FIND(LIKE XD01 FOR CUSTOMER MASTER)

2)CLICK DISPLAY,IT WILL SHOW A SCREEN WITH PACKAGE NAME AND OTHER DETAILS

3)CLICK ON "DISPLAY OBJECT LIST" BUTTON ,IT WILL SHOW REPOSATORY BROWSER ON LEFT HAND SIDE OF SCREEN

4)LOOK FOR "FUNCTION GRUOP" NODE OF THE TREE ,ITS FOR USER EXITS

THATS THE DETAILED PROCEDURE

KINDLY REWARD POINTS IF HELPFUL

REGARDS

Re: enhancements

h_senden2 — Wed, 23 Aug 2006 07:30:00 GMT

Go to the program where you want to search for the exit :

- search for the string 'CALL CUSTOMER-FUNCTION' ;when found doubleclick on the function (for instance '001') to go the exit

- search for the string 'CALL METHOD CL_EXITHANDLER' to find a badi implementation

- sometimes SAP uses special forms to add customer required actions, like in the sales order program SAPMV45A. Go to transaction SE80 and look for subroutines like USEREXIT_....

Otherwise you can also use transaction CMOD and SMOD

regards,

Hans

Re: enhancements

Former Member — Wed, 23 Aug 2006 07:41:28 GMT

hi tushar

under function group which i have to select