Skip to Content
0
Former Member
Jul 15, 2008 at 10:33 AM

Regarding retriving data .

25 Views

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,