How do I find out which CA MetaCOBOL+ programs are related to a CA Datacom table?

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

Description

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?

Solution

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  *****