Matching data for two internal Table

[Former Member]

hi guru's,

i have two internal table that is ITAB and itab1, and both has more than 2000 records, but MATNR is common field in both, so i want to update itab from itab1 according to matnr. can anyone please help me? actually i was using read table but it was not doing correct.

regards Nitin.

[Former Member]

Hi,

Try this,

LOOPat itab into wa-itab.
 read itab1 into wa-itab1 with key pernr = wa-itab-pernr.

 Put your code for modification.

clear: wa-itab, wa-itab1.
ENDLOOP.

• wa--> work area compatible to corresponding internal table.

Reagrds,

Anirban

[Former Member]

hi all,

thanx for reply, actually i m using the code below.. is it neccessary to define WA.?

LOOP AT itab.

READ TABLE itab3 WITH KEY matnr = itab-matnr.

IF sy-subrc = 0.

ITAB-BELNR1 = ITAB3-BELNR.

ITAB-EBELN1 = ITAB3-EBELN.

itab-wrbtr1 = itab3-wrbtr.

itab-menge1 = itab3-menge.

itab-unit_price1 = itab3-wrbtr / itab3-menge.

MODIFY itab INDEX sy-tabix TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1.

ELSE.

CONTINUE.

ENDIF.

ENDLOOP.

regards nitin.

[Former Member]

Its better to use the Workarea.

Regards

Sasi

[Former Member]

hi,

little changes are there....try this

LOOP AT itab.
READ TABLE itab3 WITH KEY matnr = itab-matnr.
IF sy-subrc = 0.
ITAB-BELNR1 = ITAB3-BELNR.
ITAB-EBELN1 = ITAB3-EBELN.
itab-wrbtr1 = itab3-wrbtr.
itab-menge1 = itab3-menge.
itab-unit_price1 = itab3-wrbtr / itab3-menge.
MODIFY itab  TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1 *belnr ebeln*.
ELSE.
CONTINUE.
ENDIF.
ENDLOOP.

Arunima

[SuhaSaha]

Hello,

I think the stmt might be causing the problem.

MODIFY itab INDEX sy-tabix TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1.

Modify your code as follows:

DATA: v_index TYPE sy-tabix.

LOOP AT itab.

v_index = sy-tabix.
READ TABLE itab3 WITH KEY matnr = itab-matnr.
IF sy-subrc = 0.
ITAB-BELNR1 = ITAB3-BELNR.
ITAB-EBELN1 = ITAB3-EBELN.
itab-wrbtr1 = itab3-wrbtr.
itab-menge1 = itab3-menge.
itab-unit_price1 = itab3-wrbtr / itab3-menge.
* MODIFY itab INDEX sy-tabix TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1.
MODIFY itab INDEX v_index TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1.
ELSE.
CONTINUE.
ENDIF.
ENDLOOP.

Hope this helps.

BR,

Suhas

[Former Member]

dear all,

thanx for reply again...but still same problem. actually i m making a report for material price comparison

purchased in current month and same material if purchased in before months. so i need maintain the final ITAB with including same material if purchased in previus months.

ITAB1 : EBELN BLDAT MATNR WRBTR

100023 20080101 abcd 100.00

100025 20080106 xyzr 250.00

100028 20080102 abcd 100.00

100129 20080117 xyzr 150.00

100159 20080126 uvwx 170.00

ITAB2 : EBELN BLDAT1 MATNR WRBTR1

200026 20080201 abcd 105.00

200024 20080206 xyz_r4 250.00

200023 20080201 abcd 100.00

200129 20080217 xyzrw 150.00

200152 20080225 uvwx 190.00

Final record which i need.

ITAB3: EBELN BLDAT MATNR WRBTR WRBTR1

100023 20080101 abcd 100.00 105.00

100023 20080101 abcd 100.00 105.00

100159 20080126 uvwx 170.00 190.00

please suggest me accordingly...

regards nitin.

[Former Member]

Hi,

try this...

DATA: v_index TYPE sy-tabix.
 
LOOP AT itab.
 

READ TABLE itab3 WITH KEY matnr = itab-matnr.
v_index = sy-tabix.
IF sy-subrc = 0.
ITAB-BELNR1 = ITAB3-BELNR.
ITAB-EBELN1 = ITAB3-EBELN.
itab-wrbtr1 = itab3-wrbtr.
itab-menge1 = itab3-menge.
itab-unit_price1 = itab3-wrbtr / itab3-menge.
* MODIFY itab INDEX sy-tabix TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1.
MODIFY itab INDEX v_index TRANSPORTING BELNR1 EBELN1 wrbtr1 menge1 unit_price1.
ELSE.
CONTINUE.
ENDIF.
ENDLOOP.

Arunima

[Former Member]

Hi,

try this code..

loop at itab1 into wa1.
   read table itab into wa with key matnr = wa1-matnr.
   wa1-new_field = wa-old_field.
   modify itab1 from wa1 transporting new_field.
   clear: wa,wa1.
endloop.

Arunima

[Former Member]

Define one more internal table with all fields let us say Itab3.

Loop at itab1

itab3-matnr = itab1-matnr...
and all the fields

read table itab2 with key matnr = itab1-matnr binary search

itab3-otherfields = itab2-other fields

Append Itab3.

endloop

Regards

Sasi

[SuhaSaha]

Hello Saurabh,

Why is it not working with READ stmt? Try this code:

SORT ITAB BY MATNR.

SORT ITAB1 BY MATNR.

LOOP AT ITAB ASSIGNING <FS>.
  READ TABLE ITAB1 INTO WA1
  WITH KEY MATNR = <FS>-MATNR BINARY SEARCH.
  IF SY-SUBRC = 0.
    <FS>-FIELD1 = WA1-FIELD1.
    <FS>-FIELD2 = WA1-FIELD2.
  ENDIF.
ENDLOOP.

If you use field-symbols no need to write the modify stmt as well.

BR,

Suhas

[Former Member]

hi suhas....

i m not comfortable with field string...so please can u tell me with one complete example?

regards nitin.

[former_member585060]

Hi,

Try this

LOOP AT itab INTO wa_itab.
READ TABLE itab2 INTO wa_itab2 WITH KEY matnr = wa_itab-matnr BINARY SEARCH.
IF sy-subrc = 0.

       put code
wa_itab-field = wa_itab2-field.

ENDIF.

MODIFY it_itab INDEX sy-tabix FROM wa_itab TRANSPORTING field. " field is updated field

ENDLOOP.

Regards

Bala Krishna

Edited by: Bala Krishna on Dec 30, 2008 12:37 PM