Types : begin of ts_ordsent,
Ordnr type ztsd2marc,
Kunnr type vbpa-kunnr,
Matnr type vbap-matnr,
Kwmeng type vbap-kwmeng,
Edatu type vbep-edatu,
Vbeln type vbak-vbeln,
End of ts_ordsent,
Tt_ordsent type table of ts_ordsent.
Types :begin of ts_ship,
Vbenl type vbak-vbeln,
Kunnr type vbpa-kunnr,
End of ts_ship,
Tt_ship type standard table of ts_ship.
Types :begin of ts_material,
Vbenl type vbak-vbeln,
matnr type vbap-matnr,
kwmeng type vbap-kwmeng,
End of ts_material,
Tt_material type standard table of ts_material.
Types :begin of ts_ddate,
Vbenl type vbak-vbeln,
edatu type vbep-edatu,
End of ts_ddate,
Tt_ddate type standard table of ts_ddate.
Types :begin of ts_order,
Vbenl type vbak-vbeln,
vkorg type vbak-vkorg,
End of ts_order,
Tt_order type standard table of ts_order.
Data : ls_ordsent type ts_ordsent,
Ls_ship type ts_ship,
Ls_material type ts_material,
Ls_ddate type ts_ddate,
Ls_order type ls_order,
lt_ordsent type tt_ordsent,
Lt_ship type tt_ship,
Lt_material type tt_material,
Lt_ddate type tt_ddate,
Lt_order type lt_order.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: pa_sotg type vbak-vkorg,
Pa_dpln type vbap-werks.
Select-options : so_shpt for vbpa-kunnr,
So_ddat for vbep-edatu.
SELECTION-SCREEN END OF BLOCK b2.
Select ordnr from ztsd2marc
Into corresponding fields of table lt_ordsent.
Select vbeln kunnr from vbpa
Into corresponding fields of table lt_ship
For all entries in lt_ordsent
Where kunnr in so_shpt.
Select vbeln matnr kwmeng from vbap
Into corresponding fields of table lt_material
For all entries in lt_ordsent
Where werks = pa_dpln.
Select vbeln edatu from vbep
Into corresponding fields of table lt_ddate
For all entries in lt_ordsent
Where edatu in so_ddat.
Select vbeln vkorg from vbak
Into corresponding fields of table lt_order
For all entries in lt_ordsent
Where .vkorg = pa_sorg.
Loop at lt_ordsent into ls_ordsent.
Read table lt_ship into ls_ship with key vbeln = ls_ordsent-ordnr.
Check sy-subrc eq 0.
Move ls_ship-kunnr to ls_ordsent-kunnr.
Modify lt_ordsent from ls_ordsent.
Endloop.
Loop at lt_ordsent into ls_ordsent.
Read table lt_material into ls_material with key vbeln = ls_ordsent-ordnr.
Check sy-subrc eq 0.
Move ls_material-matnr to ls_ordsent-matnr.
Move ls_material-kwmeng to ls_ordsent-kwmeng.
Modify lt_ordsent from ls_ordsent.
Endloop.
Loop at lt_ordsent into ls_ordsent.
Read table lt_ddate into ls_ddate with key vbeln = ls_ordsent-ordnr.
Check sy-subrc eq 0.
Move ls_ddate-edatu to ls_ordsent-edatu.
Modify lt_ordsent from ls_ordsent.
Endloop.
Loop at lt_ordsent into ls_ordsent.
Read table lt_order into ls_order with key vbeln = ls_ordsent-ordnr.
Check sy-subrc eq 0.
Move ls_order-vbeln to ls_ordsent-vbeln.
Modify lt_ordsent from ls_ordsent.
Endloop.
then display it in avl format.