Re: COBOL Copy DDS Problem

The COPY DDS statement needs to refer to the actual file, not the DDS source
for that file. For example,

        COPY DDS-formatname OF filename.
        or
        COPY DDS-formatname OF library-filename.

Hope this helps!
Richard


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of Don Stafford
Sent: Tuesday, January 10, 2006 4:03 PM
To: COBOL Programming on the iSeries/AS400
Subject: Re: [COBOL400-L] COBOL Copy DDS Problem


UAVBASEF is the library that contains the QDDSSRC file which contains TFACR
& TDUDD

----- Original Message -----
From: "Winchester Terry" <terry.winchester@xxxxxxxxxxxxxxx>
To: "COBOL Programming on the iSeries/AS400" <cobol400-l@xxxxxxxxxxxx>
Sent: Tuesday, January 10, 2006 3:12 PM
Subject: Re: [COBOL400-L] COBOL Copy DDS Problem


> Hmmm...maybe you have a library list problem or something...
>
> Do a DSPFD of UAVBASEF and look at the Record format name
> then change your copy statement to:
>
> COPY DDR-RecordFormatName of UAVBASEF
>
> Terry
>
>> -----Original Message-----
>> From: cobol400-l-bounces@xxxxxxxxxxxx
>> [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Don Stafford
>> Sent: Tuesday, January 10, 2006 3:00 PM
>> To: COBOL Programming on the iSeries/AS400
>> Subject: Re: [COBOL400-L] COBOL Copy DDS Problem
>>
>>
>> You're probably right - but that returns the same results -
>> No format TFACR00 found in file UAVBASEF
>>
>> ----- Original Message -----
>> From: "Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>
>> To: "'COBOL Programming on the iSeries/AS400'"
>> <cobol400-l@xxxxxxxxxxxx>
>> Sent: Tuesday, January 10, 2006 2:44 PM
>> Subject: Re: [COBOL400-L] COBOL Copy DDS Problem
>>
>>
>> > Shot in the dark, but shouldn't it be COPY DDS-TFACR00?
>> The format name
>> > is
>> > TFACR00, not TFACR.
>> >
>> > Joe
>> >
>> >> From: Don Stafford
>> >>
>> >> I have a DDS (RPG) I am trying to use in my Cobol code.
>> >> Here is part if the TFACR DDS..........
>> >>
>> >>  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')
>> >>
>> >> The REF(TFUDD) contains the actual field descriptions, sizes, etc.
>> >> What syntax do I use to get the Cobol compiler to read the
>> TFACR DDS, but
>> >> reference the TFUDD to get the inidividual field size information?
>> >>
>> >> I am using
>> >>         COPY DDS-TFACR OF UAVBASEF.
>> >>
>> >> This results in
>> >>         No format TFACR found in file UAVBASEF
>> >
>> >
>> > --