User Exit for COR6 Update required..

Question

Dear Experts,
I am supposed to add a logic along with a pop up window in COR6 when the user clicks on "Partial Confirmation" Button in COR6.  My problem is that field name for the "Partial Confirmation" Button in COR6 is CORUF-TEILR. And the value is 'X' when debugging.
But as soon as my cursor enters the User Exit this value of CORUF-TEILR becomes 0, and hence I am unable  put the only for "Partial Confirmation" and now the POPUp is coming for all the radio buttons.
I hav tried all methods but unable to get the value of the CORUF-TEILR into my User Exit, plz help how can i get the CORUF-TEILR into my User Exit program...
Thanks in advance

Answer 1

The following program is allowing you to find all the user-exit from a transaction.
I found it somewhere on the net some times ago.
REPORT  zfind_userexit.
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,
       field1(30),
       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.