List of user exits for tcode : FB02 (in vers 4.0)

Question

Hi Experts,
I am working in version 4.0.
i need to comment out the validation for certain comp codes(bukrs) depending upon the reason code for payments(BSEG-RSTGR). This code is in the std SAP program SAPMF05A which is called during FB02. You can see the code by displaying SAPMF05A in SE38 and search for bseg-sgtxt in main program.
Can someone please help me with the underlying user exits available for this scenario (as explained above).
Thanks

Answer 1

Hi,
To find an enhancemnet search the code on sdn. You juet need to run the prog it will display all the enhancemnets.
Try below mentioned code:
REPORT  Z_USER_EXIT_FIND.
                     TABLES DECLARATIONS                             *
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
                     DATA DECLARATIONS                               *
DATA : it_itab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
                     SELECTION-SCREEN DECLARATIONS                   *
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-SELECTION                              *
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.
*-----Code to find SAP Modifactions
    SELECT     *
    FROM       tadir
    INTO TABLE it_itab
    WHERE      pgmid    = 'R3TR' AND
               object   = 'SMOD' AND
               devclass = v_devclass.
    SELECT SINGLE *
    FROM          tstct
    WHERE         sprsl = sy-langu AND
                  tcode = p_tcode.
    FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
    WRITE:/(19)   'Transaction Code - ',
           20(20)  p_tcode,
           45(50)  tstct-ttext.
    SKIP.
    IF NOT it_itab[] 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 it_itab.
        SELECT SINGLE *
        FROM          modsapt
        WHERE         sprsl = sy-langu AND
                      name = it_itab-obj_name.
        FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
        WRITE:/1  sy-vline,
               2  it_itab-obj_name HOTSPOT ON,
               21 sy-vline ,
               22 modsapt-modtext,
               95 sy-vline.
      ENDLOOP.
      WRITE:/(95) sy-uline.
      DESCRIBE TABLE it_itab.
      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                               *
*-----Take the user to SMOD for the Exit that was selected.
AT LINE-SELECTION.
  GET CURSOR FIELD field1.
  CHECK field1(7) EQ 'IT_ITAB'.
  SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
  CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
Ashvender