Urgent:Grand total in hierarchical alv

I am printing a hierarchical alv with subtotals. I want to print the grand total for the whole numeric columns ...
Can anyone explain me how i can do this.
Thanks and regards,
Subhakar

Hi,
In this case you not only require the totals but the subtotals also.
For achieving this output you will have to sort the alv on the first column and also give subtotals there.
use
data: SORTF TYPE SLIS_SORTINFO_ALV,
         TSORT TYPE SLIS_T_SORTINFO_ALV.
in the function module reuse_alv_grid_display give
it_sort = tsort.
eg:
FORM ALV_SHOW.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT-BOX_TABNAME = 'IT_DISPLAY'.
LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
LAYOUT-ZEBRA = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM        = SY-REPID
     I_CALLBACK_USER_COMMAND   = 'USER_COMMAND'
      IS_LAYOUT                 = LAYOUT
      IT_FIELDCAT               = TCATALOG
      IS_VARIANT                = VAR1
      I_SAVE                    = 'A'
      IT_SORT                   = TSORT
      IT_EVENTS                 = TEVENT[]
    TABLES
      T_OUTTAB                  = IT_DISPLAY.
ENDFORM .                    "ALV_SHOW
and write a subroutine for sort...
form sort.
CLEAR SORTF.
SORTF-spos = 1.
SORTF-fieldname = 'column_1'.
SORTF-tabname = 'IT_table used for display in alv'.
SORTF-up = 'X'.
SORTF-subtot = 'X'.
APPEND SORTF TO TSORT.
endform.
If this doesn't help I will send you the whole source of a sample program..
Abdullah

Similar Messages

Hide grand total field on ALV report, But keep the sub total fields

Dear Experts,
1) How to hide grand total field on ALV report, But keep the sub total fields.
2) How to populate rate per ton & calculate total price according to the qty in delivering document.

Dear Experts,
1) How to hide grand total field on ALV report, But keep the sub total fields.
2) How to populate rate per ton & calculate total price according to the qty in delivering document.

How to get Grand Total Text in ALV GRID

Hi Folks,
I am able to get the SUBTOTAL TEXT .....But i need...
How to get Grand Total Text in ALV GRID Display...
Can any one give a Solution for this...

Hi Surendar,
Check out this code.. this is showing Total Text in Toal line in the very first column.
REPORT zsales_ord_det_1                        .
TABLES: ztable_10.
TYPE-POOLS: slis.
DATA: BEGIN OF it OCCURS 0,
srno(6) type c,
name LIKE ztable_10-name,
age LIKE ztable_10-age,
END OF it.
DATA : BEGIN OF it_temp OCCURS 0,
name LIKE ztable_10-name,
age LIKE ztable_10-age,
END OF it_temp.
DATA: i_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.
DATA: v_repid LIKE sy-repid,
       i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,
       gs_layout TYPE slis_layout_alv,
       gd_layout TYPE slis_layout_alv,
       i_sort TYPE STANDARD TABLE OF slis_sortinfo_alv,
       wa_sort TYPE slis_sortinfo_alv.
START-OF-SELECTION.
v_repid = sy-repid.
SELECT * FROM ztable_10 INTO TABLE it_temp.
LOOP AT it_temp .
    it-srno = 'Total'.
    it-name = it_temp-name.
    it-age = it_temp-age.
    APPEND it.
ENDLOOP.
END-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               = v_repid
     i_internal_tabname           = 'IT'
I_STRUCTURE_NAME             =
I_CLIENT_NEVER_DISPLAY       = 'X'
     i_inclname                   = v_repid
I_BYPASSING_BUFFER           =
I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = i_fieldcat[]
   EXCEPTIONS
     inconsistent_interface       = 1
     program_error                = 2
     OTHERS                       = 3
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
wa_fieldcat-row_pos = 1.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'SRNO'.
wa_fieldcat-tabname = it.
append wa_fieldcat to i_fieldcat.
LOOP AT i_fieldcat INTO wa_fieldcat.
    IF wa_fieldcat-fieldname = 'AGE'.
      wa_fieldcat-do_sum = 'X'.
      MODIFY i_fieldcat FROM wa_fieldcat.
    ENDIF.
   IF wa_fieldcat-fieldname = 'SRNO'.
     Hide this field so that it can display it's content i.e.
        Total text in Subtotal level
    wa_fieldcat-tech = 'X'.
      wa_fieldcat-no_out = 'X'.
      MODIFY i_fieldcat FROM wa_fieldcat TRANSPORTING tech no_out.
   ENDIF.
ENDLOOP.
wa_sort-spos = 1.
wa_sort-fieldname = 'SRNO'.
wa_sort-up = 'X'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO i_sort.
gd_layout-no_totalline = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                       = ' '
     i_callback_program                        = v_repid
I_CALLBACK_PF_STATUS_SET     = ' '
i_callback_user_command                = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE         = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST    = ' '
I_STRUCTURE_NAME                       =
I_BACKGROUND_ID                        = ' '
I_GRID_TITLE                                  =
I_GRID_SETTINGS                          =
     is_layout                                      = gd_layout
     it_fieldcat                                      = i_fieldcat[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
     it_sort                           = i_sort
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = it
   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.
Regards,
Seema

How to find item wise totals and header wise total using hierarchical ALV

Hi Friends,
I came across an issue of finding item wise total using hierarchical ALV. I am getting header wise total by setting the field catalog. May you help me in finding Item wise total.
Regards
Nikhil.

hi,
you must use "w_fieldcat-do_sum = 'X'" and change your layout like :
w_sort-fieldname = 'FIELD'.
w_sort-tabname   = 'TABNEME'.
w_sort-up        = 'X'.
w_sort-subtot    = 'X'.
APPEND w_sort TO i_sort.
CLEAR w_sort.
you can use detailed code from http://wiki.sdn.sap.com/wiki/display/Snippets/Subtotalsinhirarchial+report.
regards,
orhan
Edited by: goktasor on Jun 1, 2010 11:03 AM (need points : ) )

Urgent Grand total Issue

Hi Experts,
In my Dashboard has 5 different table report with a Filter option, when I click the clear filter option it affect all the (5) reports.
1. But I want to clear filter for each reports separately, is it possible means pls tell me how to fix this issue.
2. Then I want display Grand total at the top of the Table report ie First Grant total then Table report (Usually table report has Grant total is in bottom of that report)
Thanks in advance
Balaa...

1. I donot think this is possible.
2. This is possible in Pivot but not possible in normal Tabular view. When you click on the 'Sigma' signs there is an option that enables you to specify the position of the Grand Total
Regards

Issue in ALV Grid Grand Totals

Hi Friends,
Hwo can i display grand total text in ALV Grid? Eventhough i am using Totals_text parameter in layout i am unable to display. any one vcan help me out in this refgard.
if pos send the code
Regards,
Vijay

