Re: COBOL Copy DDS Problem

That worked
THANKS A MILLION!!!!!!!!!!!

To: "COBOL Programming on the iSeries/AS400" <cobol400-l@xxxxxxxxxxxx>
Sent: Tuesday, January 10, 2006 4:15 PM
Subject: Re: [COBOL400-L] COBOL Copy DDS Problem

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.

--
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.