Sample Programs—Table Access and Creation › Example 4—Consolidating Tables

Example 4—Consolidating Tables

In this example, CA Culprit consolidates three departmental tables. Two of the tables reside on one IDMS/DC-UCF system and the third table resides on another. The output from this program is a report that prints the contents of the three tables. The following figure lists the CA Culprit parameters coded for the program.

Parameters Coded for Example 4:

  DATABASE DICTNAME=ASFDICT
  PROFILE USER=DOC1 PW=DOC1
  INPUT TABLE=ACCOUNTING TYPE=COPY VALIDATE=ALL
  INPUT TABLE='PUBLIC RELATIONS' TYPE=CONSOL
  INPUT TABLE=PERSONNEL TYPE=CONSOL
  010  ID
  0151*0050DEPT-NAME-0410   HH 'DEPARMENT NAME'
  0151*010 EMP-ID-0415      HH 'EMPLOYEE ID'
  0151*020 EMP-NAME-0415    HH 'EMPLOYEE NAME'
  0152*010 EMP-ID-0415
  0152*020 EMP-NAME-0415
  017      IF TABLE-ID EQ ID   100
  017      MOVE TABLE-ID TO ID
  017      TAKE 1
  017100   TAKE 2

The DATABASE parameter identifies ASFDICT as the default dictionary for the CA Culprit run. The PROFILE parameter identifies the id and the password of the user who is accessing the tables. The three INPUT parameters name the following departmental tables:

• Table ACCOUNTING AND PAYROLL is the primary table. Each column of tables PUBLIC RELATIONS and PERSONNEL is compared to the corresponding column definition in table ACCOUNTING AND PAYROLL.
• Table PUBLIC RELATIONS is a secondary table.
• Table PERSONNEL is a secondary table that resides in a different IDMS/DC-UCF system than tables ACCOUNTING and PUBLIC RELATIONS. The INPUT parameter identifies the dictionary that defines the table and the ddname of the SYSCTL file that accesses SYSTEM12.

Report 01 prints the contents of each table. The type 7 process logic uses CA Culprit's reserved word TABLE-ID to print only the first occurrence of each department name.

Printed Contents of Three Consolidated Tables:

                             DEPARMENT NAME                           EMPLOYEE ID                  EMPLOYEE NAME


             ACCOUNTING AND PAYROLL                                       0069               JUNE      BLOOMER
                                                                          0100               EDWARD    HUTTON
                                                                          0011               RUPERT    JENSON
                                                                          0067               MARIANNE  KIMBALL
                                                                          0106               DORIS     KING
                                                                          0101               BRIAN     NICEMAN

             PUBLIC RELATIONS                                             0120               MICHAEL   ANGELO
                                                                          0007               MONTE     BANK
                                                                          0158               JOCK      JACKSON
                                                                          9999               CARRIE    BALLINGER
                                                                          0127               CAROL     MCDOUGALL
                                                                          0149               LAURA     PENMAN
                                                                          0476               BETSY     ZEDI

             PERSONNEL                                                    0081               TOM       FITZHUGH
                                                                          8683               JUNIPER   HEDGEHOG
                                                                          0051               CYNTHIA   JOHNSON
                                                                          0091               MADELINE  ORGRATZI
                                                                          0013               ELEANOR   PEOPLES