Help me on this report

Question

Hi Guys,
can u please help on this report.
The out put which is showing is incorrect for the following report.
Just check with the matnr as 100-100
& plant as 1000.
The out put is showing wrong.
Just check that in se16 for the same matnr & plant
the stock details is 2 records but it is showing only one record.
send me reply immedeately.
Iam sending the code pls check this and give me the reply.
*& Report  ZSTOCKDETAILS4                                              *
REPORT  zstockdetails4         NO STANDARD PAGE HEADING
                               LINE-SIZE 100
                               LINE-COUNT 60(3).
              tables declaration                 *
TABLES : mara,        "general material data
         marc,        "plant data for material
         mard,        "storage location data for material
         makt.        "material description
             internal table declaration             *
TYPES : BEGIN OF ty_mara,
        matnr TYPE matnr,
        END OF ty_mara.
TYPES : BEGIN OF ty_marc,
        matnr TYPE matnr,
        werks TYPE werks,
        END OF ty_marc.
TYPES : BEGIN OF ty_mard,
        matnr TYPE matnr,
        werks TYPE werks,
        lgort TYPE lgort_d,
        labst TYPE labst,
        END OF ty_mard.
TYPES : BEGIN OF ty_makt,
        matnr TYPE matnr,
        maktx TYPE maktx,
        END OF ty_makt.
DATA:t_mara TYPE TABLE OF ty_mara WITH HEADER LINE,
     t_marc TYPE TABLE OF ty_marc WITH HEADER LINE,
     t_mard TYPE TABLE OF ty_mard WITH HEADER LINE,
     t_makt TYPE TABLE OF ty_makt WITH HEADER LINE.
                final internal table                    *
TYPES : BEGIN OF ty_out,
        werks TYPE werks,
        lgort TYPE lgort_d,
        matnr TYPE matnr,
        maktx TYPE maktx,
        labst TYPE labst,
        END OF ty_out.
DATA:t_out TYPE TABLE OF ty_out WITH HEADER LINE.
              selection screen                                 *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR mara-matnr OBLIGATORY,
                 s_werks FOR marc-werks.
SELECTION-SCREEN END OF BLOCK b1.
             start-of-selection                                 *
START-OF-SELECTION.
  SELECT matnr
              FROM mara
                INTO TABLE t_mara
                 WHERE matnr IN s_matnr.
  SELECT matnr werks
              FROM marc
              INTO TABLE t_marc
              FOR ALL ENTRIES IN t_mara
              WHERE matnr = t_mara-matnr
              AND werks IN s_werks.
  SELECT matnr  lgort labst
            FROM mard
            INTO CORRESPONDING FIELDS OF TABLE t_mard
            FOR ALL ENTRIES IN t_mara
            WHERE matnr = t_mara-matnr.
  SORT : t_mard BY matnr.
  SORT : t_marc BY matnr.
  LOOP AT t_mara.
    READ TABLE t_marc WITH KEY matnr = t_mara-matnr BINARY SEARCH.
    READ TABLE t_mard WITH KEY matnr = t_mara-matnr BINARY SEARCH.
    MOVE : t_mara-matnr TO t_out-matnr.
    MOVE : t_marc-werks TO t_out-werks.
    MOVE : t_mard-lgort TO t_out-lgort.
    MOVE : t_mard-labst TO t_out-labst.
    SELECT SINGLE matnr maktx
                  FROM makt
                  INTO CORRESPONDING FIELDS OF makt
                  WHERE matnr = t_mara-matnr.
    MOVE-CORRESPONDING makt TO t_out.
    APPEND t_out.
    CLEAR t_out.
  ENDLOOP.
  SORT t_out BY werks lgort matnr.
  DATA: tot_lgort TYPE labst,
  tot_werks TYPE labst,
  tot TYPE labst.
  LOOP AT t_out.
    AT NEW werks.
     NEW-PAGE.
    ENDAT.
    NEW-LINE.
    WRITE :/ sy-vline,  t_out-werks,
            15 t_out-lgort,
            35 t_out-matnr,
            60 t_out-maktx,
            70 t_out-labst, 100 sy-vline.
    tot_lgort = tot_lgort + t_out-labst.
    tot_werks = tot_werks + t_out-labst.
    tot = tot + t_out-labst.
    AT END OF lgort.
      ULINE.
      WRITE : / 'THE SUBTOTAL IS', 70 tot_lgort.
      CLEAR tot_lgort.
    ENDAT.
    AT END OF werks.
      ULINE.
      WRITE : / 'THE SUBTOTAL IS', 70 tot_werks.
      CLEAR tot_werks.
    ENDAT.
    AT LAST.
      WRITE : / 'THE GRAND TAOTAL IS', 70 tot.
    ENDAT.
ENDLOOP.
                       TOP-OF-PAGE                            *
