topic Re: problem using READ statement in loop. in Application Development and Automation Discussions

problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 11:50:49 GMT

Hi,

i have few read statements within loop ...endloop as shown:

LOOP AT t_pbim INTO wa_pbim.

READ TABLE t_zpp_material

INTO wa_zpp_material

WITH KEY smatn_new = wa_pbim-matnr.

wa_final-product = wa_zpp_material-product.

wa_final-smatn_old = wa_zpp_material-smatn_old .

wa_final-smatn_new = wa_zpp_material-smatn_new .

wa_final-plant = wa_zpp_material-plant.

wa_final-zdate1 = wa_zpp_material-zdate1.

READ TABLE t_pbed

INTO wa_pbed

WITH KEY bdzei = wa_pbim-bdzei .

wa_final-perxx = wa_pbed-perxx.

READ TABLE t_mdbs

INTO wa_mdbs

WITH KEY matnr = wa_pbim-matnr.

wa_final-val = wa_mdbs-val.

wa_final-meins = wa_mdbs-meins.

append wa_final to t_final.

endloop.

The second read statement finds one matching records with the key value given.but as it is in the loop,that single entry is duplicated in t_final.

please mention how to resolve the issue.

Re: problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 11:56:09 GMT

Hi,

THe code is absolutely fine. But if you want unique data based on BDZEI, then delete duplicates from T_PBIM

SORT T_PBIM by BDZEI.

DELETE ADJACENT DUPLICATES FROM T_PBIM COMPARING BDZEI.

LOOP AT t_pbim INTO wa_pbim.

READ TABLE t_zpp_material

INTO wa_zpp_material

WITH KEY smatn_new = wa_pbim-matnr.

wa_final-product = wa_zpp_material-product.

wa_final-smatn_old = wa_zpp_material-smatn_old .

wa_final-smatn_new = wa_zpp_material-smatn_new .

wa_final-plant = wa_zpp_material-plant.

wa_final-zdate1 = wa_zpp_material-zdate1.

READ TABLE t_pbed

INTO wa_pbed

WITH KEY bdzei = wa_pbim-bdzei .

wa_final-perxx = wa_pbed-perxx.

READ TABLE t_mdbs

INTO wa_mdbs

WITH KEY matnr = wa_pbim-matnr.

wa_final-val = wa_mdbs-val.

wa_final-meins = wa_mdbs-meins.

append wa_final to t_final.

endloop.

Re: problem using READ statement in loop.

former_member189629 — Tue, 11 Sep 2007 11:56:17 GMT

Hi Deb,

clear the table headers before each READ.

Karthik

Message was edited by:

Alvaro Tejada Galindo

Re: problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 11:56:58 GMT

LOOP AT t_pbim INTO wa_pbim.

READ TABLE t_zpp_material

INTO wa_zpp_material

WITH KEY smatn_new = wa_pbim-matnr.

wa_final-product = wa_zpp_material-product.

wa_final-smatn_old = wa_zpp_material-smatn_old .

wa_final-smatn_new = wa_zpp_material-smatn_new .

wa_final-plant = wa_zpp_material-plant.

wa_final-zdate1 = wa_zpp_material-zdate1.

READ TABLE t_pbed

INTO wa_pbed

WITH KEY bdzei = wa_pbim-bdzei .

wa_final-perxx = wa_pbed-perxx.

READ TABLE t_mdbs

INTO wa_mdbs

WITH KEY matnr = wa_pbim-matnr.

wa_final-val = wa_mdbs-val.

wa_final-meins = wa_mdbs-meins.

append wa_final to t_final.

endloop.

add the following code to ur code...

delete the entry from second internal table after first occurance of the loop..

the syntax will be like this,,,

delete it_2 from wa_2 index sy-tabix.

Message was edited by:

Alvaro Tejada Galindo

Re: problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 11:58:46 GMT

try the read statement with Binary search

or use DELETE ADJACENT DUPLICATES

Re: problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 12:00:51 GMT

which table headers to be cleared?

Re: problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 12:05:43 GMT

Hi,

if you want to ensure the result is unique, do not use append but use COLLECT wa INTO itab.

Regards,

Gianpietro

Re: problem using READ statement in loop.

Former Member — Tue, 11 Sep 2007 12:10:05 GMT

Hi,

Whenever you use a read statement always check for sy-subrc .

modify the code as follows:

LOOP AT t_pbim INTO wa_pbim.

READ TABLE t_zpp_material

INTO wa_zpp_material

WITH KEY smatn_new = wa_pbim-matnr.

wa_final-product = wa_zpp_material-product.

wa_final-smatn_old = wa_zpp_material-smatn_old .

wa_final-smatn_new = wa_zpp_material-smatn_new .

wa_final-plant = wa_zpp_material-plant.

wa_final-zdate1 = wa_zpp_material-zdate1.

READ TABLE t_pbed

INTO wa_pbed

WITH KEY bdzei = wa_pbim-bdzei .

if sy-subrc eq 0.

wa_final-perxx = wa_pbed-perxx.

endif.

READ TABLE t_mdbs

INTO wa_mdbs

WITH KEY matnr = wa_pbim-matnr.

if sy-subrc eq 0.

wa_final-val = wa_mdbs-val.

wa_final-meins = wa_mdbs-meins.

endif.

append wa_final to t_final.

endloop.

regards,

Navneeth K.