Re: COBOL Copy DDS Problem

["Zangare Basil" <bzangare@xxxxxxxxx>]

Assuming UAVBASEF is the library, TFACR00 is the format and TFACR is the
file, it should be coded:

When UAVBASEF is in library list:
        COPY DDS-format-name of file-name.
        COPY DDS-TFACR00 of TFACR.

When library isn't in library list:
        COPY DDS-format-name of library-name filename.
        COPY DDS-TFACR00 of UAVBASEF TFACR.




Basil Zangare
Applications Specialist
Nikon Inc
1300 Walt Whitman Road
Melville, New York 11747
phone: (631) 547-4389
fax: (631) 547-4026
bzangare@xxxxxxxxx


-----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
>> >
>> >
>> > -- 
>> > This is the COBOL Programming on the iSeries/AS400
>> (COBOL400-L) mailing
>> > list
>> > To post a message email: COBOL400-L@xxxxxxxxxxxx
>> > To subscribe, unsubscribe, or change list options,
>> > visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
>> > or email: COBOL400-L-request@xxxxxxxxxxxx
>> > Before posting, please take a moment to review the archives
>> > at http://archive.midrange.com/cobol400-l.
>>
>> -- 
>> This is the COBOL Programming on the iSeries/AS400
>> (COBOL400-L) mailing list
>> To post a message email: COBOL400-L@xxxxxxxxxxxx
>> To subscribe, unsubscribe, or change list options,
>> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
>> or email: COBOL400-L-request@xxxxxxxxxxxx
>> Before posting, please take a moment to review the archives
>> at http://archive.midrange.com/cobol400-l.
>>
>>
>
> -- 
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L)
mailing 
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.