&----
*& Report ZEXP6
*&
hi,
in this below code if i give range of values in profit center it is taking only single value..please help me out in this.
&----
*&
*&
&----
REPORT ZEXP6.
tables : coep,
cepc,
csks,
aufk,
cobk.
DATA : BEGIN OF itab_coep OCCURS 0,
kokrs LIKE coep-kokrs, " Controlling Area
gjahr LIKE coep-gjahr, " FiscalYear
perio LIKE coep-perio, " Period
kstar LIKE coep-kstar, " CostElement
bukrs LIKE coep-bukrs, " CompanyCode
wogbtr LIKE coep-wogbtr, " Amount in Object Currency
mbgbtr LIKE coep-mbgbtr, " Total quantity entered
meinh LIKE coep-meinh, " unit
line_color(4) TYPE c,
END OF itab_coep.
DATA : BEGIN OF itab_cepc OCCURS 0,
kokrs LIKE cepc-kokrs,
prctr LIKE cepc-prctr,
khinr LIKE cepc-khinr, " Profit Center Group
END OF itab_cepc.
*DATA : BEGIN OF itab_ce OCCURS 0,
kokrs LIKE csks-kokrs,
prctr LIKE csks-prctr,
khinr LIKE csks-khinr, " Profit Center Group
kostl like csks-kostl,
END OF itab_csks.
data : begin of itab_final occurs 0,
kokrs LIKE coep-kokrs, " Controlling Area
gjahr LIKE coep-gjahr, " FiscalYear
perio LIKE coep-perio, " Period
kstar LIKE coep-kstar, " CostElement
bukrs LIKE coep-bukrs, " CompanyCode
wogbtr LIKE coep-wogbtr, " Amount in Object Currency
mbgbtr LIKE coep-mbgbtr, " Total quantity entered
meinh LIKE coep-meinh, " unit
prctr LIKE cepc-prctr,
khinr LIKE cepc-khinr,
end of itab_final.
*DATA : BEGIN OF itab_aufk OCCURS 0,
kokrs LIKE aufk-kokrs,
aufnr LIKE aufk-aufnr, " Order Number
bukrs LIKE aufk-bukrs,
prctr LIKE aufk-prctr, " ProfitCenter
auart LIKE aufk-auart, " OrderType
autyp LIKE aufk-autyp, " Order Category
END OF itab_aufk.
*
selection-screen : begin of block blk1 with frame title text-001.
PARAMETERS : p_ca LIKE coep-kokrs obligatory .
SELECT-OPTIONS : s_year FOR coep-gjahr obligatory matchcode object zyear."default 2007 to 9999.
SELECT-OPTIONS : s_pd FOR coep-perio obligatory .
SELECT-OPTIONS : s_code FOR coep-bukrs.
SELECT-OPTIONS : s_pg FOR cepc-khinr MATCHCODE OBJECT zprofitcentergroup.
SELECT-OPTIONS : s_pc FOR cepc-prctr.
selection-screen : end of block blk1.
SELECT kokrs gjahr perio kstar bukrs wogbtr
FROM coep INTO CORRESPONDING FIELDS OF TABLE itab_coep
WHERE kokrs = p_ca
AND perio IN s_pd
AND bukrs IN s_code
AND gjahr IN s_year.
IF NOT itab_coep[] IS INITIAL.
SELECT kokrs prctr khinr
FROM cepc INTO CORRESPONDING FIELDS OF TABLE itab_cepc
for all entries in itab_coep
where kokrs = itab_coep-kokrs.
endif.
loop at itab_coep.
itab_final-kokrs = itab_coep-kokrs.
itab_final-gjahr = itab_coep-gjahr.
itab_final-perio = itab_coep-perio.
itab_final-kstar = itab_coep-kstar.
itab_final-bukrs = itab_coep-bukrs.
itab_final-wogbtr = itab_coep-wogbtr.
append itab_final.
clear itab_final.
endloop.
loop at itab_final.
READ TABLE itab_cepc WITH KEY kokrs = itab_final-kokrs.
IF sy-subrc = 0.
itab_final-prctr = itab_cepc-prctr.
itab_final-khinr = itab_cepc-khinr.
MODIFY itab_final TRANSPORTING prctr khinr.
ENDIF.
endloop.
loop at itab_final.
write :/ itab_final-prctr,
itab_final-wogbtr.
endloop.
.