Can I use Read table

Question

Can I use read table instead of multiple select & loop statements.
Any one please give me the sample code ..how to do it.
Thanks in advance

Answer 1

Hi,
Yes you can use read instead of nested loops and select which will affect the performance.
REPORT  zkeerthi_ITABLE9                          .
tables:vbap,vbak,vbkd.
data:begin of it_vbap occurs 0,
     vbeln like vbap-vbeln,
     matnr like vbap-matnr,
     end of it_vbap.
data:begin of it_vbak occurs 0,
     erdat like vbak-erdat,
     ernam like vbak-ernam,
     vbeln like vbak-vbeln,
     end of it_vbak.
data:begin of it_vbkd occurs 0,
     konda like vbkd-konda,
     kdgrp like vbkd-kdgrp,
     vbeln like vbkd-vbeln,
     end of it_vbkd.
data:begin of it_final occurs 0,
     vbeln like vbap-vbeln,
     matnr like vbap-matnr,
     erdat like vbak-erdat,
     ernam like vbak-ernam,
      konda like vbkd-konda,
     kdgrp like vbkd-kdgrp,
     end of it_final.
parameters:v_matnr  type vbap-matnr.
select vbeln
       matnr
       from vbap
       into table  it_vbap
       where matnr = v_matnr.
select erdat
       ernam
       vbeln
       from vbak
       into table it_vbak
       for all entries in it_vbap
       where vbeln = it_vbap-vbeln.
select konda
       kdgrp
       vbeln
       from vbkd
       into table it_vbkd
       for all entries in it_vbap
       where vbeln = it_vbap-vbeln.
loop at it_vbap.
read table it_vbak with key vbeln = it_vbap-vbeln.
move :it_vbak-erdat to it_final-erdat,
      it_vbak-ernam to it_final-ernam,
      it_vbap-vbeln to it_final-vbeln,
      it_vbap-matnr to it_final-matnr.
      append it_final.
read table it_vbkd with key vbeln = it_vbap-vbeln.
move:it_vbkd-konda to it_final-konda,
     it_vbkd-kdgrp to it_final-kdgrp.
     append it_final.
endloop  .
sort it_final by matnr.
loop at it_final.
write:/ it_final-vbeln,
     it_final-matnr,
     it_final-erdat,
     it_final-ernam,
      it_final-konda,
     it_final-kdgrp.
endloop.