Exit or Enhancement for TCode FB02 to manipulate Due Date

Hi,
We would like to change the value on the due date field based on some custom logic in TCode FB02 on the item detail screen (program SAPMF05L screen no 304, SAP version 4.7). Is there any user exit or BADI for this?
We have tried various user exits but nothing seems to work. We found one BADI, which we thought would work, ADJUST_NET_DAYS, but this is marked for internal use (SAP use) only.
Please help.
Thanks.
John

Hi Friend,
Exits,
F050S001  FIDCMT, FIDCC1, FIDCC2: Edit user-defined IDoc segment
F050S002  FIDCC1: Change IDoc/do not send
F050S003  FIDCC2: Change IDoc/do not send
F050S004  FIDCMT, FIDCC1, FIDCC2: Change outbound IDoc/do not sen
F050S005  FIDCMT, FIDCC1, FIDCC2 Inbound IDoc: Change FI document
F050S006  FI Outgoing IDoc: Reset Clearing in FI Document
F050S007  FIDCCH Outbound: Influence on IDoc for Document Change
F180A001  Balance Sheet Adjustment
FARC0002  Additional Checks for Archiving MM Vendor Master Data
FEDI0001  Function Exits for EDI in FI
RFAVIS01  Customer Exit for Changing Payment Advice Segment Text
RFEPOS00  Line item display: Checking of selection conditions
RFKORIEX  Automatic correspondence
SAPLF051  Workflow for FI (pre-capture, release for payment)
Badi's,
AC_QUANTITY_GET
AC_QUANTITY_GET
BADI_ENJ_ALT_ADR
BADI_ENJ_ALT_ADR
BADI_F040_SCREEN_600
BADI_FDCB_SUBBAS01
BADI_FDCB_SUBBAS02
BADI_FDCB_SUBBAS03
BADI_FDCB_SUBBAS04
BADI_FDCB_SUBBAS05
BADI_MIRO_SPLT_ADD
BADI_PRKNG_NO_UPDATE
BADI_TAX1_XTXIT_SET
F050S008
FBAS_CIN_LTAX1F02
FBAS_CIN_MF05AFA0
FI_AUTHORITY_ITEM
FI_DOC_DISP_LI
FI_GET_INV_PYMT_AMT
FI_HEADER_SUB_1300
FI_PAYREF_BADI_010
FI_TRANS_DATE_DERIVE
INVOIC_FI_INBOUND
RFESR000_BADI_001
Enhancement Spot
AC_QUANTITY_GET                Transfer of Quantities to Accounting - Customer Exit
BADI_ENJ_ALT_ADR               Go to alternative vendor/customer data
BADI_TAX1_XTXIT_SET
FI_DOC_DISP_LI                 Diversion to Document Items (FB03)
Thanks,
santhosh
Edited by: santhosh kumar on Dec 23, 2010 8:02 AM

