Active User Exits and BAdi

Question

Dear All,
            I am in need to find active user exits and BAdis in our implementation.
Is there any specific Tcode or Program?.
Could anybody help me in this regard.
Regards,
S.Sridhar

Answer 1

Hi Sridhar,
To find the active user exits, use the below program.
REPORT  ZJK_USED_ENHANCEMENT_LIST               .
TABLES : TFDIR, TRDIR, D010SINF, MODSAP, MODACT, TDEVCT, TADIR, TSTC, TSTCT, V_TDEVC, V_FDIRT.
TYPE-POOLS : SLIS.
TYPES : BEGIN OF ST_TRDIR,
        NAME LIKE TRDIR-NAME,
        CDAT LIKE TRDIR-CDAT,
        UDAT LIKE TRDIR-UDAT,
        RSTAT LIKE TRDIR-RSTAT,
        END OF ST_TRDIR.
TYPES : BEGIN OF ST_TFDIR,
        SNO(4) TYPE C,
        INCL LIKE TFDIR-PNAME,
        CDAT LIKE TRDIR-CDAT,
        UDAT LIKE TRDIR-UDAT,
        R3STATE LIKE D010SINF-R3STATE,
        PNAME LIKE TFDIR-PNAME,
        INCLUDE LIKE TFDIR-INCLUDE,
        FUNCNAME LIKE TFDIR-FUNCNAME,
        ENHANCE  LIKE MODSAP-NAME,
        STEXT LIKE V_FDIRT-STEXT,
        PROJECT LIKE MODACT-NAME,
        DEVCLASS LIKE TDEVC-DEVCLASS,
        CTEXT LIKE TDEVC-CTEXT,
        END OF ST_TFDIR.
DATA : IT_TRDIR TYPE TABLE OF ST_TRDIR,
       WA_TRDIR TYPE ST_TRDIR.
DATA : IT_TFDIR TYPE TABLE OF ST_TFDIR,
       WA_TFDIR TYPE ST_TFDIR.
DATA : LIKE(2) TYPE N,
       X(2),
       SNO(4),
       HTYPE TYPE DD01V-DATATYPE.
**********************************ALV************************************
DATA :  IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
        WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
        WA_LAYOUT TYPE SLIS_LAYOUT_ALV ,
        TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP'.
