Report using internal table events

Question

Hi,
i have an internal table with  the fields 1. profitcenter 2. company code 3. gl account 4. amount
for each profit center i need to seggregate accounts based on company code.
the report should look like the one below.
please suggest some code using internal table events at new , at end etc. as im not using alv. your help will be rewarded
regards,
ravi.
-Profitcenter-companycodeglaccount-amount---
-pfcenter1----
glaccount1-1000---
glaccount2-2000---
4444-total--3000---
glaccount1-4000---
glaccount2-1000---
3333-total--5000---
-profitcentre1*total8000---
profitcentre2.........

Answer 1

Hi.
TYPES: BEGIN OF G_I_DATA,
         PROFIT(4)   TYPE C,
         COMPANY(4)  TYPE C,
         ACCOUNT(10) TYPE C,
         AMOUNT      TYPE P,
       END OF G_I_DATA.
DATA: G_IT_DATA TYPE TABLE OF G_I_DATA,
      G_WA_DATA TYPE G_I_DATA.
DATA: G_SUM_COMPANY  TYPE P,
      G_SUM_PROFIT   TYPE P,
      G_AMOUNT       TYPE P.
  G_WA_DATA-PROFIT = '0001'.
  G_WA_DATA-COMPANY = '1111'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT1'.
  G_WA_DATA-AMOUNT = 2000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0001'.
  G_WA_DATA-COMPANY = '1111'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT2'.
  G_WA_DATA-AMOUNT = 3000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0001'.
  G_WA_DATA-COMPANY = '2222'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT1'.
  G_WA_DATA-AMOUNT = 4000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0001'.
  G_WA_DATA-COMPANY = '2222'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT2'.
  G_WA_DATA-AMOUNT = 5000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0002'.
  G_WA_DATA-COMPANY = '1111'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT1'.
  G_WA_DATA-AMOUNT = 2000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0002'.
  G_WA_DATA-COMPANY = '1111'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT2'.
  G_WA_DATA-AMOUNT = 3000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0002'.
  G_WA_DATA-COMPANY = '2222'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT1'.
  G_WA_DATA-AMOUNT = 4000.
  APPEND G_WA_DATA TO G_IT_DATA.
  G_WA_DATA-PROFIT = '0002'.
  G_WA_DATA-COMPANY = '2222'.
  G_WA_DATA-ACCOUNT = 'ACCOUNT2'.
  G_WA_DATA-AMOUNT = 5000.
  APPEND G_WA_DATA TO G_IT_DATA.
  SORT G_IT_DATA BY PROFIT COMPANY ACCOUNT.
  WRITE: /6 'ProfitCenter', 20 'CompanyCode',
          34 'Glaccount', 48 'Amount'.
  WRITE: /6 SY-ULINE(50).
  LOOP AT G_IT_DATA INTO G_WA_DATA.
    AT NEW PROFIT.
      WRITE: /6 G_WA_DATA-PROFIT.
    ENDAT.
    G_AMOUNT = G_WA_DATA-AMOUNT.
    AT NEW ACCOUNT.
      WRITE: /34 G_WA_DATA-ACCOUNT,
             48  G_AMOUNT.
    ENDAT.
    G_SUM_PROFIT = G_SUM_PROFIT + G_WA_DATA-AMOUNT.
    G_SUM_COMPANY = G_SUM_COMPANY + G_WA_DATA-AMOUNT.
    AT END OF COMPANY.
      WRITE: /20 G_WA_DATA-COMPANY,
              34 'Totle',
              48 G_SUM_COMPANY.
      CLEAR G_SUM_COMPANY.
      WRITE: /6 '*******'.
    ENDAT.
    AT END OF PROFIT.
      WRITE: /6 G_WA_DATA-PROFIT,
              20 'Totle',
              48 G_SUM_PROFIT.
      CLEAR G_SUM_PROFIT.
      WRITE: /6 '*************************************'.
    ENDAT.
  ENDLOOP.