Logic- report to move columns to row in a list

Question

Hi,
I have an internal table ITAB with following data
ITAB
DATE      MATNR PLANT  QUANT
200704    100A   050   111.00
200705    100A   050   333.00
200706    100A   050   444.00
200707    100A   050   555.00
200704    100B   051   999.00
200705    100B   051   666.00
I need an report output like this
     Matnr  plnt  Apr-2007  May-2007  june-2007 July-2007
     100A    050    111.00   333.00     444.00    555.00
     100B    051    999.00   666.00        0.00    0.00
Any ideas?
Rgds
Praveen

Answer 1

Hi,
Try this sample..This may not entirely solve your purpose..Might be you can expand the code..Also my code will work if the date is in the third place of the interanl table declaration...before matnr and plant..As mentioned in my example..
DATA: BEGIN OF itab OCCURS 0,
        matnr   TYPE matnr,
        plant   TYPE werks_d,
        date(6) TYPE n,
        menge   TYPE menge_d,
      END OF itab.
DATA: v_text1(10) VALUE 'Apr-2007'.
DATA: v_text2(10) VALUE 'May-2007'.
DATA: v_text3(10) VALUE 'June-2007'.
DATA: v_text4(10) VALUE 'July-2007'.
DATA: v_int TYPE i.
POPULATE DATA.
itab-matnr = '100A'.itab-plant = '050'.
itab-menge = '111.000'. itab-date = '200704'.
APPEND itab.CLEAR itab.
itab-matnr = '100A'.itab-plant = '050'.
itab-menge = '333.000'. itab-date = '200705'.
APPEND itab.CLEAR itab.
itab-matnr = '100A'.itab-plant = '051'.
itab-menge = '111.000'. itab-date = '200704'.
APPEND itab.CLEAR itab.
Display the data.
SORT itab BY matnr plant date.
WRITE: /1(20) 'Material',
        22(5)  'Plant',
        28(10) v_text1,
        39(10) v_text2,
        50(10) v_text3,
        61(10) v_text4.
LOOP AT itab.
New plant.
  AT NEW plant.
    WRITE: /1(20) itab-matnr,
            22(5) itab-plant.
    v_int = 28.
  ENDAT.
  WRITE: AT v_int(10) itab-menge.
  v_int = v_int + 11.
ENDLOOP.
Thanks,
Naren