'TOTAL' text display in ALV GRID output

Question

Hi,
  My requirement is to display 'TOTAL' text at the end of the ALV report alongwith Totals for the respective columns.
  I've used Classical method(i.e. used ALV GRID FM) to display the report.
  For Totals I've used 'DO_SUM', option and for text populated 'TOTALS_TEXT' field, but still its not showing the desired text.
  I've tried most of the solutions provided on SDN, and they are not working.
  So, plssss help me to find out correct solution.
  Thanks in Advance!!!!!!
Thanks & regards,
Amit

Answer 1

hi,
i hope this code will exactli fulfil ur requirement.
type-poolS: slis.
TYPES: BEGIN OF S_TAB,
       F1 TYPE CHAR5,
       F2 TYPE I,
       F3 TYPE I,
       END OF S_TAB.
TYPES: BEGIN OF sf_TAB,
       f0 type char10,
       F1 TYPE CHAR5,
       F2 TYPE I,
       F3 TYPE I,
       END OF Sf_TAB.
DATA: IT_TAB TYPE TABLE OF S_TAB,
      WA_TAB TYPE S_TAB,
      IT_FIN TYPE TABLE OF Sf_TAB,
      WA_FIN TYPE Sf_TAB.
data: fcat type slis_t_fieldcat_alv,
      wa_fcat type slis_fieldcat_alv,
      layout  type slis_layout_alv,
      it_sort type SLIS_T_SORTINFO_ALV,
      wa_sort type SLIS_SORTINFO_ALV.
FREE IT_TAB. CLEAR WA_TAB.
WA_TAB-F1 = 'A1'.
WA_TAB-F2 = '10'.
WA_TAB-F3 = '20'.
APPEND WA_TAB TO IT_TAB.
CLEAR WA_TAB.
WA_TAB-F1 = 'A1'.
WA_TAB-F2 = '10'.
WA_TAB-F3 = '20'.
APPEND WA_TAB TO IT_TAB.
CLEAR WA_TAB.
WA_TAB-F1 = 'A2'.
WA_TAB-F2 = '15'.
WA_TAB-F3 = '30'.
APPEND WA_TAB TO IT_TAB.
CLEAR WA_TAB.
WA_TAB-F1 = 'A3'.
WA_TAB-F2 = '15'.
WA_TAB-F3 = '40'.
APPEND WA_TAB TO IT_TAB.
CLEAR WA_TAB.
WA_TAB-F1 = 'A3'.
WA_TAB-F2 = '20'.
WA_TAB-F3 = '60'.
APPEND WA_TAB TO IT_TAB.
CLEAR WA_TAB.
LOOP AT IT_TAB INTO WA_TAB.
wa_fin-f0 = 'Total'.
wa_fin-f1 = wa_tab-f1.
wa_fin-f2 = wa_tab-f2.
wa_fin-f3 = wa_tab-f3.
append wa_fin to it_fin.
clear wa_fin.
ENDLOOP.
Define Imacro.
wa_fcat-fieldname      = &1.
wa_fcat-tabname        = &2.
wa_fcat-reptext_ddic  = &3.
wa_fcat-col_pos       = &4.
WA_FCAT-DO_SUM      = &5.
WA_FCAT-NO_OUT = &6.
append wa_fcat to fcat .
clear wa_fcat.
end-of-definition.
imacro 'F0'   'it_fin' ''   '1' ''  'X'.
imacro 'F1'   'it_fin' 'PO Document'   '2' ''  ''.
imacro 'F2'   'it_fin' 'TOTAL'    '3' 'X'  ''.
imacro 'F3'   'it_fin' 'Space'     '4' '' ''.
****************DEFINE LAYOUT
layout-zebra             = 'X'.
layout-colwidth_optimize = 'X'.
layout-no_totAlLine = 'X'.
WA_SORT-SPOS = 1.
WA_SORT-fieldname = 'F0'.
wa_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CLEAR WA_SORT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = SY-REPID
   I_GRID_TITLE                      = 'SALES ORDER DETAILS'
   IS_LAYOUT                         = layout
   IT_FIELDCAT                       = fcat
   IT_SORT                           = IT_SORT
   TABLES
   T_OUTTAB                          = IT_FIN
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Cheers,
Rudhir