Is there an Endevor Report that shows elements and the number of statements with a grand total

Products

• Endevor

Issue/Introduction

Need a report that will provide the number of lines(statements) that are in Endevor Elements.  A grand total also is required.

Environment

All supported releases 

Resolution

There are no "canned" reports that will provide you with such a report.  However, you can use the Endevor Table Tools Utility to gather this information.  Below is an example that you can run.

To run this report: 

• Change the STEPLIB/CONLIB and SYSEXEC DDs to your site's dataset names.
• Change the information in DD BSTIPT01 to limit the scope of the report.
• The output in DD TBLOUT will be the Element information. 
• The output in DD TBLOUT2 is the grand totals.

//STEP1      EXEC PGM=NDVRC1,REGION=4M,                                  
//         PARM='CONCALL,DDN:CONLIB,BC1PCSV0'                          
//STEPLIB  DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTU                                       
//         DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQAUTH                         
//CONLIB   DD DISP=SHR,DSN=YOUR.EDEVOR.CSIQLOAD                                               
//**********************************************************           
//*  Build element list using CSV Utility                  *           
//**********************************************************           
//BSTIPT01 DD *                                                        
LIST ELEMENT  '*'                                                      
FROM ENVIRONMENT *                                                     
SYSTEM      *                                                          
SUBSYSTEM   *                                                          
TYPE        *                                                          
STAGE       *                                                          
DATA SUMMARY                                                           
TO DDNAME 'TABLE' .                                                    
//TABLE    DD DSN=&&EXTRACTM,                                   
//            DCB=(RECFM=FB,LRECL=1800,BLKSIZE=9000,DSORG=PS),  
//            DISP=(MOD,PASS),                                  
//            SPACE=(CYL,(5,5),RLSE)                            
//C1MSGS1  DD SYSOUT=*                                          
//BSTERR   DD SYSOUT=*                                          
//*                                                             
//**********************************************************    
//* Show contents of CSV file (for debugging)              *    
//**********************************************************    
//SHOWME   EXEC PGM=IEBGENER,REGION=1024K                       
//SYSPRINT DD DUMMY                                             
//SYSUT1   DD DSN=&&EXTRACTM,DISP=(OLD,PASS)                    
//SYSUT2   DD SYSOUT=*                                          
//SYSIN    DD DUMMY                                             
//SYSUDUMP DD SYSOUT=*                                          
//*                                                             
//**********************************************************    
//* Using Endevor's TableTool utility, read the element    *    
//* data and build a formatted list.                       *    
//* ==> TableTool utility;  IPRFX.IQUAL.CSIQCLS0(ENBPIU00) *    
//*                                                        *    
//* Output is in DDs TBLOUT and TBLOUT2                    *                               
//**********************************************************                
//STEP2   EXEC PGM=IRXJCL,COND=(4,LT),PARM='ENBPIU00 PARMLIST'             
//SYSEXEC  DD DISP=SHR,DSN=YOUR.ENDEVOR.CSIQCLS0                              
//TABLE    DD DSN=&&EXTRACTM,DISP=(OLD,PASS)                                
//PARMLIST DD *                                                             
NOTHING NOTHING  OPTIONS0 0                                                 
HEADING   TBLOUT  NOTHING 1                                                 
MODEL1    TBLOUT  OPTIONS1 A                                                
MODEL2    TBLOUT2 OPTIONS2 A                                                
//HEADING  DD *                                                             
ELM_NAME  ENV_NAME  SYS_NAME  SBS_NAME  TYPE_NAME STG_NAME   #_STMTS        
====================================================================        
//MODEL1   DD *                                                             
&ELM_NAME &ENV_NAME &SYS_NAME &SBS_NAME &TYPE_NAME &STG_NAME &#_STMTS       
//MODEL2   DD *                                                             
 Total Statements = &Total                                                  
//OPTIONS0 DD *                                                             
$StripData = 'N' ;       /* Preserve spaces */                              
Total=0  /* Initialize variable */                           
//OPTIONS1 DD *                                              
$Table_Type = "CSV"                                          
ELM_NAME  = Left(ELM_NAME,9)                                 
ENV_NAME  = Left(ENV_NAME,9)                                 
SYS_NAME  = Left(SYS_NAME,9)                                 
SBS_NAME  = Left(SBS_NAME,9)                                 
TYPE_NAME = Left(TYPE_NAME,9)                                
STG_NAME  = Left(STG_NAME,9)                                 
#_STMTS   = Left(#_STMTS,8)                                  
//OPTIONS2 DD *                                              
If $row#<1 then $SkipRow = 'Y'                               
If DATATYPE(#_STMTS) /= 'NUM' Then $SkipRow = 'Y'            
Total = Total + #_STMTS      /* Add #_STMTS to Total   */    
//SYSTSPRT DD SYSOUT=*                                       
//NOTHING  DD DUMMY                                          
//TBLOUTX  DD SYSOUT=*                                       
//*                                                          
//TBLOUT2  DD SYSOUT=*                                       
//*                                                          
//TBLOUT   DD SYSOUT=*