problem in coding
*
the below pgm wat it does is ,first filtering in ztable with material type in mara
and plant in mvke. the filtered material passed to eina table to get venodor no.
here the problem is
i want the opt llike this,please check and tell how to write it correct the code and give
vendor material
1000 100
1001 100
1002 100
1002 101
&----
*& Report ZPGM1_AR1 *
*& *
&----
*& *
*& *
&----
REPORT ZPGM1_AR1.
tables: ztab2,mara,mvke,MARAV,eina.
DATA: BEGIN OF T_ztab2 OCCURS 0,
matnr LIKE mara-matnr,
Maktx LIKE makt-Maktx,
MTART LIKE ztab2-MTART,
dwerks like ztab2-dwerks,
MATKL LIKE MARA-MATKL,
MTPOS_MARA LIKE MARA-MTPOS_MARA,
dispo like marc-dispo,
prctr like marc-prctr,
dwerk like mvke-dwerk,
prat1 like mvke-prat1,
MEINS like mara-MEINS,
bstrf like marc-bstrf,
stprs like mbew-stprs,
peinh like mbew-peinh,
stprice(10) type c,
END OF T_ztab2.
DATA: BEGIN OF T_mara OCCURS 0,
matnr like MARAV-matnr,
maktx like MARAV-maktx,
MTART LIKE ztab2-MTART,
dwerks like ztab2-dwerks,
dwerk like mvke-dwerk,
prat1 like mvke-prat1,
lifnr like eina-lifnr,
maktx like makt-maktx,
END OF T_mara.
Data : begin of t_eina occurs 0,
matnr like eina-matnr,
lifnr like eina-lifnr,
mtart like mara-mtart,
end of t_eina.
*select-options:
s_dwerks for ztab2-dwerks,
s_mtart for ztab2-mtart.
select * from ztab2
into corresponding fields of table t_ztab2 .
select a~matnr
a~maktx
a~mtart
d~dwerk
d~prat1 into table t_mara
from MARAV
as a
*inner join makt as b on
amatnr eq bmatnr
inner join mvke as d on
amatnr eq dmatnr
for all entries in t_ztab2
where a~mtart eq t_ztab2-mtart
and d~dwerk = t_ztab2-dwerks.
Select matnr LIFNR from EINA into corresponding fields of table t_EINA
for all entries in t_MARA
Where matnr = t_MARA-matnr.
SORT T_EINA BY MATNR.
SORT T_MARA BY MATNR.
loop at t_EINA.
*Read table t_MARA with key matnr = t_EINA-matnr.
*move t_EINA-LIFNR to t_MARA-LIFNR.
*Modify t_MARA transporting LIFNR .
write:/ t_mara-mtart,t_mara-matnr,t_mara-dwerks,t_mara-maktx.
endloop.