Is it possible to attain the Buffer Pool History List (HSBUFL) in a Sysview for Db2 Batch report

Products

• SYSVIEW Performance Management Option for DB2 for z/OS

Issue/Introduction

Is there an IQL that prints the Sysview Performance Management Option for Db2 for z/OS (IDB2) r20 DB2 Bufferpool Hit Ratio report. 

Resolution

*(batch trace) System Bufferpool list                                           
 DECLARE STATS2 TOTAL-PGS-READ (N10.2) =                                        
   READ-IO + PG-READ-PREFETCH +                                                 
   LIST-PREFETCH-PAGES + DYNAMIC-PREFETCH-PAGES;                                
                                                                                
 DECLARE STATS2 BP-HITR (NS3.1) =                                               
   (GET-PAGE - TOTAL-PGS-READ) / GET-PAGE * 100 + 0;                            
                                                                                
 DECLARE STATS2 BP-HITRATIO (NS3.1) VALOF                                       
   IF GET-PAGE = 0             RESULTIS 0                                       
   ELSE                        RESULTIS BP-HITR                                 
   IFEND;                                                                       
                                                                                
                                                                                
                                                                                
 BTSTBUFR: TRACE (DELTA SORT-LINES=1)                                           
  <<* STATS2                                                                    
    EVENT-TIME                 (PF=DATETIME,HD='EVENT TIME')                    
    BUF-POOL-NAME              (PF=A7,HC=C,HD='Pool')                           
    VPOOL-BUFFERS              (PF=N7,HD='VPool','Size')                        
    AVG(CURR-ACT-BUF/VPOOL-BUFFERS)                                             
       (PF=N3.1/-2,AT=(W,80,R),HD=('%Non-','Steal') HELP=PCTNSTL)               
    SUM(EXP-FAIL-GETMAIN                                                        
      + RECALL-TIMEOUT                                                          
      + SEQ-PREFETCH-DIS-BUF                                                    
      + SEQ-PREFETCH-DIS-RD-ENG                                                 
      + WK-PREFETCH-ZEROS                                                       
      + WPHFWT-THRESHOLD                                                        
      + WKFILE-NOBUFFS                                                          
      + WORKFILES-DENIED                                                        
      + COND-SEQ-GETP-FAIL                                                      
      + PARALLELISM-DOWNGRADED                                                  
      + PREFETCH-QTY-TO-HALF                                                    
      + PREFETCH-QTY-TO-FOURTH                                                  
      + INEFFICIENT-SORTS                                                       
      + EXP-FAIL-MAX-LIM)      (PF=N4 AT=(W,0,R) HD='Warn' HELP=BPWARNS)        
    GET-PAGE                   (PF=N7,HD='Getpgs' NOSCROLL)                     
    READ-IO                    (PF=N6,HD='Sync','Rd I/O')                       
    AVG(GET-PAGE/READ-IO)                                                       
       (PF=N4.1,AT=(W,0,R,5,W),HD='Rd Eff' HELP=READEFF)                        
    BP-HITRATIO                (PF=N3.1,HD='Hit','Ratio' HELP=BPHITRAT)         
    SETW-SYS                   (PF=N6,HD='Buffer','Updts')                      
    PG-WRITES-SYS              (PF=N6,HD='Page','Writes')                       
    SUM(IMM-WRITES-SYS+WRITE-IO)(PF=N6,HD='Write','I/O' HELP=WRITEIO)           
  >>                                                                            
                                                                                
                                                                                
  <<  STATS2                                                                    
    BUF-POOL-NAME              (NODISP)                                         
    %P                                                                          
  >>                                                                            
 TITLE = ('Buffer Pool List')                                                   
 NEVENTS=400                                                                    
 PRINT(BTSTBUFR)                                                                
 ;