Tcode to comapre 2 programs

hi everybody
is there a transaction where 2 programs can be compared, not the versions but 2 separate programs?

Hi,
You can use ABAP Splitscreen Editor (SE39).
Also you can use remote comparison (version management)  to compare two programs in two different clients.
Regards,
Ferry Lianto

Similar Messages

  • How to find out tcode from a program that can run the same report?

    Hello all,
    I have a program name and I can see it is successfully proccessed. Now if I want to get the report via a tcode, how can I get it?
    How can I find the tcode from the program itself?
    Regards,

    Hi,
    1) Go into SE80, > Enter the name of the program, and press 'Enter'.
    2) You will see a folder called 'Transactions' appearing in the object list on the bottom left.
    3) Open the folder, and you'll find T.code of that program.
    Thanks,
    Nirav

  • Is there any TCODE or Report Program or way to display the enterprise struc

    Hi,
    Is there any TCODE or Report Program or way to display the enterprise strucdture in a pictorial view.
    I want to see like:
    Financial Accounting
          Company
           Business Area
           Functional Area
           FM Area
            Segment
           Profit Center.
    I will appreciate your help.
    Thanks
    Bashir Awan

    Did u checked thse reports
    S_AHR_61016499 - Job Description
    S_AHR_61016501 - Complete Job Description
    S_AHR_61016498 - Job Index
    S_AHR_61016497 - Existing Jobs

  • VBUND(Trading Partner) field in BSEG from Tcode FB50 through programs

    Dear Friends,
    I am traying to update the VBUND(Trading Partner) field in BSEG from Tcode FB50 through programs....but its not updating in BSEG.
    for that we have used substitution programs,
    Did we have any other way to update the VBUND in BSEG from FB50?
    I have debuged the Tcode FB50, and in there its updating the BSEG from internal table t_bseg, and passing the values to t_bseg from SACCIT, but SACCIT is not having the field VBUND. thats the reasone its failed in my case.
    do we have any other better solutions and idea on this???
    Thanks,
    Sridhar

    Refer to the following trheads:
    Change field bseg-vbund
    Trading Partner field (VBUND) is left blank in EC-PCA historical data load
    Validation document type
    Field VBUND does not allow changes to the document ?
    Regards,
    Fernando Evangelista

  • How to create tcode for modulepool program with selection screen?

    hi,
       How to create tcode for modulepool program with selection screen?
    thanks,
    sagar

    Hi,
    We need to goto SE80.
    In our program we right click on object name and goto create
    -> transaction. Enter the module pool program and screen number and save and activate.
    Or by SE93 also we can create a transaction code for our program.
    Hope ths helps.
    plz reward if useful.
    thanks,
    dhanashri..
    Edited by: Dhanashri Pawar on Jul 22, 2008 8:29 AM

  • Tcode for print program

    Hi all..
    how to create Tcode for print program??? i did the usual way like went se 93 then chose 2nd option (with selection screen) asign the GUI also. but it not working...
    without tcode it is working vrey fine..
    thanks well in advance..
    points will be rewarded..

    Hi Soumya,
    It is normal way like how you create Tcode for executable programs.
    But in real time we never creates TCodes for Print Programs, which will get triggered when you print the layout.
    <b>Reward points if it useful,</b>
    Satish

  • How to call mmpv TCODE through BDC program.

    Hi
    In my  requriment i have to create custom program through which i have to call mmpv TCODE, because mmpv closes period for indivisual company code and for large number of company code it is time cunsuming exercise. for that i that i have to creat custom program. it is having selection screen like below.
    company code                                   (marv-bukrs)
    fiscal year of current period                 (marv-lfgja)
    current posting period                         (marv-lfmon)
    fiscal year of previous period                (marv-vmgja)   
    month of previous period                      (marv-vmmon)
    fiscal year of last periodof previous year (marv-vjgja)
    last month of previoud year                  (marv-vjmon)
    allow posting to previous year           (marv-xruem)
    disallow dack posting after a change of period (marv-xruev)
    and  output should show : company codes affected,the periods closed and the current period open for posting .and also show wheather back posting allowed / disallowed for the company code.

    CALL FUNCTION 'BDC_INSERT'  "BDC_OBJECT_UPDATE
             EXPORTING
                  TCODE     = 'mmpv'
             TABLES
                  DYNPROTAB = BDC_TAB.
    hope this helps
    Warren

  • How to call the 2 Tcodes from single program.

    Dear Friends,
    I would like to call 2 tcodes form a single program based on some conditions like :
    I have a program ZRR wich is madule pool report with selection screen and screen 100, 200.
    If I excuted tcode ZXX then I need to call the report with selectin screen ( from there with giving some input data I will go to screen 100 ),
    If I excuted tcode ZYY then I need to call the same report skiping the selection screen and need to go directly screen 200.
    Pls help me on this if any bady is faced the similar problem.
    Thanks,
    Sridhar

    hi,
    yes you can do this..
    try this
    create a two screen suppose 9000 and 9001..
    then right click on your program name...
    create a TCODE say TONE..
    in this give the screen number 9000..
    now again right click on the program name
    create a TCODE say Tsecond
    in this give the screen number 9001...
    hope this will help you..
    Regards
    Ritesh J

  • How to get the Title and Tcode of a Program during run time

    Hello,
    I am new to abap and I have this question please. Is the a way to get the title, Tcode and Author of a program during run time? I would like to get the name and title of a program or a view or an include during run time.
    Using table TADIR, you can only get the object_name and the author. Is the a way for me to get the Title of the repository object and any Tcode if any is available for the case of a program?
    I loop forward for your respond.
    Thank you.
    Sabina

    You can get it by accessing SYST.
    SY-TITLE for Title
    SY-TCODE for Tcode
    I don't think there is any field in SYST for the Author.
    To get the author name you can use the TRDIR table.
    Regards,
    Naimesh Patel

  • Recording TCode for BDC program

    Hi ALL,
    I have a problem in recording GS01 tcode.
    I have to a table control in GS01 tcode.
    After some rows again i need to update the data.
    How can i record this and write BDC program for the same.

    Hi
    To uplaod the data using the table control,if number of line are more then screen.
    Then use the P+ in u r code.
                let assume that u can see 10 rows on screen.once the count reachs the 10 then do P+ then
    new line will come and after P+ clear u r counter.

  • Calling a tcode of a program instead of calling program through se38 in BDC

    Hi ,
    I want to call a BDC using  tcode ,J4AB which is transaction for program J_3AARN5.
    Actually my Zprogram is uploading data through se38. Here,i want to call the transaction code J4AB directly...   instead of using J_3AARN5 program through se38 in my BDC.
    Here I am in dilemma ...what to do ...
    Do I need to ask my client for a new recording for this T-code J4AB or
    what do i do??
    Please suggest,
    Thanks in advance.
    Hema

    Hi Bijay,
    yes it is "call transaction J4AB". But my question is that do we need to create recording for that.Just giving "call transaction J4AB" is enough??if so, what do we give in perform generate bdc_data.
    If we have to create recording, do we need to ask client for the data. please let me know.
    Thanks,
    Hema.

  • How To call a Tcode From a Program and returning back ?

    Dear All,
    I have a requirement, i have to show all the open orders as in the the tcode va05  and return back to the my program. so how to display the tcode and getting back to my program. please help?

    Hi,
    Basic syntax to call the transaction is:
    SET PARAMETER ID <id name> FIELD <filedname>.
    CALL TRANSACTION <TCOde> AND SKIP FIRST SCREEN.
    If your are using ALV then snippet is :
    FORM user_command  USING okcode    LIKE sy-ucomm
                           lselfield TYPE slis_selfield.
      CASE okcode.
        WHEN '&IC1'. " SAP standard code for double-clicking
          CASE lselfield-sel_tab_field."check if double click is only on
            WHEN 'ITAB-AUFNR'."aufnr not on any other field
              SET PARAMETER ID 'ANR' FIELD lselfield-value.
              CALL TRANSACTION 'IW32' AND SKIP FIRST SCREEN.
          ENDCASE.
      ENDCASE.
    Endform.
    Pooja

  • HCP tcode PA40 Upload program failing to move to next record.

    Dear All
    I have written and upload program for HCM tcode PA40 and the program is fine but only inserting one record and is failing to pick the next records in a loop. I dont know whats the problem i know the process have many screens, please help me, i have tried to research not yet found the answer yet.
    Thank you for your assistance
    Here is my Upload program
    *& Report  ZUPLOADEMPHIRING
    REPORT  ZUPLOADEMPHIRING.
    include bdcrecx1.
    PARAMETERS: p_file TYPE  rlgrap-filename.
               x_endrow TYPE i .
    DATA:  xdate(10).
    DATA: Fullname type string.
    DATA:        x_begrow  TYPE i  VALUE 2,
                x_begcol  TYPE i VALUE 1,
                x_endcol  TYPE i VALUE 17,
                 x_endrow TYPE i VALUE 3.
    TYPES: BEGIN OF t_datatab  ,
            FromDate(10),
            Reasonforaction(2),
            Position(8),
            PersonalArea(4),
            EmployeeGroup(1),
            EmployeeSubGroup(2),
            SubArea(4),
            PayrolArea(2),
            Title(5),
            Lastname(40),
            Firstname(40),
            BirtDate(10),
            Nationality(3),
            Group(1),
            Level(1),
            BankKey(15),
            BankAccount(18),
           END OF t_datatab.
    DATA: BEGIN OF t_datatabfinal OCCURS 0,
            FromDate(10),
            Reasonforaction(2),
            Position(8),
            PersonalArea(4),
            EmployeeGroup(1),
            EmployeeSubGroup(2),
            SubArea(4),
            PayrolArea(2),
            Title(5),
            Lastname(40),
            Firstname(40),
            BirtDate(10),
            Nationality(3),
            Group(1),
            Level(1),
            BankKey(15),
            BankAccount(18),
          END OF t_datatabfinal.
    DATA: BEGIN OF it_record OCCURS 0,
            FromDate(10),
            Reasonforaction(2),
            Position(8),
            PersonalArea(4),
            EmployeeGroup(1),
            EmployeeSubGroup(2),
            SubArea(4),
            PayrolArea(2),
            Title(5),
            Lastname(40),
            Firstname(40),
            BirtDate(10),
            Nationality(3),
            Group(1),
            Level(1),
            BankKey(15),
            BankAccount(18),
            END OF it_record.
    DATA: itab LIKE alsmex_tabline OCCURS 0 WITH HEADER LINE,
    gd_currentrow TYPE i,
    it_datatab TYPE STANDARD TABLE OF t_datatab,
    wa_datatab TYPE t_datatab.
    AT SELECTION-SCREEN on VALUE-REQUEST FOR p_file.
      CALL FUNCTION 'F4_FILENAME'  "
       EXPORTING
         FIELD_NAME          = 'P_FILE '
       IMPORTING
         FILE_NAME           = p_file.
    CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
      EXPORTING
        PROGRAM_NAME        = SYST-REPID
        DYNPRO_NUMBER       = SYST-DYNNR
        FIELD_NAME          = ' '
        STATIC              = ' '
        MASK                = ' '
       CHANGING
         FILE_NAME           =
      EXCEPTIONS
        MASK_TOO_LONG       = 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.
    START-OF-SELECTION.
      CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
          filename    = p_file
          i_begin_col = x_begcol
          i_begin_row = x_begrow   "Column header not required
          i_end_col   = x_endcol
          i_end_row   = x_endrow
        TABLES
          intern      = itab.
    Sort table by rows and colums
      SORT itab BY row col.
    Get first row retrieved
      READ TABLE itab INDEX 1.
    Set first row retrieved to current row
      gd_currentrow = itab-row.
      clear: t_datatabfinal.
      refresh t_datatabfinal.
      LOOP AT itab.
      Reset values for next row
        IF itab-row NE gd_currentrow.
          APPEND wa_datatab TO t_datatabfinal.
          CLEAR wa_datatab.
          gd_currentrow = itab-row.
        ENDIF.
        concatenate sy-datum6(2)'.' sy-datum4(2)'.' sy-datum+2(4) into xdate .
        CASE itab-col.
          WHEN '0001'.
            wa_datatab-FromDate  = itab-value.
           concatenate wa_datatab-DocumentDate6(2)'.' wa_datatab-DocumentDate4(2)'.' wa_datatab-DocumentDate+2(4) into wa_datatab-DocumentDate.
          WHEN '0002'.
            wa_datatab-Reasonforaction     = itab-value.
          WHEN '0003'.
            wa_datatab-Position = itab-value.
          WHEN '0004'.
            wa_datatab-PersonalArea    = itab-value.
          WHEN '0005'.
            wa_datatab-EmployeeGroup    = itab-value.
          WHEN '0006'.
            wa_datatab-EmployeeSubGroup   = itab-value.
          WHEN '0007'.
            wa_datatab-SubArea         = itab-value.
          WHEN '0008'.
            wa_datatab-PayrolArea         = itab-value.
          WHEN '0009'.
            wa_datatab-Title         = itab-value.
          WHEN '0010'.
            wa_datatab-Lastname         = itab-value.
          WHEN '0011'.
            wa_datatab-Firstname         = itab-value.
          WHEN '0012'.
            wa_datatab-BirtDate         = itab-value.
          WHEN '0013'.
            wa_datatab-Nationality         = itab-value.
          WHEN '0014'.
            wa_datatab-Group         = itab-value.
          WHEN '0015'.
            wa_datatab-Level         = itab-value.
          WHEN '0016'.
            wa_datatab-BankKey         = itab-value.
          WHEN '0017'.
            wa_datatab-BankAccount         = itab-value.
          WHEN OTHERS.
        ENDCASE.
       APPEND    wa_datatab to t_datatabfinal.
      ENDLOOP.
      clear: it_record.
      refresh it_record.
      loop at t_datatabfinal into it_record.
        append it_record.
      endloop.
      perform open_group.
      loop at it_record.
        concatenate it_record-Firstname it_record-Lastname into Fullname separated by space.
        perform bdc_dynpro      using 'SAPMP50A' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'T529T-MNTXT(02)'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=PICK'.
        perform bdc_field       using 'RP50G-EINDA'
                                      it_record-FromDate. "" '01012012'.
        perform bdc_field       using 'RP50G-SELEC(02)'
                                      'X'.
        perform bdc_dynpro      using 'MP000000' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'PSPAR-PERSG'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=UPD'.
        perform bdc_field       using 'P0000-BEGDA'
                                      it_record-FromDate. "" '01.01.2012'.
        perform bdc_field       using 'P0000-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'P0000-MASSN'
                                      'ZB'.
        perform bdc_field       using 'P0000-MASSG'
                                      it_record-Reasonforaction. "" '01'.
        perform bdc_field       using 'PSPAR-PLANS'
                                      it_record-Position. "" '99999999'.
        perform bdc_field       using 'PSPAR-WERKS'
                                      it_record-PersonalArea.   " 'm003'.
        perform bdc_field       using 'PSPAR-PERSG'
                                      it_record-EmployeeGroup. "" 'a'.
        perform bdc_field       using 'PSPAR-PERSK'
                                      it_record-EmployeeSubGroup. "" '02'.
        perform bdc_dynpro      using 'MP000100' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'P0001-BTRTL'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=UPD'.
        perform bdc_field       using 'P0001-BEGDA'
                                      it_record-FromDate. ""'01.01.2012'.
        perform bdc_field       using 'P0001-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'P0001-BTRTL'
                                      it_record-SubArea.        "" 'mm01'.
        perform bdc_field       using 'P0001-ABKRS'
                                       it_record-PayrolArea.    "" 'Z2'.
        perform bdc_field       using 'P0001-PLANS'
                                      it_record-Position. ""'99999999'.
        perform bdc_dynpro      using 'MP000200' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'P0002-NATIO'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=UPD'.
        perform bdc_field       using 'P0002-BEGDA'
                                      it_record-FromDate. ""'01.01.2012'.
        perform bdc_field       using 'P0002-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'Q0002-ANREX'
                                      it_record-Title. "" 'Mr'.
        perform bdc_field       using 'P0002-NACHN'
                                      it_record-Lastname. " 'maxwel'.
        perform bdc_field       using 'P0002-VORNA'
                                      it_record-Firstname. "" 'razaro'.
        perform bdc_field       using 'P0002-GBDAT'
                                      it_record-BirtDate. "" '01011970'.
        perform bdc_field       using 'P0002-SPRSL'
                                      'EN'.
        perform bdc_field       using 'P0002-NATIO'
                                       it_record-Nationality. "" 'ZW'.
        perform bdc_dynpro      using 'MP000700' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'P0007-BEGDA'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '/00'.
        perform bdc_field       using 'P0007-BEGDA'
                                      it_record-FromDate."" '01.01.2012'.
        perform bdc_field       using 'P0007-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'P0007-SCHKZ'
                                      'MANORM'.
        perform bdc_field       using 'P0007-ZTERF'
                                      '9'.
        perform bdc_field       using 'P0007-EMPCT'
                                      '  100,00'.
        perform bdc_dynpro      using 'MP000700' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'P0007-BEGDA'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=UPD'.
        perform bdc_field       using 'P0007-BEGDA'
                                      it_record-FromDate.""'01.01.2012'.
        perform bdc_field       using 'P0007-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'P0007-SCHKZ'
                                      'MANORM'.
        perform bdc_field       using 'P0007-ZTERF'
                                      '9'.
        perform bdc_field       using 'P0007-EMPCT'
                                      '  100,00'.
        perform bdc_field       using 'P0007-ARBST'
                                      '    8,00'.
        perform bdc_field       using 'P0007-WKWDY'
                                      '    5,00'.
        perform bdc_dynpro      using 'MP000800' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'P0008-TRFST'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=UPD'.
        perform bdc_field       using 'P0008-BEGDA'
                                      it_record-FromDate. "" '01.01.2012'.
        perform bdc_field       using 'P0008-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'P0008-TRFAR'
                                      '01'.
        perform bdc_field       using 'P0008-BSGRD'
                                      '100,00'.
        perform bdc_field       using 'P0008-TRFGB'
                                      '01'.
        perform bdc_field       using 'P0008-TRFGR'
                                       it_record-Group. ""'a'.
        perform bdc_field       using 'P0008-TRFST'
                                       it_record-Level.         "" '1'.
       perform bdc_field       using 'P0008-DIVGV'
                                     '173,00'.
        perform bdc_field       using 'P0008-ANCUR'
                                      'USD'.
        perform bdc_field       using 'Q0008-IBBEG'
                                      xdate.""'12.01.2012'.
        perform bdc_field       using 'P0008-WAERS'
                                      'USD'.
        perform bdc_dynpro      using 'MP000900' '2000'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'P0009-ZLSCH'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '=UPD'.
        perform bdc_field       using 'P0009-BEGDA'
                                      it_record-FromDate. ""'01.01.2012'.
        perform bdc_field       using 'P0009-ENDDA'
                                      '31.12.9999'.
        perform bdc_field       using 'P0009-BNKSA'
                                      '0'.
        perform bdc_field       using 'Q0009-EMFTX'
                                      Fullname. "" 'maxwel razaro'.
        perform bdc_field       using 'P0009-BANKS'
                                      'ZW'.
        perform bdc_field       using 'P0009-BANKL'
                                       it_record-BankKey.       ""'10351'.
        perform bdc_field       using 'P0009-BANKN'
                                       it_record-BankAccount. "" '543234667778'.
        perform bdc_field       using 'P0009-ZLSCH'
                                      'b'.
        perform bdc_field       using 'P0009-WAERS'
                                      'USD'.
        perform bdc_dynpro      using 'SAPMP50A' '2000'.
        perform bdc_field       using 'BDC_OKCODE'
                                      '/EBCK'.
        perform bdc_field       using 'BDC_CURSOR'
                                      'RP50G-PERNR'.
        perform bdc_transaction using 'PA40'.
      endloop.
      perform close_group.
    Regards
    William

    Hi,
    It seems like you are uploading data to a screen that contains table control.just check the link below for your reference
    [http://wiki.sdn.sap.com/wiki/display/ABAP/bdcontable+control]
    Regards,
    Vamshi
    Edited by: vamshi reddy . ch on Jan 13, 2012 7:38 AM
    Edited by: vamshi reddy . ch on Jan 13, 2012 7:39 AM

  • Call a Tcode from different program

    Hi frieds,
    How to call a Tcode using a push button in another report.
    Eg:   Tcode =  Ztest.  (for invoice list report, using 
                            the program zinvlist).
          This Ztest should be called in another report
          Zrep1 (program name Zsale) using the push button.
    Regards,
    A S VINCENT

    Hai Vincent
    *&      Form  DISPLAY_SEC1
         TO CALL TRANSACTION ME23
    form DISPLAY_SEC1.
    <b> SET PARAMETER ID 'BES' FIELD IT_EKKO-EBELN.
    CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.</b>endform.                    " DISPLAY_SEC1
    also I will send you Some Sample Code
    *& Report  ZSSSS1                                                      *
    REPORT  ZSSSS1  LINE-SIZE 120
                    LINE-COUNT 25(3)
                    MESSAGE-ID ZSAN.
    *Program Desc: INTERACTIVE REPORT FOR PURCHASE ORDER DETAILS
                   BASIC LIST CONTAINS HEADER DETAILS
                   SECONDARY LIST CONTAINS ITEM DETAILS
                      AND CONDETION RECORD DETAILS
       T A B L E S         U S E D                                   *
    TABLES: EKKO,EKPO,KONV,LFA1,T001.
       S E L E C T I O N     S C R E E N                             *
    SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
    SELECT-OPTIONS:
          S_LIFNR FOR EKKO-LIFNR,
          S_BUKRS FOR EKKO-BUKRS.
    SELECTION-SCREEN END OF BLOCK B1.
       D A T A   D E C L A R A T I O N S                             *
    DATA: BEGIN OF IT_EKKO OCCURS 0,
              BUKRS LIKE EKKO-BUKRS,
              LIFNR LIKE EKKO-LIFNR,
              EBELN LIKE EKKO-EBELN,
              KNUMV LIKE EKKO-KNUMV,
          END OF IT_EKKO.
    DATA: BEGIN OF IT_EKPO OCCURS 0,
              EBELN LIKE EKPO-EBELN,
              EBELP LIKE EKPO-EBELP,
              MATNR LIKE EKPO-MATNR,
              INFNR LIKE EKPO-INFNR,
              MENGE LIKE EKPO-MENGE,
              MEINS LIKE EKPO-MEINS,
              NETPR LIKE EKPO-NETPR,
          END OF IT_EKPO.
    DATA: BEGIN OF IT_KONV OCCURS 0,
              KNUMV LIKE KONV-KNUMV,
              KSCHL LIKE KONV-KSCHL,
              KAWRT LIKE KONV-KAWRT,
              KBETR LIKE KONV-KBETR,
              KPOSN LIKE KONV-KPOSN,
          END OF IT_KONV.
    DATA: BEGIN OF IT_LFA1 OCCURS 0,
              LIFNR LIKE LFA1-LIFNR,
              NAME1 LIKE LFA1-NAME1,
              STRAS LIKE LFA1-STRAS,
              ORT01 LIKE LFA1-ORT01,
              PSTLZ LIKE LFA1-PSTLZ,
              LAND1 LIKE LFA1-LAND1,
          END OF IT_LFA1.
    DATA: V_BUTXT LIKE T001-BUTXT,
          FNAM(20) TYPE C,
          FVAL(20) TYPE C.
      A T    S E L E C T I O N - S C R E E N    O N    <FIELD>       *
    AT SELECTION-SCREEN ON S_BUKRS.
      PERFORM VALIDATE.
      S T A R T - O F - S E L E C T I O N                            *
    START-OF-SELECTION.
      PERFORM SELECT_DATA.   " SELECTION OF ALL DATA
      PERFORM DISPLAY_DATA.  " DISPLAY OF BASIC LIST
      A T   L I N E   S E L E C T I O N                              *
    AT LINE-SELECTION.
      GET CURSOR FIELD FNAM VALUE FVAL.
      CASE FNAM.
      WHEN 'IT_EKKO-EBELN'.
            PERFORM DISPLAY_SEC1.
      WHEN 'IT_EKKO-LIFNR'.
            PERFORM DISPLAY_SEC2.
      WHEN OTHERS.
            PERFORM DISPLAY_SEC3.
      ENDCASE.
      T O P - O F - P A G E                                          *
    TOP-OF-PAGE.
      PERFORM WRITE_HEADER.
      T O P - O F - P A G E   D U R I N G   L I N E  S E L           *
    TOP-OF-PAGE DURING LINE-SELECTION.
      PERFORM WRITE_HEADER2.
      E N D - O F - P A G E                                          *
    END-OF-PAGE.
      PERFORM WRITE_FOOTER.
    *&      Form  SELECT_DATA
          THIS FORM CONTAINS ALL SELECTION OF DATA STATEMENTS
    form SELECT_DATA.
    SELECT  BUKRS LIFNR EBELN KNUMV
            FROM EKKO
            INTO TABLE IT_EKKO
            WHERE LIFNR IN S_LIFNR
            AND BUKRS IN S_BUKRS.
    IF NOT IT_EKKO[] IS INITIAL.
    SELECT   EBELN EBELP MATNR INFNR MENGE MEINS NETPR
          FROM EKPO
          INTO TABLE IT_EKPO
          FOR ALL ENTRIES IN IT_EKKO
          WHERE EBELN = IT_EKKO-EBELN.
    IF SY-SUBRC = 0.
      LOOP AT IT_EKKO.
       LOOP AT IT_EKPO.
        SELECT  KNUMV KSCHL KAWRT KBETR KPOSN
                FROM KONV
                INTO IT_KONV
                WHERE KNUMV = IT_EKKO-KNUMV
                AND KPOSN = IT_EKPO-EBELP.
          APPEND IT_KONV.
        ENDSELECT.
      ENDLOOP.
    ENDLOOP.
    ENDIF." END OF IF FOR CHECK OF SY-SUBRC
       SELECT  LIFNR NAME1 STRAS ORT01 PSTLZ LAND1
               INTO TABLE IT_LFA1
               FROM LFA1
               FOR ALL ENTRIES IN IT_EKKO
               WHERE LIFNR = IT_EKKO-LIFNR.
    ENDIF." END OF IF FOR IT_EKKO IS NOT INITIAL
    endform.                    " SELECT_DATA
    *&      Form  DISPLAY_DATA
          DISPLAY THE BASIC DATA
    form DISPLAY_DATA.
      DATA: LINNO TYPE I.
      SORT IT_EKKO BY BUKRS LIFNR EBELN.
      LOOP AT IT_EKKO.
        READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.
        SELECT SINGLE BUTXT
                      FROM T001
                      INTO (V_BUTXT)
                      WHERE BUKRS = IT_EKKO-BUKRS.
        WRITE:/1 SY-VLINE,
                (10) IT_EKKO-EBELN HOTSPOT ON,
                  SY-VLINE,
                (10) IT_EKKO-LIFNR HOTSPOT ON,
                  SY-VLINE,
                (15) IT_LFA1-NAME1 HOTSPOT ON,
                   SY-VLINE,
                (10) IT_EKKO-BUKRS HOTSPOT ON,
                  SY-VLINE,
                (15) V_BUTXT,
                 75 SY-VLINE.
                 HIDE: IT_EKKO-EBELN,
                       IT_EKKO-LIFNR.
         WRITE:/1(75) SY-ULINE.
        AT END OF LIFNR.
          LINNO = SY-LINCT - SY-LINNO - 1.
          SKIP LINNO.
        ENDAT.
      ENDLOOP.
    endform.                    " DISPLAY_DATA
    *&      Form  DISPLAY_SEC3
    form DISPLAY_SEC3.
      LOOP AT IT_EKPO.
         CLEAR: IT_EKPO, IT_KONV.
       READ TABLE IT_EKPO WITH KEY EBELN = IT_EKKO-EBELN.
        IF SY-SUBRC = 0.
              FORMAT COLOR 3.
              WRITE:/1 SY-VLINE,
                    (10) IT_EKPO-EBELN,
                    SY-VLINE,
                    (10) IT_EKPO-EBELP,
                    SY-VLINE,
                    (18) IT_EKPO-MATNR,
                    SY-VLINE,
                    (10) IT_EKPO-INFNR,
                    SY-VLINE,
                    (15) IT_EKPO-MENGE,
                    SY-VLINE,
                    (10) IT_EKPO-MEINS,
                     SY-VLINE,
                    (12) IT_EKPO-NETPR,
                      105  SY-VLINE.
               FORMAT COLOR OFF.
              WRITE:/1(105) SY-ULINE.
              FORMAT COLOR 4.
        READ TABLE IT_KONV WITH KEY KPOSN = IT_EKPO-EBELP.
         IF SY-SUBRC = 0.
          WRITE:/1 SY-VLINE,
               (10) IT_KONV-KNUMV,
               SY-VLINE,
               (10) IT_KONV-KSCHL,
               SY-VLINE,
               (15) IT_KONV-KAWRT,
               SY-VLINE,
               (12) IT_KONV-KBETR,
               SY-VLINE.
          WRITE:/1(95) SY-ULINE.
         FORMAT COLOR OFF.
       ENDIF.
    ENDIF.
    ENDLOOP.
    endform.                    " DISPLAY_SEC3
    *&      Form  DISPLAY_SEC1
         TO CALL TRANSACTION ME23
    form DISPLAY_SEC1.
    SET PARAMETER ID 'BES' FIELD IT_EKKO-EBELN.
    CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
    endform.                    " DISPLAY_SEC1
    *&      Form  WRITE_HEADER
            HEADER DISPLAY
    form WRITE_HEADER.
    FORMAT COLOR 3.
    WRITE:/1 SY-VLINE,
                (10) 'PUR.ORDER',
                  SY-VLINE,
                (10) 'VENDOR',
                  SY-VLINE,
                (15) 'NAME',
                   SY-VLINE,
                (10) 'COMP.CODE',
                  SY-VLINE,
                (15) 'COMP.DESC',
                 75 SY-VLINE.
    WRITE:/1(75) SY-ULINE.
    FORMAT COLOR OFF.
    endform.                    " WRITE_HEADER
    *&      Form  WRITE_FOOTER
    FOOTER OF LIST
    form WRITE_FOOTER.
    FORMAT COLOR 4.
    WRITE: /1 'USER:',SY-UNAME,
            45 'DATE:', SY-DATUM.
    FORMAT COLOR OFF.
    endform.                    " WRITE_FOOTER
    *&      Form  WRITE_HEADER2
             HEADER FOR SECONDARY LIST
    form WRITE_HEADER2.
          FORMAT COLOR 4.
          WRITE: /30 'INTELLIGROUP ASIA PVT LTD' CENTERED.
          WRITE:/50  'HYDERABAD' CENTERED.
              FORMAT COLOR 5.
               WRITE:/1 SY-VLINE,
                    (10) 'PUR.ORDR',
                    SY-VLINE,
                    (10) 'ITEM',
                    SY-VLINE,
                    (18) 'MATERIAL NUMBER',
                    SY-VLINE,
                    (10) 'INFO.RECD',
                    SY-VLINE,
                    (15) 'QUANTITY',
                    SY-VLINE,
                    (10) 'UNITS',
                     SY-VLINE,
                    (12) 'NETPRICE',
                      105  SY-VLINE.
               FORMAT COLOR OFF.
              WRITE:/1(105) SY-ULINE.
               FORMAT COLOR 6.
               WRITE:/1 SY-VLINE,
               (10) 'COND.RECD',
               SY-VLINE,
               (10) 'TYPE',
               SY-VLINE,
               (15) 'BASE VALUE',
               SY-VLINE,
               (12) 'AMOUNT',
               SY-VLINE.
               FORMAT COLOR OFF.
          WRITE:/1(95) SY-ULINE.
    endform.                    " WRITE_HEADER2
    *&      Form  DISPLAY_SEC2
       TO DISPLAY VENDOR DETAILS IN POP UP WINDOW
    form DISPLAY_SEC2.
    READ TABLE IT_LFA1 WITH KEY LIFNR = IT_EKKO-LIFNR.
    IF SY-SUBRC = 0.
      WRITE:/   'NAME IS:' ,   IT_LFA1-NAME1,
            /   'STREET IS:',  IT_LFA1-STRAS,
            /   'CITY  IS:',   IT_LFA1-ORT01,
            /   'POSTEL CODE IS:',IT_LFA1-PSTLZ,
            /   'COUNTRY IS: ', IT_LFA1-LAND1.
      WINDOW STARTING AT 1  15
             ENDING   AT 50 20.
    ENDIF.
    endform.                    " DISPLAY_SEC2
    *&      Form  VALIDATE
      VALIDATE BUKRS
    form VALIDATE.
    SELECT SINGLE *
                FROM T001
                WHERE BUKRS IN S_BUKRS.
    IF SY-SUBRC <> 0.
      MESSAGE E001.
    ENDIF.
    endform.                    " VALIDATE
    Thanks & regards
    Sreenivasulu P

  • How can i give two tcode in same program

    Hi all,
    How can I give two tcode to the same program in which two conditions call in that two t codes
    how can I do so please help me for that.
    Ketan
    ABAP consultant

    hi,
    In your case, if the calling of the two transactions is mutually exclusive,
    then
    IF
    call transaction 'A'.
    else.
    Call transaction 'B'.
    endif.
    else,
    if you need to call the transactions one after the other,
    CALL TRANSACTION 'A'.
    CALL TRANSACTION 'B'.
    Thanks
    Sharath

Maybe you are looking for