search cancel

Finding transactions for a given CICS program

book

Article ID: 257828

calendar_today

Updated On:

Products

SYSVIEW Performance Management

Issue/Introduction

Looking for a quicker way to get the list of all associated transactions given a CICS program. 

Having a list of 100 programs for which it's needed to identify the related transaction ids.


 

Environment

SYSVIEW 16.0 & 17.0 - z/OS supported releases - 

Resolution

With SYSVIEW is included the Report Writer. Some sample of Report Writer parameters can be found in SYSVIEW's *.CNM4RSAM file. 

Here is a sample job that can be used. The following produces a CSV report that can be uploaded to EXCEL and filtered and sorted as needed. 

//*                                                                
//STEP1 EXEC PGM=XPFRMAIN,REGION=0M                              
//STEPLIB  DD DISP=SHR,DSN=SYSVIEW.SYSVW170.PRD.CNM4BLOD       
//ERPTPRM  DD DISP=SHR,DSN=SYSVIEW.SYSVW170.PRD.CNM4RSAM       
//SYSUDUMP DD SYSOUT=*                                              
//*SYSPRINT DD SYSOUT=Q                                             
//SYSPRINT   DD DSN=SYSVWIEW.CSV,                             
//         DISP=(NEW,CATLG,DELETE),                                 
//         DCB=(RECFM=FB,LRECL=1024),                               
//         SPACE=(CYL,(500,50),RLSE)                                
//TAPSMF   DD   DISP=SHR,DSN=SYSVIEW.CICSLOGR.TRAN,            
//         SUBSYS=(LOGR,GSVXLGEX,                                   
//         'FROM=OLDEST,TO=YOUNGEST,LOCAL',                         
//         'STATS,EXPAND,BACKWARD,NORDW'),                          
//          DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760)       
//*-------------------------------------------------------------*   
//* PRINT=DATETIME forces the date and time on every line       *   
//*-------------------------------------------------------------*   
//SYSIN    DD   *                                                   
OPTION(PRINT=DATETIME,MAXTO=NO,SUMMARY=NO,ZEROFLD=ZERO)             
                                                                    
COPY GSVSMF27                                                       
                                                                     
TAB TRANID,                                                            
  CICS PERF TRAN USE                                                   
TAB2 PROGID,                                                           
  CICS PERF PROG USE                                                   
                                                                       
END                                                                    
RUN                                                                    
                                                                       
//*                                                                    
//*===================================================================*
//*        CONVERT REPORT OUTPUT TO CSV.                              *
//*===================================================================*
//PARSE    EXEC PGM=IKJEFT01                                           
//SYSEXEC  DD DISP=SHR,DSN=SYSVIEW.SYSVW170.PRD.CNM4RSAM          
//SYSTSPRT DD SYSOUT=*                                                 
//RWO      DD SYSOUT=*,DCB=(RECFM=FB,LRECL=1024)                       
//CSVIN    DD DSN=SYSVIEW.CSV,DISP=OLD                          
//CSVOUT   DD DSN=SYSVIEW.CSVGEN,                               
//            DISP=(NEW,CATLG,DELETE),                                 
//            DCB=(RECFM=FB,LRECL=1024,BLKSIZE=0),                     
//            SPACE=(CYL,(5,5))                                        
//SYSTSIN  DD *                                                        
  CSVGEN CSVIN CSVOUT VS=; DS=,                                        
//*                                                                    

Additional Information

Check SYSVIEW documentation: 

Using Explore Report Writer