TOP-OF-PAGE.
  ULINE.
  WRITE : sy-vline, 'PLANT',
          15 'SLOCATION',
          32 'MATERIAL',
          56 'DESCRIPT',
          80 'STOCK', 100 sy-vline.
  ULINE.

Answer 1

Hi,
  i've made some modifications. try this:
*& Report ZSTOCKDETAILS4 *
REPORT zstockdetails4 NO STANDARD PAGE HEADING
LINE-SIZE 100
LINE-COUNT 60(3).
* tables declaration *
TABLES : mara, "general material data
marc, "plant data for material
mard, "storage location data for material
makt. "material description
* internal table declaration *
TYPES : BEGIN OF ty_mara,
matnr TYPE matnr,
END OF ty_mara.
TYPES : BEGIN OF ty_marc,
matnr TYPE matnr,
werks TYPE werks_d,
END OF ty_marc.
TYPES : BEGIN OF ty_mard,
matnr TYPE matnr,
werks TYPE werks_d,
lgort TYPE lgort_d,
labst TYPE labst,
END OF ty_mard.
TYPES : BEGIN OF ty_makt,
matnr TYPE matnr,
maktx TYPE maktx,
END OF ty_makt.
DATA:t_mara TYPE TABLE OF ty_mara WITH HEADER LINE,
t_marc TYPE TABLE OF ty_marc WITH HEADER LINE,
t_mard TYPE TABLE OF ty_mard WITH HEADER LINE,
t_makt TYPE TABLE OF ty_makt WITH HEADER LINE.
* final internal table *
TYPES : BEGIN OF ty_out,
werks TYPE werks,
lgort TYPE lgort_d,
matnr TYPE matnr,
maktx TYPE maktx,
labst TYPE labst,
END OF ty_out.
DATA:t_out TYPE TABLE OF ty_out WITH HEADER LINE.
* selection screen *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR mara-matnr OBLIGATORY,
s_werks FOR marc-werks.
SELECTION-SCREEN END OF BLOCK b1.
* start-of-selection *
START-OF-SELECTION.
SELECT matnr
FROM mara
INTO TABLE t_mara
WHERE matnr IN s_matnr.
if sy-subrc <> 0.
  message ...........
  exit.
endif.
SELECT matnr werks
FROM marc
INTO TABLE t_marc
FOR ALL ENTRIES IN t_mara
WHERE matnr = t_mara-matnr
AND werks IN s_werks.
if sy-subrc <> 0.
  message ...........
  exit.
endif.
SELECT matnr werks lgort labst
FROM mard
INTO CORRESPONDING FIELDS OF TABLE t_mard
FOR ALL ENTRIES IN t_marc
WHERE matnr = t_marc-matnr
  AND werks = t_marc-werks.
SORT : t_mard BY matnr.
SORT : t_marc BY matnr.
LOOP AT t_mara.
  loop at t_marc where matnr = t_mara-matnr.
    loop at t_mard where matnr = t_marc-matnr
                     and werks = t_marc-werks.
MOVE : t_mara-matnr TO t_out-matnr.
MOVE : t_marc-werks TO t_out-werks.
MOVE : t_mard-lgort TO t_out-lgort.
MOVE : t_mard-labst TO t_out-labst.
SELECT SINGLE matnr maktx
FROM makt
INTO CORRESPONDING FIELDS OF makt
WHERE matnr = t_mara-matnr.
MOVE-CORRESPONDING makt TO t_out.
APPEND t_out.
CLEAR t_out.
    endloop. "MARD
  endloop.   "MARC
ENDLOOP.     "MARA
SORT t_out BY werks lgort matnr.
DATA: tot_lgort TYPE labst,
tot_werks TYPE labst,
tot TYPE labst.
LOOP AT t_out.
AT NEW werks.
* NEW-PAGE.
ENDAT.
NEW-LINE.
WRITE :/ sy-vline, t_out-werks,
15 t_out-lgort,
35 t_out-matnr,
60 t_out-maktx,
70 t_out-labst, 100 sy-vline.
tot_lgort = tot_lgort + t_out-labst.
tot_werks = tot_werks + t_out-labst.
tot = tot + t_out-labst.
AT END OF lgort.
ULINE.
WRITE : / 'THE SUBTOTAL IS', 70 tot_lgort.
CLEAR tot_lgort.
ENDAT.
AT END OF werks.
ULINE.
WRITE : / 'THE SUBTOTAL IS', 70 tot_werks.
CLEAR tot_werks.
ENDAT.
AT LAST.
WRITE : / 'THE GRAND TAOTAL IS', 70 tot.
ENDAT.
ENDLOOP.
* TOP-OF-PAGE *
TOP-OF-PAGE.
ULINE.
WRITE : sy-vline, 'PLANT',
15 'SLOCATION',
32 'MATERIAL',
56 'DESCRIPT',
80 'STOCK', 100 sy-vline.
ULINE.