[COBOL400-L] 'with duplicates' clause.

[rick.baird@xxxxxxxxxxxxxxx]

Hey all,

I've just had the wonderful opportunity to recompile a ton of really old
cobol programs - many of which were CBL38 pgms, and most of them haven't
been compiled since probably before RISC.   I changed all of the CBL38s to
CBLs, which is probably why I'm having this problem.

I'm getting LBE7207 - I/O operation failed in program PROGRAM in LIBRARY (C
D F G). - with file status 95 - on files that are defined without UNIQUE
keys.

I've found that I can fix the problem one of 2 ways.  I can define a "FILE
STATUS IS" clause, or I can place 'WITH DUPLICATES' on the SELECT
statement.

I'd really like to get this done as fast as possible, but I don't want to
do the research on which files these programs use are/are not UNIQUE.

LBE7207 says that opening a file with file-status 95 could cause
unpredictable results, but I'm willing to live with the existing logic in
the programs to enforce duplicate keys rules.  What other 'unpredictable
results' could they be talking about?

My question is this:  Would you just go into these programs and define file
status codes for all the files that don't have them and be done with it?

Thanks,

Rick