<REMOVED BY MODERATOR>
SAMPLE PROGRAM:
REPORT ysalesorder_alv_subtotals.
* Type Pools
TYPE-POOLS:slis.
* Tables
TABLES: vbak, "Sales Document: Header Data
vbap. "Sales Document: Item Data
* Global Structures
DATA:gt_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv,
gt_sortcat TYPE slis_t_sortinfo_alv,
wa_sortcat LIKE LINE OF gt_sortcat.
* Internal Table
DATA: BEGIN OF gt_salesorder OCCURS 0,
vbeln LIKE vbak-vbeln, " Sales Document Number
posnr LIKE vbap-posnr, " Sales Doc Item
netwr LIKE vbap-netwr, " Net Value
END OF gt_salesorder.
* SELECT OPTIONS
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME
TITLE text-001.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln. " Sales Document
Number.
SELECTION-SCREEN END OF BLOCK b1.
* Initialization
INITIALIZATION.
PERFORM initialization.
* Start Of Selection
START-OF-SELECTION.
PERFORM field_catalog. "For Structure Creation
PERFORM fetch_data. "Get the Data From DB Table
PERFORM sorting USING gt_sortcat.
* End Of Selection
END-OF-SELECTION.
PERFORM display_data.
*& Form initialization
* text
* --> p1 text
* <-- p2 text
FORM initialization .
s_vbeln-sign = 'I'.
s_vbeln-option = 'BT'.
s_vbeln-low = '4969'.
s_vbeln-high = '5000'.
APPEND s_vbeln.
ENDFORM. " initialization
*& Form field_catalog
* text
* --> p1 text
* <-- p2 text
FORM field_catalog .
REFRESH : gt_fieldcat.
CLEAR : wa_fieldcat.
wa_fieldcat-col_pos = '1'. "Column Position
wa_fieldcat-tabname = 'IT_SALESORDER'. "Internal Table
wa_fieldcat-fieldname = 'VBELN'. "Field Name
wa_fieldcat-key = 'X'. "Blue Color
wa_fieldcat-seltext_m = 'Sales Doc No'. "Display Text In Screen
APPEND wa_fieldcat TO gt_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '2'. "Column Position
wa_fieldcat-tabname = 'IT_SALESORDER'. "Internal Table Name
wa_fieldcat-fieldname = 'POSNR'. "Field Name
wa_fieldcat-seltext_m = 'Sales Doc Item'."Display Text In Screen
APPEND wa_fieldcat TO gt_fieldcat.
CLEAR wa_fieldcat.
*SubTotal on the Field NETWR
wa_fieldcat-col_pos = '3'. "Column Position
wa_fieldcat-tabname = 'IT_SALESORDER'. "Internal Table
wa_fieldcat-fieldname = 'NETWR'. "Field Name
wa_fieldcat-do_sum = 'X'. "Sum
wa_fieldcat-seltext_m = 'Net Value'. "Display Text In Screen
APPEND wa_fieldcat TO gt_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " field_catalog
*& Form sorting
* text
* -->P_IT_SORTCAT text
FORM sorting USING p_it_sortcat TYPE slis_t_sortinfo_alv.
CLEAR wa_sortcat.
wa_sortcat-fieldname = 'VBELN'.
wa_sortcat-up ='X'.
wa_sortcat-subtot = 'X'.
APPEND wa_sortcat TO p_it_sortcat.
ENDFORM. " sorting
*& Form display_data
* text
* --> p1 text
* <-- p2 text
FORM display_data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
it_fieldcat = gt_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
it_sort = gt_sortcat
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_salesorder
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.
ENDFORM. " display_data
*& Form fetch_data
* text
* --> p1 text
* <-- p2 text
FORM fetch_data .
REFRESH : gt_salesorder.
CLEAR : gt_salesorder.
SELECT a~vbeln
posnr
b~netwr
FROM vbak AS a
INNER JOIN vbap AS b ON a~vbeln = b~vbeln
INTO TABLE gt_salesorder
WHERE a~vbeln IN s_vbeln.
ENDFORM. " fetch_data
Edited by: Alvaro Tejada Galindo on Apr 11, 2008 12:24 PM

How to do subtotal and grand total as per currency in a tree ALV

Hi Experts,
I am doing a tree ALV for SD output. I met an urgent problem that is how to do subtotal and grand total on the field (netwr) as per currency (waerk) in the tree ALV. I am using below codes to create the tree ALV.
    l_tree_container_name = 'CCONTAINER1'.
    CREATE OBJECT objCustomContainer
        EXPORTING
              container_name = l_tree_container_name
        EXCEPTIONS
              cntl_error                  = 1
              cntl_system_error      = 2
              create_error               = 3
              lifetime_error              = 4
              lifetime_dynpro_dynpro_link = 5.
create tree control
    CREATE OBJECT objTree1
      EXPORTING
          parent              = objCustomContainer
          node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
          item_selection      = ' '
          no_html_header      = 'X'
          no_toolbar          = ''
      EXCEPTIONS
          cntl_error                   = 1
          cntl_system_error       = 2
          create_error                = 3
          lifetime_error               = 4
          illegal_node_selection_mode = 5
          failed                       = 6
          illegal_column_name          = 7.
    DATA l_hierarchy_header TYPE treev_hhdr.
    call method buildHierarchyHeader
      IMPORTING
        p_hierarchy_header = l_hierarchy_header.
Build fieldcatalog
    call method buildFieldcatalog.
    CALL METHOD objTree1->set_table_for_first_display
        EXPORTING
          is_hierarchy_header = l_hierarchy_header
        CHANGING
          it_fieldcatalog     = l_fieldcatalog
          it_outtab            = lt_order.
    CALL METHOD objTree1->update_calculations.
    CALL METHOD objTree1->frontend_update.
filling fieldcatalog,
      LS_FIELDCATALOG-FIELDNAME = 'NETWR'.
      LS_FIELDCATALOG-SCRTEXT_S = 'Net Value'.
      LS_FIELDCATALOG-COL_POS = l_pos.
      LS_FIELDCATALOG-OUTPUTLEN = 15.
      LS_fieldcatalog-do_dum= 'X'.
      LS_FIELDCATALOG-DATATYPE = 'CURR'.
      APPEND LS_FIELDCATALOG TO l_FIELDCATALOG.
      CLEAR LS_FIELDCATALOG.
      l_pos = l_pos + 1.
I could see the subtotal and grandtotal in tree ALV but they are simply sumed up regardless different currency.
Thank you very much for your kindly helps.
Yu

hi
good
go through this report and work accordingly.
REPORT ZALV.
TYPE-POOLS: SLIS.
DATA: G_REPID LIKE SY-REPID,
GS_PRINT            TYPE SLIS_PRINT_ALV,
GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,
GT_EVENTS           TYPE SLIS_T_EVENT,
GT_SORT             TYPE SLIS_T_SORTINFO_ALV,
GS_LAYOUT           TYPE SLIS_LAYOUT_ALV,
GT_FIELDCAT         TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF GT_FIELDCAT,
COL_POS TYPE I.
DATA: BEGIN OF ITAB,
FIELD1(5) TYPE C,
FIELD2(5) TYPE C,
FIELD3(5) TYPE P DECIMALS 2,
END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0.
INCLUDE STRUCTURE ITAB.
DATA: END OF ITAB1.
DATA: BEGIN OF ITAB_FIELDCAT OCCURS 0.
INCLUDE STRUCTURE ITAB.
DATA: END OF ITAB_FIELDCAT.
Print Parameters
PARAMETERS:
            P_PRINT AS CHECKBOX DEFAULT ' ', "PRINT IMMEDIATE
            P_NOSINF AS CHECKBOX DEFAULT 'X', "NO SELECTION INFO
            P_NOCOVE AS CHECKBOX DEFAULT ' ', "NO COVER PAGE
            P_NONEWP AS CHECKBOX DEFAULT ' ', "NO NEW PAGE
            P_NOLINF AS CHECKBOX DEFAULT 'X', "NO PRINT LIST INFO
            P_RESERV TYPE I.                  "NO OF FOOTER LINE
