CA Gen Host Encyclopedia SQL to show HPVP setting by Action Block

book

Article ID: 128993

calendar_today

Updated On:

Products

CA Gen CA Gen - Build Tool CA Gen - Workstation Toolset CA Gen - Host Encyclopedia CA Gen - Run Time Distributed 3RD PARTY TSO

Issue/Introduction

Is there a report or query to find if the High Performance View Passing flag was turned on for an action block? Is it possible to get a query for the host encyclopedia that would tell us what the value is for this option for an action block?

Environment

CA Gen Host Encyclopedia (z/OS)

Resolution

HPVPON   - displays EABs with HPVP enabled (Note: PASSGLOB property = M when enabled)
HPVPOFF - displays EABs with HPVP not enabled (Note there are 2 queries. One when 
                    PASSGLOB property does not exist in DPRP and one when it does exist)


-- HPVPON

-- UPDATE THE SQLID AND MODEL NAME LITERAL                 
                                                           
SET CURRENT SQLID='xxxxxxxx';                                
                                                           
-- LIST ALL EXTERNAL ACTION BLOCKS WITHIN A MODEL          
-- WITH HIGH PERFORMANCE VIEW PASSING ENABLED              
-- (PASSGLOB PROPERTY = M)                                 
                                                           
SELECT OBJ_ID, NAME.PROP_CHAR_VAL, PASSGLOB.PROP_CHAR_VAL  
  FROM DOBJ, DPRP INTEXT, DPRP NAME, DPRP PASSGLOB, DMDL   
 WHERE MODEL_NAME = 'your model name'                      
   AND MODEL_ID = OBJ_MODEL_ID                             
   AND OBJ_TYPE_CODE IN (21,23)                            
   AND OBJ_ID = INTEXT.PROP_OBJ_ID                         
   AND INTEXT.PROP_TYPE_CODE = 181                         
   AND INTEXT.PROP_CHAR_VAL = 'E'                          
   AND OBJ_ID = NAME.PROP_OBJ_ID                           
   AND NAME.PROP_TYPE_CODE = 224 
   AND OBJ_ID = PASSGLOB.PROP_OBJ_ID             
   AND PASSGLOB.PROP_TYPE_CODE = 244             
   AND PASSGLOB.PROP_CHAR_VAL = 'M'              
   ORDER BY NAME.PROP_CHAR_VAL;                  
                                        

--HPVPOFF

-- UPDATE THE SQLID AND MODEL NAME LITERALS                   
                                                              
SET CURRENT SQLID='xxxxxxxx';                                   
                                                              
-- LIST ALL EXTERNAL ACTION BLOCKS WITHIN A MODEL             
-- WITH HIGH PERFORMANCE VIEW PASSING NOT ENABLED             
-- WHERE PASSGLOB PROPERTY IS NOT EXPLICTLY IN DPRP TABLE     
-- BUT INSTEAD DEFAULTS TO Y WHICH MEANS HPVP IS NOT ENABLED  
                                                              
SELECT OBJ_ID, NAME.PROP_CHAR_VAL                             
  FROM DOBJ O, DPRP INTEXT, DPRP NAME, DMDL                   
 WHERE MODEL_NAME = 'your model name'                         
   AND MODEL_ID = O.OBJ_MODEL_ID                              
   AND O.OBJ_TYPE_CODE IN (21,23)                             
   AND O.OBJ_ID = INTEXT.PROP_OBJ_ID                          
   AND INTEXT.PROP_TYPE_CODE = 181                            
   AND INTEXT.PROP_CHAR_VAL = 'E'                             
   AND O.OBJ_ID = NAME.PROP_OBJ_ID                            
   AND NAME.PROP_TYPE_CODE = 224 
   AND NOT EXISTS                                            
     (SELECT PROP_OBJ_ID FROM DPRP PASSGLOB                  
       WHERE PASSGLOB.PROP_OBJ_ID= O.OBJ_ID                  
         AND PASSGLOB.PROP_TYPE_CODE=244)                    
   ORDER BY NAME.PROP_CHAR_VAL;                              
                                                             
-- LIST ALL EXTERNAL ACTION BLOCKS WITHIN A MODEL            
-- WITH HIGH PERFORMANCE VIEW PASSING NOT ENABLED            
-- (PASSGLOB PROPERTY NOT = M)       
--  IF YOUR PC CHARACTER SET DOES NOT HAVE ‘¬=’, TRY USING '()'
                   
                                                             
SELECT OBJ_ID, NAME.PROP_CHAR_VAL, PASSGLOB.PROP_CHAR_VAL    
  FROM DOBJ, DPRP INTEXT, DPRP NAME, DPRP PASSGLOB, DMDL     
 WHERE MODEL_NAME = 'your model name'                        
   AND MODEL_ID = OBJ_MODEL_ID                               
   AND OBJ_TYPE_CODE IN (21,23)                              
   AND OBJ_ID = INTEXT.PROP_OBJ_ID                           
   AND INTEXT.PROP_TYPE_CODE = 181                           
   AND INTEXT.PROP_CHAR_VAL = 'E'                            
   AND OBJ_ID = NAME.PROP_OBJ_ID                             
   AND NAME.PROP_TYPE_CODE = 224  
   AND OBJ_ID = PASSGLOB.PROP_OBJ_ID  
   AND PASSGLOB.PROP_TYPE_CODE = 244  
   AND PASSGLOB.PROP_CHAR_VAL ¬= 'M'  
   ORDER BY NAME.PROP_CHAR_VAL; 

Additional Information

CA Gen Client Server Encyclopedia SQL to show HPVP setting by Action Block: https://comm.support.ca.com/kb/ca-gen-client-server-encyclopedia-sql-to-show-hpvp-setting-by-action-block/KB000129204