Exit in transaction FB70

Hi.
In transaction FB70 I need to save the document number in field bkpf-xblnr, I tried with BTE SAMPLE_PROCESS_00001120, but in this moment, the document number has not been generated yet. Any ideas ??? Thanks for your help.

I was in the same situation and this is how I solved it
Step 1 - Implement BTE 00001030
            Step - A
            T-Code - FIBF --> Setting --> Products --> of a customer
            Create a new product and make sure it is active
            Step - B
            T-Code - FIBF --> Environment --> Info Systems P/S --> click execute with default search
            Select 00001030 and click Sample function module
            Copy Function module to a Z Function module (Z_00001030) to a Z function group
            Step - C
            Now in T-Code FIBF --> Settings --> P/S Modules --> of a customer
            Create new entry for even 00001030 --> for product created in Step A,
            and use Function module created in Step - B
Code in FM Z_00001030 - This is to trigger the Business event BKPF-CREATED
READ TABLE t_bkpf ASSIGNING <fs_bkpf_ny> INDEX 1.
CONCATENATE <fs_bkpf_ny>-bukrs <fs_bkpf_ny>-belnr <fs_bkpf_ny>-gjahr INTO lv_objkey.
        ls_creator-otype = 'US'.
        ls_creator-objid = <fs_bkpf_ny>-usnam.
        CALL FUNCTION 'SWE_EVENT_CREATE'
          EXPORTING
            objtype           = 'BKPF'
            objkey            = lv_objkey
            event             = 'CREATED'
            creator           = ls_creator
          IMPORTING
            event_id          = lv_eventid
          TABLES
            event_container   = lt_container
          EXCEPTIONS
            objtype_not_found = 1
            OTHERS            = 2.
        IF sy-subrc <> 0.
*   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
Step - 2 Configure Function module for event CREATED of Object BKPF
         T-Code SWETYPV
         Add Object Category = BOR Object
             Object Type = BKPF
             Event = FM
      Receiver Call Function module
      Receiver Function Module : Z_FI_UPDATE_POSTING
             Click Linkage Activated
Do the following cod in the FM
          Z_FI_UPDATE_POSTING
  With parameters as below
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(EVENT) LIKE  SWETYPECOU-EVENT
*"     VALUE(RECTYPE) LIKE  SWETYPECOU-RECTYPE
*"     VALUE(OBJTYPE) LIKE  SWETYPECOU-OBJTYPE
*"     VALUE(OBJKEY) LIKE  SWEINSTCOU-OBJKEY
*"  TABLES
*"      EVENT_CONTAINER STRUCTURE  SWCONT
Write code here to to get Document number
  DATA: v_mode  TYPE c,
        v_belnr TYPE belnr_d,
        v_gjahr TYPE gjahr,
        v_bukrs TYPE bukrs,
        v_blart TYPE blart.
  v_bukrs = objkey+0(4).
  v_belnr = objkey+4(10).
  v_gjahr = objkey+14(4).
and write code to post your document changes - BDC or FM

