AcuXDBC, $XFD entries in FD

Dominique Sacre
Author
Rocketeer
Forum|Forum|10 years ago
August 6, 2015

Following Problem with compile XFD-compileable COBOL program. I have got following code sequence in a FD.

      216 $XFD COMMENT Adressenstamm
      217 $XFD FILE=SADF
      218
      219 FD      SADF
      220         LABEL RECORD OMITTED
      221         DATA RECORD IS SADR.
      222
      223
      224 78        SAD-KN-RECLEN                           VALUE 10000.
      225
      226 01      SADR.
      227
      228         02 SAD-TA.
      229 *               -- Firmennummer
      230                 03 SAD-KY                         PIC 9(4).
      231
      232 *               -- Key 0 (Primary Key)
      233                 03 SAD-TAKY0.
      234 *                       -- Adressennummer
      235                         04 SAD-KYKD               PIC X(9).
      236 *                       -- Adressennummer komplett wg/acu-xdbc
      237                         04 SAD-RDKYKD REDEFINES SAD-KYKD.
      238 *                               -- Adressenart (1=Debitor, 2=Kreditor
      239                                 05 SAD-KZKYKD     PIC 9.
      240 *                               -- Laufende Nummer der Adresse
      241                                 05 SAD-KDKYKD     PIC X(8).

Program is prepared for compile with AcuXDBC Options. After compile program I get this warning message from Acucobol Compiler:

line 198: Warning: Field SAD-KZKYKD causes duplicate database data

Have anyone an idea about this message?

#fd
#AcuXDBC
#XFD

An Addition of my question. XDBC table is generated with both fields, SAD-KYKD and SAD-KZKYKD, but the second is a redefination of first field. Normally it generates table fields from non-redefination fields (like SAD-KYKD). Redefined fields (like SAD-KYKD) are not respect by XDBC.

But these are key fields. I've got a notation there are differences in generating of XFD fields from COBOL between key fields an normal data fields.

Have anyone an idea about? Thanks.

Like

D

Dominique Sacre
Author
Rocketeer
Forum|Forum|10 years ago
August 6, 2015

Following Problem with compile XFD-compileable COBOL program. I have got following code sequence in a FD.

      216 $XFD COMMENT Adressenstamm
      217 $XFD FILE=SADF
      218
      219 FD      SADF
      220         LABEL RECORD OMITTED
      221         DATA RECORD IS SADR.
      222
      223
      224 78        SAD-KN-RECLEN                           VALUE 10000.
      225
      226 01      SADR.
      227
      228         02 SAD-TA.
      229 *               -- Firmennummer
      230                 03 SAD-KY                         PIC 9(4).
      231
      232 *               -- Key 0 (Primary Key)
      233                 03 SAD-TAKY0.
      234 *                       -- Adressennummer
      235                         04 SAD-KYKD               PIC X(9).
      236 *                       -- Adressennummer komplett wg/acu-xdbc
      237                         04 SAD-RDKYKD REDEFINES SAD-KYKD.
      238 *                               -- Adressenart (1=Debitor, 2=Kreditor
      239                                 05 SAD-KZKYKD     PIC 9.
      240 *                               -- Laufende Nummer der Adresse
      241                                 05 SAD-KDKYKD     PIC X(8).

Program is prepared for compile with AcuXDBC Options. After compile program I get this warning message from Acucobol Compiler:

line 198: Warning: Field SAD-KZKYKD causes duplicate database data

Have anyone an idea about this message?

#fd
#AcuXDBC
#XFD

An Addition of my question. XDBC table is generated with both fields, SAD-KYKD and SAD-KZKYKD, but the second is a redefination of first field. Normally it generates table fields from non-redefination fields (like SAD-KYKD). Redefined fields (like SAD-KYKD) are not respect by XDBC.

But these are key fields. I've got a notation there are differences in generating of XFD fields from COBOL between key fields an normal data fields.

Have anyone an idea about? Thanks.

Like

D

Dominique Sacre
Author
Rocketeer
Forum|Forum|10 years ago
August 6, 2015

Following Problem with compile XFD-compileable COBOL program. I have got following code sequence in a FD.

      216 $XFD COMMENT Adressenstamm
      217 $XFD FILE=SADF
      218
      219 FD      SADF
      220         LABEL RECORD OMITTED
      221         DATA RECORD IS SADR.
      222
      223
      224 78        SAD-KN-RECLEN                           VALUE 10000.
      225
      226 01      SADR.
      227
      228         02 SAD-TA.
      229 *               -- Firmennummer
      230                 03 SAD-KY                         PIC 9(4).
      231
      232 *               -- Key 0 (Primary Key)
      233                 03 SAD-TAKY0.
      234 *                       -- Adressennummer
      235                         04 SAD-KYKD               PIC X(9).
      236 *                       -- Adressennummer komplett wg/acu-xdbc
      237                         04 SAD-RDKYKD REDEFINES SAD-KYKD.
      238 *                               -- Adressenart (1=Debitor, 2=Kreditor
      239                                 05 SAD-KZKYKD     PIC 9.
      240 *                               -- Laufende Nummer der Adresse
      241                                 05 SAD-KDKYKD     PIC X(8).

Program is prepared for compile with AcuXDBC Options. After compile program I get this warning message from Acucobol Compiler:

line 198: Warning: Field SAD-KZKYKD causes duplicate database data

Have anyone an idea about this message?

#fd
#AcuXDBC
#XFD

An Addition of my question. XDBC table is generated with both fields, SAD-KYKD and SAD-KZKYKD, but the second is a redefination of first field. Normally it generates table fields from non-redefination fields (like SAD-KYKD). Redefined fields (like SAD-KYKD) are not respect by XDBC.

But these are key fields. I've got a notation there are differences in generating of XFD fields from COBOL between key fields an normal data fields.

Have anyone an idea about? Thanks.

Like

Stephen Hjerpe
Participating Frequently
Forum|Forum|10 years ago
August 6, 2015

Following Problem with compile XFD-compileable COBOL program. I have got following code sequence in a FD.

      216 $XFD COMMENT Adressenstamm
      217 $XFD FILE=SADF
      218
      219 FD      SADF
      220         LABEL RECORD OMITTED
      221         DATA RECORD IS SADR.
      222
      223
      224 78        SAD-KN-RECLEN                           VALUE 10000.
      225
      226 01      SADR.
      227
      228         02 SAD-TA.
      229 *               -- Firmennummer
      230                 03 SAD-KY                         PIC 9(4).
      231
      232 *               -- Key 0 (Primary Key)
      233                 03 SAD-TAKY0.
      234 *                       -- Adressennummer
      235                         04 SAD-KYKD               PIC X(9).
      236 *                       -- Adressennummer komplett wg/acu-xdbc
      237                         04 SAD-RDKYKD REDEFINES SAD-KYKD.
      238 *                               -- Adressenart (1=Debitor, 2=Kreditor
      239                                 05 SAD-KZKYKD     PIC 9.
      240 *                               -- Laufende Nummer der Adresse
      241                                 05 SAD-KDKYKD     PIC X(8).

Program is prepared for compile with AcuXDBC Options. After compile program I get this warning message from Acucobol Compiler:

line 198: Warning: Field SAD-KZKYKD causes duplicate database data

Have anyone an idea about this message?

#fd
#AcuXDBC
#XFD

Fields contained in a redefining item occupy the same positions as the fields being redefined. The compiler needs to select only one of the field definitions to use. The default rule that it follows is to use the fields in the item being redefined as column names. Take a look at the WHEN directive for XFDs.

Like

Stephen Hjerpe
Participating Frequently
Forum|Forum|10 years ago
August 6, 2015

Following Problem with compile XFD-compileable COBOL program. I have got following code sequence in a FD.

      216 $XFD COMMENT Adressenstamm
      217 $XFD FILE=SADF
      218
      219 FD      SADF
      220         LABEL RECORD OMITTED
      221         DATA RECORD IS SADR.
      222
      223
      224 78        SAD-KN-RECLEN                           VALUE 10000.
      225
      226 01      SADR.
      227
      228         02 SAD-TA.
      229 *               -- Firmennummer
      230                 03 SAD-KY                         PIC 9(4).
      231
      232 *               -- Key 0 (Primary Key)
      233                 03 SAD-TAKY0.
      234 *                       -- Adressennummer
      235                         04 SAD-KYKD               PIC X(9).
      236 *                       -- Adressennummer komplett wg/acu-xdbc
      237                         04 SAD-RDKYKD REDEFINES SAD-KYKD.
      238 *                               -- Adressenart (1=Debitor, 2=Kreditor
      239                                 05 SAD-KZKYKD     PIC 9.
      240 *                               -- Laufende Nummer der Adresse
      241                                 05 SAD-KDKYKD     PIC X(8).

Program is prepared for compile with AcuXDBC Options. After compile program I get this warning message from Acucobol Compiler:

line 198: Warning: Field SAD-KZKYKD causes duplicate database data

Have anyone an idea about this message?

#fd
#AcuXDBC
#XFD

The WHEN directive should allow you to use both names even though they occupy the same place within the COBOL data file.

Like

D

Dominique Sacre
Author
Rocketeer
Forum|Forum|10 years ago
August 10, 2015

Following Problem with compile XFD-compileable COBOL program. I have got following code sequence in a FD.

      216 $XFD COMMENT Adressenstamm
      217 $XFD FILE=SADF
      218
      219 FD      SADF
      220         LABEL RECORD OMITTED
      221         DATA RECORD IS SADR.
      222
      223
      224 78        SAD-KN-RECLEN                           VALUE 10000.
      225
      226 01      SADR.
      227
      228         02 SAD-TA.
      229 *               -- Firmennummer
      230                 03 SAD-KY                         PIC 9(4).
      231
      232 *               -- Key 0 (Primary Key)
      233                 03 SAD-TAKY0.
      234 *                       -- Adressennummer
      235                         04 SAD-KYKD               PIC X(9).
      236 *                       -- Adressennummer komplett wg/acu-xdbc
      237                         04 SAD-RDKYKD REDEFINES SAD-KYKD.
      238 *                               -- Adressenart (1=Debitor, 2=Kreditor
      239                                 05 SAD-KZKYKD     PIC 9.
      240 *                               -- Laufende Nummer der Adresse
      241                                 05 SAD-KDKYKD     PIC X(8).

Program is prepared for compile with AcuXDBC Options. After compile program I get this warning message from Acucobol Compiler:

line 198: Warning: Field SAD-KZKYKD causes duplicate database data

Have anyone an idea about this message?

#fd
#AcuXDBC
#XFD

You are correct that when you have a redefined field, only the first field (the one being redefined by the second) will be included as a column in the XFD - except for when the second one (or part of it) is declared as a KEY field. All KEY fields must be included as columns, so now we have the same data being added twice and thus the duplicate data warning.

Assuming the following SELECT:

       select sadf assign to disk
           organization is indexed
           record key is sad-ky
           alternate key is sad-kykd
           alternate key is sad-kzkykd.

and this part of the FD:

           03 SAD-KY PIC 9(4).
           03 SAD-TAKY0.
      *        -- This field will be included because it's the one 
      *        -- being redefined (AND because it's a key field)
               04 SAD-KYKD PIC X(9).
               04 SAD-RDKYKD REDEFINES SAD-KYKD.
      *            -- This field must be included because it's a key 
      *            -- field (but the data has already been included 
      *            -- above, thus causing the duplicate data warning)
                   05 SAD-KZKYKD PIC 9.
                   05 SAD-KDKYKD PIC X(8).

The duplicate data warning is just that - a warning. If you are going to update data through AcuXDBC, you will need to make sure that the duplicated areas contain the same values. If not... I'm not sure what the result will be, but my guess is that one or the other will take precedence and the other will be ignored. Or, it may cause an error of some sort.