DDS Question

["Don Stafford" <don.stafford@xxxxxxxxx>]

Sorry - Here is the RPG DDS file layout

A**
A                                      REF(TFUDD)
A**
A          R TFACR00                   TEXT('Account Criteria File
A**
A            ATORG     R               REFFLD(ORIG)
A            ATSHAC    R               REFFLD(ACCT)
A                                      COLHDG('Ship Account')
A            ATCAD1    R               REFFLD(ADDR)
A                                      COLHDG('Customer' +
A                                      'Address 1')
A            ATCAD2    R               REFFLD(ADDR)
A                                      COLHDG('Customer' +
A                                      'Address 2')
A            ATCAD3    R               REFFLD(ADDR)
A                                      COLHDG('Customer' +
A                                      'Address 3')
A            ATCAD4    R               REFFLD(ADDR)
A                                      COLHDG('Customer' +
A                                      'Address 4')
A            ATCAD5    R               REFFLD(ADDR)
A                                      COLHDG('Customer' +
A                                      'Address 5')
A            ATDTE     R               REFFLD(DATE)
A                                      COLHDG('Date Stamp')
A            ATTME     R               REFFLD(TIME)
A                                      COLHDG('Time Stamp')
A            ATUSR     R               REFFLD(USER)
A                                      COLHDG('User Stamp')
A**
A          K ATORG
A          K ATSHAC

Using the command in the CBLLE source:

COPY DDSR-TFACR00 OF UAVBASEF-TFACR I get the following:

fd  tfacr
   label records are standard.
01  tfacr-record.
   COPY DDSR-TFACR00 OF UAVBASEF-TFACR.
   I-O FORMAT:TFACR00    FROM FILE TFACR      OF LIBRARY UAVBASEF.
.2....+....3....+....4....+....5....+....6....+....7....+..
                         Account Criteria File
         USER SUPPLIED KEY BY RECORD KEY CLAUSE
     05  TFACR00.
         06 ATORG                 PIC X(3).
                 Origin
         06 ATSHAC                PIC X(12).
                 Ship Account
         06 ATCAD1                PIC X(35).
                 Customer Address 1
         06 ATCAD2                PIC X(35).
                 Customer Address 2
         06 ATCAD3                PIC X(35).
                 Customer Address 3
         06 ATCAD4                PIC X(35).
                 Customer Address 4
         06 ATCAD5                PIC X(35).
         06 ATEDTM                PIC S9(4)         COMP-3.
                 Earliest Delivery Time
         06 ATDTE                 PIC S9(7)         COMP-3.
                 Date Stamp
         06 ATTME                 PIC S9(7)         COMP-3.
                 Time Stamp
         06 ATUSR                 PIC X(10).
                 User Stamp

No key is specified.

And I am receiving the following error:

10  MSGID: LNC1327  SEVERITY: 30  SEQNBR:  001200
    Message . . . . :   'EXTERNALLY-DEFINED-KEY' not defined in the
      program. Clause ignored.

Any help on this one??