ABAP code to get MM Movement Types into BI

Question

Hi All,
I need help in ABAP code to extract data on MM tables for Purchase Price Variance Raw Material. I'm getting material documents for all reversals 102 movement type and not extracting followed up 544 or 543 values for same documents. I don't have much idea about ABAP in depth.
program using BSIS, BKPF , EKBE, MSEG, MKPF, EKPO tables to extract data.
See below pieces of code from program.
DATA: TEMP_AWKEY LIKE BKPF-AWKEY,
      YEAR(4) TYPE N,
      WRX_AMT TYPE BSEG-DMBTR,
      PRD_AMT TYPE BSEG-DMBTR,
      WP_AMT TYPE BSEG-DMBTR,
      QTY TYPE BSEG-MENGE,
      I_BSIS_WA TYPE I_BSIS_TYPE,
      MATDOC TYPE MSEG-MBLNR,
      MATDOC_YEAR TYPE MSEG-MJAHR,
      PERIOD(2) TYPE N.
DATA:
            ITAB_MSEG TYPE HASHED TABLE OF ITAB_MSEG_TYPE WITH UNIQUE KEY MBLNR MJAHR ZEILE WITH HEADER LINE INITIAL SIZE 0,
      ITAB_MSEG2 TYPE HASHED TABLE OF ITAB_MSEG_TYPE WITH UNIQUE KEY MBLNR MJAHR ZEILE WITH HEADER LINE INITIAL SIZE 0,
READ TABLE ITAB_BSEG WITH TABLE KEY BUKRS = I_BSIS-BUKRS BELNR = I_BSIS-BELNR GJAHR = I_BSIS-GJAHR BUZEI = I_BSIS-BUZEI  .
      IF SY-SUBRC EQ 0.
        MOVE :
           ITAB_BSEG-MEINS TO I_BSIS-MEINS,
           ITAB_BSEG-SHKZG TO I_BSIS-SHKZG,
           ITAB_BSEG-MATNR TO I_BSIS-MATNR,
           ITAB_BSEG-WERKS TO I_BSIS-WERKS,
           ITAB_BSEG-MENGE TO I_BSIS-MENGE,
           ITAB_BSEG-BEWAR TO I_BSIS-BEWAR,
           ITAB_BSEG-DMBTR TO I_BSIS-DMBTR,
           ITAB_BSEG-KTOSL TO I_BSIS-KTOSL,
           ITAB_BSEG-XREF3 TO I_BSIS-XREF3,
           ITAB_BSEG-PEINH TO I_BSIS-PEINH,
           ITAB_BSEG-EBELN TO I_BSIS-EBELN,
           ITAB_BSEG-EBELP TO I_BSIS-EBELP.
       IF ITAB_BSEG-SHKZG = 'H' .
         I_BSIS-DMBTR = I_BSIS-DMBTR * -1.
         ITAB_BSEG-DMBTR = ITAB_BSEG-DMBTR * -1.
       ENDIF.
IF NOT I_BSIS[] IS INITIAL.
      SELECT * FROM MSEG
      INTO CORRESPONDING FIELDS OF TABLE ITAB_MSEG
      FOR ALL ENTRIES IN I_BSIS
      WHERE MBLNR = I_BSIS-MATDOC
      AND   MJAHR = I_BSIS-MATDOC_YEAR
      ORDER BY PRIMARY KEY.
     LOOP AT ITAB_MSEG.
       LOOP AT I_BSIS WHERE MATDOC = I_MSEG_WE-MBLNR. "AND MATDOC_YEAR = I_MSEG_WE-MJAHR.
         MOVE :
            ITAB_MSEG-BWART TO I_BSIS-BWART.
         MODIFY I_BSIS TRANSPORTING BWART.
       ENDLOOP.
     ENDLOOP.
IF WA_ZBW_MM_PPVCALC-BWART = '    '.
MATDOC_YEAR = WA_ZBW_MM_PPVCALC-AWKEY+10(4).
     MATDOC = WA_ZBW_MM_PPVCALC-AWKEY(10).
      SELECT * FROM MSEG
      INTO CORRESPONDING FIELDS OF TABLE ITAB_MSEG2
     FOR ALL ENTRIES IN I_BSIS
      WHERE MBLNR = MATDOC
      AND   MJAHR = MATDOC_YEAR
      ORDER BY PRIMARY KEY.
  LOOP AT ITAB_MSEG2.
  WA_ZBW_MM_PPVCALC-BWART = ITAB_MSEG2-BWART.
  ENDLOOP.
  ENDIF.
Please let me know where I need to change the logic to pick all movement types documents.
Thanks,
SAP_BI_AP
Edited by: SAP_BI_AP on Jun 23, 2010 10:35 PM

Answer 1

Hi
There is one std tcode COOIS where u can get the information what u have asked
Pls check
regards
Vijay