Hi Ashok.
check this code.
here i created two seperate itab for ekko and ekpo,
then one final itab to move the above two itab records.
TABLES : ekko, ekpo.
************************************************************************
************************************************************************
TYPES : BEGIN OF fieldst,
ebeln LIKE ekko-ebeln, "Purchase Order Number
aedat LIKE ekko-aedat, "Purchase Order Creation Date
lifnr LIKE ekko-lifnr, "Vendor Number
ekorg LIKE ekko-ekorg, "Purchase Organization
zterm LIKE ekko-zterm, "Payment Text
bstyp LIKE ekko-bstyp, "Document Category
bsart LIKE ekko-bsart, "Dcoument Type
statu LIKE ekko-statu, "Purchase Order Status
END OF fieldst.
DATA itab_ekko TYPE TABLE OF fieldst WITH HEADER LINE.
DATA: lifnr1 TYPE lfa1-lifnr.
************************************************************************
************************************************************************
TYPES : BEGIN OF fieldst1,
ebeln LIKE ekpo-ebeln, "Purchase order Number
aedat LIKE ekpo-aedat, "Purchase Order Creation Date
matnr LIKE ekpo-matnr, "Material Number
matkl LIKE ekpo-matkl, "Material Group
menge LIKE ekpo-menge, "Ordered Quantity
netwr LIKE ekpo-netwr, "Net Value
bstyp LIKE ekpo-bstyp, "Document Category
END OF fieldst1.
DATA itab_ekpo TYPE TABLE OF fieldst1 WITH HEADER LINE.
DATA wa like line of itab_ekpo.
************************************************************************
************************************************************************
TYPES : BEGIN OF fieldst2,
ebeln LIKE ekko-ebeln,
aedat LIKE ekko-aedat,
lifnr LIKE ekko-lifnr,
ekorg LIKE ekko-ekorg,
zterm(08),
bstyp LIKE ekko-bstyp,
bsart LIKE ekko-bsart,
statu LIKE ekko-statu,
menge LIKE ekpo-menge,
matnr LIKE ekpo-matnr,
matkl LIKE ekpo-matkl,
netwr LIKE ekpo-netwr,
END OF fieldst2.
DATA itab_output TYPE TABLE OF fieldst2 WITH HEADER LINE.
**
*DECLARING CONSTANTS *
************************************************************************
**
DATA : type(3).
type = 'ZWT'.
CONSTANTS : c_bstyp TYPE c VALUE 'F', "Document Category
c_statu TYPE i VALUE '9'. "Status.
************************************************************************
**
*SELECTION SCREEN *
************************************************************************
**
SELECTION-SCREEN BEGIN OF BLOCK input WITH FRAME TITLE text-t01.
SELECT-OPTIONS : s_aedat FOR ekko-aedat.
SELECTION-SCREEN END OF BLOCK input.
************************************************************************
**
*FETCHING RECORDS FROM EKKO TABLE TO ITAB_EKKO *
************************************************************************
SELECT ebeln aedat lifnr ekorg
zterm bstyp bsart statu
FROM ekko INTO TABLE
itab_ekko
WHERE aedat IN s_aedat AND
bstyp EQ c_bstyp AND
bsart EQ type AND
statu EQ c_statu.
************************************************************************
***
*FETCHING RECORDS FROM EKPO TABLE TO ITAB_EKPO *
************************************************************************
***
IF NOT itab_ekko[] IS INITIAL.
SELECT ebeln aedat matnr matkl
menge netwr bstyp
FROM ekpo INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_ekko
WHERE aedat IN s_aedat AND
bstyp EQ itab_ekko-bstyp AND
ebeln EQ itab_ekko-ebeln.
LOOP AT itab_ekko.
READ TABLE itab_ekpo INTO wa WITH KEY
ebeln = itab_ekko-ebeln
bstyp = itab_ekko-bstyp
aedat = itab_ekko-aedat BINARY SEARCH.
itab_output-ebeln = itab_ekko-ebeln.
itab_output-aedat = itab_ekko-aedat.
itab_output-lifnr = itab_ekko-lifnr.
itab_output-ekorg = itab_ekko-ekorg.
itab_output-zterm = itab_ekko-zterm.
itab_output-bstyp = itab_ekko-bstyp.
itab_output-bsart = itab_ekko-bsart.
itab_output-statu = itab_ekko-statu.
itab_output-menge = wa-menge.
itab_output-matnr = wa-matnr.
itab_output-matkl = wa-matkl.
itab_output-netwr = wa-netwr.
Append itab_output.
ENDLOOP.
<b>Regards,
Jackie.</b>
Bluesky
