Re: Cobol Source Code example - Help Please

[MichaelQuigley@xxxxxxxxxx]

The problem is you need to specify 'WITH DUPLICATES' after 
EXTERNALLY-DESCRIBED-KEY.  File status 39 indicates that the file 
attributes are different.  In this case, you're telling COBOL to process a 
file with unique key values, but the file is defined allowing duplicate 
keys.

Also, please note that the mailing list does not support colors, 
attachments, etc.

One more additional point, there is no such thing as an RPG DDS file.  RPG 
is a program language DDS is the native OS/400 language for defining data. 
 There are similarites (e.g., both are fixed-column languages), but they 
are different animals.

Original message:

------------------------------
date: Thu, 26 Jan 2006 15:17:39 -0500
from: "Don Stafford" <don.stafford@xxxxxxxxx>
subject: [COBOL400-L] Cobol Source Code example - Help Please

Here is a piece of the Cobol/400 code.

<snip>

INPUT-OUTPUT SECTION. 
 FILE-CONTROL. 
 
     select tfacr 
         assign to database-tfacr 
         organization indexed 
         access dynamic 
         record key externally-described-key 
ADD-->>  with duplicates               <--ADD
         file status tfacr-fs. 
           PrintFile. 

        .        .        .

        .        .        .

        .        .        .