Assest code wise PO No. Reports

Hi ,
Is there is a report, in which i can enter the multiple assest codes and it will gives me PO no. aginst that assest code.
I had tired ME2K but in that only one assest code allow to enter...
Thanx in advance
Vikrant

Hi,
you try from me2n , here you need to go in triband color icon at the header and select asset number as input.
execute the program.
Regards,
Rajendra D. Sawant.

Similar Messages

  • GL code wise stock value report

    Hi SAP Consultant
    there is report MB5L which provide stock report , i want to take same report against GL code and company code wise but due to large data report is not coming , is there any report or table through which i can take dump .

    Hi,
    Try FAGLB03  and enter GL no
    In the next screen double click it will give all details
    Pl check and reply
    guru

  • F.01 Balance Sheet-Report to see in company code wise

    Hi Experts
    Goodevening
    We are recently upgraded to ECC.6 version of SAP.
    The issue is, when we use Tcode F.01 relating to Balance Sheet Report it is giving the result in Business Area Wise of all the assets and liabilities.
    Is there any possiblility to see the report in company code wise and not the business area wise. since the same asset is displayed in different business area wise.
    eg.,
    21100/1011004  Gross Block - Intangible assets  647,080.00
    21100/1011004 Gross Block - Intangible assets    22,048.00
    21100/1011004 Gross Block - Intangible assets  2,847,283.25
    21100/1011004 Gross Block - Intangible assets 92,040.00 21100/1011005 Gross Block - Plant And Machin75,258,226.67 21100/1011005 Gross Block - Plant And Machin   216,968.87     
              the problem is like above
    now we want to see the report in lumsum, without business area wise.
    pls suggest me how to get the report
    thanks in advance
    warm regards
    kishore

    Dear Kishore,
    While executing in F.01 give all parameters without Business Area and Execute
    Apart from that if you need to additional thing go through dynamic selection in F.01.
    Assign point.........thanks in Advance.
    Rgds
    Madhuri

  • PO (Line Items wise) Payment Status Report

    Hi Friends,
    Is it possible to get a PO (Line Items wise) Payment Status Report.
    My client wants PO Line wise payment status as a MM report development.
    We have Down Payment, Residual & Retention money as a business practise with our vendors
    Following is the MM-FI flow in our company code..
    Create & Release PR u2013 MM - Creating PR
    Create & Release PO (ME21N) u2013 MM u2013 Creating PO
    F-47 Down Payment Request u2013 MM u2013 Creating DPR
    F-48 Post Vendor Down Payment u2013 FI - Posting DPR
    FBZ5 Print Check for Payment Document u2013 FI - For printing cheques for DP only
    MIGO/ML81N, GR u2013 MM u2013 SES/GR for PO
    MIR7/MIR6 IR - MM/FI u2013 Parking & IR
    F-44 Clear Vendor u2013 Linking advance with IR (as residual clearing)
    F-53/F-58 u2013 Posting Payments after deducting Retention
    F-04 Post with Clearing u2013 Clearing Outgoing account entries with Main account
    Thanks in advance.
    Regards,
    Vikrant Sood

    as per my knowledge you can configue a new Z table or prepare a Query using EKPO table you will your desired result.
    regards,
    Ninad Kshirsagar

  • Age-wise Material Stock Report

    Dear Guru,
    Any SAP standard report will show age-wise Material stock. Ex: IF i hv a X material in Stock, i want to know the how many days it was in production and how many days in finished stock like that.
    <b>Any reports which are similar to Age-wise customer/vendor report which relates to material</b>
    Regards,
    Venkat

    Hi,
    Try T.Code MC50 and MC46.
    Regards,
    Sachendra Singh

  • Re Supplier wise Quality Analysis Report

    Hi Gurus,
    In my project for QM module we have one report "Supplier wise Quality Analysis". For this inspection lot is restricted with 01 type. Now the issue is in the report it is showing rejected material (i.e Code Group- GR, UD Code - 005 ) l.... I have restricted the code group wirh GR and code with accepted UD Code (001,002,003,004) at query level . But still i am getting rejected lot in my report.. So please explain me what to do to stop the Rejected material in Supplier(Vendor) wise qulaity analysis report...
    Thanks in Advance
    Srinivas.M

    Hi,
    Instead of including UD codes 01,02, 03, 04 try to exclude the code 05 might help you

  • Project code  wise aging

    dear   expert all
    parameter    from date  to to date , project code
      one of my client requriment  i have  need   project  code wise  aging report .
    send  me the query.

    Hi Zal....
    Very Good Afternoon.........
              The question was simple. Sinha was simply asking about the Project code wise aging report. If I'm not wrong then for every marketing document level, on header level as well as on row level the project code field is there with the help of which we can categorise the transactions. So if sinha is doing billing as per the project code then he can get the project code wise aging report.
    Even you can get the project code wise trial balance sheet also............
    Regards,
    Rahul

  • Accounts Receivable Report: Customer Wise Ageing Analysis report -FI module

    Hi Gurus,
                 Can anyone help me in providing standard report(source code) or already done sample report(source code) for Accounts Receivable Report: Customer Wise Ageing AnalysisThis is in FI Module. Though it is FI Module we need to fetch details related to Sales Module, and the days should be <0     30     60     90     120     180     365     >365     
    It is urgent I need to deliver this report by this week end.
    Please help me . Waiting for your reply.
    Points Rewarded for help rendered and I would personally send a good gift if you can help me
    Yours Truly,
    Rajiv Christopher.
    Edited by: Rajiv Christopher on Apr 2, 2008 11:33 AM

    Hi,
    i am attaching aging report.
    see if this is useful to you.
    REPORT ZFUS0102 MESSAGE-ID OA
                    LINE-SIZE 270.
    Title:      GR/IR AGING REPORT
    Date:       January 2001
    TABLES: DISVARIANT, EKPO.
    TYPE-POOLS: SLIS.
    Tables
    TABLES:
      BSIS,
      EKKO.
    working table
    DATA:  BEGIN OF RTAB OCCURS 0,
             HKONT   LIKE BSIS-HKONT,
             ZUONR   LIKE BSIS-ZUONR,
             BUDAT   LIKE BSIS-BUDAT,
             SHKZG   LIKE BSIS-SHKZG,
             DMBTR   LIKE BSIS-DMBTR,
             PRCTR   LIKE BSIS-PRCTR,
          END OF RTAB.
    DATA: BEGIN OF WTAB OCCURS 0,
             ZUONR(2) TYPE N,
             PRCTR   LIKE BSIS-PRCTR,
             DAYS(4)  TYPE P,
             DMBTR   LIKE BSIS-DMBTR,
          END OF WTAB.
    DATA: BEGIN OF PTAB OCCURS 0,
             ZUONR(2),
             PRCTR   LIKE BSIS-PRCTR,
             AMT30   LIKE BSIS-WRBTR,
             AMT60   LIKE BSIS-WRBTR,
             AMTPL   LIKE BSIS-WRBTR,
             TOTAL   LIKE BSIS-WRBTR,
          END OF PTAB.
    PARAMETERS:  COMPANY LIKE BSIS-BUKRS OBLIGATORY,
                 ACCT    LIKE BSIS-HKONT OBLIGATORY,
                 DATE    LIKE SY-DATUM OBLIGATORY.
    SELECT-OPTIONS: S_EKORG FOR EKKO-EKORG.
    PARAMETERS: P_VARI LIKE DISVARIANT-REPORT.
    DATA: WS-AMT30 LIKE BSIS-WRBTR.
    DATA: WS-AMT60 LIKE BSIS-WRBTR.
    DATA: WS-AMTPL LIKE BSIS-WRBTR.
    DATA: TITLE(21) VALUE 'GR/IR Aging Report'.
    DATA: LIN TYPE I.
    DATA: GX_VARIANT LIKE DISVARIANT,
          G_VARIANT LIKE DISVARIANT.
    DATA:  LAYOUT   TYPE SLIS_LAYOUT_ALV,
           L_F      TYPE SLIS_T_FIELDCAT_ALV   WITH HEADER LINE,
           GROUP    TYPE SLIS_T_SP_GROUP_ALV   WITH HEADER LINE,
           COLOR    TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
    DATA:  LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
           LS_LINE TYPE SLIS_LISTHEADER,
           T_EVENTS   TYPE SLIS_T_EVENT.
    CONSTANTS: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
    INITIALIZATION.
      PERFORM EVENTTAB_AUFBAUEN USING T_EVENTS[].
      PERFORM VARIANT_INIT.
    Get default variant
      GX_VARIANT = G_VARIANT.
      CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
           EXPORTING
                I_SAVE     = 'A'
           CHANGING
                CS_VARIANT = GX_VARIANT
           EXCEPTIONS
                NOT_FOUND  = 2.
      IF SY-SUBRC = 0.
        P_VARI = GX_VARIANT-VARIANT.
      ENDIF.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
      PERFORM VARIANT_INPUTHELP_F14.
    START-OF-SELECTION.
      LS_LINE-TYP  = 'S'.
      WRITE SY-DATUM TO LS_LINE-INFO DD/MM/YY.
      WRITE SY-UZEIT TO LS_LINE-INFO+10.
      WRITE SY-UNAME TO LS_LINE-INFO+20.
      WRITE TITLE    TO LS_LINE-INFO+30.
      APPEND LS_LINE TO LT_TOP_OF_PAGE.
      PERFORM FIELDS.
      IF NOT P_VARI IS INITIAL.
        PERFORM PAI_OF_SELECTION_SCREEN.
      ELSE.
        CALL FUNCTION 'REUSE_ALV_VARIANT_SELECT'
             EXPORTING
                  I_DIALOG            = ' '
                  I_USER_SPECIFIC     = 'A'
                  I_DEFAULT           = ' '
            I_TABNAME_HEADER    =
            I_TABNAME_ITEM      =
                  IT_DEFAULT_FIELDCAT = L_F[]
                  I_LAYOUT            = LAYOUT
             IMPORTING
            E_EXIT              =
                  ET_FIELDCAT         = L_F[]
            ET_SORT             =
            ET_FILTER           =
             CHANGING
                  CS_VARIANT          = DISVARIANT
             EXCEPTIONS
                  WRONG_INPUT         = 1
                  FC_NOT_COMPLETE     = 2
                  NOT_FOUND           = 3
                  PROGRAM_ERROR       = 4
                  OTHERS              = 5.
      ENDIF.
    Decide which tables to access.
      PERFORM MAIN_SELECT.
      MOVE TITLE  TO LAYOUT-WINDOW_TITLEBAR.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
           EXPORTING
                I_CALLBACK_PROGRAM      = 'ZFUS0102'
                I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
                IS_LAYOUT               = LAYOUT
                IT_FIELDCAT             = L_F[]
                IT_SPECIAL_GROUPS       = GROUP[]
                I_SAVE                  = 'A'
                IS_VARIANT              = G_VARIANT
                IT_EVENTS               = T_EVENTS
           TABLES
                T_OUTTAB                = PTAB
           EXCEPTIONS
                PROGRAM_ERROR           = 1
                OTHERS                  = 2.
          FORM FIELDS                                                   *
    FORM FIELDS.
      L_F-FIELDNAME     = 'ZUONR'.
      L_F-OUTPUTLEN     = 6.
      L_F-SELTEXT_L     = 'SERIES'.
      L_F-REPTEXT_DDIC  = 'SERIES'.
      L_F-REF_TABNAME   = 'PTAB'.
      L_F-SP_GROUP      = 'A'.
      APPEND L_F. CLEAR L_F.
      L_F-FIELDNAME     = 'PRCTR'.
      L_F-OUTPUTLEN     = 10.
      L_F-SELTEXT_L     = 'PROFIT CTR.'.
      L_F-REPTEXT_DDIC  = 'PROFIT CTR.'.
      L_F-REF_TABNAME   = 'PTAB'.
      L_F-SP_GROUP      = 'A'.
      APPEND L_F. CLEAR L_F.
      L_F-FIELDNAME     = 'AMT30'.
      L_F-SELTEXT_L     = '30 DAYS'.
      L_F-REPTEXT_DDIC  = '30 DAYS'.
      L_F-REF_TABNAME   = 'PTAB'.
      L_F-SP_GROUP      = 'A'.
      L_F-REF_TABNAME   = 'BSIS'.
      L_F-REF_FIELDNAME = 'WRBTR'.
      L_F-DO_SUM        = 'X'.
      APPEND L_F. CLEAR L_F.
      L_F-FIELDNAME     = 'AMT60'.
      L_F-SELTEXT_L     = '60 DAYS'.
      L_F-REPTEXT_DDIC  = '60 DAYS'.
      L_F-REF_TABNAME   = 'PTAB'.
      L_F-SP_GROUP      = 'A'.
      L_F-REF_TABNAME   = 'BSIS'.
      L_F-REF_FIELDNAME = 'WRBTR'.
      L_F-DO_SUM        = 'X'.
      APPEND L_F. CLEAR L_F.
      L_F-FIELDNAME     = 'AMTPL'.
      L_F-SELTEXT_L     = '60+ DAYS'.
      L_F-REPTEXT_DDIC  = '60+ DAYS'.
      L_F-REF_TABNAME   = 'PTAB'.
      L_F-SP_GROUP      = 'A'.
      L_F-REF_TABNAME   = 'BSIS'.
      L_F-REF_FIELDNAME = 'WRBTR'.
      L_F-DO_SUM        = 'X'.
      APPEND L_F. CLEAR L_F.
      L_F-FIELDNAME     = 'TOTAL'.
      L_F-SELTEXT_L     = 'TOTAL'.
      L_F-REPTEXT_DDIC  = 'TOTAL'.
      L_F-REF_TABNAME   = 'PTAB'.
      L_F-SP_GROUP      = 'A'.
      L_F-REF_TABNAME   = 'BSIS'.
      L_F-REF_FIELDNAME = 'WRBTR'.
      L_F-DO_SUM        = 'X'.
      APPEND L_F. CLEAR L_F.
    ENDFORM.
          FORM MAIN_SELECT                                              *
    FORM MAIN_SELECT.
      SELECT HKONT ZUONR BUDAT SHKZG DMBTR PRCTR
           INTO TABLE RTAB
           FROM BSIS
           WHERE BUKRS = COMPANY
           AND   HKONT = ACCT.
      IF SY-SUBRC = 0.
        SORT RTAB.
        PERFORM PROCESS_RTAB.
        PERFORM PROCESS_WTAB.
      ENDIF.
    ENDFORM.                    " MAIN SELECT
          FORM VARIANT_INPUTHELP_F14                                    *
    FORM VARIANT_INPUTHELP_F14.
      DATA:  G_EXIT(1) TYPE C.
      CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
           EXPORTING
                IS_VARIANT          = G_VARIANT
                I_SAVE              = 'A'  " g_save
              it_default_fieldcat =
           IMPORTING
                E_EXIT              = G_EXIT
                ES_VARIANT          = GX_VARIANT
           EXCEPTIONS
                NOT_FOUND = 2.
      IF SY-SUBRC = 2.
        MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ELSE.
        IF G_EXIT = SPACE.
          P_VARI = GX_VARIANT-VARIANT.
        ENDIF.
      ENDIF.
    ENDFORM.
          FORM USER_COMMAND                                             *
    -->  UCOMM                                                         *
    -->  SELFIELD                                                      *
    FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE
    SLIS_SELFIELD.
      IF UCOMM EQ '&IC1'.
        IF SELFIELD-TABINDEX <= 0.
          MESSAGE S108.
          EXIT.
        ENDIF.
      IF SELFIELD-SEL_TAB_FIELD CS 'LIFNR'.
        SET PARAMETER ID 'LIF' FIELD SELFIELD-VALUE.
        CALL TRANSACTION 'XK02'.
      ELSE.
        IF SELFIELD-SEL_TAB_FIELD CS 'VEND'.
          SET PARAMETER ID 'LIF' FIELD SELFIELD-VALUE.
          CALL TRANSACTION 'FBL1'.
        ENDIF.
      ENDIF.
        CLEAR SY-UCOMM. CLEAR UCOMM.
      ENDIF.
    ENDFORM.
          FORM TOP_OF_PAGE                                              *
    FORM TOP_OF_PAGE.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
           EXPORTING
                IT_LIST_COMMENTARY = LT_TOP_OF_PAGE.
    ENDFORM.
          FORM EVENTTAB_AUFBAUEN                                        *
    -->  P_T_EVENTS                                                    *
    FORM EVENTTAB_AUFBAUEN USING P_T_EVENTS TYPE SLIS_T_EVENT.
      DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
           EXPORTING
                I_LIST_TYPE = 0
           IMPORTING
                ET_EVENTS   = P_T_EVENTS.
      READ TABLE P_T_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                                                     INTO LS_EVENT.
      IF SY-SUBRC = 0.
        MOVE FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
        APPEND LS_EVENT TO P_T_EVENTS.
      ENDIF.
    ENDFORM.                               " EVENTTAB_AUFBAUEN
          FORM PAI_OF_SELECTION_SCREEN                                  *
    FORM PAI_OF_SELECTION_SCREEN.
      IF NOT P_VARI IS INITIAL.
        MOVE G_VARIANT TO GX_VARIANT.
        MOVE P_VARI TO GX_VARIANT-VARIANT.
        CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
             EXPORTING
                  I_SAVE     = 'A'  " g_save
             CHANGING
                  CS_VARIANT = GX_VARIANT.
        G_VARIANT = GX_VARIANT.
      ELSE.
        PERFORM VARIANT_INIT.
      ENDIF.
    ENDFORM.                               " PAI_OF_SELECTION_SCREEN
          FORM VARIANT_INIT                                             *
    FORM VARIANT_INIT.
      CLEAR G_VARIANT.
      G_VARIANT-REPORT = 'ZFUS0102'.
    ENDFORM.                               " VARIANT_INIT
    *&      Form  PROCESS_RTAB
          text
    -->  p1        text
    <--  p2        text
    FORM PROCESS_RTAB.
      DATA TLNS TYPE I.
      DESCRIBE TABLE S_EKORG LINES TLNS.
      LOOP AT RTAB.
        IF TLNS GT 0.
          SELECT SINGLE EKORG FROM EKKO INTO EKKO-EKORG
            WHERE EBELN = RTAB-ZUONR(10).
          CHECK EKKO-EKORG IN S_EKORG.
        ENDIF.
        IF NOT RTAB-BUDAT > DATE.
          MOVE RTAB-ZUONR(2) TO WTAB-ZUONR.
          COMPUTE WTAB-DAYS = DATE - RTAB-BUDAT.
          IF RTAB-SHKZG = 'H'.
            WTAB-DMBTR = RTAB-DMBTR * -1.
          ELSE.
            WTAB-DMBTR = RTAB-DMBTR * 1.
          ENDIF.
          MOVE RTAB-PRCTR TO WTAB-PRCTR.
          APPEND WTAB.
        ENDIF.
      ENDLOOP.
      FREE RTAB.
    ENDFORM.                    " PROCESS_RTAB
    *&      Form  PROCESS_WTAB
          text
    -->  p1        text
    <--  p2        text
    FORM PROCESS_WTAB.
      SORT WTAB BY ZUONR PRCTR DAYS.
      LOOP AT WTAB.
        PTAB-ZUONR = WTAB-ZUONR.
        PTAB-PRCTR = WTAB-PRCTR.
        AT END OF DAYS.
          SUM.
          IF WTAB-DAYS > 60.
            WS-AMTPL = WS-AMTPL + WTAB-DMBTR.
          ELSE.
            IF WTAB-DAYS > 30.
              WS-AMT60 = WS-AMT60 + WTAB-DMBTR.
            ELSE.
              WS-AMT30 = WS-AMT30 + WTAB-DMBTR.
            ENDIF.
          ENDIF.
        ENDAT.
        AT END OF PRCTR.
          PTAB-AMTPL = WS-AMTPL.
          PTAB-AMT30 = WS-AMT30.
          PTAB-AMT60 = WS-AMT60.
          COMPUTE PTAB-TOTAL = PTAB-AMTPL + PTAB-AMT30 + PTAB-AMT60.
          APPEND PTAB.
          WS-AMTPL = 0.
          WS-AMT30 = 0.
          WS-AMT60 = 0.
        ENDAT.
      ENDLOOP.
      SORT PTAB BY ZUONR PRCTR.
    ENDFORM.                    " PROCESS_WTAB
    regards,
    Sindhu

  • Vendor list by company code wise with Acoount group..?

    Dear all
      Can anybody expalin me how to get a report on vendors list by company codes wise with account group...
    1.List of vendors company codes wise
    2.List of vendors company codes wise with account group wise.
    Thanks
    sap-mm

    1.List of vendors company codes wise
    SAP Easy accessSAP Menu-accounting-financial accounting-vendors-information system-reports for account payable accounting-master data-S_ALR_87012086-VENDOR LIST
    2.List of vendors company codes wise with account group wise
    MKVZ
    Regards,
    Indranil

  • Tax code wise balances in different G/L accounts

    Dear All
    My customer requires a report where he can see tax code wise balances that can exist in different G/L accounts. In the input screen if we enter tax code then in the output screen the respective G/L accounts with the amount credited should appear. We are planning to develop a BI report for the same. Can anybody suggest the related tables and the logic to be used to develop the said report. Your inputs and suggestions will be appreciated.
    Thanks in advacne.

    Thank you for your inputs.
    The suggested reports S_ALR_87012357 does not give output G/L code wise and i think there is no standard report that suffices my requirement. BSET table can do the needful if i am goin for a Z report. But as we are preparing a BI report i need some Equivalent data in BI and the approach to be followed for making a BI report for the said requirement.

  • Project wise Trial Balance Report

    Dear All
    Could u plz help me in this regard
    How to select "Project" in Trail Balance Report?
    I want to generate Project wise Trail Balance Report.
    Thanks & Regards
    KISHAN

    Hi,
    Goto the Financials Module > Financial Reports > Financial > Trial Balance - Selection Creteria.
    You will see a button Expanded. Click on it and in the window opened, enter the project code in the Project field appearing and run the report to get the desired result.
    Kind Regards,
    Jitin
    SAP Business One Forum Team

  • Company code wise material with quantity table

    Hi
    I need Table for company code wise material with quantity to check 2009 stock which is issued.
    thanks
    Edited by: pandu123 on Aug 17, 2011 1:21 AM

    Hi,
    There is no table which shows  direct relation between company code and plant, you will have to arrive at the assignment of the plants to the company code.
    But you can either write a query/ report to show this relation and a report with this relation and quanity will have performance issues if you are checking for huge data.
    You can refer to the query and check the quantity in the standard reports.

  • Account Code & Name in XL Reporter

    Dear,
    I want to fetch the Account Code & Account Name in XL Reporter.
    So please help me for this issue.
    i use  =ixDimGet("FIG", "BatchNum_0") formula
    but it's give me the 0 as Account Code.

    Dear Shwu,
    Thanks for reply.
    But i want the display Account & name wise whole Purchase report.
    For example,
    if Purchase Invoice No  : 5 & Item No : 10 (Acct Code : 101),11(Acct Code : 102)
    Purchase Invoice No : 6 & Item No : 10(Acct Code : 101),12 (Acct Code : 103)
    so now report will be diplay as below format.
    Acct Code  Purchase DocNo Item No
    101
                           5                          10   
                           6                          10

  • How to find out T code wise BADI and userexits

    Hi,
    Is there any standard way of finding out the BADIs and User exits Tcode wise.
    regards,
    Kannan.

    Hi,
    Use the following program to get the T code wise BADI and user exits.
    *& Report  ZSD_FINDEXIT_BADI                                           *
    REPORT  ZUSEREXIT                      .
    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.
    Hope this will help u.
    regards,
    Naidu
    Edited by: KANNAN on Apr 13, 2009 1:44 PM

  • Total records in IT0000 company code wise - SE16N

    Hello All,
    I need to check the total number of records in IT0000 for employees belonging to a particular company codes or personnel area. But there shouldn't be any duplicate entry for a personnel number in the total records.
    In SE16N I am able to get an entire list but not company code wise. Is there any way I can generate the  total no records in each infotype, on the basis of company code or personnel areas?
    Regards,
    Ally

    1 - If you have activated Complementary Measures, you should look at table PA0302 instead of table PA0000.
    2 - As mentioned by Pedro, se16n will not allow you to get what you require in a single step.  An Ad Hoc Query could probably allow you to create the report you want.
    3 - Should you be able to get lists of employee numbers "on the basis of company code or personnel areas" (possibly using se16n to look at table PA0001), then you could use those lists to explore the different infotypes (tables PA0000, PA0002, PA0006, etc...) using se16n, but unless you restrict the output to the records with End Date = 31.12.9999 , you will end up with many records for each employee.

