How to do subtotal in alv?

Question

Hi,
I have a problem to do the subtotal in alv.
The outlook of alv now is as following:
Specimen Adversary Amount
ZZZ 300100089 1050
ZZZ 300100089 -1050
90256243 300100000 193410
90256242 300100000 173250
90256241 300100000 173250
90256240 300100000 173250
90256239 300100000 173250
90256238 300100000 173250
90256237 300100000 173250
What I need to do it to sum up the amount for same "ADVERSARY"
The out-come image should be
Specimen Adversary Amount
ZZZ 300100089 1050
ZZZ 300100089 -1050
subtotal 0
90256243 300100000 193410
90256242 300100000 173250
90256241 300100000 173250
90256240 300100000 173250
90256239 300100000 173250
90256238 300100000 173250
90256237 300100000 173250
subtotal 1232910
Question:
How can I add the subtotal in alv?
Please help!!
The following is the original coding:
END-OF-SELECTION.
SORT t.
LOOP AT t.
AT NEW bukrs.
CLEAR anz_dl.
CLEAR htext-anzahl.
CLEAR htext-datei.
htext-text1 = ' records writen in file '.
CLEAR p_pfad.
CONCATENATE
i_pfad
'CU_CC'
t-bukrs
sy-datum+6(2)
sy-datum+4(2)
sy-datum(4)
sy-uzeit
'.txt'
INTO p_pfad.
CLEAR outtab.
REFRESH outtab.
REFRESH: gt_outalv. "INS MG020207
ENDAT.
IF t-shkzg = 'H'.
h_betrg = t-wrbtr * -1.
ELSE.
h_betrg = t-wrbtr.
h_dmbtr = t-dmbtr.
ENDIF.
s-filler1 = s-filler2 = s-filler3 = s-filler4 = s-filler5 = ';'.
s-filler6 = s-filler7 = s-filler8 = ';'.
s-filler9 = s-filler10 = s-filler11 = s-filler12 = s-filler13 = ';'.
s-filler14 = ';'.
s-belnr = t-belnr.
IF t-xblnr NE space. "WD041005a
s-xblnr = t-xblnr. "WD041005a
ELSE. "WD041005a
s-xblnr = t-belnr. "WD041005a
ENDIF. "WD041005a
WHILE s-xblnr(1) EQ '0'. "INS MG130606
SHIFT s-xblnr LEFT. "INS MG130606
ENDWHILE. "INS MG130606
WRITE t-kunnr TO s-kunnr NO-ZERO.
s-lifn2 = s-kunnr.
shift s-lifn2 RIGHT.
s-lifn2(1) = 'R'.
S-KUNNR = T-KUNNR+5(5).
s-bldat+2(1) = '/'.
s-bldat+5(1) = '/'.
s-bldat0(2) = t-bldat4(2).
s-bldat3(2) = t-bldat6(2).
s-bldat6(4) = t-bldat0(4).
s-budat+2(1) = '/'.
s-budat+5(1) = '/'.
s-budat0(2) = t-budat4(2).
s-budat3(2) = t-budat6(2).
s-budat6(4) = t-budat0(4).
s-netdt+2(1) = '/'.
s-netdt+5(1) = '/'.
s-netdt0(2) = t-netdt4(2).
s-netdt3(2) = t-netdt6(2).
s-netdt6(4) = t-netdt0(4).
s-waers = t-waers.
s-dmbtr = t-dmbtr.
s-sgtxt = t-sgtxt.
CLEAR s-twaer.
SELECT SINGLE waers INTO s-twaer
FROM t001
WHERE bukrs = t-bukrs.
IF h_betrg < 0.
hs_betrg+0(1) = '-'.
ELSE.
hs_betrg+0(1) = ' '.
ENDIF.
WRITE h_betrg CURRENCY t-waers TO hs_betrg+1 NO-GROUPING
NO-SIGN
LEFT-JUSTIFIED.
REPLACE ',' WITH '.' INTO hs_betrg.
WRITE hs_betrg TO s-betrg.
IF h_dmbtr < 0.
hs_betrg+0(1) = '-'.
ELSE.
hs_betrg+0(1) = ' '.
ENDIF.
WRITE h_dmbtr CURRENCY t-waers TO hs_betrg+1 NO-GROUPING
NO-SIGN
LEFT-JUSTIFIED.
REPLACE ',' WITH '.' INTO hs_betrg.
WRITE hs_betrg TO s-dmbtr.
s-compcode = t-bukrs. "fw070905
IF p_downl = 'X'.
MOVE s TO outtab-s.
APPEND outtab.
ADD 1 TO anz_dl.
ENDIF.
gs_outalv-belnr = s-belnr. "INS MG020207
*<<<< CR01 START ADD as_outalv-zuonr
gs_outalv-zuonr = s-zuonr. "CR01
*>>>> CR01 EDD ADD as_outalv-zuonr
gs_outalv-kunnr = s-kunnr. "INS MG020207
gs_outalv-bldat = s-bldat. "INS MG020207
gs_outalv-netdt = s-netdt. "INS MG020207
gs_outalv-betrg = s-betrg. "INS MG020207
gs_outalv-waers = s-waers. "INS MG020207
gs_outalv-compcode = s-compcode. "INS MG020207
gs_outalv-budat = s-budat. "INS MG020207
gs_outalv-sgtxt = s-sgtxt.
gs_outalv-kmmnt = s-kmmnt.
gs_outalv-vbeln = s-vbeln.
gs_outalv-xblnr = s-xblnr.
gs_outalv-lifn2 = s-lifn2.
gs_outalv-dmbtr = s-dmbtr.
gs_outalv-twaer = s-twaer.
APPEND gs_outalv TO gt_outalv. "INS MG020207
AT END OF bukrs.
WRITE anz_dl TO htext-anzahl.
WRITE p_pfad TO htext-datei.
CONDENSE htext.
IF p_downl = 'X'.
SKIP 2.
WRITE: / htext.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = p_pfad
filetype = 'ASC'
TABLES
data_tab = outtab
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc 0.
write: / 'Error creating File:', P_Pfad, sy-subrc.
MESSAGE e405 WITH text-002 p_pfad.
ENDIF.
ENDIF.
*<<<<< INS MG020207
IF p_alvd EQ 'X'.
PERFORM build_layout_data.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_structure_name = 'GT_OUTALV'
is_layout = gs_layout
it_fieldcat = gt_fieldcat[]
i_callback_top_of_page = 'TOP-OF-PAGE'
TABLES
t_outtab = gt_outalv.
ENDIF.
*>>>>> INS MG020207
ENDAT.
ENDLOOP.

