Problem in collect stmt

Question

hi all,
I am doing report in which there is opening stock , closing stock and all movement wise stock.
i am able to do all this for one material but when i am try for more than one material then value of last material is overwrite on other material.
I m using collect stmt to do sum for all movement.
plz help me.

Answer 1

hi all,
plz see my code look like this :
TABLES : MSEG , MKPF , MAKT , MBEW.
DATA : BEGIN OF ITAB OCCURS 0,
        LBKUM LIKE MSEG-LBKUM,
        LBKUM1 LIKE MSEG-LBKUM,
        MAKTX LIKE MAKT-MAKTX,
        LGORT LIKE MSEG-LGORT,
        BWART LIKE MSEG-BWART,
        ZEILE LIKE MSEG-ZEILE,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        MATNR LIKE MSEG-MATNR,
        WERKS LIKE MSEG-WERKS,
        SHKZG LIKE MSEG-SHKZG,
        MBLNR LIKE MKPF-MBLNR,
        BUDAT LIKE MKPF-BUDAT,
        SIGN(2),
        101_102 LIKE MSEG-MENGE,
END OF ITAB.
DATA : BEGIN OF ITAB_TOT OCCURS 0,
        MATNR LIKE MSEG-MATNR,
        LBKUM1 LIKE MSEG-LBKUM,
          TOTAL1 LIKE MSEG-MENGE,
        TOTAL1 TYPE P DECIMALS 3,
        CLO TYPE P DECIMALS 3,
        101_102 LIKE MSEG-MENGE,
END OF ITAB_TOT.
PARAMETERS : WERKS LIKE MSEG-WERKS DEFAULT 'BRHP' OBLIGATORY.
SELECT-OPTIONS : MATNR FOR MSEG-MATNR OBLIGATORY.
SELECT-OPTIONS: DAT  FOR MKPF-BUDAT.
SELECT-OPTIONS: LGORT FOR MSEG-LGORT.
START-OF-SELECTION.
  SELECT DISTINCT  MSEG~MATNR
         MSEG~LGORT
         MSEG~BWART
         MSEG~ZEILE
         MSEG~MENGE
         MSEG~MEINS
         MSEG~WERKS
        MSEG~LBKUM
         MSEG~SHKZG
         MKPF~MBLNR
         MKPF~BUDAT
         INTO CORRESPONDING FIELDS OF TABLE ITAB
         FROM MSEG
         INNER JOIN MKPF ON MSEG~MBLNR = MKPF~MBLNR
         WHERE MSEG~MATNR IN MATNR
        AND MSEG~LGORT IN LGORT
         AND MSEG~WERKS EQ WERKS
         AND mKPF~BUDAT IN DAT
         AND MSEG~ZEILE = 1
         order by mkpf~MBLNR.
LOOP AT ITAB.
    IF ITAB-SHKZG = 'S'.
      ITAB-SIGN = '+'.
      MODIFY ITAB.
    ELSE.
      ITAB-SIGN = '-'.
      MODIFY ITAB.
    ENDIF.
  ENDLOOP.
SORT ITAB BY MATNR.
LOOP AT ITAB.
   IF ITAB-BWART = '121' OR ITAB-BWART = '122' .
      SELECT  MENGE INTO (ITAB-121_122) FROM MSEG  WHERE MATNR =
    ITAB-MATNR
      AND MBLNR = ITAB-MBLNR
      AND LGORT = ITAB-LGORT
      AND WERKS = ITAB-WERKS.
     AND ZEILE = ITAB-ZEILE.
        MODIFY ITAB.
      ENDSELECT.
    ENDIF.
     LOOP AT ITAB.
    IF ITAB-SHKZG = 'H'.
        ITAB-121_122 = ITAB-121_122 * -1.
        MODIFY ITAB.
    ELSE.
        ITAB-121_122 = ITAB-121_122.
        MODIFY ITAB.
     ENDIF.
     ENDLOOP.
  ENDLOOP.
LOOP AT ITAB.
SELECT LBKUM INTO (ITAB-LBKUM) FROM MSEG WHERE MATNR = ITAB-MATNR
and
MBLNR = ITAB-MBLNR AND WERKS = ITAB-WERKS AND ZEILE = 1.
MODIFY ITAB.
ENDSELECT.
ENDLOOP.
SORT ITAB BY  matnr mblnr.
LOOP AT ITAB.
IF ITAB[] IS NOT INITIAL.
DELETE ADJACENT DUPLICATES FROM ITAB COMPARING MATNR .
MOVE ITAB-lBKUM TO ITAB-LBKUM1.
MODIFY ITAB.
*APPEND ITAB_TOT1.
ENDIF.
ENDLOOP.
LOOP AT ITAB .
  MOVE-CORRESPONDING ITAB TO ITAB_TOT.
  COLLECT ITAB_TOT.
ENDLOOP.
loop at itab_tot.
write : / itab_tot-matnr , itab_tot-121_122 , itab-lbkum.
endloop.
i am not getting correct value of 121_122.
what should i do?