Joining of to internal tables

Question

Hi,
I am having to internal tables it_itab and it_jtab of diffrent structure in my program.
my requirement is to add all the fields it_jtab into it_itab and write the write the write statement  so that I can see all the fields.
How is this possible.

Answer 1

Hi,
Just copy the below code and execute.
REPORT zstemp_qty2_  LINE-SIZE 255 .
DATA:it_vbak LIKE vbak OCCURS 0 WITH HEADER LINE.
DATA:it_vbap LIKE vbap OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_sales  OCCURS 0 ,
         vbeln LIKE vbak-vbeln,
         kunnr LIKE vbak-kunnr,
         posnr LIKE vbap-posnr,
         matnr LIKE vbap-matnr,
       END OF it_sales.
START-OF-SELECTION.
  SELECT * FROM vbak INTO TABLE it_vbak UP TO 50 ROWS.
  IF NOT it_vbak[] IS INITIAL.
    SELECT * FROM vbap INTO TABLE it_vbap
    FOR ALL ENTRIES IN it_vbak
    WHERE vbeln = it_vbak-vbeln.
  ENDIF.
  LOOP AT it_vbak.
    READ TABLE it_vbap WITH KEY vbeln = it_vbak-vbeln.
    IF sy-subrc = 0.
      it_sales-vbeln = it_vbak-vbeln.
      it_sales-posnr = it_vbap-posnr.
      it_sales-kunnr = it_vbak-kunnr.
      it_sales-matnr = it_vbap-matnr.
      APPEND it_sales.
      CLEAR it_sales.
    ENDIF.
  ENDLOOP.
If you want to write in it_vbak table only means it_vba we shoud have fields that correspond to another table
REPORT zstemp_qty2_  LINE-SIZE 255 .
DATA:it_vbak LIKE vbak OCCURS 0 WITH HEADER LINE.
*DATA:it_vbap LIKE vbap OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_sales  OCCURS 0 ,
         vbeln LIKE vbak-vbeln,
         kunnr LIKE vbak-kunnr,
         posnr LIKE vbap-posnr,
         matnr LIKE vbap-matnr,
         matkl like vbap-matkl,
         arktx like vbap-arktx,
         erdat like vbak-erdat,
       END OF it_sales.
START-OF-SELECTION.
  SELECT * FROM vbak INTO TABLE it_vbak UP TO 50 ROWS.
  IF NOT it_vbak[] IS INITIAL.
    SELECT * FROM vbap INTO corresponding fields of TABLE it_sales
    FOR ALL ENTRIES IN it_vbak
    WHERE vbeln = it_vbak-vbeln.
  ENDIF.
loop at it_sales.
  read table it_vbak with key vbeln = it_sales-vbeln.
  if sy-subrc = 0.
  it_sales-kunnr = it_vbak-kunnr.
  it_sales-erdat = it_vbak-erdat.
  modify it_sales transporting kunnr erdat.
  clear it_sales.
  endif.
  endloop.
  LOOP AT it_sales.
    WRITE:/ it_sales-vbeln,it_sales-posnr,it_sales-kunnr,
            it_sales-matnr,it_sales-matkl,it_sales-arktx,it_sales-erdat.
  ENDLOOP.
Regds
Sivaparvathi
Please dont forget to reward points if helpful......