Similar Messages

  • Please help me with user-exits or baids for TCode : FOE2 & FOE1

    Hi  Experts
    Please help me with user-exits or baids for TCode : FOE2 & FOE1.
    I found these but not picking values from VIMI01,VIOB03 and VIOB41.
    User-exits
    FVCH0001                                CH-specific enhancements: Esp. POR
    ISRE0001                                Determine bank procedure account no.
    ISRE0002                                IPD reporting data retrieval
    Business Add-in
    FVD_HANDLE_FORMULA                      Processing of Condition Formulas

    Hi,
    ASk your basis regarding the CI_CSKB table active issue, and first of all i dont see any table with the name CI_CSKB.
    And check this exit-COOMKS03 whether it works for your screen exits.
    Cheers!!
    VEnk@
    Edited by: Venkat Reddy on Nov 4, 2008 5:59 PM

  • Enhancement for Tcode HRBEN0001

    Hi Experts,
    I have a requirement to default the selection date on the screen for Tcode HRBEN0001. The selection date is dependent on certain employee's eligibility criteria. I checked and could not find a suitable BADi or User Exit to achieve this. If anyone knows of any explicit enhancement to achieve this, please let me know.
    Regards.

    Jyothi,
    go to tcode smod - utilities  - find and give package name as PBEN which will give all the user exits
    to find out the BADI put a breakpoint in GET_INSTANCE method of class CL_EXITHANDLER and check the parameter EXIT_NAME  and execute the tcode to find out the badi
    Thanks
    Bala Duvvuri

  • User Exits or BADI for Tcode ME51N

    Hi All,
    My requirement is i need to check available quantity at the time of Purchase req creation. If PR quantity is available in stock then it should not allow to create new PR.
    Is there any user exit or Badi for this requirement. Kindly send me.
    Regards,
    Paras

    Hi Paras,
    Copy this program and execute. Will get all list of existin g Exits and Badis.
    very useful program
    Below code will give a list of BADIs for particular transaction.
    *& Report ZNEGI16 *
    REPORT ZNEGI16 .
    TABLES : TSTC,
    TADIR,
    MODSAPT,
    MODACT,
    TRDIR,
    TFDIR,
    ENLFDIR,
    SXS_ATTRT ,
    TSTCT.
    DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
    DATA : FIELD1(30).
    DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.
    PARAMETERS : P_TCODE LIKE TSTC-TCODE,
    P_PGMNA LIKE TSTC-PGMNA .
    DATA wa_tadir type tadir.
    START-OF-SELECTION.
    IF NOT P_TCODE IS INITIAL.
    SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
    ELSEIF NOT P_PGMNA IS INITIAL.
    TSTC-PGMNA = P_PGMNA.
    ENDIF.
    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 EQ ENLFDIR-AREA.
    MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
    ENDIF.
    ENDIF.
    SELECT * FROM TADIR INTO TABLE JTAB
    WHERE PGMID = 'R3TR'
    AND OBJECT in ('SMOD', 'SXSD')
    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:/(105) SY-ULINE.
    FORMAT COLOR COL_HEADING INTENSIFIED ON.
    Sorting the internal Table
    sort jtab by OBJECT.
    data : wf_txt(60) type c,
    wf_smod type i ,
    wf_badi type i ,
    wf_object2(30) type C.
    clear : wf_smod, wf_badi , wf_object2.
    Get the total SMOD.
    LOOP AT JTAB into wa_tadir.
    at first.
    FORMAT COLOR COL_HEADING INTENSIFIED ON.
    WRITE:/1 SY-VLINE,
    2 'Enhancement/ Business Add-in',
    41 SY-VLINE ,
    42 'Description',
    105 SY-VLINE.
    WRITE:/(105) SY-ULINE.
    endat.
    clear wf_txt.
    at new object.
    if wa_tadir-object = 'SMOD'.
    wf_object2 = 'Enhancement' .
    elseif wa_tadir-object = 'SXSD'.
    wf_object2 = ' Business Add-in'.
    endif.
    FORMAT COLOR COL_GROUP INTENSIFIED ON.
    WRITE:/1 SY-VLINE,
    2 wf_object2,
    105 SY-VLINE.
    endat.
    case wa_tadir-object.
    when 'SMOD'.
    wf_smod = wf_smod + 1.
    SELECT SINGLE MODTEXT into wf_txt
    FROM MODSAPT
    WHERE SPRSL = SY-LANGU
    AND NAME = wa_tadir-OBJ_NAME.
    FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
    when 'SXSD'.
    For BADis
    wf_badi = wf_badi + 1 .
    select single TEXT into wf_txt
    from SXS_ATTRT
    where sprsl = sy-langu
    and EXIT_NAME = wa_tadir-OBJ_NAME.
    FORMAT COLOR COL_NORMAL INTENSIFIED ON.
    endcase.
    WRITE:/1 SY-VLINE,
    2 wa_tadir-OBJ_NAME hotspot on,
    41 SY-VLINE ,
    42 wf_txt,
    105 SY-VLINE.
    AT END OF object.
    write : /(105) sy-ULINE.
    ENDAT.
    ENDLOOP.
    WRITE:/(105) SY-ULINE.
    SKIP.
    FORMAT COLOR COL_TOTAL INTENSIFIED ON.
    WRITE:/ 'No.of Exits:' , wf_smod.
    WRITE:/ 'No.of BADis:' , wf_badi.
    ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(105) 'No userexits or BADis exist'.
    ENDIF.
    ELSE.
    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
    WRITE:/(105) 'Transaction does not exist'.
    ENDIF.
    AT LINE-SELECTION.
    data : wf_object type tadir-object.
    clear wf_object.
    GET CURSOR FIELD FIELD1.
    CHECK FIELD1(8) EQ 'WA_TADIR'.
    read table jtab with key obj_name = sy-lisel+1(20).
    move jtab-object to wf_object.
    case wf_object.
    when 'SMOD'.
    SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
    CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
    when 'SXSD'.
    SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(20).
    CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
    endcase.
    Reward points if this helps.
    hema.

  • Screen exits/BADIs available for Tcode-QM02/QM03

    Hi Everyone,
                       I have to modify a screen for Tcode-QM02( 'Checklist' tab) and add a drop down field to it.I have not worked on screen exits/BADIs prior to this please let me know how to proceed with this.
          Alsoplease tell me how can I manually go and check out whether a exit or BADI is available for this transaction?
    Please reply as its a bit urgent.
    Thanks and Regards
    Abhishek

    hi,
    check these exits n badi's.
    Transaction Code - QM02                     Change quality notification
    Enhancement/ Business Add-in            Description
    Enhancement
    IWOC0004                                Change single-level list editing PM/QM/SM ALV settings
    IWOC0003                                PM/SM authorization check of ref. object and planner group
    IWOC0002                                PM/SM notification: Check whether status change is allowed
    IWOC0001                                Create PM/SM notification: Determine reference object
    IWO10027                                User exit: Generate user-defined settlement rule
    IWO10026                                User check on setting status 'Do not perform'
      Business Add-in
    IQS0_STATUS_MAINTAIN                    Control of Changeability of User Status
    IWO1_SUBSCREEN_0170                     Display Additional Data on Object Screen 0170 PhysicalSample
    IWOC_LIST_TUNING                        Performance Tuning for Lists in PM/CS
    IWOC_OBJECTINFO_CHNG                    Changes to Data of Object Info Screen
    WOC_FL_DETERMINE                        Determine Date for Determining Installation Loc. Equi.
    NOTIF_AUTHORITY_01                      Additional Authorization Checks for the Notification
    goto system - status of ur transaction and find porogram name
    then goto attributes of program n find package.
    now goto smod or se18 click f4 click information system u will get all exits or badis available.

  • Exit or Enchancement for TCode FBCJ

    Hi,
    I have a requirement to copy the Document number field  to Reference number field in TCODE - FBCJ on click of save selection button.
    Can anybody please suggest any enchancement(User_Exit, BADI, Enchancement spot) which gets triggered io click of "Save Selected Enteries" button.
    I tried to implement the BAdi "CJ_DOCUMENT"  and method "CHANGE". but this is not getting triggered on click of " Save Sel Enteries."
    Please provide your val;uable inputs.
    Thanks & Regards,
    Manjot.

    to find the user exits & Badi's for the T-code..
    go to table TSTC>enter T-code and execute> get the Program for the t-code..
    and go to-se38-->get the package attached to the t-code..
    next go to t-code Se15>expand the enhacement tab>enter package under userexit and
    execute you will get the list of exits
    available...
    -->enter package under Badi's tab and
    execute you will get the list of Badi's
    available...
    All the User exits are stored in Table MODSAP..
    Enhacement Points----
    And to find the Enhamcement Points go to progrmam or screen where the Items table is there and
    Press SHIFT+F4(enhace application tool) -->go to menu bar >EDIT>enhacement Operations
    -->Show implicit enhacements
    --> once the yellow bar/Line appears right click and create a enhancement and add your own code.
    Prabhudas

  • Any menu exit or badi for tcode F110

    Dear all,
    My requirement is that whenever the user runs tcode F110, a flat file has to be generated with all the details from tcode F110. How can i do that? Should i change the std pgm or any menu exit or badi available. Plz help me in this regard.

    Hi
    Following are the User Exits and BADIs available:
    Enhancement
    RFFOX074                                Frame for user exit RFFOX074 (in program RFFOCH_U)
    RFFOX075                                Frame for user exit RFFOX075 (in program RFFOCH_U)
    RFFOX081                                Frame for user exit RFFOX081 (in program RFFOF__T)
    RFFOX082                                Frame for user exit RFFOX082 (in program RFFOF__T)
    RFFOX100                                Frame for user exit RFFOX100 (in program RFFOUS_T)
    RFFOX101                                Frame for user exit RFFOX101 (in program RFFOUS_T)
    RFFOX102                                Frame for user exit RFFOX102 (in program RFFOUS_T)
    RFFOX103                                Frame for user exit RFFOX103 (in program RFFOUS_T)
    RFFOX104                                user exit
    RFFOX105                                Frame for user exit RFFOX105 (in program RFFOUS_T)
    RFFOX200                                Frame for user exit RFFOX200 (in program RFFONZ_T)
    RFFOX210                                Frame for user exit RFFOX210 (in program RFFOAU_T)
    RFFOX211                                Frame for user exit RFFOX211 (in program RFFONZ_T)
    RFFOX230                                General program for user exit RFFOX230 (in program RFFOJP_L)
    RFFOX240                                Enhancement for User Exit 240 (RFFOAT_P)
    RFFOX250                                Enhancement for User Exit 250 (RFFODK_E)
    RFFOX901                                Framework for user exit RFFOX901 (in program RFFOM100)
    RFFOX902                                Framework for user exit RFFOX902 (in program RFFOM100)
    FDTAX001                                Enhancement to Transaction FDTA (event after the download)
    FEDI0002                                Function exits for EDI DOCS in FI - Incoming pyt adv.notes
    FEDI0003                                Function exits for EDI docs in FI - Save PEXR segments
    FEDI0004                                Function exits for EDI docs in FI - particular events
    FEDI0006                                Function Exits for EDI-docs in FI: Save IDCR Segments
    RFFOX003                                Frame for user exit RFFOX003 (in program RFFOM100)
    RFFOX041                                Framework for user exit RFFOX041 (in program RFFOBE_I)
    RFFOX042                                Framework for user exit RFFOX042 (in program RFFOBE_E)
    RFFOX043                                Framework for user exit RFFOX043 (in program RFFOBE_D)
    RFFOX061                                Frame for user exit RFFOX061 (in program RFFOCH_P)
    RFFOX062                                Frame for user exit RFFOX062 (in program RFFOCH_P)
    RFFOX063                                Frame for user exit RFFOX063 (in program RFFOCH_P)
    RFFOX064                                Frame for user exit RFFOX064 (in program RFFOCH_P)
    RFFOX065                                Frame for user exit RFFOX065 (in program RFFOCH_P)
    RFFOX066                                Frame for user exit RFFOX066 (in program RFFOCH_P)
    RFFOX071                                Frame for user exit RFFOX071 (in program RFFOCH_U)
    RFFOX072                                Frame for user exit RFFOX072 (in program RFFOCH_U)
    RFFOX073                                Frame for user exit RFFOX073 (in program RFFOCH_U)
    Business Add-in
    FI_BSTM_MC_EXIT                         FI Account Statement: Exit from MultiCash Conversion
    FI_F110_SCHEDULE_JOB                    F110: Check before scheduling a proposal/update run
    Cheers
    Shakir

  • User Exit or Enhancement for Material accounting document in VL02N at PGI

    Hi,
    I have 2 requirement at the time of PGI of Delivery.
    1) Currently there are 2 accounting document getting created for 2 countries. i want to restrict acc. document creation for one company code.
    2) I want to change the GL account in the accounting document while creation.
    Could you please help me in finding any user exit or enhancement or BAdi or BTE which can resolve th eissue?
    Thanks,

    Hi,
    GL account can be changed through the badi AC_DOCUMENT.
    Use the the method CHANGE_INITIAL to change the GL account..
    Regards
    Aromal R

  • Exit/BADI/Enhancement for Payroll driver

    Dear Friends,
    When we run transaction pc00_m10_calc for US payroll driver for an employee for a period,we can see the renumeration statement in the output screen.
    I need to modify the internal table xrt to add the similar wage types in one period before it passes to form , which exit / BADI enhancement should for this purpose.
    Pls. advice.
    Thanks..
    Regards,Prashant

    Hi,
        Please check the below.
    Enhancement
    HRUSRCU0                                Enhancement for Customer Exit for RPCTRCU0.
    Business Add-in
    PC10_PAY0001                            User exit for base_wages in a gross up calculation
    PC10_PAY0002                            Exit to determine if negative taxables should be allowed
    PC10_PAY0003                            Exit to determine if distribution calc should be allowed
    PC10_PAY0004                            Work Tax Area Override Add-In: Activation
    PC10_PAY0005                            Work Tax Area Override Add-In: Default proration of wages
    PC10_PAY0006                            User exit for additional ESS W4 (PZ10) fields; before output
    PC10_PAY0007                            User exit for PZ10 and IT0210 fields; after input
    PC10_PAY0008                            More than 99 exemptions for US payroll withholding tax calc
    Regards,
    Srini.

  • User exit or BADI for tcode CNS0

    Dear Friends,
    I want to validate something when a delivery is created from a Project from tcode CNS0. I was not able to find any user exit or BADI for it, if any body know any BADI or User exit, please let me know.
    Thanks in advance
    IK

    Hi,
    there are tow enhacement spots avaialble for T-code CNS0
    ES_SAPLCNSH                    ES_SAPLCNSH
    go to se18>select enhacement spot>ES_SAPLCNSH -->Display
    The above enhacement is available in FM 'FUNCTION cn_sh_goods_movement_data.'
    And also Enhacement spot avaialbel in NCLUDE LCNSHFM2 .
    try to write your code in above two enhacement spots and check whether it will work for requirement.
    Prabhudas

  • User exit or BADI for Tcode ME51N

    Hi All,
    My requirement is i need to check available quantity at the time of Purchase req creation. If PR quantity is available in stock then it should not allow to create new PR.
    Is there any user exit or Badi for this requirement. Kindly send me.
    Regards,
    Paras

    Hai,
    User Exit:  MEREQ001
    Function exit             EXIT_SAPLMEREQ_001  
                                   EXIT_SAPLMEREQ_002  
                                   EXIT_SAPLMEREQ_003  
                                   EXIT_SAPLMEREQ_004  
                                   EXIT_SAPLMEREQ_005  
                                   EXIT_SAPLMEREQ_006  
                                   EXIT_SAPLMEREQ_007  
                                   EXIT_SAPLMEREQ_008  
                                   EXIT_SAPLMEREQ_009  
                                   EXIT_SAPLMEREQ_010  
    Screen exit               SAPLMEGUI           
    Include tables           CI_EBANDB           
                                   CI_EBANMEM

  • User Exit/ Badi/ FM for Tcode IW32

    Hi Experts,
    I have a requirement which i need to update the next line with the same part number concatenate with u201CNVu201D and in the quantity enter u201C-1u201D and  enter the item category as u201CLu201D.
    The scenario is this,
    In the service order (IW32) when ever a component is entered on a new line item, example below:
    RESBD-MATNR= spare part(Ex: 0614-2331) compponent
    System should update the next line with the same spare part number concatenate with u201CNVu201D
    Ex: 0614-2331NV
    and
    Required quantity (RESBD-MENGE) =-1
    Item Category(RESBD-POSTP) = L
    Plant(RESBD-WERKS)= US40
    has anyone done this before? Can you lend a hand? I just need the exit/ badi where the coding can be done.
    Thanks.
    Regards,
    Min Dee

    Hi,
    try this User Exit..
      Exit name    Short text
      IWO10012  Maintenance order: Priority handling on central header
    to find the user exits & Badi's for the T-code..
    go to table TSTC>enter T-code and execute> get the Program for the t-code..
    and go to-se38-->get the package attached to the t-code..
    next go to t-code Se15>expand the enhacement tab>enter package under userexit and
                                                         execute you will get the list of exits
                                                         available...
                                                      -->enter package under Badi's tab and
                                                         execute you will get the list of Badi's
                                                         available... 
    All the User exits are stored in Table MODSAP..
    Prabhudas

  • Enhancement for Tcode MIGO

    Hi Experts,
    IN MIGO transaction, we use reference as PO. But in ecc 6.0 there is an option to give Ordering plant as reference.
    I have tried to do so, but i couldn't it.
    Plz let me what are settings ihave to do?
    Regards
    Pratap

    Thanks Jurgen
    As mentioned below, i want to know how it can be done?
    Usability enhancements for transaction MIGO for the posting of goods movements
    u2022 For goods movements that refer to purchase orders as reference documents (for example, goods receipt, goods issue, subsequent adjustment), user can specify the ordering plant as an additional selection criterion directly next to the purchase order number and the item number.
    u2022 There is a new default value: "copy account assignment fields." When entering other goods receipts, user can copy existing account assignment data from the previous item to use as the default values for a new item. To do this, user has to set the copy account assignment fields indicator in the default values.
    u2022 User changes the default values in the menu path "Settings -> Default Values."
    u2022 Goods movement is monitored with reference to a material document.. When you enter the following goods movements, it is possible to specify a material document, such as the following, as the reference document:
    Goods receipt
    Goods issue
    Transfer posting
    Remove from storage
    u2022 Note that these material documents must be documents that have arisen from a goods movement without reference ("Others") and that are not reversal documents.

  • Table name for the field FAEDT(net due date)

    hi every body,
    plz can any body tell me the table name for the field net due date(FAEDT).
    its very very urgent
    thanq.

    Hi mark chalfen,
    thanq very much ur reply.
    actually my client want to change the payment term for all the vendor invoices.so wt we did is... we created aprogram to change the old payment term to new payment term in the vendor line items(fbl1n).
    when we run the program its changing the payment term and the base line date and the NO of days in the vendor linitems.but it not changing the net due date based on the new baseline date.
    i think with out changing the net due date only changing the payment term is use less.coz the item again show as due in the same date.
    so how can we change the net due date based on the new baseline date.?from which table we can take the field FAED and update with the new date.
    plz advise me?
    thanq.

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

    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

    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

Maybe you are looking for