REPORT Z_FIND_BADI.
*&---------------------------------------------------------------------*
*& Enter the transaction code that you want to search through in order *
*& to find which Standard SAP User Exits and BADI 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
RSSTCD, " Screen fields for transaction code maintenance
TRKEY. " Complete Key of a Transport Object
*&---------------------------------------------------------------------*
*& Definition of Types *
*&---------------------------------------------------------------------*
TYPES: BEGIN OF T_BADI_LIST,
OBJ_NAME TYPE SOBJ_NAME , " Object Name in Object Directory
DEVCLASS TYPE DEVI_CLASS , " Function Group Package
DLVUNIT TYPE DLVUNIT, " Software Component
IMP_NAME TYPE EXIT_IMP , " Business Add-In Implementation
PACKNAME TYPE DEVCLASS , " Package
DLVUNIT2 TYPE DLVUNIT, " Software Component
TEXT TYPE SXC_ATTRT-TEXT," Exit: Text table
END OF T_BADI_LIST.
TYPES: BEGIN OF T_BADI_LIST2,
OBJ_NAME TYPE SOBJ_NAME ,
DEVCLASS TYPE DEVI_CLASS ,
DLVUNIT TYPE DLVUNIT,
END OF T_BADI_LIST2.
*&---------------------------------------------------------------------*
*& Data Declaration *
*&---------------------------------------------------------------------*
DATA: LT_BADI_LIST TYPE TABLE OF T_BADI_LIST,
LT_BADI_LIST2 TYPE TABLE OF T_BADI_LIST2,
LS_BADI_LIST TYPE T_BADI_LIST OCCURS 0 WITH HEADER LINE,
LS_BADI_LIST2 TYPE T_BADI_LIST2.
RANGES: R_BADI FOR TADIR-OBJ_NAME , " Directory of Repository Objects
RT_BADI FOR TADIR-OBJ_NAME .
*&---------------------------------------------------------------------*
*& Variables *
*&---------------------------------------------------------------------*
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE,
P_TRKEY LIKE TRKEY. " Complete Key of a Transport Object
DATA : FIELD1(30),
BADINAME(20),
COUNT TYPE P.
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS,
P_DEVCLASS LIKE TADIR-DEVCLASS,
P_OLD_LANGU LIKE SY-LANGU,
P_MOD_LANGU LIKE SY-LANGU.
*&---------------------------------------------------------------------*
*& Selection Screen Parameters *
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK A01 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP.
PARAMETERS:
P_TCODE LIKE TSTC-TCODE OBLIGATORY. " SAP Transaction Codes
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK A01.
*&---------------------------------------------------------------------*
*& Start of report *
*&---------------------------------------------------------------------*
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.
* This section is used if a FGR is involved!
CALL FUNCTION 'RS_ACCESS_PERMISSION'
EXPORTING
GLOBAL_LOCK = 'X'
OBJECT = P_TCODE
OBJECT_CLASS = 'TRAN'
MODE = 'SHOW'
LANGUAGE_UPD_EXIT = 'RS_TRANSACTION_LANGUAGE_EXIT'
SUPPRESS_LANGUAGE_CHECK = SPACE
IMPORTING
NEW_MASTER_LANGUAGE = P_OLD_LANGU
MODIFICATION_LANGUAGE = P_MOD_LANGU
TRANSPORT_KEY = P_TRKEY
DEVCLASS = P_DEVCLASS
EXCEPTIONS
CANCELED_IN_CORR = 1
OTHERS = 2.
IF SY-SUBRC = 0. " Success
MOVE: P_DEVCLASS TO V_DEVCLASS.
ELSE. " For the case that nothing is found!
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 = P_DEVCLASS.
MOVE: TADIR-DEVCLASS TO V_DEVCLASS.
ENDIF.
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.
FORMAT COLOR COL_POSITIVE INTENSIFIED ON.
SKIP.
WRITE:/1 'The application area is:', V_DEVCLASS.
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.
SKIP.
WRITE:/(83) SY-ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 SY-VLINE, 2 'Badi Name', 22 SY-VLINE,
23 'Description', 83 SY-VLINE.
WRITE:/(83) SY-ULINE.
* select the BAdI Definitions from the tables sxc_exit and sxc_attr
SELECT T~OBJ_NAME T~DEVCLASS TC~DLVUNIT SX~IMP_NAME SAT~TEXT
INTO CORRESPONDING FIELDS OF TABLE LT_BADI_LIST
FROM ( ( ( ( TADIR AS T
INNER JOIN TDEVC AS TC ON T~DEVCLASS = TC~DEVCLASS )
INNER JOIN SXC_EXIT AS SX ON SX~EXIT_NAME = T~OBJ_NAME )
INNER JOIN SXC_ATTR AS SA ON SX~IMP_NAME = SA~IMP_NAME )
INNER JOIN SXC_ATTRT AS SAT ON SX~IMP_NAME = SAT~IMP_NAME )
WHERE T~PGMID = 'R3TR'
AND T~OBJECT = 'SXSD' "means BAdI
AND T~DEVCLASS = V_DEVCLASS "narrow down seach with Dev.Class
AND SAT~SPRSL = SY-LANGU.
SORT LT_BADI_LIST.
DELETE ADJACENT DUPLICATES FROM LT_BADI_LIST.
* create Ranges
LOOP AT LT_BADI_LIST INTO LS_BADI_LIST.
R_BADI-SIGN = 'I' .
R_BADI-OPTION ='EQ' .
R_BADI-LOW = LS_BADI_LIST-IMP_NAME.
R_BADI-HIGH = LS_BADI_LIST-IMP_NAME.
APPEND R_BADI TO RT_BADI .
ENDLOOP.
* select the implementations
SELECT T~OBJ_NAME T~DEVCLASS TC~DLVUNIT
INTO CORRESPONDING FIELDS OF TABLE LT_BADI_LIST2
FROM TADIR AS T
INNER JOIN TDEVC AS TC ON T~DEVCLASS = TC~DEVCLASS
FOR ALL ENTRIES IN RT_BADI
WHERE T~OBJ_NAME = RT_BADI-LOW
AND T~PGMID = 'R3TR'
AND T~OBJECT = 'SXCI'.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/(83) SY-ULINE.
COUNT = '0'.
LOOP AT LT_BADI_LIST INTO LS_BADI_LIST .
WRITE:/1 SY-VLINE, 2 LS_BADI_LIST-OBJ_NAME HOTSPOT ON, 22
SY-VLINE, 23 LS_BADI_LIST-TEXT, 83 SY-VLINE.
COUNT = COUNT + 1.
ENDLOOP.
WRITE:/(83) SY-ULINE.
DESCRIBE TABLE LS_BADI_LIST.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of BADIs:' , COUNT.
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.
*&---------------------------------------------------------------------*
*& Call SMOD or SE18 to lead the user to the selected exit or badi *
*&---------------------------------------------------------------------*
AT LINE-SELECTION.
GET CURSOR FIELD FIELD1.
IF FIELD1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
ELSEIF FIELD1(12) EQ 'LS_BADI_LIST'.
CALL FUNCTION 'SXO_BADI_SHOW'
EXPORTING
EXIT_NAME = SY-LISEL+1(20)
EXCEPTIONS
ACTION_CANCELED
ACCESS_FAILURE
BADI_NOT_EXIXTING.
ELSE.
ENDIF.
REPORT Z_FIND_USEREXIT2 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.
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.
