Generate MQ, CICS related reports using CA Explore Report writer

 We can use CA Explore Report writer to generate Various sub system reports such as CICS, MQ, MVS, IMS etc from Sysview Log streams.

The below sample job gerenates "MQ OBJECT STATISTICS" from Sysview MQ log stream

//***************************************************************       

//* You can use logstreams as input:                            *       

//*                                                             *       

//* SET SMFIN='sysview.AUDIT.ADTT'                              *       

//* SET SMFIN='sysview.CICSLOGR.TRAN'                           *       

//* SET SMFIN='sysview.CICSLOGR.TSUM'                           *       

//* SET SMFIN='sysview.CICSLOGR.SYSD'                           *       

//* SET SMFIN='sysview.CICSLOGR.XLOG'                           *       

//* SET SMFIN='sysview.IMSLOGR.IMTR'                            *       

//* SET SMFIN='sysview.IMSLOGR.IMRS'                            *       

//* SET SMFIN='sysview.MQSDATA.MQHR'                            *       

//* SET SMFIN='sysview.SMFDATA.SMFD'                            *       

//* SET SMFIN='sysview.SYSDATA.XLOG'                            *       

//*                                                             *       

//* Type LGLOGS command in SYSVIEW to find out names of the     *       

//* logstreams.                                                 *       

//*                                                             *       

//***************************************************************       

//* Type Sysview high level qualifier below.                    *       

//***************************************************************       

// SET SMFIN='XXX0150.MQSDATA.MQHR'          

// SET SYSVIEW='CA.SYSVIEW.R17'                                        

//*                                                                     

//REPORT   EXEC PGM=XPFRMAIN,REGION=4M                                  

//STEPLIB  DD DISP=SHR,DSN=&SYSVIEW..CNM4BLOD                           

//ERPTPRM  DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM                           

//SYSUDUMP DD SYSOUT=*                                                  

//SYSPRINT DD DSN=USERID.MQ.SYSVIEW.TEST,                              

//            DISP=(NEW,CATLG,DELETE),                                  

//            SPACE=(CYL,(50,50)),                                      

//            DCB=(RECFM=FB,LRECL=1024)                                 

//TAPSMF   DD DISP=SHR,DSN=&SMFIN,                              *       

//            SUBSYS=(LOGR,GSVXLGEX,                            *       

//            'FROM=OLDEST,TO=YOUNGEST,LOCAL',                  *       

//            'STATS,EXPAND,BACKWARD,NORDW'),                   *       

//            DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760) *       

//*                                                             *       

//SYSIN    DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM(MQ001)               

//*                                                                

//***************************************************************  

//* Use this utility to transform created report to CSV format. *  

//*                                                             *  

//* Optional parameters: (one character long only)              *  

//*  - VS - Value Separator (default is ,)                      *  

//*  - DS - Decimal Separator (default is .)                    *  

//*                                                             *  

//***************************************************************  

//*                                                                

//PARSE    EXEC PGM=IKJEFT01                                       

//SYSEXEC  DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM                      

//SYSTSPRT DD SYSOUT=*                                             

//RWO      DD SYSOUT=*,DCB=(RECFM=FB,LRECL=1024)                   

//CSVIN    DD DSN=USERID.MQ.SYSVIEW.TEST,DISP=SHR                 

//CSVOUT   DD DSN=USERID.MQ.SYSVIEW.TEST.CSV,  

//            DISP=(NEW,CATLG,DELETE),          

//            SPACE=(CYL,(50,50)),              

//            DCB=(RECFM=FB,LRECL=1024)         

//SYSTSIN  DD *                                 

  CSVGEN CSVIN CSVOUT VS=; DS=,                 

/*                                              

The sample control cards to generate various reports can be found at 

sysview.CNM4RSAM($$INDEX) library

The below job generates last 1 hour "CICS Transaction Detail Report" from Sysview CICS logstream  

// SET SMFIN='XXXX150.CICSLOGR.TRAN'      

// SET SYSVIEW='CA.SYSVIEW.R17'                                    

//*                                                                 

//REPORT   EXEC PGM=XPFRMAIN,REGION=4M                              

//STEPLIB  DD DISP=SHR,DSN=&SYSVIEW..CNM4BLOD                       

//ERPTPRM  DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM                       

//SYSUDUMP DD SYSOUT=*                                              

//*YSPRINT DD SYSOUT=*                                              

//SYSPRINT DD DSN=USERID.CICS.SYSVIEW.TEST,                        

//            DISP=(NEW,CATLG,DELETE),                              

//            SPACE=(CYL,(50,50)),                                  

//            DCB=(RECFM=FB,LRECL=1024)                             

//TAPSMF   DD DISP=SHR,DSN=&SMFIN,                              *   

//            SUBSYS=(LOGR,GSVXLGEX,'LOCAL,DURATION=(1,HOURS)'),    

//            DCB=BLKSIZE=32760                                     

//SYSIN    DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM(CICS031)   

//PARSE    EXEC PGM=IKJEFT01                          

//SYSEXEC  DD DISP=SHR,DSN=&SYSVIEW..CNM4RSAM         

//SYSTSPRT DD SYSOUT=*                                

//RWO      DD SYSOUT=*,DCB=(RECFM=FB,LRECL=1024)      

//CSVIN    DD DSN=USERID.CICS.SYSVIEW.TEST,DISP=SHR  

//CSVOUT   DD DSN=USERID.CICS.SYSVIEW.TEST.CSV,      

//            DISP=(NEW,CATLG,DELETE),                

//            SPACE=(CYL,(50,50)),                    

//            DCB=(RECFM=FB,LRECL=1024)               

//SYSTSIN  DD *                                       

  CSVGEN CSVIN CSVOUT VS=; DS=,                       

/*                                                    

Documentation for Sample reports can be found at https://techdocs.broadcom.com/us/en/ca-mainframe-software/performance-and-storage/ca-sysview-performance-management/17-0/reporting/using-ca-explore-report-writer/sample-reports/cics-sample-reports.html