search cancel

Two tabular queries in one XPFRMAIN step

book

Article ID: 256177

calendar_today

Updated On:

Products

SYSVIEW Performance Management

Issue/Introduction

Is there a way to produce two tabular reports from one step of XPFRMAIN ?

Wanting to run only once on the TAPSMF LOGR file and not to split it to two different steps.

For example wanting to produce a file per transaction report ("first query") and a programs per transaction report ("second query"):

//REPORT   EXEC PGM=XPFRMAIN,REGION=4M
//ERPTPRM  DD DISP=SHR,DSN=CAI.SYSV16B.CNM4RSAM
//SYSUDUMP DD SYSOUT=* 
//SYSPRINT DD SYSOUT=*  
//TAPSMF   DD DISP=SHR,DSN=GSVX140.CICSLOGR.XLOG.SYS1,        
//         SUBSYS=(LOGR,GSVXLGEX,                             
//         'FROM=OLDEST,TO=YOUNGEST,LOCAL',                   
//         'STATS,EXPAND,FORWARD,NORDW'),                     
//          DCB=(DSORG=PS,RECFM=VB,LRECL=32756,BLKSIZE=32760) 

First query:


//SYSIN    DD *
TITLE1 CICS TRANSACTION FILE USAGE                                                                                 
OPTION(SUMMARY=NO)                                        
DEFINE XVAR CICS PER FILE PGM     PRODUCT=EXPC RECORD=27, 
       TRIPLET=X0FA OFFSET=X08 LENGTH=8 TYPE=CHARACTER    
DEFINE XVAR CICS PER FILE SYSID   PRODUCT=EXPC RECORD=27, 
       TRIPLET=X0FA OFFSET=X10 LENGTH=4 TYPE=CHARACTER    
DEFINE XVAR CICS PER FILE TIMETOT PRODUCT=EXPC RECORD=27, 
       TRIPLET=X0FA OFFSET=X20 LENGTH=8 TYPE=BINARY,      
       FORMAT(NNN.NNNNNN)                                                                                           
SELECT JOBNAME(&CICSNAME)                                  
SELECT TRANID(&TRANID)                                    
DEFINE ID KEY JOBNAME ' ' TRANID ' ' TRANNUM              
TAB DATETIME SORT(ASCENDING) KEY ENDTIME,                 
     TRAN USE                                     AND,    
     TRAN CPU                                     AND,    
     TRAN LIFE                                            
 TAB2 FILEID                                          ,    
     FILE PGM        HDR1(PROGRAM) HDR2(NAME)     AND,    
     FILE SYSID      HDR1(SYSTEM)  HDR2(ID)       AND,    
     FILE REQUESTS                                AND,    
     FILE REQTIME    HDR1(AVERAGE) HDR2(REQ TIME) AND,    
     FILE MAXREQTIME HDR1(MAXIMUM) HDR2(REQ TIME) AND,    
     FILE TIMETOT    HDR1(TOTAL)   HDR2(REQ TIME)         
FROM &FROM                                                
TO &TO                                                    
OPTION(DATAONLY=NO,SUMMARY=NO,DATEFRMT=DD/MM/YY,          
NULLID='N/A',ZEROFLD=ZERO)                                
END                                                        
RUN    

Second query:


//SYSIN    DD *
DEFINE ID KEY JOBNAME ' ' TRANID ' ' TRANNUM     
TAB DATE ENDTIME SORT(ASCENDING) KEY,            
TRAN CPUTIME AND,                                
TRAN LIFETIME                                    
TAB2 PROGID,                                     
PROG USE AND,                                    
PROG RESP                                        
OPTION(DATAONLY=NO,SUMMARY=NO,DATEFRMT=DD/MM/YY, 
NULLID='N/A',ZEROFLD=ZERO,LEAPSEC=NO)            
FROM &FROM                                       
TO   &TO                                         
END                                              
RUN  

                        


Environment

SYSVIEW 15 & 16.0 & 17.0 - z/OS supported releases - 

Resolution

Two TAB reports can be produced in the same run. The parameters would look similar to the following: 
 
TITLE1 CICS TRANSACTION FILE USAGE                        
OPTION(SUMMARY=NO)                                        
                                                          
OPTION(DATAONLY=NO,SUMMARY=NO,DATEFRMT=DD/MM/YY,          
NULLID='N/A',ZEROFLD=ZERO)                                
                                                          
DEFINE XVAR CICS PER FILE PGM     PRODUCT=EXPC RECORD=27, 
TRIPLET=X0FA OFFSET=X08 LENGTH=8 TYPE=CHARACTER           
                                                          
DEFINE XVAR CICS PER FILE SYSID   PRODUCT=EXPC RECORD=27, 
TRIPLET=X0FA OFFSET=X10 LENGTH=4 TYPE=CHARACTER           
                                                          
DEFINE XVAR CICS PER FILE TIMETOT PRODUCT=EXPC RECORD=27, 
TRIPLET=X0FA OFFSET=X20 LENGTH=8 TYPE=BINARY,             
                                                          
FORMAT(NNN.NNNNNN)                                        
                                                          
SELECT JOBNAME(&CICSNAME)                                 
SELECT TRANID(&TRANID)                                    
                                                          
DEFINE ID KEY JOBNAME ' ' TRANID ' ' TRANNUM              
                                                          
TAB DATETIME SORT(ASCENDING) KEY ENDTIME,                 
TRAN USE                                     AND,         
TRAN CPU                                     AND,         
TRAN LIFE                                                 
                                                          
TAB2 FILEID                                          ,    
FILE PGM        HDR1(PROGRAM) HDR2(NAME)     AND,         
FILE SYSID      HDR1(SYSTEM)  HDR2(ID)       AND,         
FILE REQUESTS                                AND,         
FILE REQTIME    HDR1(AVERAGE) HDR2(REQ TIME) AND,         
FILE MAXREQTIME HDR1(MAXIMUM) HDR2(REQ TIME) AND,         
FILE TIMETOT    HDR1(TOTAL)   HDR2(REQ TIME)              
                                                  
FROM &FROM                                        
TO &TO                                            
                                                  
END                                               
                                                  
                                                  
                                                  
DEFINE ID KEY JOBNAME ' ' TRANID ' ' TRANNUM      
                                                  
TAB DATE ENDTIME SORT(ASCENDING) KEY,             
TRAN CPUTIME AND,                                 
TRAN LIFETIME                                     
                                                  
TAB2 PROGID,                                      
PROG USE AND,                                     
PROG RESP                                         
OPTION(DATAONLY=NO,SUMMARY=NO,DATEFRMT=DD/MM/YY,  
NULLID='N/A',ZEROFLD=ZERO,LEAPSEC=NO)             
FROM &FROM                                        
TO   &TO                                          
                                                  
END                                               
RUN                                               
                                                  
/*