Re: [COBOL400-L] 'with duplicates' clause.

[geir.kildal@xxxxxxxx]

Hi.

Compile the pgms with GENOPT(*NOSTDERR), and I think your problems will be 
solved...


Mvh.

Geir Kildal

 




rick.baird@xxxxxxxxxxxxxxx
Sent by: cobol400-l-bounces@xxxxxxxxxxxx
04.03.2004 16:19
Please respond to COBOL Programming on the iSeries/AS400

 
        To:     cobol400-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        [COBOL400-L] 'with duplicates' clause.


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


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