Answer 1

Check this code....it will help you...reward if useful.
REPORT  ZPP473_VEHICLE_REVERSAL_REP NO STANDARD PAGE HEADING
                                    MESSAGE-ID ZPP.
TABLES:ZPP18_RT_CORR.
TYPE-POOLS:SLIS.
DATA:BEGIN OF WA_VEH_REV,
VEHNO TYPE ZPP18_RT_CORR-VEHNO,
MATNR TYPE ZPP18_RT_CORR-MATNR,
WERKS TYPE ZPP18_RT_CORR-WERKS,
MDV01 TYPE ZPP18_RT_CORR-MDV01,
ENGNO TYPE ZPP18_RT_CORR-ENGNO,
FRMNO TYPE ZPP18_RT_CORR-FRMNO,
ERFMG TYPE ZPP18_RT_CORR-ERFMG,
SHIFT TYPE ZPP18_RT_CORR-SHIFT,
ZUNAME TYPE ZPP18_RT_CORR-ZUNAME,
ZDATE TYPE ZPP18_RT_CORR-ZDATE,
MAKTX TYPE MAKT-MAKTX,
ZREASON_DES TYPE ZPP17_REASON_COD-ZREASON_DES,
*VTEXT TYPE T179T-VTEXT,
END OF WA_VEH_REV.
DATA:IT_VEH_REV LIKE STANDARD TABLE OF WA_VEH_REV.
DATA:  ALVFLD TYPE SLIS_FIELDCAT_ALV,
       FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA:  WK_LAYOUT TYPE SLIS_LAYOUT_ALV,
       I_SORT TYPE SLIS_T_SORTINFO_ALV,
       W_SORT LIKE LINE OF I_SORT.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