Maybe you are looking for

  • "Blog Summary Widget"  appears after publishing

    In my blog page, I've created entries and can view them fine on iweb. After I publish, all the entries are replaced with the text "Blog Summary Widget". What am I doing wrong here? I have also upgraded to iweb 2.0.1 the page: http://web.mac.com/zc7/H

  • Need Help with DVD recorder (HDMI) to record off DVR

    I purchased a philips dvd recorder a few years ago and need  help in setting up to record my DVR program recordings. The philips user manual is not very helpful being I'm trying to set-up with just using HDMI cables.  I have a HDTV (Vizio) with a HDM

  • Addition of line item values in KP06

    Friends, We are using LSMW to load cost center planning for KP06. My user wants to know if he can give same cost center and cost element combination twice in the excel file with different values and will LSMW totals up the values. Usually it will ove

  • Stolen macbook (and wiped clean and internet)

    Hello, Sorry If this question has beens asked 100 times. But I had recently had my macbook pro stolen. I had find my mac installed and enabled. I understand that for Find My Mac to work the mac needs to be connected to the internet. I know you can wi

  • Any way to throttle photo upload?

    After upgrading to 10.10.3 and Photos, it seems that the upload of my library to iCloud is consuming all of my available bandwidth, to the point where my Mac and any other device in my house has become unusable. In Activity Monitor, nurlsessiond is a