Subordinate Search Object to return All Programs for IMS DB

Document ID : KB000047231
Last Modified Date : 14/02/2018
Show Technical Document Details

Question:

Using CA Repository for z/OS WebStation Option we have a FINDER object created that returns IMS DB information stored in the repository.  We would like to create a subordinate search object that will show us ALL programs which are used.     Is it possible to create a subordinate search object in WSO that will show you ALL programs for a selected IMS DB?

 

Answer:

The following SQL returns ALL programs for a IMS DB.  

You will need to create a new search object in the Repository (VD SHOPCNTL; VT TAB CNTL) with a Type of N (subordinate).

For example

 TAB CONTROL INFORMATION:                        

 TAB CONTROL NAME       ===> PROGRAMS FROM IMS DB

STATUS, VERSION        ===> DBXT      V: 0    

ATTRIBUTE INFORMATION:                          

 TAB TITLE              ===> PROGRAM FOR DBD    

 SEARCH OBJECT TYPE     ===> N                  

 

Then specify the following SQL for this object in EDIT.TEXT.DESCRIPT

Note. Change DBXREL30 to your repository creator

 

SELECT DISTINCT P.ENT_ID, P.PGM_NAME, P.STATUS, P.LANGUAGE, P.QUAL_DATASET_1,

P.COMPILER                                                         

FROM DBXREL30.DBX_IMS_PROGRAM P,                                   

     DBXREL30.DBX_XREF X,                                           

     DBXREL30.DBX_XREF X2,                                         

     DBXREL30.DBX_DDL_ELEMENTS E,                                  

     DBXREL30.DBX_XREF X3                                          

WHERE P.ENT_ID = X.SOURCE_ID                                        

AND X.ENT_TYPE = 217                                               

AND X.TARGET_ID = E.ENT_ID                                         

AND E.ENT_ID = X2.ENT_ID                                           

AND X2.ENT_TYPE = 153                                              

AND X2.ENT_ID = X3.TARGET_ID                                       

AND X3.ENT_TYPE = 163                                              

AND X3.SOURCE_ID = ?                                                

;                                                                  

 

Connect this new subordinate object to your IMS DB finder object as follows

 

FLOW INFORMATION:                                       

 FLOW OF CONTROL NAME   ===> IMS DBD.PROGRAMS FROM IMS DB

STATUS, VERSION        ===> DBXT      V: 0             

SOURCE INFORMATION:                                     

 FROM TAB NAME          ===> IMS DBD                    

 STATUS, VERSION        ===> DBXT      V: 0             

TARGET INFORMATION:                                     

 TO TAB NAME            ===> PROGRAMS FROM IMS DB       

 STATUS, VERSION        ===> DBXT      V: 0             

ATTRIBUTE INFORMATION:                                  

 SEQUENCE NUMBER        ===> 1