Regd : output in program

Question

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

Answer 1

Hi Vinutha,
I don't see any use of "SELECT-OPTIONS : s_pc FOR cepc-prctr" in your program?
Regards,
John.