Finding Ideal programs that are related to a Datacom table

Products

• Datacom
• Ideal

Issue/Introduction

We have several Ideal application programs accessing several different Datacom tables.

Now we need to modify a table. How do we determine which programs access this table?

Environment

Ideal 

all versions

Resolution

Run Datacom batch utility DDUTILTY to produce an indented report against the 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.
The PGM names that start with "$I" are Ideal application programs, and the next 3 characters identify the Ideal system of the program.

In the following report for Table PAYROLL in PROD status, there is 1 program named $ISOLID#2976 (program ID#2976 in system SOL) with 2 versions in Test status:

 -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                                                                    ;
 
 -RPT START,TABLE,PAYROLL(PROD),PATHX                                    ;
 -RPT INDENT                                                             ;
 -END                                                                    ;
 
 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                        PAYROLL                                                           P 0002
                                     IDEAL SAMPLE DATAVIEW
          PGM                     $ISOLID#2976                                                      T 0001
                                     GETIT/GSETL
          PGM                     $ISOLID#2976                                                      T 0002
                                     GETIT/GSETL
           *****  END OF JOB - NO ERRORS  *****