Similar Messages

  • User Exit For Transaction F150 (Dunning)

    Hi All,
    Can any one help me in finding a User Exit for Transaction <b>F150</b> (Dunning).

    Hello,
    Try this one
    F150D001
    Bye
    gabriel

  • How to find the user-exit for transaction fpp2

    Hi experts,
    could you help me how can I find the user-exit for transaction fpp2. I tried to after the package, but I did not find it.

    Hi,
    Use the following program to find user exits of specified code.
    *& 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® Modifications
        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.
    I executed the above program but there are no user exits for the specified Transaction.
    Thanks,
    Naveen Kumar.

  • Screen exit for transaction MD14.

    Hi collegues,
    Does anyone know what the screen exit for transaction MD14 is?  I need to add an extra field to the detail screen of transaction MD14.  The field name to be added is MDBA-LIFNR.
    Thanks.

    Exit found.

  • USer exit for transaction Code APPCHANGE

    I want to include a function module to trigger a workflow
    in a user exit related to program
    SAPLHRHAP_UI_DOCUMENT_REPORT (transaction Code APPCHANGE.)
    The workflow will be triggered when SAVE button  is pressed.
    Thank your for your help

    Here is a program that can be used to find user exits per transaction code.
    report z_find_user_exit no standard page heading.
    tables: tstc, tadir, modsapt, modact,
            trdir, tfdir, enlfdir, tstct.
    data : jtab like tadir occurs 0 with header line.
    data : hotspot(30).
    parameters : p_tcode like tstc-tcode obligatory.
    at line-selection.
      get cursor field hotspot.
      check hotspot(4) eq 'JTAB'.
      set parameter id 'MON' field sy-lisel+1(10).
      call transaction 'SMOD' and skip first screen.
    start-of-selection.
      perform get_data.
      perform write_list.
    *       FORM get_data                                                 *
    form get_data.
      select single * from tstc
                  where tcode eq p_tcode.
      check sy-subrc eq 0.
      select single * from tadir
                where pgmid = 'R3TR'
                  and object = 'PROG'
                  and obj_name = tstc-pgmna.
      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.
        endif.
      endif.
      select * from tadir into table jtab
                 where pgmid = 'R3TR'
                   and object = 'SMOD'
                   and devclass = tadir-devclass.
      select single * from tstct
              where sprsl eq sy-langu
                and tcode eq p_tcode.
    endform.
    *       FORM write_list                                               *
    form write_list.
      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.
    endform.
    Regards,
    Rich Heilman

  • User exits for transaction VL10B

    Hi,
    Could anyone please give me the user exit for transaction VL10B.
    Regards
    Karan

    Hi Karan,
    Just check -
    V02V0001  Sales area determination for stock transport order         
    V02V0002  User exit for storage location determination               
    V02V0003  User exit for gate + matl staging area determination (headr)
    V02V0004  User Exit for Staging Area Determination (Item)            
    V50PSTAT  Delivery: Item Status Calculation                          
    V50Q0001  Delivery Monitor: User Exits for Filling Display Fields    
    V50R0001  Collective processing for delivery creation                
    V50R0002  Collective processing for delivery creation                
    V50R0004  Calculation of Stock for POs for Shipping Due Date List    
    V50S0001  User Exits for Delivery Processing                         
    V53C0001  Rough workload calculation in time per item                
    V53C0002  W&S: RWE enhancement - shipping material type/time slot    
    V53W0001  User exits for creating picking waves                      
    VMDE0001  Shipping Interface: Error Handling - Inbound IDoc          
    VMDE0002  Shipping Interface: Message PICKSD (Picking, Outbound)     
    VMDE0003  Shipping Interface: Message SDPICK (Picking, Inbound)      
    VMDE0004  Shipping Interface: Message SDPACK (Packing, Inbound)      
    REWARD!!
    Regards,
    Ajinkya

  • BADI or EXIT for transaction F-28

    Hi !
    Can anyone tell me BADIs or EXITs for transaction F-28 ?
    Thanks in advance.
    Best regards,
    Dairo.

    Exit Name
    Description
    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 send
    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
    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)
    No of Exits:         13

  • User Exit for Transaction V/76

    Hello Gurus,
    I'm looking for user exit for transaction V/76, Basically I just need to add an additional checking for the value entered in the product hierarchy using a check table (custom table) functionality. However I can't see any user exit that can be used since this is a view maintenance table/transaction. Can anyone of you experts can confirm that there is user exit for this transaction? If YES, I will continue my searching if there is NO then thanks for the confirmation. Thank you very much in advance!
    Best regards -

    Hi Rous,
    Please paste this code and check:
    report zuserexit no standard page heading.          
    tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.          
             tables : 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 obligatory.          
    select single * from tstc where tcode eq p_tcode.          
    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 = '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.     
    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.
    Hope this helps you, reply for queries.
    Regards,
    Kumar.

  • Screen Exit in Transaction LM50

    Hi Experts,
    I created a screen exit for transaction LM50 (Count Inventory By System Guided). I created the subscreen SAPLXLRF 7152 because i need to add a field, this screen replace screen 2152.
    In transaction CMOD i created and activated a new project for enhancement MWMRF152, this enhancement contains the function exits EXIT_SAPLLMOB_110 for PAI data, and EXIT_SAPLLMOB_420 for PBO.
    Everything seems to be fine, but when i execute transaction LM50, the subscreen SAPLXLRF 7152 does not dilsplay the data.
    Somebody knows how could i display the data in subscreen SAPLXLRF 7152?
    Best regards,
    Alejandro López

    Hi Alejandro,
    I have similar kind of requirement. But i am not getting any information on how to activate these kind of user exits.
    I need to add verification for field door of tcode LM05. I am using user exit MWMRF302.
    I have created 9302 screen in program SAPLXLRF and deleted ok_code from it, changed it to sub-screen.
    Then i have created a new entry in the spro (screen management) with screen variant 1.
    I ahve created a project for the enhancement and activated it.
    Even i have assigned the variant 01 to the user in LM00 tcode.
    But I am unable to see my screen in LM05 tcode. It is still displaying the old logical screen 0302.
    Can you please help me with this issue?
    Thanks,
    Archana

  • To differentiate in the user-exits what transaction has executed first

    Hi,
    I have a problem,
    For transactions Iw32 y iw34 EXIT_SAPLCOIH_006 user-exit  are called up  when a maintenance order is updated
    from any of two transactions.
    I want to differentiate in the user-exits what transaction has executed first (origin) because sy-tcode in both cases contains  iw32 ' because IW38 transaction calls UP always to the transaction iw32 for update of a maintenance order.
    thank´s
    Regards.

    If that is the case, and the IW32 is begin called from IW38 via some batch input mechanism, then maybe this code will work.  You can wrap your code in this IF statement.  Here we are saying that we only want to do this when the tcode is IW32 and it is not being called in batch input(call transaction) or called by another program.
    if sy-tcode = 'IW32'
      and sy-binpt = space
      and sy-calld = space.
    endif.
    Regard,
    Rich Heilman

  • User exit  for transaction CK11N

    Dear all,
         can any body please tell me any user exit for transaction ck11n.
         i want to terigger the exit when the save button will be pressed in the ck11n transaction.
      i have  found one exit "EXIT_SAPLCK21_002"  but it is not triggering after save button is pressed.
    so please tell me if any other user exit is there to suit my requirement.
    thanks
    prabhudutta

    hi,
    found the following BADI
    check them
    COSTINGRUN_CK Edit Costing Run
    COST_APPORTION_CK Maint Apportionment Structure Joint Production: Dist Rules
    CO_PROD_COSTING_CK Cost Management for Joint Products (Costing, Target Costs)
    DATA_EXTENSION_CK For Data Enrichment in Product Costing
    DYNPRO_EXTENSION_CK BAdI for Interface Enhancement in Costing
    ORDER_COSTING_CK Enables Header Data Changes in Preliminary Order Costing
    QUANTITY_STRUCT_CK Enables Quantity/Structure Changes in Costing
    SUR_STOCK_TRANSF_CK Overhead on Materials with Stock Transfer Between Plants
    CK_KALAMATCON2_CI BAdI for CI Fields for Table KALAMATCON2
    VALUATION_CK BAdI for Valuation in Product Costing
    Regards

  • User-exit for transaction co13: PP Order Cancel Confirmation

    Hello!
    Whether prompt, please,
    exist what that user-exit for transaction co13: PP Order Cancel Confirmation?
    Thanks,
    Anton.

    Hi Antonio,
    Please check this all user exits (SMOD) available for CO13.
    CONFPP01  -  PP order conf.: Determine customer specific default values 
    CONFPP02  -  PP order conf.: Customer specific input checks 1           
    CONFPP03  -  PP order conf.: Cust. specific check after op. selection   
    CONFPP04  -  PP order conf.: Customer specific input checks 2           
    CONFPP05  -  PP order conf.: Customer specific enhancements when saving 
    CONFPP06  -  PP Order Confirmations: Actual Data Transfer               
    CONFPP07  -  Single Screen Entry: Inclusion of User-Defined Subscreens  
    CONFPS01  -  PS confirmation: Determine customer specific default values
    CONFPS02  -  PS confirmation: Customer specific input checks 1          
    CONFPS03  -  PS confirmation: Customer specific check after op. selection
    CONFPS04  -  PS confirmation: Customer specific input checks 2          
    CONFPS05  -  PS confirmation: Customer specific enhancements when saving
    CONF0001   -  Enhancements in order confirmation                         
    CONFPI01   -   Process order conf.: Calculate cust.specific default values
    CONFPI02   -   Process order confirmation: Customer spec. input checks 1  
    CONFPI03   -   Process order conf.: Cust. spec. check after op. selection 
    CONFPI04   -   Process order conf.: Customer specific input checks 2      
    CONFPI05   -   Process order conf.: Cust. spec. enhancements when saving  
    CONFPI06   -   Process order confirmation: Actual data transfer           
    CONFPM01  -  PM/SM order conf.: Determine cust. specific default values 
    CONFPM02  -  PM/SM order confirmation: Customer specific input checks 1 
    CONFPM03  -  PM/SM order conf.: Cust. spec. check after op. selection   
    CONFPM04  -  PM/SM order conf.: Customer specific input check 2         
    CONFPM05  -  PM/SM order conf.: Cust. specific enhancements when saving 
    Regards,
    Ferry Lianto

  • BADI or Exits for Transaction FBL5N

    HI All,
    I want any BADI or Exits for transaction FBL5N.
    Please help me out asap.
    <<Text removed>>
    Thanks in advance.
    Regards,
    Seevangi
    Edited by: Matt on Jan 13, 2009 11:25 AM - do not offer points

    hi,
    There is one user exit available for this Transaction code:
    F1040001  Reserve for bad debt - calculate percentages
    BADI'S,
    Below Badis are available for the Tcode.
                                                                                    FI_ITEMS_MENUE01     Menu Enhancement                                            
    FI_ITEMS_MENUE02     Menu Enhancement                                            
    FI_TAX_BADI_015      RFUMSV00: Event "END-OF-SELECTION" before Data File Creation
    FI_TAX_BADI_016      RFUMSV00: Transfer of All Tax Data                                                                               
    if you require more details let me.
    regards,
    Dwaraka.

  • Process to find user exit for transactions /sapapo/snptlb or /sapapo/sdp94

    Hi All,
         Can you help me out with the approach to find out user exits for transactions /sapapo/snptlb or /sapapo/sdp94?
    What I am looking for is the approach, i mean how to proceed with?
    Win full points for detailed answer !!
    Thanks a lot - Chandan

    Hi Chandan - this is the same as in any module of SAP:
    1) check SPRO
    If nothing is found then do the following:
    1) Goto SE24 and display class cl_exithandler
    2) Enter method GET_INSTANCE and create a break point at Line 25 (CASE sy-subrc)
    3) Execute SAP standard transaction and invoke the process for which you need to create custom coding
    4) Your break point will stop the process in debug mode - check the values of variable 'exit_name', it will contian the name of the BADI currently being executed.
    5) Continue to debug by pressing F8 to see other BADI's
    6) Repeat steps 3 thru 5 for each process that you want to find a BADI for
    Regards
    Andy

  • User exit for transaction FCHR

    hello,
      is there any user exit for transaction FCHR( online cashed checks)??
    thanx in adavance..
    regards,
    Maya.

    Maya,
    Execute the below prog to know all the user extis available for a paritcular transaction.
    "Sab Maya Hi"
    Say thanks to SDN.
    K.Kiran.
    *& Report  Zkk9.
    REPORT  ZKK9.
    tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
    tables : 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 obligatory.
    select single * from tstc where tcode eq p_tcode.
    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 = '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.
    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.