SO_ZDATE FOR ZPP18_RT_CORR-ZDATE OBLIGATORY,
SO_WERKS FOR ZPP18_RT_CORR-WERKS,
SO_SHIFT FOR ZPP18_RT_CORR-SHIFT,
SO_MDV01 FOR ZPP18_RT_CORR-MDV01,
SO_MATNR FOR ZPP18_RT_CORR-MATNR,
SO_VEHNO FOR ZPP18_RT_CORR-VEHNO,
SO_ENGNO FOR ZPP18_RT_CORR-ENGNO,
SO_FRMNO FOR ZPP18_RT_CORR-FRMNO,
SO_UNAME FOR ZPP18_RT_CORR-ZUNAME.
SELECTION-SCREEN END OF BLOCK B1.
START-OF-SELECTION.
**GET REVERSAL,MATERIAL DESCRIPTIONS, REASON DESCRIPTIONS
  SELECT ZPP18_RT_CORR~VEHNO
         ZPP18_RT_CORR~MATNR
         ZPP18_RT_CORR~WERKS
         ZPP18_RT_CORR~MDV01
         ZPP18_RT_CORR~ENGNO
         ZPP18_RT_CORR~FRMNO
         ZPP18_RT_CORR~ERFMG
         ZPP18_RT_CORR~SHIFT
         ZPP18_RT_CORR~ZUNAME
         ZPP18_RT_CORR~ZDATE
         MAKT~MAKTX
         ZPP17_REASON_COD~ZREASON_DES
  INTO TABLE IT_VEH_REV FROM
  ZPP18_RT_CORR INNER JOIN MAKT
  ON ( ZPP18_RT_CORRMANDT = MAKTMANDT AND
  ZPP18_RT_CORRMATNR = MAKTMATNR )
  INNER JOIN ZPP17_REASON_COD
  ON ( ZPP18_RT_CORRMANDT = ZPP17_REASON_CODMANDT AND
  ZPP18_RT_CORRZREASON = ZPP17_REASON_CODZREASON )
  CLIENT SPECIFIED
  WHERE ZPP18_RT_CORR~MANDT = SY-MANDT
  AND ZPP18_RT_CORR~ZDATE IN SO_ZDATE
  AND ZPP18_RT_CORR~WERKS IN SO_WERKS
  AND ZPP18_RT_CORR~SHIFT IN SO_SHIFT
  AND ZPP18_RT_CORR~MATNR IN SO_MATNR
  AND ZPP18_RT_CORR~MDV01 IN SO_MDV01
  AND ZPP18_RT_CORR~VEHNO IN SO_VEHNO
  AND ZPP18_RT_CORR~ENGNO IN SO_ENGNO
  AND ZPP18_RT_CORR~FRMNO IN SO_FRMNO
  AND ZPP18_RT_CORR~ZUNAME IN SO_UNAME
  AND MAKT~SPRAS = SY-LANGU.
  IF SY-SUBRC = 0.
      SORT IT_VEH_REV ASCENDING BY ZDATE SHIFT WERKS MDV01 MATNR.
  ELSE.
    MESSAGE I961 WITH 'No Data Found...Try Again !!!'.
    STOP.
  ENDIF.
**BUILD ALV DISPLAY.
  DEFINE ALV_MACRO.
    ALVFLD-FIELDNAME = &1.
    ALVFLD-SELTEXT_M = &2.
    ALVFLD-COL_POS = &3.
    IF &1 = 'ERFMG'.
      ALVFLD-DO_SUM = 'X'.
    ENDIF.
    APPEND ALVFLD TO FIELDCAT.
    CLEAR ALVFLD.
  END-OF-DEFINITION.
  REFRESH FIELDCAT.
  WK_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  ALV_MACRO 'ZDATE' 'Rev.Date' '1'.
  ALV_MACRO 'SHIFT' 'Shift' '2'.
  ALV_MACRO 'WERKS' 'Plant' '3'.
  ALV_MACRO 'MDV01' 'Conveyor' '4'.
  ALV_MACRO 'MATNR' 'Material.No' '5'.
  ALV_MACRO 'MAKTX' 'Description' '6'.
  ALV_MACRO 'VEHNO' 'Veh.No' '7'.
  ALV_MACRO 'ENGNO' 'Eng.No' '8'.
  ALV_MACRO 'FRMNO' 'Frame.No' '9'.
  ALV_MACRO 'ERFMG' 'Qty' '10'.         <----Do Sum Here
  ALV_MACRO 'ZREASON_DES' 'Reason' '11'.
  ALV_MACRO 'ZUNAME' 'User.Reversed' '12'.
  REFRESH I_SORT.
  W_SORT-SPOS      = 1.
  W_SORT-FIELDNAME = 'ZDATE'.
  W_SORT-UP        = 'X'.
  APPEND W_SORT TO I_SORT.
  CLEAR W_SORT.
  W_SORT-SPOS      = 6.
  W_SORT-FIELDNAME = 'MAKTX'.
  W_SORT-UP        = 'X'.
  W_SORT-SUBTOT      = 'X'.
  APPEND W_SORT TO I_SORT.
  CLEAR W_SORT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_GRID_TITLE  = 'Vehicle Reversal Report'
      IS_LAYOUT     = WK_LAYOUT
      IT_FIELDCAT   = FIELDCAT[]
      IT_SORT       = I_SORT[]
    TABLES
      T_OUTTAB      = IT_VEH_REV[]
    EXCEPTIONS
      PROGRAM_ERROR = 1
      OTHERS        = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
END-OF-SELECTION.