Creating a report that contains totals

You can use the DFSMSrmm-supplied reporting tool EXEC EDGRGGEN to create a report that generates:

The TOTAL statement, which includes the report footer information
The BTOTAL statement, which contains the text GROUP TOTALS when you select report columns that contain numeric values.

Figure 1 shows the panel that produces the JCL shown in Figure 2.

Figure 1. Defining a Report that shows column totals

EDGPG050            DFSMSrmm Report Definition - C01001     Row 1 to 29 of 173
  Command ===>                                                 Scroll ===>PAGE

  Report title . . . Size of data sets per volume
  Report footer  . . Grandtotal
  Reporting tool . : ICETOOL                                  Report width:   67
  Enter "/" to select option  
     Edit the help information for this report    
                                                                              
Use END to save changes or CANCEL                                             
The following line commands are valid: S, and R 

  S CO SO  Field name           Column header text                   CW  Len Typ
  - -- --- -------------------- ------------------------------------ --- --- ---
     G  1A XVVOLSER             Volume serial number                  20   6  C
     1     XDDSNAME             Data set name                         44  44  C
     2     XDDSSIZE             Size of file Kbytes                   20  10  N
        2A XDDSNSEQ             Data set sequence number              24   4  C
  *        RXTYPE               Record type - C'X'                    18   1  C
           XVPVOL               Previous volume in sequence           27   6  C

When a numeric field is defined as C (character) in the applied macro, you can override the data type with ZD (zoned decimal) to obtain the total for the column. In Figure 2, no change is required because the field XDDSSIZE is already declared as a numeric field. You could also change other lines in the JCL like the BTOTAL('') statement to BTOTAL('GROUP TOTALS:').

Figure 2. ICETOOL statements

//TOOLIN   DD *
 SORT FROM(INDD)  TO(TEMP) USING(INCL)
 DISPLAY FROM(TEMP) LIST(OUTDD) -
 TITLE('Size of data sets per volume') -
 PAGE DATE(4MD/) TIME -
 HEADER('Data set name') ON(12,44,CH) -
 HEADER('Size of file Kbytes ') ON(57,10,ZD,A0) -
 BTITLE('Volume serial number') -
 BREAK(5,7,CH) -
 BTOTAL('GROUP TOTALS:') -
 BLANK -
 TOTAL('Grandtotal')

The statements produce the sectioned report shown in Figure 3.

Figure 3. Sectioned Report

Size of data sets per volume        - 1 -        2013/03/21        01:00:46

Volume serial number  A05013

Data set name                                  Size of file Kbytes
--------------------------------------------   --------------------
RMMUSER.DSN1                                                     65
RMMUSER.DSN2                                                     26

GROUP TOTALS:                                                    91


Size of data sets per volume        - 2 -        2013/03/21        01:00:46

Volume serial number  A05014

Data set name                                  Size of file Kbytes
--------------------------------------------   --------------------
RMMUSER.DSN3                                                     26

GROUP TOTALS:                                                    26


Size of data sets per volume        - 3 -        2003/13/21        01:00:46

Data set name                                  Size of file Kbytes
--------------------------------------------   --------------------

Grandtotal                                                      117

A numeric field can be excluded from total and break totals. For that select the field in the Report Definition panel with an R, and you will get the Reports Controls panel for this field. If at "Sum if numeric" an N is entered, then the field is not to be subject of totaling.

EDGPG051      DFSMSrmm Report Controls - C01001    
                                         
 Field name . . . . : XDDSSIZE    
 Enter "/" to select additional options:
    Use available changed values to convert report data
 Or enter control information:
 Substring position .       
 Substring length . .       
 Orig field length  :   10  
 Column width . . . .             Sum if numeric      . . . . N  N or blank 
 Type . . . . . . . . N           Original field type . . . : N