Maybe you are looking for

  • Hook methods in component controller vs hook methods in view controller

    Hi, I want to know how WDDoInit in component controller differs from the same in view controller. How the lifecycle flows in both controllers? Eg. if i create a method intialize() in both component  & view controllers and if i called initalize method

  • Error in jdeveloper 11.1.1.4.0

    hi all, i am using jdeveloper 11.1.1.4.0 scenario 1: i am able to invoke w webservice data control through the webservicedata control wizard scenario 2 : i designed a mobile browser page in which i am binding my parameters scenario 3: when i am tryin

  • F.19 - criteria for creation of documents?

    Hi All, I am looking for the specific criteria that creates multiple documents after F.19 is run. Example - when I run F.19, I get multiple documents in my adjustment a/c and target a/c. These documents do not seem to follow any logic (such as by Tra

  • JPD Document Upgrader options in Weblogic 10.3.1 not working

    Anybody have any idea why this option is not working in weblogic 10.3.1?

  • First Second to  last second of a Day

    First second to last second of the day Hi I must to return First Second to Last Second of a day, I tried select to_date(to_char(trunc(sysdate),'dd/mm/yyyy hh24:mi:ss'),'dd/mm/rrrr hh24:mi:ss'),         to_date(to_char(trunc(sysdate),'dd/mm/yyyy')||'2