regd : output in program

[Former Member]

&----

---

*& 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.

.

[Former Member]

Hi Vinutha,

I don't see any use of "SELECT-OPTIONS : s_pc FOR cepc-prctr" in your program?

Regards,

John.

[Former Member]

hi,

i wan't to have values in profit center based on select options..please help me out in this.

[andreas_mann3]

hi,

i think it must be:

appending CORRESPONDING FIELDS OF TABLE itab_cepc

A.

[Former Member]

i am not clear with tour problem still i suggest try to use ranges

thnkx

bhanu