topic Re: User Exits in Application Development and Automation Discussions

User Exits

Former Member — Mon, 14 May 2007 12:52:35 GMT

Hi,

Which is the program to find the userexits for a particular transaction please..

Thanks in advance..

Re: User Exits

Former Member — Mon, 14 May 2007 12:54:58 GMT

Hi,

This is the report to find user exits for a particular t-code:

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.

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.

Hope this helps.

Regards,

Kumar.

Re: User Exits

kostas_tsioubris — Mon, 14 May 2007 12:56:00 GMT

Hi,

try this code


*&---------------------------------------------------------------------*
*& Report  Z_FIND_USEREXIT                            *
*&                                                                     *
*&---------------------------------------------------------------------*
*&  Enter the transaction code that you want to search through in order*
*&  to find which Standard SAP User Exits exists.                      *
*&---------------------------------------------------------------------*

REPORT  Z_FIND_USEREXIT NO STANDARD PAGE HEADING.


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

Kostas

Re: User Exits

Former Member — Mon, 14 May 2007 12:56:30 GMT

See Below Program :

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.

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.

Reward Points if it is helpful

Thanks

Seshu

Re: User Exits

Former Member — Mon, 14 May 2007 12:58:48 GMT

Hi,

Look at the Belwo URL, it is having Program, copy and paste this code to find the User exits

http://www.erpgenie.com/abap/code/abap26.htm

Regards

Sudheer

Re: User Exits

Former Member — Mon, 14 May 2007 12:59:06 GMT

Hi,

ZMS_ACTIVE_EXITS - This report shows displays the active exits in a ABAP system along with the corresponding SAP Enhancement (SMOD) and Customer Project (CMOD)

&----

*& Report ZMS_ACTIVE_EXITS

&----

*& This report displays all the active customer enhancements in the

*& system and also displays whether they are active or implemented

&----

REPORT ZMS_ACTIVE_EXITS.

Data decleration

types: begin of s_function,

fname like MOD0-FUNCNAME,

ftext like tftit-stext,

impl,

active,

example,

end of s_function.

TYPEs : BEGIN OF display_str,

project type modact-name,

enhancement type modact-member,

fm type modsap-member,

status type char20,

END OF display_str.

data : lt_member type table of modact-member,

ls_member like LINE OF lt_member,

lt_fm type table of modsap-member,

ls_fm like LINE OF lt_fm,

lt_modname type table of modact-name,

ls_modname like line of lt_modname,

lt_display type TABLE OF display_str,

ls_display like LINE OF lt_display,

ls_function type s_function,

field1(30).

START-OF-SELECTION.

Select active customer enhancement.

select name from modattr into ls_modname

where status = 'A'.

append ls_modname to lt_modname.

CLEAR ls_modname.

ENDSELECT.

if lt_modname is INITIAL.

WRITE / 'no active enhancements'.

endif.

Determine the details about the customer enhancement.

LOOP AT lt_modname INTO ls_modname.

CLEAR : ls_display.

SELECT member from modact into ls_member where name = ls_modname.

select member from modsap into ls_fm where name = ls_member and typ =

'E'.

ls_display-project = ls_modname.

ls_display-enhancement = ls_member.

ls_display-fm = ls_fm.

clear : ls_function.

ls_function-fname = ls_fm.

perform get_impl_status USING ls_function.

if ls_function-impl = 'X'.

ls_display-status = 'Implemented'.

ELSE.

ls_display-status = 'Active'.

endif.

APPEND ls_display to lt_display.

endselect.

ENDSELECT.

ENDLOOP.

Displaying results

format color = 1.

write : 'Please double-click on the object for follow-on action'.

new-LINE. uline.

write : 'Customer Project', at 30 'SAP Enhancement', at 60 'Exit

Function Modul

e', at 100 'Active/Implemented'.

ULINE.

format color = 0.

loop at lt_display into ls_display.

new-LINE.

write : ls_display-project, at 30 ls_display-enhancement, at 60

ls_displayfm,

at 100 ls_display-status.

ENDLOOP.

For calling transaction CMOD / SMOD / SE37.

at line-selection.

get cursor field field1.

CASE field1.

WHEN 'LS_DISPLAY-PROJECT'.

set parameter id 'MON_KUN' field sy-lisel(10).

call transaction 'CMOD' and skip first screen.

WHEN 'LS_DISPLAY-ENHANCEMENT'.

set parameter id 'MON' field sy-lisel+29(10).

call transaction 'SMOD' and skip first screen.

WHEN 'LS_DISPLAY-FM'.

set parameter id 'LIB' field sy-lisel+59(30).

call transaction 'SE37' and skip first screen.

WHEN OTHERS.

message 'Click on the right place.' TYPE 'I'.

ENDCASE.

&----

*& Form get_impl_status

&----

This FORM checks whether an EXIT FM is implemented or not

----

form get_impl_status using p_function type s_function.

data : l_mand LIKE tfdir-mand,

l_incl_names TYPE smod_names OCCURS 1 WITH HEADER LINE.

l_incl_names-itype = 'C'.

APPEND l_incl_names.

CLEAR l_mand.

SELECT SINGLE mand FROM tfdir INTO l_mand WHERE funcname =

p_function-fname.

IF sy-subrc = 0 AND l_mand(1) = 'C'.

p_function-active = 'X'.

l_status-active = c_true.

ELSE.

p_function-active = ' '.

l_status-inactive = c_true.

ENDIF.

CALL FUNCTION 'MOD_FUNCTION_INCLUDE'

EXPORTING

funcname = p_function-fname

TABLES

incl_names = l_incl_names

EXCEPTIONS

OTHERS = 4.

IF sy-subrc = 0.

LOOP AT l_incl_names.

SELECT SINGLE name FROM trdir INTO l_incl_names-iname

WHERE name = l_incl_names-iname.

IF sy-subrc = 0.

p_function-impl = 'X'.

ELSE.

p_function-impl = ' '.

ENDIF.

ENDLOOP.

ENDIF.

endform. "get_impl_status

Hope this helps.

Reward if helpful.

Regards,

Sipra