Printing Subtotals at the end of an ALV List

By Joyjit Ghosh, IBM India

Introduction:

The normal ALV list functionality provides for subtotals within the list and one grand total at the end of the report. If it is required to display the subtotals not within the list, but at the end of report the standard ALV functionality does not provide any way to do this. The tip described here caters to this special requirement. 

Normal Functionality (provided for in the standard ALV)

Item Heading

Item 1.1

Item 1.2

Item 1.3

Subtotal 1

Item 2.1

Item 2.2

Subtotal 2

Total

 Special Requirement (can be achieved using this tip)

Item Heading

Item 1.1

Item 1.2

Item 1.3

Item 2.1

Item 2.2

Subtotal 1 (Success)

Subtotal 2 (Error)

Detail Steps: 

Step 1

Define an internal table of type SLIS_T_EVENT, and a work area of type SLIS_ALV_EVENT.  

DATA:	T_EVENT TYPE SLIS_T_EVENT,
	W_EVENT TYPE SLIS_ALV_EVENT.

Step 2 

Append  AFTER-LINE-OUTPUT event to the internal table T_EVENT. 

CLEAR W_EVENT.
W_EVENT-FORM = SLIS_EV_AFTER_LINE_OUTPUT. 
W_EVENT-NAME = SLIS_EV_AFTER_LINE_OUTPUT."AFTER_LINE_OUTPUT event
APPEND W_EVENT TO T_EVENT. 

Step 3 
The subtotals are calculated and displayed in the list from the subroutine AFTER_LINE_OUTPUT, which corresponds to the event AFTER_LINE_OUTPUT. This subroutine uses the parameter P_RS_LINEINFO, which contains settings for each line displayed in the list. The actual subtotal’s output is created using the WRITE and FORMAT statements.
FORM AFTER_LINE_OUTPUT
  USING P_RS_LINEINFO TYPE SLIS_LINEINFO.
* Declaration of local variables
  DATA: L_SUCCESS TYPE WRBTR,     "Total For Successful Entries
        L_ERROR   TYPE WRBTR,     "Total For Unsuccessful Entries
        L_COUNT   TYPE I.         "No. Of lines in table T_OUTPUT
* Getting No. of Lines in the table T_OUTPUT
  DESCRIBE TABLE T_OUTPUT LINES L_COUNT.
* Displaying the totals after the last record of the internal
* table T_OUTPUT
  IF P_RS_LINEINFO-TABINDEX = L_COUNT.
*   Loop At the internal table T_OUTPUT
    LOOP AT T_OUTPUT INTO W_OUTPUT.
      IF W_OUTPUT-SFLAG = C_CHECKED.
                             "Flag: Indicates error record
*       Calculate total for unsuccessful entries
        L_ERROR = L_ERROR + W_OUTPUT-WRBTR.
      ELSE.
*       Calculate total for successful entries
        L_SUCCESS = L_SUCCESS + W_OUTPUT-WRBTR.
      ENDIF.
*     Clear workarea W_OUTPUT
      CLEAR W_OUTPUT.
    ENDLOOP.
*   Set format for the total line display
    ULINE AT (P_RS_LINEINFO-LINSZ).        "Dynamic Line Size
    FORMAT INTENSIFIED COLOR COL_TOTAL ON. "Setting the color
                                           "For the total row
                                           "As Yellow
    WRITE : /    SY-VLINE,                 "Vertical Line
                 TEXT-017,                 "Caption For Total
"Sum of Successful            
"Entries		
              33 L_SUCCESS,                "Total Of Successful
                                           "Entries
                 C_USD.                    "Currency Type USD
    POSITION     P_RS_LINEINFO-LINSZ.      "Dynamic Line Size
    WRITE :      SY-VLINE.                 "Vertical Line
    ULINE AT     (P_RS_LINEINFO-LINSZ).    "Dynamic Line Size
    WRITE : /    SY-VLINE ,                "Vertical Line
                 TEXT-018,                 "Caption For Total
"Sum of Successful            
"Entries
              33 L_ERROR,                  "Total Of Unsuccessful
                                           "Entries
                 C_USD.                    "Currency Type USD
    POSITION     P_RS_LINEINFO-LINSZ.      "Dynamic Line Size
    WRITE :      SY-VLINE.                 "Vertical Line
    FORMAT COLOR OFF.                      "Color Setting Off
  ENDIF.
ENDFORM.                                   "AFTER_LINE_OUTPUT

Step 4

The table T_EVENT is passed to the function 'REUSE_ALV_LIST_DISPLAY' while displaying the ALV Report.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
      I_CALLBACK_PROGRAM = L_REPID    "Program Name
      IS_LAYOUT          = W_LAYOUT   "Layout of the Report
      IT_FIELDCAT        = T_FIELDCAT "Field Catalog for Report
      IT_EVENTS          = T_EVENT    "For setting the events
   TABLES
      T_OUTTAB           = T_OUTPUT   "Report data Internal Table 
   EXCEPTIONS
      PROGRAM_ERROR      = 1
      OTHERS             = 2.

Result: 

The rows ‘Sum of Successful Entries’ and ‘Sum of Unsuccessful Entries’, showing total of all the successful (green) entries and total of all the unsuccessful (red) entries respectively, have been added using this method.

Limitations: 

  1.  The subtotals to be displayed are not calculated by the normal functionality of the ALV, and have to be calculated manually. 

  2. If we download the list, the subtotals will not get downloaded.

 

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image