How do I find out which CA MetaCOBOL+ programs are related to a CA Datacom table?
Article ID: 54546
Updated On:
Products
Datacom
DATACOM - AD
DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS
INFOCAI MAINTENANCE
IPC
CHORUS SOFTWARE MANAGER
Issue/Introduction
We have several CA MetaCOBOL+ application programs accessing several different CA Datacom tables.
Now we need to modify a table. How do we determine which programs access this table?
Environment
Release:
Component: IPC
Component: IPC
Resolution
To find out what application programs access a CA Datacom table, run the CA Datacom batch utility DDUTILTY to produce an indented report against the CA Datacom Datadictionary, listing the program names.
The DDUTILTY control statements show the path to follow is from Table to Element to Dataview to Program:
-USR user,password -DEF PATH, pathname -DEF TRACE,TABLE.KEY,$INTERNAL -DEF TRACE,TABLE.ELEMENT,$INTERNAL -DEF TRACE ELEMENT.DATAVIEW,$INTERNAL -DEF TRACE DATAVIEW.PROGRAM,PGM-DVW-USE -DEF TRACE PROGRAM.PROGRAM,PGM-PGM-CALL -END -RPT START,TABLE, tablename ( stat ), pathname -RPT INDENT -END
In the resulting report output, look for the Entity Type of "PGM".
In the following report for Table PAYROLL in PROD status, there are 3 programs (DLPROB1, DLPROB2, and TESTLE):
Date: 07/01/2008 Time: 08.46.23 ********************************************************* Page: 1
* Advantage CA-Datacom Database Datadictionary Option *
Security Level: 1 * Maintenance Report * Version: 11.0
* Copyright 2004 Computer Associates International, Inc.*
User: DATACOM-INSTALL ********************************************************* DD Base: 2
*-----------------------------------------------------------------------------------*
* CODE USER-NAME,PSWD,DATABASE-ID *
* -USR DATACOM-INSTALL,******* ; PROC *
*-----------------------------------------------------------------------------------*
Date: 07/01/2008 Time: 08.46.23 ********************************************************* Page: 2
* Advantage CA-Datacom Database Datadictionary Option *
Security Level: 1 * Utility Report * Version: 11.0
* Copyright 2004 Computer Associates International, Inc.*
User: DATACOM-INSTALL ********************************************************* DD Base: 2
-DEF PATH,PATHX ;
-DEF TRACE,TABLE.KEY,$INTERNAL ;
-DEF TRACE,TABLE.ELEMENT,$INTERNAL ;
-DEF TRACE ELEMENT.DATAVIEW,$INTERNAL ;
-DEF TRACE DATAVIEW.PROGRAM,PGM-DVW-USE ;
-DEF TRACE PROGRAM.PROGRAM,PGM-PGM-CALL ;
-END ;
Date: 07/01/2008 Time: 08.46.23 ********************************************************* Page: 3
* Advantage CA-Datacom Database Datadictionary Option *
Security Level: 1 * Utility Report * Version: 11.0
* Copyright 2004 Computer Associates International, Inc.*
User: DATACOM-INSTALL ********************************************************* DD Base: 2
-RPT START,TABLE,PAYROLL(PROD),PATHX ;
-RPT INDENT ;
-END ;
Date: 07/01/2008 Time: 08.46.23 ********************************************************* Page: 4
* Advantage CA-Datacom Database Datadictionary Option *
Security Level: 1 * Indented Report * Version: 11.0
* Copyright 2004 Computer Associates International, Inc.*
User: DATACOM-INSTALL ********************************************************* DD Base: 2
ENTITY-TYPE................... OCCURRENCE....................................................... S VERS *DATACOM/DB *
DESCRIPTION................................... NAME ID USE
SQLNAME............................................
TBL PAYROLL P 0001 PAY 001 N
PAYROLL MASTER FILE
SYSUSR.PAYROLL I A
KEY PAYROLL.NUMBER P 0001 EMPNO 001 M N
EMPLOYEE NUMBER
SYSUSR.EMPNO_PAY00001
ELM PAYROLL.ACTIVITY-CODE P 0001 PYIDT
EMPLOYEE NUMBER ELEMENT
ELM PAYROLL.FIGURES P 0001 FIGSS
EMPLOYEE PAY FIGURES
ELM PAYROLL.RECORD P 0001 PAYRC
EMPLOYEE PAYROLL RECORD ELEMENT
DVW DLA-ADBMFCS-SEG-LVL P 0034
ADR/DL
DVW DLDVW00000000018 P 0005
ADR/DL
DVW DLDVW00000018 P 0003
ADR/DL
DVW DLPAYROLL P 0022
ADR/DL
PGM DLPROB1 T 0001
ADR/DL
PGM DLPROB3 T 0001
ADR/DL
PGM TESTLE T 0001
ADR/DL
DVW DLTESTOB P 0011
ADR/DL
DVW PAYROLL P 0002
IDEAL SAMPLE DATAVIEW
***** END OF JOB - NO ERRORS *****
Feedback
Yes
No
Powered by
