User-exit for HR

[dani_mn]

HI All,

I am looking for program that list out all the user exits for program or development class given to it.

And also i am looking for user exit in info type 1 program "MP000100"

I have searched but not find any. Can some one can tell if user-exit is available for it or not.

THANKS

[jayanthi_jayaraman]

Hi,

Here is the code.

&----

---

*& Report Z_EXIT_LIST *

*& *

&----

---

*& *

*& *

&----

---

REPORT z_exit_list .

• Finding the user-exits of a SAP transactio n code

*

• Enter the transaction code in which you are looking for the user-exit

• and it will list you the list of user-exits in the transaction code.

• Also a drill down is possible which will help you to branch to SMOD.

*

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.

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.

SELECTION-SCREEN : END OF BLOCK b1.

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.

[ssimsekler]

Hi Wasim

For PA infotypes you can look for:

<u>User exits:</u>

EXIT_SAPFP50M_001 -- ZXPADU01

EXIT_SAPFP50M_002 -- ZXPADU02

<u>Standard Implementation:</u> PBAS0001

<u>BAdI:</u>

<u>Definition:</u> HRPAD00INFTY

Regards

*--Serdar <a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=qbk%2bsag%2bjiw%3d">[ BC ]</a>

[former_member214131]

Hello,

Check this link:

You can make modification to accomodate a dev. class or a report in the program given in the thread.

Hope this helps you.

Best Regards, Murugesh AS

[Former Member]

Hi,

Check this link

http://www.sapdevelopment.co.uk/hr/hr_pbopai.htm

[FredericGirod]

Hello,

Use the matchcode of the transaction CMOD (or SMOD), select "system info", and press the "+". You will be able to select dev class ....

There are a lot of user-exit, sometimes, when I don't find any, I seek in http://service.sap.com/notes or in http://help.sap.com

(don't forget to activate user-exit, or that will not work)

Regards

Frédéric