Moving multiple fields in a single iternal table

Question

TABLES: mseg,mkpf,kna1.
TYPES: BEGIN OF ty_mseg,
         mblnr TYPE mseg-mblnr,
         werks TYPE mseg-werks,
         bwart TYPE mseg-bwart,
         mjahr TYPE mseg-mjahr,
         zeile TYPE mseg-zeile,
         matnr TYPE mseg-matnr,
         lgort TYPE mseg-lgort,
         charg TYPE mseg-charg,
         lifnr TYPE mseg-lifnr,
         kunnr TYPE mseg-kunnr,
         dmbtr TYPE mseg-dmbtr,
         menge TYPE mseg-menge,
         meins TYPE mseg-meins,
        END OF ty_mseg,
          BEGIN OF ty_kna1,
          name1 TYPE kna1-name1,
            kunnr TYPE kna1-kunnr,
          END OF ty_kna1,
         BEGIN OF ty_mkpf,
           mblnr TYPE mkpf-mblnr,
            budat  TYPE mkpf-budat,
            xblnr TYPE mkpf-xblnr,
           END OF ty_mkpf,
BEGIN OF ty_mseg2,
         mblnr TYPE mseg-mblnr,
         werks TYPE mseg-werks,
         bwart TYPE mseg-bwart,
         mjahr TYPE mseg-mjahr,
         zeile TYPE mseg-zeile,
         matnr TYPE mseg-matnr,
         lgort TYPE mseg-lgort,
         charg TYPE mseg-charg,
         lifnr TYPE mseg-lifnr,
         kunnr TYPE mseg-kunnr,
         dmbtr TYPE mseg-dmbtr,
         menge TYPE mseg-menge,
         meins TYPE mseg-meins,
         budat  TYPE mkpf-budat,
         xblnr TYPE mkpf-xblnr,
         name1 TYPE kna1-name1,
        END OF ty_mseg2.
     DATA:  it_mseg TYPE TABLE OF ty_mseg,
            wa_mseg TYPE ty_mseg,
            it_kna1 TYPE TABLE OF ty_kna1,
            wa_kna1 TYPE ty_kna1,
            it_mkpf TYPE TABLE OF ty_mkpf,
            wa_mkpf TYPE ty_mkpf ,
            it_mseg2 TYPE TABLE OF ty_mseg2,
            wa_mseg2 TYPE ty_mseg2.
SELECT-OPTIONS S_MBLNR FOR mseg-mblnr.
SELECT-OPTIONS s_NAME1 FOR kna1-name1.
    SELECT budat xblnr mblnr
      from mkpf
       INTO CORRESPONDING FIELDS OF TABLE it_mkpf
         where mblnr in S_MBLNR.
IF sy-subrc = 0.
     SELECT mblnr zeile bwart matnr lgort charg lifnr kunnr werks dmbtr menge meins  mjahr
           from mseg
            INTO CORRESPONDING FIELDS OF TABLE it_mseg
                   for ALL ENTRIES IN it_mkpf
                      WHERE mblnr = it_mkpf-mblnr.
  select  kunnr name1
    from kna1
    INTO CORRESPONDING FIELDS OF TABLE it_kna1
    FOR ALL ENTRIES IN it_mseg
    where kunnr = it_mseg-kunnr .
ENDIF.
sort it_mseg2 by  mblnr zeile bwart matnr lgort charg lifnr kunnr werks dmbtr menge meins  mjahr  budat xblnr  name1.
  LOOP AT it_mseg INTO wa_mseg.
  read TABLE it_kna1 into wa_mseg2 with key kunnr = wa_mseg-kunnr.
            if sy-subrc = 0.
               move wa_kna1-name1 to wa_mseg2-name1.
  read TABLE it_mkpf INTO wa_mseg2 with KEY mblnr = wa_mseg-mblnr.
            if sy-subrc = 0.
            move wa_mkpf-budat to wa_mseg2-budat .
            move wa_mkpf-xblnr  to wa_mseg2-xblnr.
            endif.
           ENDIF.
           move wa_mseg-werks to wa_mseg2-werks.
           move wa_mseg-bwart  to wa_mseg2-bwart.
           move wa_mseg-mblnr to wa_mseg2-mblnr.
           move wa_mseg-mjahr to wa_mseg2-mjahr.
           move wa_mseg-zeile to wa_mseg2-zeile.
           move wa_mseg-matnr to wa_mseg2-matnr.
           move wa_mseg-lgort to wa_mseg2-lgort.
           move wa_mseg-charg  to wa_mseg-charg.
           move wa_mseg-lifnr  to wa_mseg2-lifnr.
           move wa_mseg-kunnr to wa_mseg2-kunnr.
           move wa_mseg-dmbtr to wa_mseg2-dmbtr.
           move wa_mseg-menge to wa_mseg2-menge.
           move wa_mseg-meins to wa_mseg2-meins.
           APPEND wa_mseg2 to it_mseg2.
   Endloop.
           loop at it_mseg2 into wa_mseg2.
           write: /  wa_mseg2-werks,
                     wa_mseg2-kunnr,
                     wa_mseg2-name1,
                     wa_mseg2-bwart,
                     wa_mseg2-mblnr,
                     wa_mseg2-mjahr,
                     wa_mseg2-zeile,
                     wa_mseg2-matnr,
                     wa_mseg2-lgort,
                     wa_mseg2-charg,
                     wa_mseg2-lifnr,
                     wa_mseg2-dmbtr,
                     wa_mseg2-menge,
                     wa_mseg2-meins,
                     wa_mseg2-budat,
                     wa_mseg2-xblnr.
uline.
         ENDLOOP.
all goes well but the name1 filed in mseg2 remains blank plz help...!

Answer 1

Hi
You should check it with debug by yourself, anyweay a problem could be in FYSCAL YEAR: you don't use it,
MM document can be the same number in different yearts, so it's better to use fyscal yaer too:
SELECT budat xblnr mblnr MJAHR
   FROM mkpf
    INTO CORRESPONDING FIELDS OF TABLE it_mkpf
      WHERE mblnr IN s_mblnr.
IF sy-subrc = 0.
   SELECT mblnr zeile bwart matnr lgort charg lifnr kunnr werks dmbtr menge meins  mjahr
         FROM mseg
          INTO CORRESPONDING FIELDS OF TABLE it_mseg
                 FOR ALL ENTRIES IN it_mkpf
                    WHERE mblnr = it_mkpf-mblnr
                        AND MJAHR = OT_MKPF-MJAHR.
read TABLE it_mkpf INTO WA_MKPF with KEY mblnr = wa_mseg-mblnr.
read TABLE it_mkpf INTO WA_MKPF with KEY mblnr = wa_mseg-mblnr.
                                                                    MJAHR = WE_MSEG-MJAHR,
            if sy-subrc = 0.
            move wa_mkpf-budat to wa_mseg2-budat .
            move wa_mkpf-xblnr  to wa_mseg2-xblnr.
            endif.
           ENDIF.
Max