**********************************ALV************************************
PERFORM MANUAL_FIELDCAT USING 'SNO' 'IT_TFDIR' 'X' '4' 'S.No' .
PERFORM MANUAL_FIELDCAT USING 'INCL' 'IT_TFDIR' 'X' '15' 'Include Name' .
PERFORM MANUAL_FIELDCAT USING 'CDAT' 'IT_TFDIR' 'X' '15' 'Created Date' .
PERFORM MANUAL_FIELDCAT USING 'UDAT' 'IT_TFDIR' ' ' '15' 'Last Modified' .
PERFORM MANUAL_FIELDCAT USING 'R3STATE' 'IT_TFDIR' ' ' '15' 'Active / Inactive' .
PERFORM MANUAL_FIELDCAT USING 'PNAME' 'IT_TFDIR' ' ' '12' 'Prgram Name' .
*PERFORM MANUAL_FIELDCAT USING 'INCLUDE' 'IT_TFDIR' ' ' '10' 'Include No' .
PERFORM MANUAL_FIELDCAT USING 'FUNCNAME' 'IT_TFDIR' ' ' '30' 'Function Module' .
PERFORM MANUAL_FIELDCAT USING 'STEXT' 'IT_TFDIR' ' ' '74' 'Purpose of use' .
PERFORM MANUAL_FIELDCAT USING 'ENHANCE' 'IT_TFDIR' ' ' '15' 'Enhancement' .
PERFORM MANUAL_FIELDCAT USING 'PROJECT' 'IT_TFDIR' ' ' '10' 'Project' .
PERFORM MANUAL_FIELDCAT USING 'DEVCLASS' 'IT_TFDIR' ' ' '10' 'Package' .
PERFORM MANUAL_FIELDCAT USING 'CTEXT' 'IT_TFDIR' ' ' '100' 'Module' .
PERFORM SELECTION.
PERFORM LAYOUT.
PERFORM  CALL_GRID_DISPLAY.
**********************************ALV************************************
FORM SELECTION.
  SELECT NAME CDAT UDAT RSTAT FROM TRDIR INTO TABLE IT_TRDIR WHERE NAME LIKE 'ZX%' AND SUBC EQ 'I'.
  LOOP AT IT_TRDIR INTO WA_TRDIR.
    WA_TFDIR-INCL =  WA_TRDIR-NAME.
    WA_TFDIR-CDAT = WA_TRDIR-CDAT .
    WA_TFDIR-UDAT = WA_TRDIR-UDAT.
    SELECT SINGLE * FROM D010SINF WHERE PROG EQ WA_TRDIR-NAME AND R3STATE = 'I'.
    IF SY-SUBRC EQ 0.
      WA_TFDIR-R3STATE = 'I'.
    ELSE.
      WA_TFDIR-R3STATE = 'A'.
    ENDIF.
    X = STRLEN( WA_TRDIR-NAME ).
    X = X - 2.
    CALL FUNCTION 'NUMERIC_CHECK'
      EXPORTING
        STRING_IN = WA_TRDIR-NAME+X
      IMPORTING
        HTYPE     = HTYPE.
    IF HTYPE EQ 'NUMC'.
      SNO = SNO + 1.
      WA_TFDIR-SNO = SNO.
      WA_TFDIR-INCLUDE = WA_TRDIR-NAME+X.
      CONCATENATE 'SAPL' WA_TRDIR-NAME+1 INTO WA_TRDIR-NAME.
      X =  STRLEN( WA_TRDIR-NAME ).
      X = X - 3.
      WA_TFDIR-PNAME = WA_TRDIR-NAME(X).
      SELECT SINGLE * FROM TFDIR WHERE PNAME EQ WA_TFDIR-PNAME AND INCLUDE EQ WA_TFDIR-INCLUDE.
      IF SY-SUBRC EQ 0.
        WA_TFDIR-FUNCNAME = TFDIR-FUNCNAME.
        SELECT SINGLE * FROM MODSAP WHERE MEMBER EQ WA_TFDIR-FUNCNAME.
        IF SY-SUBRC EQ 0.
          SELECT SINGLE * FROM MODACT WHERE MEMBER EQ MODSAP-NAME.
        ENDIF.
        WA_TFDIR-ENHANCE = MODSAP-NAME.
        WA_TFDIR-PROJECT = MODACT-NAME.
        SELECT SINGLE * FROM TADIR WHERE OBJ_NAME = MODSAP-NAME.
        SELECT SINGLE * FROM TDEVCT WHERE DEVCLASS = TADIR-DEVCLASS AND SPRAS = SY-LANGU.
        SELECT SINGLE * FROM V_FDIRT WHERE FUNCNAME EQ WA_TFDIR-FUNCNAME AND SPRAS EQ SY-LANGU.
        WA_TFDIR-STEXT = V_FDIRT-STEXT.
        WA_TFDIR-DEVCLASS = TDEVCT-DEVCLASS.
        WA_TFDIR-CTEXT = TDEVCT-CTEXT.
        APPEND WA_TFDIR TO IT_TFDIR.
      ENDIF.
    ENDIF.
    CLEAR : X, D010SINF, TFDIR, HTYPE, MODSAP, MODACT, TADIR, TDEVCT.
  ENDLOOP.
ENDFORM.                    "SELECTION
*&      Form  MANUAL_FIELDCAT
      text
     -->VALUE(P_0185)  text
     -->VALUE(P_0186)  text
     -->VALUE(P_0187)  text
     -->VALUE(P_0188)  text
     -->VALUE(P_0189)  text
FORM MANUAL_FIELDCAT  USING    VALUE(P_0185)
                               VALUE(P_0186)
                               VALUE(P_0187)
                               VALUE(P_0188)
                               VALUE(P_0189).
  WA_FIELDCAT-FIELDNAME = P_0185.
  WA_FIELDCAT-TABNAME = P_0186.
  WA_FIELDCAT-KEY = P_0187.
  WA_FIELDCAT-OUTPUTLEN = P_0188.
  WA_FIELDCAT-SELTEXT_L = P_0189.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
ENDFORM.                    " manual_fieldcat
*&      Form  LAYOUT
      text
FORM LAYOUT .
  WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form  CALL_GRID_DISPLAY
      text
FORM CALL_GRID_DISPLAY .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM     = SY-REPID
      I_CALLBACK_TOP_OF_PAGE = TOP_OF_PAGE
      I_GRID_TITLE           = 'Used Exit Details'
      IS_LAYOUT              = WA_LAYOUT
      IT_FIELDCAT            = IT_FIELDCAT
    TABLES
      T_OUTTAB               = IT_TFDIR.
ENDFORM.                    " CALL_GRID_DISPLAY
*&      Form  TOP
      text
FORM TOP .
  DATA: HEADER TYPE SLIS_T_LISTHEADER WITH HEADER LINE.
  HEADER-TYP = 'H'.
WRITE : 'Plant   :' TO HEADER-INFO+1,
       P_WERKS TO HEADER-INFO+10.
APPEND HEADER.
CLEAR HEADER.
HEADER-TYP = 'H'.
WRITE : 'Month :' TO HEADER-INFO+1,
         P_MONYR TO HEADER-INFO+10.
  APPEND HEADER.
  CLEAR HEADER.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = HEADER[]
      I_LOGO             = 'JK'.
ENDFORM.                    "TOP
regards
Arun