How can i collect data form diff. Internal Tables to single main table

Question

hi
   i am using 3 diffrent internal tables for fatching & store data , but when i want to put it on report for display it come in APPENDING MANNER i.e. data from 1 table get displayed , all otther fields remain blank, then data from 2 table appended at bottom , similar for 3 table ,
     but i want the data together.
is there any way by which i can insert data to final table's particular field without effecting all others fields data . ?
please give answer it's urgent

Answer 1

<b>see how data is brought into I_OUT.</b>
REPORT  Y_RK_REPORT_TASK2 LINE-SIZE 180
                          LINE-COUNT 25(8)
                          NO STANDARD PAGE HEADING.
*&                      TABLE DECLARATION                              *
TABLES: MARA,              "GENERAL MASTER DATA
        MARC,              "PLANT DATA FOR MATERIAL
        MARD,              "STORAGE LOCATION DATA FOR MATERIAL
        MBEW,              "MATERIAL VALUATION
        MVKE,              "SALES DATA FOR MATERIAL
        MAKT.              "MATERIAL DESCRIPTION
*&                      INTERNAL TABLE DECLARATION                     *
DATA: BEGIN OF I_MARC OCCURS 0,
          MATNR LIKE MARC-MATNR,
          WERKS LIKE MARC-WERKS,
          LVORM LIKE MARC-LVORM,
          PSTAT LIKE MARC-PSTAT,
      END OF I_MARC.
DATA: BEGIN OF I_MARA OCCURS 0,
           MATNR LIKE MARA-MATNR,
           MBRSH LIKE MARA-MBRSH,
           MEINS LIKE MARA-MEINS,
      END OF I_MARA.
DATA: BEGIN OF I_MAKT OCCURS 0,
           MATNR LIKE MAKT-MATNR,
           MAKTX LIKE MAKT-MAKTX,
      END OF I_MAKT.
DATA: BEGIN OF I_MBEW OCCURS 0,
           MATNR LIKE MBEW-MATNR,
           BWKEY LIKE MBEW-BWKEY,
           BWTAR LIKE MBEW-BWTAR,
           LBKUM LIKE MBEW-LBKUM,
      END OF I_MBEW.
DATA: BEGIN OF I_MVKE OCCURS 0,
           MATNR LIKE MVKE-MATNR,
           VKORG LIKE MVKE-VKORG,
           VTWEG LIKE MVKE-VTWEG,
      END OF I_MVKE.
DATA: BEGIN OF I_MARD OCCURS 0,
           MATNR LIKE MARD-MATNR,
           WERKS LIKE MARD-WERKS,
           LGORT LIKE MARD-LGORT,
           LABST LIKE MARD-LABST,
      END OF I_MARD.
DATA: BEGIN OF I_OUT OCCURS 0,
        MATNR LIKE MARC-MATNR,
        WERKS LIKE MARC-WERKS,
        LVORM LIKE MARC-LVORM,
        PSTAT LIKE MARC-PSTAT,
        MBRSH LIKE MARA-MBRSH,
        MEINS LIKE MARA-MEINS,
        MAKTX LIKE MAKT-MAKTX,
        BWKEY LIKE MBEW-BWKEY,
        BWTAR LIKE MBEW-BWTAR,
        LBKUM LIKE MBEW-LBKUM,
        VKORG LIKE MVKE-VKORG,
        VTWEG LIKE MVKE-VTWEG,
        LGORT LIKE MARD-LGORT,
        LABST LIKE MARD-LABST,
      END OF I_OUT.
*&             A T - 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-101.
PARAMETERS: P_WERKS LIKE MARC-WERKS.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-102.
SELECT-OPTIONS: S_MATNR FOR MARC-MATNR,
                S_LGORT FOR MARD-LGORT.
SELECTION-SCREEN END OF BLOCK B2.
*&                             INITIALIZATION.
INITIALIZATION.
  P_WERKS = '3000'.
  S_MATNR-SIGN = 'I'.
  S_MATNR-OPTION = 'EQ'.
  S_MATNR-LOW = '1'.
  S_MATNR-HIGH = '995'.
  S_LGORT-SIGN = 'I'.
  S_LGORT-OPTION = 'EQ'.
  S_LGORT-LOW = '0001'.
  S_LGORT-HIGH = '0007'.
  APPEND S_LGORT.
  APPEND S_MATNR.
  CLEAR S_MATNR.
  CLEAR S_LGORT.
