hai experts,
we r unable to retrieving data from below code.
REPORT ZMM_PO.
TABLES : EKKO , EKPO , EKBE.
DATA : BEGIN OF IT_EKKO OCCURS 0,
EBELN LIKE EKKO-EBELN, "PURCH. DOC. NOR
EKORG LIKE EKKO-EKORG, "PURCH. ORGANIZATION
AEDAT LIKE EKKO-AEDAT, "Date on which the record was created
END OF IT_EKKO.
DATA : BEGIN OF IT_EKPO OCCURS 0,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP, "Item Number of Purchasing Document
ELIKZ LIKE EKPO-ELIKZ, "Delivery Completed" Indicator
WERKS LIKE EKPO-WERKS, "plant
MENGE LIKE EKPO-MENGE, "Target quantity
END OF IT_EKPO.
DATA : BEGIN OF IT_EKBE OCCURS 0,
EBELN LIKE EKBE-EBELN,
EBELP LIKE EKBE-EBELP,
BWART LIKE EKBE-BWART, "Movement type
MENGE LIKE EKBE-MENGE, "quantity
END OF IT_EKBE.
DATA : BEGIN OF IT_OUTPUT OCCURS 0,
WERKS LIKE EKPO-WERKS,
EKORG LIKE EKKO-EKORG,
EBELN LIKE EKKO-EBELN,
EBELP LIKE EKPO-EBELP,
END OF IT_OUTPUT.
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : PLANT FOR EKPO-WERKS,
PUR_ORG FOR EKKO-EKORG,
PO_DATE FOR EKKO-AEDAT.
SELECTION-SCREEN : END OF BLOCK B1.
CLEAR IT_EKKO.
CLEAR IT_EKPO.
CLEAR IT_EKBE.
CLEAR IT_OUTPUT.
SELECT EBELN EKORG AEDAT FROM EKKO INTO CORRESPONDING FIELDS OF TABLE
IT_EKKO
WHERE EBELN = EKKO-EBELN ."AND EKORG IN PUR_ORG AND AEDAT IN PO_DATE.
*WRITE : IT_EKKO-EBELN.
SELECT EBELN EBELP ELIKZ WERKS MENGE FROM EKPO INTO TABLE IT_EKPO
FOR ALL ENTRIES IN IT_EKKO WHERE EBELN = IT_EKKO-EBELN AND WERKS IN
PLANT AND ELIKZ = 'X'.
SELECT EBELN EBELP BWART MENGE FROM EKBE INTO TABLE IT_EKBE
FOR ALL ENTRIES IN IT_EKPO WHERE EBELN = IT_EKPO-EBELN AND MENGE =
EKPO-MENGE AND BWART = '101'.
LOOP AT IT_EKKO.
READ TABLE IT_EKKO WITH KEY EBELN = IT_EKKO-EBELN.
IT_EKKO-EBELN = IT_OUTPUT-EBELN.
IT_EKKO-EKORG = IT_OUTPUT-EKORG.
APPEND IT_OUTPUT.
READ TABLE IT_EKPO WITH KEY EBELN = IT_EKPO-EBELN.
IT_EKPO-WERKS = IT_OUTPUT-WERKS.
IT_EKPO-EBELP = IT_OUTPUT-EBELP.
APPEND IT_OUTPUT.
ENDLOOP.
WRITE : / IT_OUTPUT-WERKS ,IT_OUTPUT-EKORG , IT_OUTPUT-EBELN ,
IT_OUTPUT-EBELP.
regards,