Report for displaying open POs

Question

Hi frds
i wants to display the open POs line item and its quantity .anyone give me the logic for this report.
thanks
Pari Vendhan.R

Answer 1

HI frd
thanks for information ..while puting your logic in report program its not displaying open POs.
with this msg i hv attached my codings ..pls correct my mistake.
REPORT  Z_CONSUMABLE_ROL.
Data : Mat_no like mara-matnr, "Material Number
       Plant1 like ekpo-werks, "Plant
       com_co like mseg-bukrs, "Company Code
       store  like mseg-lgort, "Storage
SELECTION SCREEN
SELECTION-SCREEN: BEGIN OF BLOCK 01.
SELECTION-SCREEN: BEGIN OF BLOCK 02 WITH FRAME TITLE text-001.
SELECT-OPTIONS MATERIAL FOR mat_no.
SELECT-OPTIONS Plant    FOR plant1.
SELECT-OPTIONS COMPANY  FOR COM_CO.
SELECT-OPTIONS STROAGE  FOR STORE.
SELECTION-SCREEN: END OF BLOCK 02.
SELECTION-SCREEN: END OF BLOCK 01.
DATA DECLARETION FOR INTERNAL TABLE.
Data : begin of itab occurs 0,
       matnr like mara-matnr, "Material Number
       maktx like makt-maktx, "Material Desc
       meins like mara-meins, "UOM
       minbe like marc-minbe, "ROL
       lgnum like mseg-lgnum, "Warehouse
       ebeln like ekKo-ebeln, "PO Number
       menge like ekpo-menge, "PO Qty
       banfn like eban-banfn, "PR Number
       meng1 like eban-menge, "PR Qty
       mblnr like mseg-mblnr, "PO Number
       ELIKZ like EKPO-ELIKZ,
       end of itab.
SELECT STATEMENT.
select a~menge
       a~werks
       a~ELIKZ
       b~banfn
       b~menge
       c~matnr
       c~meins
       d~maktx
       e~minbe
       f~lgnum
       f~mblnr
       f~bukrs
       f~lgort
       h~ebeln
INTO CORRESPONDING FIELDS OF TABLE ITAB FROM EKPO as a
      inner join EBAN as b on aBANFN = bBANFN
      inner join MARA as c on cMATNR = aMATNR
      inner join MAKT as d on dMATNR = cMATNR
      inner join MARC as e on eMATNR = cMATNR
      inner join MSEG as f on fMATNR = cMATNR
      inner join EKKO as h on hEBELN = aEBELN
where cmatnr in MATERIAL and awerks in PLANT and f~bukrs in
COMPANY and f~lgort in STROAGE.
write :/ 'Material_No' color 4,
      20 'Material_Desc' color 4,
      55 'UOM' color 4,
      65 'ROL' color 4,
      75 'Warehouse' color 4,
      87 'Open Po' color 4,
      115 'PO Qty' color 4,
      125 'PR No.' color 4,
      145 'PR Qty' color 4.
write : sy-uline.
if itab-ELIKZ = 'X'.
loop at itab.
write : / itab-matnr,
        20 itab-maktx,
        55 itab-meins,
        65 itab-minbe,
        75 itab-lgnum,
        87 itab-ebeln,
        105 itab-menge,
        125 itab-banfn,
        135 itab-menge.
endloop.
endif.