ABAP内表中按照不同维度进行关键值汇总

 

TYPES: BEGIN OF TYP_DATA,
    MATNR  TYPE MATNR,
    MONEY  TYPE P,
  END OF TYP_DATA.
DATA: ITAB_DATA TYPE STANDARD TABLE OF TYP_DATA,
      ITAB_SUM  TYPE STANDARD TABLE OF TYP_DATA,
       H_DATA    TYPE TYP_DATA,
        H_SUM     TYPE TYP_DATA.
* * MAKE DAMI TEST DATA
H_DATA-MATNR = 'A'.
H_DATA-MONEY = 100.
APPEND H_DATA TO ITAB_DATA.
H_DATA-MATNR = 'B'.
H_DATA-MONEY = 150.
APPEND H_DATA TO ITAB_DATA.
H_DATA-MATNR = 'A'.
H_DATA-MONEY = 120.
APPEND H_DATA TO ITAB_DATA.
H_DATA-MATNR = 'B'.
H_DATA-MONEY = 200.
APPEND H_DATA TO ITAB_DATA.
H_DATA-MATNR = 'C'.
H_DATA-MONEY = 400.
APPEND H_DATA TO ITAB_DATA.
*SORT BEFORE SUM
SORT ITAB_DATA BY MATNR ASCENDING.
*        * SUM DATA
LOOP AT ITAB_DATA INTO H_DATA.
  H_SUM-MONEY = H_SUM-MONEY + H_DATA-MONEY.
  AT END OF MATNR.
    H_SUM-MATNR = H_DATA-MATNR.
    APPEND H_SUM TO  ITAB_SUM.
    CLEAR H_SUM.
  ENDAT.
ENDLOOP.