Skip to Content
0
Former Member
Jan 08, 2008 at 10:42 AM

regd : output in program

56 Views

&----


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

.