Gen Host Encyclopedia SQL to show HPVP setting by Action Block
Article ID: 128993
Updated On:
Products
Gen
Gen - Host Encyclopedia
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;
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
Gen Client Server Encyclopedia (CSE) SQL to show HPVP setting by Action Block: CA Gen Client Server Encyclopedia SQL to show HPVP setting by Action Block
Feedback
Yes
No
Powered by
