Administration of the CICS Feature › Batch Jobs › Processing the CICS SMF Records - APCCJSMF › Job APCCJSMF

Job APCCJSMF

Job APCCJSMF gathers information about executed CICS transactions from SMF Type 110 records.

This job should execute daily after the CICS SMF information for the previous day are completed.

If the job is executed separately on each image in a SYSPLEX, all copies of this job need strict serialization.

...JOBCARD                                                              
//*                                                                     
//********************************************************************  
//*                                                                  *  
//*     PMA: APCCJSMF                                                *  
//*                                                                  *  
//* MAINTENANCE: PMA TEAM                                            *  
//*                                                                  *  
//* ACTION:      INTERPRET CICS SMF RECORDS                          *  
//*                                                                  *  
//*------------------------------------------------------------------*  
//* Copyright (C) 2012 CA. All Rights Reserved.
//* Copyright (C) Trilog AG. 
//********************************************************************  
//*                                                                     
//********************************************************************  
//*                                                                  *  
//* ACTION:      EXTRACTION OF RECORDS TYPE 110 FROM SMF POOL        *  
//*                                                                  *  
//********************************************************************  
//*                                                                     
//APCCASDI EXEC PGM=APCCASDI                              
//STEPLIB  DD DISP=SHR,DSN=CAMAT.PMA.CEETLOAD                        
//APCSMF   DD DSN=cicssmfpool,                                  
//            DISP=SHR,DCB=(BUFNO=50)                                   
//APC110O  DD DSN=&&APC110O,                                            
//            DISP=(,PASS),                                             
//            UNIT=SYSDA,                                               
//            DCB=(RECFM=VB,LRECL=3120,BLKSIZE=27998),                  
//            SPACE=(CYL,(100,200))                                     
//APCVARS  DD DUMMY         <== CHANGE IF CICS SMF USER EXIT IS USED    
//APCREP   DD SYSOUT=*                                                  
//SYSUDUMP DD SYSOUT=*                                                  
//APCPARAM DD DISP=SHR,DSN=CAMAT.PMA.PARMS                           
//APCCDIC1 DD DISP=SHR,DSN=CAMAT.PMA.KSDSDIC                     
//APCBEXC1 DD DISP=SHR,DSN=CAMAT.PMA.KSDSEXC                     
//*   

//********************************************************************  
//*                                                                  *  
//* ACTION:      SORT INTERIM SMF RECORDS                            *  
//*                                                                  *  
//********************************************************************  
//*                                                                     
//SORT   EXEC  PGM=SORT                                                 
//SORTIN   DD DSN=&&APC110O,                                            
//            DISP=(OLD,DELETE)                                         
//SORTOUT  DD DSN=&&APC110S,                                            

//            UNIT=SYSDA,                                               

//            SPACE=(CYL,(100,200))                                     
//SYSOUT   DD SYSOUT=*                                                  

//SYSIN    DD *                                                         
         SORT FIELDS=(5,8,CH,A,23,4,BI,A,13,8,CH,A,27,5,BI,A)           
//*                                                                    
//********************************************************************  
//*                                                                  *  
//* ACTION:      PROCESS SORTED SMF RECORDS                          *  
//*                                                                  *  
//********************************************************************  
//*                                                                     
//APCCASSA EXEC PGM=APCCASSA                                            
//STEPLIB  DD DISP=SHR,DSN=CAMAT.PMA.CEETLOAD                        
//APCPARAM DD DISP=SHR,DSN=CAMAT.PMA.PARMS                           
//APC110I  DD DSN=&&APC110S,                                            
//            DISP=(OLD,DELETE)                                         
//APC110O  DD DSN=&&APC110X,                                            
//            DISP=(,PASS),                                             
//            UNIT=SYSDA,                                               

//            SPACE=(CYL,(10,20))                                       
//APCCCST1 DD DISP=SHR,DSN=CAMAT.PMA.KSDSCST                     
//APCCDIC1 DD DISP=SHR,DSN=CAMAT.PMA.KSDSDIC                     
//SYSUDUMP DD SYSOUT=*                                                  
//APCREP   DD SYSOUT=*                                                  
//APCEREP  DD SYSOUT=*                                                  
//*                                                                   

//********************************************************************  
//*                                                                  *  
//* ACTION:      SORT INTERVAL RECORDS                               *  
//*                                                                  *  
//********************************************************************  
//*                                                                     
//SORT   EXEC  PGM=SORT                                                 
//SORTIN   DD DSN=&&APC110X,                                            
//            DISP=(OLD,DELETE)                                         
//SORTOUT  DD DSN=&&APC110I,                                            
//            DISP=(,PASS),                                             
//            UNIT=SYSDA,                                               
//            DCB=(RECFM=VB,LRECL=255,BLKSIZE=27998),                   
//            SPACE=(CYL,(10,20))                                       
//SYSOUT   DD SYSOUT=*                                                  
//SORTDIAG DD SYSOUT=*                                                  
//SYSIN    DD *                                                         
         SORT FIELDS=(5,8,CH,A,21,4,BI,A,13,8,CH,A,25,2,BI,A)           
/*                                                                     
//*
//********************************************************************  
//*                                                                  *  
//* ACTION:      PROCESS SORTED INTERVAL RECORDS                     *  
//*                                                                  *  
//********************************************************************  
//*                                                                     
//APCCASSB EXEC PGM=APCCASSB                                            
//STEPLIB  DD DISP=SHR,DSN=CAMAT.PMA.CEETLOAD                        
//APCPARAM DD DISP=SHR,DSN=CAMAT.PMA.PARMS                           
//APC110I  DD DSN=&&APC110I,                                            
//            DISP=(OLD,DELETE)                                         
//APCCCST1 DD DISP=SHR,DSN=CAMAT.PMA.KSDSCST                     
//SYSUDUMP DD SYSOUT=*                                                  
//APCREP   DD SYSOUT=*                                                  
//APCEREP  DD SYSOUT=*