Hi daniel,
Try the following updated code,
data: begin of it_ekpo occurs 10.
data: ebeln like ekpo-ebeln,
ebelp like ekpo-ebelp,
banfn like ekpo-banfn,
bnfpo like ekpo-bnfpo.
data: end of it_ekpo.
data: begin of it_eban occurs 10.
data: banfn like eban-banfn,
bnfpo like eban-bnfpo,
estkz like eban-estkz.
data: end of it_eban.
Select ebeln
ebelp
banfn
bnfpo
from ekpo
into table it_ekpo "(internal table for EKPO)
for all entries in c_t_data
where ebeln eq c_t_data-ebeln
and ebelp eq c_t_data-ebelp.
if not it_ekpo[] is initial.
Select banfn
bnfpo
estkz from eban
into table it_eban "(internal table for EBAN)
for all entries in it_ekpo
where banfn eq it_ekpo-banfn
and bnfpo eq it_ekpo-bnfpo.
endif.
loop at c_t_data into
l_MC02M_0ITM.
read table it_ekpo with key ebeln = l_MC02M_0ITM-ebeln
ebelp = l_MC02M_0ITM-ebelp.
if sy-subrc eq 0.
read table it_eban with key banfn = it_ekpo-banfn
bnfpo = it_ekpo-bnfpo .
if sy-subrc eq 0.
l_MC02M_0ITM-zzestkz = it_eban-ESTKZ.
endif.
endif.
Modify c_t_data FROM l_MC02M_0ITM.
endloop.