INITIALIZATION.
G_REPID = SY-REPID.
PERFORM PRINT_BUILD    USING GS_PRINT.      "Print PARAMETERS
START-OF-SELECTION.
TEST DATA
MOVE 'TEST1' TO ITAB1-FIELD1.
MOVE 'TEST1' TO ITAB1-FIELD2.
MOVE '10.00' TO ITAB1-FIELD3.
APPEND ITAB1.
MOVE 'TEST2' TO ITAB1-FIELD1.
MOVE 'TEST2' TO ITAB1-FIELD2.
MOVE '20.00' TO ITAB1-FIELD3.
APPEND ITAB1.
DO 50 TIMES.
APPEND ITAB1.
ENDDO.
END-OF-SELECTION.
PERFORM BUILD.
PERFORM EVENTTAB_BUILD CHANGING GT_EVENTS.
PERFORM COMMENT_BUILD CHANGING GT_LIST_TOP_OF_PAGE.
PERFORM CALL_ALV.
FORM BUILD.
DATA FIELD CATALOG
Explain Field Description to ALV
DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME = 'FIELD1'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
*FIELDCAT_LN-NO_OUT    = 'X'. "FIELD NOT DISPLAY, CHOOSE FROM LAYOUT
FIELDCAT_LN-KEY       = ' '.   "SUBTOTAL KEY
FIELDCAT_LN-NO_OUT    = ' '.
FIELDCAT_LN-SELTEXT_L = 'HEAD1'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME = 'FIELD2'.
FIELDCAT_LN-TABNAME   = 'ITAB1'.
FIELDCAT_LN-NO_OUT    = 'X'.
FIELDCAT_LN-SELTEXT_L = 'HEAD2'.
APPEND FIELDCAT_LN TO GT_FIELDCAT.
CLEAR FIELDCAT_IN.
FIELDCAT_LN-FIELDNAME     = 'FIELD3'.
FIELDCAT_LN-TABNAME       = 'ITAB1'.
FIELDCAT_LN-REF_FIELDNAME = 'MENGE'. "<- REF FIELD IN THE DICTIONNARY
FIELDCAT_LN-REF_TABNAME   = 'MSEG'. "<- REF TABLE IN THE DICTIONNARY
FIELDCAT_LN-NO_OUT        = ' '.
FIELDCAT_LN-DO_SUM        = 'X'.   "SUM UPON DISPLAY
APPEND FIELDCAT_LN TO GT_FIELDCAT.
DATA SORTING AND SUBTOTAL
DATA: GS_SORT TYPE SLIS_SORTINFO_ALV.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD1'.
GS_SORT-SPOS      = 1.
GS_SORT-UP        = 'X'.
GS_SORT-SUBTOT    = 'X'.
APPEND GS_SORT TO GT_SORT.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'FIELD2'.
GS_SORT-SPOS      = 2.
GS_SORT-UP        = 'X'.
*GS_SORT-SUBTOT    = 'X'.
APPEND GS_SORT TO GT_SORT.
ENDFORM.
FORM CALL_ALV.
ABAP List Viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME = 'ITAB1'
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT = GT_SORT[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS = GT_EVENTS[]
IT_EVENT_EXIT =
IS_PRINT = GS_PRINT
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ITAB1
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
ENDFORM.
HEADER FORM
FORM EVENTTAB_BUILD CHANGING LT_EVENTS TYPE SLIS_T_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
*GC_FORMNAME_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE'.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = LT_EVENTS.
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.
    APPEND LS_EVENT TO LT_EVENTS.
ENDIF.
define END_OF_PAGE event
READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
                         INTO LS_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_END_OF_PAGE TO LS_EVENT-FORM.
APPEND LS_EVENT TO LT_EVENTS.
ENDIF.
ENDFORM.
FORM COMMENT_BUILD CHANGING GT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: GS_LINE TYPE SLIS_LISTHEADER.
CLEAR GS_LINE.
GS_LINE-TYP = 'H'.
GS_LINE-INFO = 'HEADER 1'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
CLEAR GS_LINE.
GS_LINE-TYP = 'S'.
GS_LINE-KEY = 'STATUS 1'.
GS_LINE-INFO = 'INFO 1'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
GS_LINE-KEY = 'STATUS 2'.
GS_LINE-INFO = 'INFO 2'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
CLEAR GS_LINE.
GS_LINE-TYP = 'A'.
GS_LINE-INFO = 'ACTION'.
APPEND GS_LINE TO GT_TOP_OF_PAGE.
ENDFORM.
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
WRITE: SY-DATUM, 'Page No', SY-PAGNO LEFT-JUSTIFIED.
ENDFORM.
FORM END_OF_PAGE.
WRITE at (sy-linsz) sy-pagno CENTERED.
ENDFORM.
PRINT SETTINGS
FORM PRINT_BUILD USING LS_PRINT TYPE SLIS_PRINT_ALV.
LS_PRINT-PRINT              = P_PRINT. "PRINT IMMEDIATE
LS_PRINT-NO_PRINT_SELINFOS = P_NOSINF. "NO SELECTION INFO
LS_PRINT-NO_COVERPAGE       = P_NOCOVE. "NO COVER PAGE
LS_PRINT-NO_NEW_PAGE        = P_NONEWP.
LS_PRINT-NO_PRINT_LISTINFOS = P_NOLINF. "NO PRINT LIST INFO
LS_PRINT-RESERVE_LINES      = P_RESERV.
ENDFORM.
thanks
mrutyun^

Sub total wise Grand total in ALV report

Dear All,
I am displaying a list of material through material group wise so for each material i want to display sub-total for stock and grand total of stock(material group wise).Here it is adding up all the stock displayed for different AUOM(alternative unit of measure ) which is for same material so i want to pick only the sub-total and sum up in my Grand total.
How to pick only the Sub-total Results and Add in ALV List for Grand total.
Thanks & Regards,
Arun.
Edited by: Arun Kumaran on Sep 24, 2008 7:46 AM

Hi arun,
check these links
total and subtotal in alv
ALV SUBTOTAL
Regards,
Anirban

Alv subtotals and grand total for a field

Hi friends,
I Have an internal table ITAB1
in that i have a senario as below.
In my GRID display iam getting values in the layou as follows
BUKRS = 1000
LIFNR      MATNR     STCST
100          abc            500,00
100          pqr             400,00
100          xyz            200,00
                    sub total
200         pto              700,00
200         vbr              900,00
                    sub total
BUKRS = 2000
LIFNR      MATNR     STCST
150          abc            500,00
150          pqr             400,00
150          xyz            200,00
                    sub total
260         pto              700,00
260         vbr              900,00
                    sub total
          GRAND TOTAL =
Now my requirement is at the end of every vendor i need sub total for STCST field.
and at the end of every company code i need GRAND TOTAL for STCST field.
Its alv grid display.
how can i do that.
Regards,
Priyanka.

Check this sample code may it will help u:
*& Report Z_ALV_SUBTOTAL
REPORT z_alv_subtotal.
*& Table declaration
TABLES: ekko.
*& Type pool declaration
TYPE-POOLS: slis. " Type pool for ALV
*& Selection screen
SELECT-OPTIONS: s_ebeln FOR ekko-ebeln.
*& Type declaration
* Type declaration for internal table to store EKPO data
TYPES: BEGIN OF x_data,
       ebeln TYPE char30, " Document no.
       ebelp TYPE ebelp,   " Item no
       matnr TYPE matnr,   " Material no
       matnr1 TYPE matnr,   " Material no
       werks TYPE werks_d, " Plant
       werks1 TYPE werks_d, " Plant
       ntgew TYPE entge,   " Net weight
       gewe   TYPE egewe,   " Unit of weight
       END OF x_data.
*& Internal table declaration
DATA:
* Internal table to store EKPO data
i_ekpo TYPE STANDARD TABLE OF x_data INITIAL SIZE 0,
* Internal table for storing field catalog information
i_fieldcat TYPE slis_t_fieldcat_alv,
* Internal table for Top of Page info. in ALV Display
i_alv_top_of_page TYPE slis_t_listheader,
* Internal table for ALV Display events
i_events TYPE slis_t_event,
* Internal table for storing ALV sort information
i_sort TYPE slis_t_sortinfo_alv,
i_event TYPE slis_t_event.
*& Work area declaration
DATA:
wa_ekko TYPE x_data,
wa_layout     TYPE slis_layout_alv,
wa_events         TYPE slis_alv_event,
wa_sort TYPE slis_sortinfo_alv.
*& Constant declaration
CONSTANTS:
   c_header   TYPE char1
              VALUE 'H',                    "Header in ALV
   c_item     TYPE char1
              VALUE 'S'.
*& Start-of-selection event
START-OF-SELECTION.
* Select data from ekpo
SELECT ebeln " Doc no
         ebelp " Item
         matnr " Material*
         matnr " Material*
         werks " Plant*
         werks " Plant*
         ntgew " Quantity
         gewei " Unit
         FROM ekpo
         INTO TABLE i_ekpo
         WHERE ebeln IN s_ebeln
         AND ntgew NE '0.00'.
IF sy-subrc = 0.
    SORT i_ekpo BY ebeln ebelp matnr .
ENDIF.
* To build the Page header
PERFORM sub_build_header.
* To prepare field catalog
PERFORM sub_field_catalog.
* Perform to populate the layout structure
PERFORM sub_populate_layout.
* Perform to populate the sort table.
PERFORM sub_populate_sort.
* Perform to populate ALV event
PERFORM sub_get_event.
END-OF-SELECTION.
* Perform to display ALV report
PERFORM sub_alv_report_display.
*&      Form sub_build_header
*       To build the header
*       No Parameter
FORM sub_build_header .
* Local data declaration
DATA: l_system     TYPE char10 ,          "System id
        l_r_line     TYPE slis_listheader, "Hold list header
        l_date       TYPE char10,           "Date
        l_time       TYPE char10,           "Time
        l_success_records TYPE i,           "No of success records
        l_title(300) TYPE c.                " Title
* Title Display
l_r_line-typ = c_header.               " header
l_title = 'Test report'(001).
l_r_line-info = l_title.
APPEND l_r_line TO i_alv_top_of_page.
CLEAR l_r_line.
* Run date Display
CLEAR l_date.
l_r_line-typ = c_item.                " Item
WRITE: sy-datum TO l_date MM/DD/YYYY.
l_r_line-key = 'Run Date :'(002).
l_r_line-info = l_date.
APPEND l_r_line TO i_alv_top_of_page.
CLEAR: l_r_line,
         l_date.
ENDFORM.                    " sub_build_header
*&      Form sub_field_catalog
*       Build Field Catalog
*       No Parameter
FORM sub_field_catalog .
* Build Field Catalog
PERFORM sub_fill_alv_field_catalog USING:
     '01' '01' 'EBELN' 'I_EKPO' 'L'
     'Doc No'(003) ' ' ' ' ' ' ' ',
     '01' '02' 'EBELP' 'I_EKPO' 'L'
     'Item No'(004) 'X' 'X' ' ' ' ',
     '01' '03' 'MATNR' 'I_EKPO' 'L'
     'Material No'(005) 'X' 'X' ' ' ' ',
     '01' '03' 'MATNR1' 'I_EKPO' 'L'
     'Material No'(005) ' ' ' ' ' ' ' ',
     '01' '04' 'WERKS' 'I_EKPO' 'L'
     'Plant'(006) 'X' 'X' ' ' ' ',
     '01' '04' 'WERKS1' 'I_EKPO' 'L'
     'Plant'(006) ' ' ' ' ' ' ' ',
     '01' '05' 'NTGEW' 'I_EKPO' 'R'
     'Net Weight'(007) ' ' ' ' 'GEWE' 'I_EKPO'.
ENDFORM.                    " sub_field_catalog
*&     Form sub_fill_alv_field_catalog
*&     For building Field Catalog
*&     p_rowpos   Row position
*&     p_colpos   Col position
*&     p_fldnam   Fldname
*&     p_tabnam   Tabname
*&     p_justif   Justification
*&     p_seltext Seltext
*&     p_out      no out
*&     p_tech     Technical field
*&     p_qfield   Quantity field
*&     p_qtab     Quantity table
FORM sub_fill_alv_field_catalog USING p_rowpos    TYPE sycurow
                                        p_colpos    TYPE sycucol
                                        p_fldnam    TYPE fieldname
                                        p_tabnam    TYPE tabname
                                        p_justif    TYPE char1
                                        p_seltext   TYPE dd03p-scrtext_l
                                        p_out       TYPE char1
                                        p_tech      TYPE char1
                                        p_qfield    TYPE slis_fieldname
                                        p_qtab      TYPE slis_tabname.
* Local declaration for field catalog
DATA: wa_lfl_fcat    TYPE slis_fieldcat_alv.
wa_lfl_fcat-row_pos        = p_rowpos.     "Row
wa_lfl_fcat-col_pos        = p_colpos.     "Column
wa_lfl_fcat-fieldname      = p_fldnam.     "Field Name
wa_lfl_fcat-tabname        = p_tabnam.     "Internal Table Name
wa_lfl_fcat-just           = p_justif.     "Screen Justified
wa_lfl_fcat-seltext_l      = p_seltext.    "Field Text
wa_lfl_fcat-no_out         = p_out.        "No output
wa_lfl_fcat-tech           = p_tech.       "Technical field
wa_lfl_fcat-qfieldname     = p_qfield.     "Quantity unit
wa_lfl_fcat-qtabname       = p_qtab .      "Quantity table
IF p_fldnam = 'NTGEW'.
    wa_lfl_fcat-do_sum = 'X'.
ENDIF.
APPEND wa_lfl_fcat TO i_fieldcat.
CLEAR wa_lfl_fcat.
ENDFORM.                    " sub_fill_alv_field_catalog
*&      Form sub_populate_layout
*       Populate ALV layout
*       No Parameter
FORM sub_populate_layout .
CLEAR wa_layout.
wa_layout-colwidth_optimize = 'X'." Optimization of Col width
ENDFORM.                    " sub_populate_layout
*&      Form sub_populate_sort
*       Populate ALV sort table
*       No Parameter
FORM sub_populate_sort .
* Sort on material
wa_sort-spos = '01' .
wa_sort-fieldname = 'MATNR'.
wa_sort-tabname = 'I_EKPO'.
wa_sort-up = 'X'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO i_sort .
CLEAR wa_sort.
* Sort on plant
wa_sort-spos = '02'.
wa_sort-fieldname = 'WERKS'.
wa_sort-tabname = 'I_EKPO'.
wa_sort-up = 'X'.
wa_sort-subtot = 'X'.
APPEND wa_sort TO i_sort .
CLEAR wa_sort.
ENDFORM.                    " sub_populate_sort
*&      Form sub_get_event
*       Get ALV grid event and pass the form name to subtotal_text
*       event
*       No Parameter
FORM sub_get_event .
CONSTANTS : c_formname_subtotal_text TYPE slis_formname VALUE
'SUBTOTAL_TEXT'.
DATA: l_s_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 4
    IMPORTING
      et_events       = i_event
    EXCEPTIONS
      list_type_wrong = 0
      OTHERS          = 0.
* Subtotal
READ TABLE i_event INTO l_s_event
                    WITH KEY name = slis_ev_subtotal_text.
IF sy-subrc = 0.
    MOVE c_formname_subtotal_text TO l_s_event-form.
    MODIFY i_event FROM l_s_event INDEX sy-tabix.
ENDIF.
ENDFORM.                    " sub_get_event
*&      Form sub_alv_report_display
*       For ALV Report Display
*       No Parameter
FORM sub_alv_report_display .
DATA: l_repid TYPE syrepid .
l_repid = sy-repid .
* This function module for displaying the ALV report
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = l_repid
      i_callback_top_of_page   = 'SUB_ALV_TOP_OF_PAGE'
      is_layout                = wa_layout
      it_fieldcat              = i_fieldcat
      it_sort = i_sort
      it_events                = i_event
      i_default                = 'X'
      i_save                   = 'A'
    TABLES
      t_outtab                 = i_ekpo
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
IF sy-subrc <> 0.
*    MESSAGE i000 WITH 'Error in ALV report display'(055).
ENDIF.
ENDFORM.                    " sub_alv_report_display
*       FORM sub_alv_top_of_page
*       Call ALV top of page
*       No parameter
FORM sub_alv_top_of_page.                                   "#EC CALLED
* To write header for the ALV
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_alv_top_of_page.
ENDFORM.                    "alv_top_of_page
*&      Form subtotal_text
*       Build subtotal text
*       P_total Total
*       p_subtot_text Subtotal text info
FORM subtotal_text CHANGING
               p_total TYPE any
               p_subtot_text TYPE slis_subtot_text.
* Material level sub total
IF p_subtot_text-criteria = 'MATNR'.
    p_subtot_text-display_text_for_subtotal
    = 'Material level total'(009).
ENDIF.
* Plant level sub total
IF p_subtot_text-criteria = 'WERKS'.
    p_subtot_text-display_text_for_subtotal = 'Plant level total'(010).
ENDIF.
ENDFORM.                    "subtotal_text
Edited by: Joyjit Ghosh on Aug 21, 2008 5:25 PM

Changing totals value in hierarchical alv for a particular level/row

Hi,
I am displaying a hierarchical ALV having 4 levels.
Using field catalog, totals for all dynamic columns are found out.
I have a requirement not to display totals value for first and second levels.
And if possible, to display another value.
Tried using CL_GUI_ALV_TREE->change_node.
But it not updating.
Please suggest a solution.
Thanks,
Nisha Vengal.

Hi Ten Mariga,
I wonder why the second select Query is needed at all instead you can use
---> Not Needed
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
----> Instead you can do
READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
Append wa_zcontact to Second_table.
And you can use the Second_table to display the second ALV. The second Select Query will affect the performance too.
Cheers,
Krishnakumar B.

Subtotal in ALV grid for a particular type and Grand total in ALV

Hi,
I need to have sub total for a particular type(eg: goods, services).. and grand total at end in ALV grid..
ALV output required as below:
Type     VAT registration number     Country      Total Gross Amounts       Total Tax Amounts       Total Amount, ex-tax
Goods     ATU12345678     AT                  222.42      0         222.42
Goods     NL123456789B02     NL               3,417.00      0      3,417.00
     Goods Total                    3,639.42                -         3,639.42
Services     ATU12345678     AT               2,342.34      0      2,342.34
Services     NL123456789B02     NL                  223.33      0         223.33
     Services Total                    2,565.67                -         2,565.67
     Grand Total                    6,205.09                -         6,205.09
Let me as to how to achieve the above type in ALV grid...
Regards
Shiva

check this link..
Grand Totals in ALV grid disply function module
or do like this..
REPORT ZALVTESTFORSUBTOTAL.
tables:pa0008.
type-pools:slis.
types:begin of ty_pa0008,
      pernr like pa0008-pernr,
      begda like pa0008-begda,
      endda like pa0008-endda,
      ansal like pa0008-ansal,
      lga01 like pa0008-lga01,
      bet01 like pa0008-bet01,
      end of ty_pa0008.
data:it_pa0008 type standard table of ty_pa0008 with header line.
data:it_fieldcat type SLIS_T_FIELDCAT_ALV,
     wa_fieldcat type slis_fieldcat_alv,
     it_layout type slis_layout_alv,
     WA_events TYPE slis_alv_event,
     it_events TYPE slis_t_event.
select-options:s_pernr for pa0008-pernr.
start-of-selection.
perform getD_data.
perform disp_alv.
*&      Form getD_data
      text
--> p1        text
<-- p2        text
form getD_data .
select pernr
       begda
       endda
       ansal
       lga01
       bet01
       from pa0008
       into table it_pa0008
       where pernr in s_pernr.
sort it_pa0008 by pernr begda descending.
endform.                    " getD_data
*&      Form disp_alv
      text
--> p1        text
<-- p2        text
form disp_alv .
wa_fieldcat-fieldname = 'PERNR'.
wa_FIELDCAT-REPTEXT_DDIC = 'Personnel no'.
*WA_FIELDCAT-no_subtotals = 'X'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'BEGDA'.
wa_FIELDCAT-REPTEXT_DDIC = 'Start date'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'ENDDA'.
wa_FIELDCAT-REPTEXT_DDIC = 'End date'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'ANSAL'.
wa_FIELDCAT-REPTEXT_DDIC = 'Annula salary'.
wa_fieldcat-do_sum = 'X'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'LGA01'.
wa_FIELDCAT-REPTEXT_DDIC = 'Wage Type'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'BET01'.
wa_FIELDCAT-REPTEXT_DDIC = 'Amount for wagetype'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
DATA: sort TYPE slis_sortinfo_alv,
it_sort TYPE slis_t_sortinfo_alv.
sort-fieldname = 'PERNR'.
sort-subtot = 'X'.
SORT-UP = 'X'.
APPEND sort TO it_sort.
*sort-fieldname = 'BEGDA'.
*SORT-NO_SUBTOTS = 'X'.
*APPEND sort TO it_sort.
IT_layout-totals_text = 'total text'.
IT_layout-subtotals_text = 'Subtotal text'.
*WA_EVENTS-NAME = 'SUBTOTAL TEXT'.
*WA_EVENTS-FORM = 'SUBTOTAL TEXT'.
*APPEND WA_EVENTS TO IT_EVENTS.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM             = sy-repid
   IS_LAYOUT                      = it_LAYOUT
   IT_FIELDCAT                    = IT_FIELDCAT
   it_sort                        = it_sort
it_events                      = it_events
   TABLES
    t_outtab                       = it_pa0008 .
endform.                    " disp_alv

Grand Total Text is not printing in ALV

Hi all,
I am not able to print Grand Total text in my report
I am not doing subtotal, i am using only grand totals.
So i have used in the following way
WA_FIELDCAT-DO_SUM        = GC_X.
GS_LAYOUT-TOTALS_ONLY       = GC_X.
GS_LAYOUT-TOTALS_TEXT       = 'Totals'(049).
i am using using ALV GRID DISPLAY FM...its displaying the total amount, buts text is missing...
Can any one tell me what else i have to pass in the layout or fieldcatlog or FM

Hi AMR,
If you use REUSE_ALV_GRID_DISPLAY function module, i think Total text does not come .but if u use REUSE_ALV_LIST_DISPLAY function module Total text comes .
Check this sample program it let u know ..
"Types
TYPES:
      BEGIN OF t_pa0008,
        pernr TYPE pa0008-pernr,
        lga01 TYPE pa0008-lga01,
        bet01 TYPE pa0008-bet01,
      END OF t_pa0008.
"Work areas
DATA:
      w_pa0008 TYPE t_pa0008.
"Internal tables
DATA:
      i_pa0008 TYPE STANDARD TABLE OF t_pa0008.
PARAMETERS:
           list TYPE c RADIOBUTTON GROUP gr1,
           grid TYPE c RADIOBUTTON GROUP gr1.
" ALV Declarations
" Types Pools
TYPE-POOLS:
   slis.
" Types
TYPES:
   t_fieldcat         TYPE slis_fieldcat_alv,
   t_events           TYPE slis_alv_event,
   t_layout           TYPE slis_layout_alv,
   t_sort             TYPE slis_sortinfo_alv,
   t_keyinfo          TYPE slis_keyinfo_alv.
" Workareas
DATA:
   w_fieldcat         TYPE t_fieldcat,
   w_events           TYPE t_events,
   w_sort             TYPE t_sort,
   w_layout           TYPE t_layout,
   w_keyinfo          TYPE t_keyinfo.
" Internal Tables
DATA:
   i_fieldcat         TYPE STANDARD TABLE OF t_fieldcat,
   i_events           TYPE STANDARD TABLE OF t_events,
   i_sort             TYPE STANDARD TABLE OF t_sort.
START-OF-SELECTION.
PERFORM get_data.
END-OF-SELECTION.
PERFORM build_fieldcatalog.        "Fieldcatalog
PERFORM build_events.              "Events table
PERFORM buid_layout.               "Layout structure.
PERFORM build_sort_tab.            "To sort table and get subtotal
PERFORM display_data.
*&      Form get_data
FORM get_data.
DATA:l_0008 TYPE pa0008 OCCURS 0 WITH HEADER LINE.
SELECT pernr lga01 bet01
    FROM pa0008
    INTO CORRESPONDING FIELDS OF l_0008
    WHERE begda LE sy-datum
      AND endda GE sy-datum.
    w_pa0008-pernr = l_0008-pernr.
    w_pa0008-lga01 = l_0008-lga01.
    w_pa0008-bet01 = l_0008-bet01.
    APPEND w_pa0008 TO i_pa0008.
    CLEAR w_pa0008.
    w_pa0008-pernr = l_0008-pernr.
    w_pa0008-lga01 = l_0008-lga02.
    w_pa0008-bet01 = l_0008-bet02.
    APPEND w_pa0008 TO i_pa0008.
    CLEAR w_pa0008.
    w_pa0008-pernr = l_0008-pernr.
    w_pa0008-lga01 = l_0008-lga03.
    w_pa0008-bet01 = l_0008-bet03.
    APPEND w_pa0008 TO i_pa0008.
    CLEAR w_pa0008.
    w_pa0008-pernr = l_0008-pernr.
    w_pa0008-lga01 = l_0008-lga04.
    w_pa0008-bet01 = l_0008-bet04.
    APPEND w_pa0008 TO i_pa0008.
    CLEAR w_pa0008.
ENDSELECT.
ENDFORM.                    "get_data
*&      Form build_fieldcatalog
FORM build_fieldcatalog.
PERFORM build_fcat USING:
                "Field    Int.Table    Text
                 'PERNR' 'I_PA0008'   'PERNR', "Remove this if u dont want in the item table as well as it is there in the header table
                 'LGA01' 'I_PA0008'   'LGA01',
                 'BET01' 'I_PA0008'   'BET01'.
ENDFORM.                    "build_fieldcatalog
*&      Form build_events
*       text
FORM build_events.
CLEAR:
        w_events, i_events[].
w_events-name = 'TOP_OF_PAGE'.
w_events-form = 'TOP_OF_PAGE'.
APPEND w_events TO i_events.
CLEAR w_events.
ENDFORM.                    "build_events
*&      Form display_data
*       text
FORM display_data.
DATA:
        l_program TYPE sy-repid VALUE sy-repid,
        l_fm      TYPE RS38L_FNAM.
IF list = 'X'.
    l_fm = 'REUSE_ALV_LIST_DISPLAY'.
ELSEIF grid ='X'.
    l_fm = 'REUSE_ALV_GRID_DISPLAY'.
ENDIF.
CALL FUNCTION l_fm
    EXPORTING
      i_callback_program = l_program
      is_layout          = w_layout
      it_fieldcat        = i_fieldcat
      it_events          = i_events
      it_sort            = i_sort
    TABLES
      t_outtab           = i_pa0008.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    "display_data
*&      Form build_fcat
FORM build_fcat USING l_field l_tab l_text.
w_fieldcat-fieldname = l_field.
w_fieldcat-tabname   = l_tab.
w_fieldcat-seltext_m = l_text.
IF l_field = 'BET01'.
    w_fieldcat-do_sum = 'X'.
ENDIF.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
ENDFORM.                    " build_fcat
*&      Form top_of_page
*       text
FORM top_of_page.
DATA :
i_header TYPE slis_t_listheader,
w_header LIKE LINE OF i_header.
DATA:l_date1 TYPE datum,
       l_date2 TYPE datum.
w_header-typ = 'S'.
w_header-info = sy-title.
APPEND w_header TO i_header.
CLEAR w_header.
w_header-typ = 'H'.
w_header-info = sy-repid.
APPEND w_header TO i_header.
CLEAR w_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_header
      i_logo             = 'ENJOYSAP_LOGO'.
ENDFORM.                    "top_of_page
*&      Form BUILD_sort_tab
FORM build_sort_tab .
CLEAR :i_sort[],w_sort.
w_sort-spos      = 1.
w_sort-fieldname = 'PERNR'.
w_sort-tabname   = 'I_PA0008'. "header table
w_sort-up        = 'X'.
w_sort-subtot    = 'X'.
APPEND w_sort TO i_sort.
CLEAR w_sort.
ENDFORM.                    " BUILD_sort_tab
*&      Form buid_layout
FORM buid_layout .
w_layout-totals_text = 'Total'.
w_layout-subtotals_text = 'S.Total'.
ENDFORM.                    " buid_layout
Regards,
Venkat.O

I need the grand total for particular coulumn for ALV grid report(OOPs).

Hello,
I have used the following code,
But i m not getting the grand total by default.No error but not getting the desired result.
Could you please help me in this regard.
FORM display_simple_alv.
DATA : lr_msg TYPE   REF   TO cx_salv_msg.
DATA : lv_header   TYPE   REF   TO cl_salv_form_layout_grid,
         lv_h_label TYPE   REF   TO cl_salv_form_label,
         lv_h_flow   TYPE   REF   TO cl_salv_form_layout_flow.
DATA: gr_sorts TYPE REF TO cl_salv_sorts.
DATA: gr_agg TYPE REF TO cl_salv_aggregations.
TRY .
      cl_salv_table=>factory( IMPORTING r_salv_table = gr_salv_table
                               CHANGING t_table = gt_invdetails4 ).
    CATCH cx_salv_msg INTO lr_msg.
ENDTRY .
Display Basic Toolbar
gr_functions = gr_salv_table->get_functions( ).
gr_functions->set_all( abap_true ).
TRY .
      gr_columns = gr_salv_table->get_columns( ).
      gr_columns->set_optimize( ).
    CATCH cx_salv_not_found.
ENDTRY .
TRY .
      gr_column ?= gr_columns->get_column( 'KUNNR' ).
      gr_column->set_long_text( text-009 ).
      gr_column->set_medium_text( text-009 ).
      gr_column->set_short_text( text-009 ).
      gr_column ?= gr_columns->get_column( 'NAME1' ).
      gr_column->set_long_text( text-010 ).
      gr_column->set_medium_text( text-010 ).
      gr_column->set_short_text( text-011 ).
      gr_column ?= gr_columns->get_column( 'AMOUNT' ).
      gr_column->set_long_text( text-012 ).
      gr_column->set_medium_text( text-012 ).
      gr_column->set_short_text( text-012 ).
      gr_column ?= gr_columns->get_column( 'TAX' ).
      gr_column->set_long_text( text-013 ).
      gr_column->set_medium_text( text-013 ).
      gr_column->set_short_text( text-013 ).
      gr_column ?= gr_columns->get_column( 'IVA' ).
      gr_column->set_long_text( text-014 ).
      gr_column->set_medium_text( text-014 ).
      gr_column->set_short_text( text-015 ).
      gr_column ?= gr_columns->get_column( 'TOTAL_AMOUNT' ).
      gr_column->set_long_text( text-016 ).
      gr_column->set_medium_text( text-016 ).
      gr_column->set_short_text( text-017 ).
      gr_column ?= gr_columns->get_column( 'CURRENCY' ).
      gr_column->set_long_text( text-018 ).
      gr_column->set_medium_text( text-018 ).
      gr_column->set_short_text( text-018 ).
      gr_column ?= gr_columns->get_column( 'ZINTERNAL_REFNO' ).
      gr_column->set_long_text( text-019 ).
      gr_column->set_medium_text( text-019 ).
      gr_column->set_short_text( text-019 ).
      gr_column ?= gr_columns->get_column( 'MATERIAL_AMOUNT' ).
      gr_column->set_long_text( text-020 ).
      gr_column->set_medium_text( text-020 ).
      gr_column->set_short_text( text-021 ).
      gr_column ?= gr_columns->get_column( 'LABOUR_VALUE' ).
      gr_column->set_long_text( text-022 ).
      gr_column->set_medium_text( text-022 ).
      gr_column->set_short_text( text-023 ).
      gr_column ?= gr_columns->get_column( 'FAILURE_COST' ).
      gr_column->set_long_text( text-024 ).
      gr_column->set_medium_text( text-024 ).
      gr_column->set_short_text( text-021 ).
      gr_sorts = gr_salv_table->get_sorts( ).
      gr_sorts->add_sort( columnname = 'AMOUNT' subtotal = abap_true ). "for subtotal
      gr_agg = gr_salv_table->get_aggregations( ).
      gr_agg->add_aggregation( 'AMOUNT' ).
    CATCH cx_salv_not_found cx_salv_data_error cx_salv_existing.
ENDTRY .
Set top of page
CREATE OBJECT lv_header.
lv_h_label = lv_header->create_label( row = 1 column = 1 ).
lv_h_label->set_text( text-001 ).
lv_h_label = lv_header->create_label( row = 1 column = 5 ).
lv_h_label->set_text( text-002 ).
lv_h_label = lv_header->create_label( row = 1 column = 14 ).
lv_h_label->set_text( text-003 ).
lv_h_flow = lv_header->create_flow( row = 3 column = 04 ).
lv_h_flow->create_text( text = text-004 ).
lv_h_flow = lv_header->create_flow( row = 3 column = 05 ).
lv_h_flow->create_text( text = text-005 ).
lv_h_flow = lv_header->create_flow( row = 3 column = 06 ).
lv_h_flow->create_text( text = name ).
set the top of list using the header for Online.
gr_salv_table->set_top_of_list( lv_header ).
ALV Display
gr_salv_table->display( ).
ENDFORM .                     " DISPLAY_SIMPLE_ALV

Hi Sridevi,
To get the grand total, you need to pass the SORT itab to the function module. You need to populate the internal table with the fields on which you want the total or subtotal. If you donu2019t pass this table, you wonu2019t get it.
For ex:
   ls_sort_wa-spos = 1.
ls_sort_wa-fieldname = gs_plant-werks.
ls_sort_wa-up = 'X'.
ls_sort_wa-subtot = 'X'.
APPEND ls_sort_wa TO gt_sort.
So the above code, gives the sub total plant wise.
and if you want the sum(grand total) you can set the DO_SUM to u2018Xu2019 for that particular field in the field catalog.
So with this approach, you can get the sub total and grand total for a particular field.
If you donu2019t want the subtotal, just set DO_SUM, you will get the total.
Thanks,
Srini.

ALV GRID TEXT in grand Total

Hi friends,
In ALV GRID I need to display text in total like grand Total not in subtotal.
Please let me know the solution .
Thanks in advance
Rajendran

Hi,
R U using FM or Class.
If you are using FM, Grand total cannot be produced. Only using classes we can display Grand Totals.
Its my own experience.
thanks

ALV GRID - Text for Grand Total

Hi guys,
In ALV Grid, i need to display the Text 'GRAND TOTAL' at the left side of the row(Yellow line).
I have tried searching in the forum but didn't get the answer.
Please advice.
Thanks
Chintu

Hi
<br><br>
IF you copy and past this might not work but this is the sample code<br><br>
<pre>
REPORT Y_DOWN_TIME_ENTRYSRA.
TABLES : YDOWNTIME1.
TYPE-POOLS : SLIS.
*INTERNAL TABLE DECLARTION
data : l_layout type slis_layout_alv,
       x_events type slis_alv_event,
       it_events type slis_t_event.
DATA :ITAB LIKE YDOWNTIME1 OCCURS 0 WITH HEADER LINE .
data : GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      wa_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
**********************SELECTION PARAMETERS ************************
PARAMETERS: CB1 RADIOBUTTON GROUP G1 ,
            CB2 RADIOBUTTON GROUP G1 ,
            cb3 RADIOBUTTON GROUP G1 ,
            CB4 RADIOBUTTON GROUP G1 ,
            CB5 RADIOBUTTON GROUP G1 ,
            CB6 RADIOBUTTON GROUP G1 ,
            CB7 RADIOBUTTON GROUP G1 ,
            CB8 RADIOBUTTON GROUP G1 ,
            CB9 RADIOBUTTON GROUP G1 .
           CB10 RADIOBUTTON GROUP G1,
           CB11 RADIOBUTTON GROUP G1.
DATA : A TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS :S_EQUNR         FOR YDOWNTIME1-EQUNR ,
                  S_ERDop        FOR YDOWNTIME1-ERDAT,
                  S_MFSTT         FOR YDOWNTIME1-MFSTART.
PARAMETERS :    P_SHIFT         TYPE YDOWNTIME1-SHIFT,
                  P_CHARG         TYPE YDOWNTIME1-CHARG,
                  p_COGRU         TYPE YDOWNTIME1-QMGRP,
                  P_CODE          TYPE YDOWNTIME1-COde,
                 p_name          type ydowntime1-OPNAME,
                  p_sup           TYPE YDOWNTIME1-SUPERVISOR,
                  P_MANG           TYPE YDOWNTIME1-MANG.
SELECTION-SCREEN END OF BLOCK BK1 .
AT SELECTION-SCREEN.
IF CB1 EQ 'X'.
    select * from YDOWNTIME1
         INTO CORRESPONDING FIELDS OF TABLE   ITAB
               where erdat in S_ERDop .
ELSEIF CB2 EQ 'X' .
     select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where erdat in S_ERDop and charg eq p_charg .
ELSEIF CB3 EQ 'X' .
     select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where erdat in S_ERDop and charg eq p_charg and shift eq P_SHIFT .
ELSEIF CB4 EQ 'X' .
    select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where code eq p_code and erdat in S_ERDop.
ELSEIF CB5 EQ 'X' .
    select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where erdat in S_ERDop and EQUNR in S_EQUNR and QMGRP eq p_COGRU.
ELSEIF CB6 EQ 'X' .
    select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where OPNAME eq p_name and erdat in S_ERDop.
ELSEIF   CB7 EQ 'X' .
    select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where SUPERVISOR eq p_sup and erdat in S_ERDop.
ELSEIF   CB8 EQ 'X' .
    select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where MANG eq p_MANG and erdat in S_ERDop.
ELSEIF   CB9 EQ 'X'.
    select * from YDOWNTIME1
       INTO CORRESPONDING FIELDS OF TABLE   ITAB
       where erdat in S_ERDop and EQUNR in S_EQUNR.
endif.
loop at itab.
if itab-schno > 1.
A = ' '.
move A to itab-DCOR .
move A to itab-DCCR .
move A to itab-DCNR .
modify itab.
endif.
endloop.
perform create_fieldcat.
data: sort type slis_sortinfo_alv,
      it_sort type SLIS_T_SORTINFO_ALV.
sort-fieldname = 'EQUNR'.
sort-up = 'X'.
sort-subtot = 'X'.
APPEND sort to it_sort.
sort-fieldname = 'SHIFT'.
sort-up = 'X'.
*sort-subtot = 'X'.
APPEND sort to it_sort.
l_layout-TOTALS_TEXT = 'TOTAL'.
l_layout-SUBTOTALS_TEXT = 'SUBTOTAL'.
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program       = sy-repid
    is_layout                = l_layout
    it_fieldcat              = gt_fieldcat
    it_events                = it_events
    it_sort                  = it_sort
TABLES
    T_OUTTAB                       = ITAB
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.
*&      Form CREATE_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM CREATE_FIELDCAT .
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '1'.
LS_FIELDCAT-FIELDNAME   = 'ERDAT'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '12'.
ls_fieldcat-do_sum       = 'X'.
LS_FIELDCAT-SELTEXT_L = 'Date'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '2'.
LS_FIELDCAT-FIELDNAME   = 'UZEIT'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '8'.
LS_FIELDCAT-SELTEXT_L = 'Time'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '2'.
LS_FIELDCAT-FIELDNAME   = 'EQUNR'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '8'.
LS_FIELDCAT-SELTEXT_L = 'Equipment'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '2'.
LS_FIELDCAT-FIELDNAME   = 'CODE'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '12'.
LS_FIELDCAT-SELTEXT_L = 'CODE'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '3'.
LS_FIELDCAT-FIELDNAME   = 'QMGRP'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '20'.
LS_FIELDCAT-SELTEXT_L = 'Code Group'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '3'.
LS_FIELDCAT-FIELDNAME   = 'KURZTEXT'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '40'.
LS_FIELDCAT-SELTEXT_L = 'Code Text'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '7'.
LS_FIELDCAT-FIELDNAME   = 'DCOR'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '14'.
LS_FIELDCAT-SELTEXT_L = 'Opening Dips'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
    CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '8'.
LS_FIELDCAT-FIELDNAME   = 'DCCR'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '14'.
LS_FIELDCAT-SELTEXT_L = 'Closing Dips'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '9'.
LS_FIELDCAT-FIELDNAME   = 'DCNR'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '10'.
ls_fieldcat-do_sum       = 'X'.
LS_FIELDCAT-SELTEXT_L = 'Net Dips'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '9'.
LS_FIELDCAT-FIELDNAME   = 'PRO'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '10'.
ls_fieldcat-do_sum       = 'X'.
LS_FIELDCAT-SELTEXT_L = 'PROD IN LAC'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
   clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '4'.
LS_FIELDCAT-FIELDNAME   = 'CHARG'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '12'.
ls_fieldcat-do_sum       = 'X'.
LS_FIELDCAT-SELTEXT_L = 'Batch Number'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '6'.
LS_FIELDCAT-FIELDNAME   = 'OPNAME'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '20'.
LS_FIELDCAT-SELTEXT_L = 'Operators Name'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '6'.
LS_FIELDCAT-FIELDNAME   = 'SUPERVISOR'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '20'.
LS_FIELDCAT-SELTEXT_L = 'Supervisor Name'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
     CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '6'.
LS_FIELDCAT-FIELDNAME   = 'MANG'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '20'.
LS_FIELDCAT-SELTEXT_L = 'Manager'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '6'.
LS_FIELDCAT-FIELDNAME   = 'SHIFT'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '20'.
LS_FIELDCAT-SELTEXT_L = 'Shift'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '9'.
LS_FIELDCAT-FIELDNAME   = 'MFSTART'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '10'.
LS_FIELDCAT-SELTEXT_L = 'Start Time'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '9'.
LS_FIELDCAT-FIELDNAME   = 'MFEND'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '10'.
LS_FIELDCAT-SELTEXT_L = 'End Time'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
   CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '9'.
LS_FIELDCAT-FIELDNAME   = 'DURATION'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '10'.
ls_fieldcat-do_sum       = 'X'.
LS_FIELDCAT-SELTEXT_L = 'DURATION'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
    CLEAR LS_FIELDCAT.
LS_FIELDCAT-ROW_POS     = '1'.
LS_FIELDCAT-COL_POS     = '9'.
LS_FIELDCAT-FIELDNAME   = 'ZUNIT'.
LS_FIELDCAT-KEY         = ''.
LS_FIELDCAT-OUTPUTLEN   = '10'.
LS_FIELDCAT-SELTEXT_L = 'UNIT'.
APPEND LS_FIELDCAT TO GT_FIELDCAT.
    clear LS_FIELDCAT .
ENDFORM.                    " CREATE_FIELDCAT
</pre>
Edited by: Matt on Sep 3, 2009 12:06 PM

Urgent:Grand total in hierarchical alv

Similar Messages

Maybe you are looking for