*&             S T A R T - O F - S E L E C T I O N                     *
START-OF-SELECTION.
     SELECT MATNR WERKS LVORM FROM MARC
                         INTO TABLE I_MARC
                         WHERE WERKS = P_WERKS
                         AND MATNR IN S_MATNR.
    SELECT MATNR MBRSH MEINS FROM MARA
                          INTO TABLE I_MARA
                          FOR ALL ENTRIES IN I_MARC
                          WHERE MATNR = I_MARC-MATNR.
    SELECT MATNR  MAKTX FROM MAKT
                         INTO TABLE I_MAKT
                         FOR ALL ENTRIES IN I_MARA
                         WHERE MATNR = I_MARA-MATNR
                         AND SPRAS = SY-LANGU.
    SELECT MATNR BWKEY BWTAR FROM MBEW
                        INTO TABLE I_MBEW
                        FOR ALL ENTRIES IN I_MARA
                        WHERE MATNR = I_MARA-MATNR.
    SELECT MATNR VKORG VTWEG FROM MVKE
                        INTO TABLE I_MVKE
                        FOR ALL ENTRIES IN I_MARA
                        WHERE MATNR = I_MARA-MATNR.
    SELECT MATNR WERKS LGORT LABST FROM MARD
                        INTO TABLE  I_MARD
                        FOR ALL ENTRIES IN I_MARC
                        WHERE MATNR = I_MARC-MATNR
                        AND WERKS = P_WERKS
                        AND LGORT IN S_LGORT..
*&             MOVING DATA TO I-OUT                                    *
LOOP AT I_MARC.
  MOVE I_MARC-MATNR TO I_OUT-MATNR.
  MOVE I_MARC-WERKS TO I_OUT-WERKS.
  MOVE I_MARC-LVORM TO I_OUT-LVORM.
  READ TABLE I_MARA WITH KEY MATNR = I_MARD-MATNR.
  MOVE I_MARA-MBRSH TO I_OUT-MBRSH.
  MOVE I_MARA-MEINS TO I_OUT-MEINS.
  READ TABLE I_MAKT WITH KEY MATNR = I_MARD-MATNR.
  MOVE I_MAKT-MAKTX TO I_OUT-MAKTX.
  READ TABLE I_MBEW WITH KEY MATNR = I_MARD-MATNR.
  MOVE I_MBEW-BWKEY TO I_OUT-BWKEY.
  MOVE I_MBEW-BWTAR TO I_OUT-BWTAR.
  READ TABLE I_MVKE WITH KEY MATNR = I_MARD-MATNR.
  MOVE I_MVKE-VKORG TO I_OUT-VKORG.
  MOVE I_MVKE-VTWEG TO I_OUT-VTWEG.
    LOOP AT I_MARD WHERE MATNR = I_MARC-MATNR
                     AND WERKS = I_MARC-WERKS.
        MOVE I_MARD-LGORT TO I_OUT-LGORT.
        MOVE I_MARD-LABST TO I_OUT-LABST.
        APPEND I_OUT.
    ENDLOOP.
CLEAR I_OUT.
ENDLOOP.
*&             DISPLAYIING FROM I-OUT                                  *
LOOP AT I_OUT.
*FORMAT HOTSPOT ON.
WRITE: /5 I_OUT-MATNR,
        22 I_OUT-WERKS,
        29 I_OUT-LGORT,
        33 I_OUT-LABST,
        56 I_OUT-LVORM,
        61 I_OUT-MBRSH,
        71 I_OUT-MEINS,
        82 I_OUT-VTWEG,
        93 I_OUT-BWKEY,
        104 I_OUT-BWTAR,
        118 I_OUT-VKORG,
        130 I_OUT-MAKTX.
*FORMAT HOTSPOT OFF.
ENDLOOP.
*&        E N D -- O F --  S E L E C T I O N                           *
  END-OF-SELECTION.
*&                  T O P - O F - P A G E                              *
TOP-OF-PAGE.
WRITE 60 'MATERIAL MASTER REPORT -- BASIC LIST'
        COLOR COL_GROUP.
WRITE: SY-ULINE.
WRITE: /2 'MATERIAL_NO',
        22 'PLANT',
        28 'STORGE_LOC',
        45 'STOCK',
        54 'FLAG',
        60 'INDUSTRY',
        70 'UNIT',
        76 'DISTR_CHANNEL',
        91 'VALU_AREA',
        102 'VALU_TYPE',
        114 'SALES_ORG',
        128 'DESCRIPTION'.
*&                  E N D - O F - P A G E                              *
END-OF-PAGE.
  WRITE: / SY-ULINE.
  WRITE: /85 'PAGNO: ',SY-PAGNO,
           SY-ULINE.
regards,
srinivas
<b>*reward for useful answers*</b>