Charly Tango writes:

>>> Charly Tango <[log in to unmask]> 10/21/98 11:13pm >>>
Hello listers,

Last weekend we upgraded our HP3000 from MPE iX 4.0 to 5.5.
We have lots of powerhouse and cobol applications running.

One of our cobol programs gave the following error:

Filename: F705D01
File status is 48
FILE NOT OPENED or MODE INCORRECT [47,48,49,9x] WRITE (COBERR
638)
Program file: co705011.obj705.pers
END OF FILE (FSERR 0)

The file mentioned above is a direct file opened I-O, read once and
written
once.

After altering the sequence to:
    Open Input/read/close and Open Output/write/close
the problem was solved.

Is this a known bug??
Are there more bugs like this??

T.I.A.
Cees Tuinder, Boskalis-Westminster Dredging Co., the Netherlands.
-------------------------------------------------------------------------------
This is not a bug, but is a fix to Cobol to conform to the ANSI'85 standard.
The entire story can be read on page 10-56 of the 5.0 communicator.
Basically you are no longer allowed to open an ACCESS SEQUENTIAL
file with I-O mode and then do a READ followed by WRITE to the record
just read.  To continue as before you must do one of following:

1.  Set character 10 of the COBRUNTIME to W

2.  Change your WRITE to REWRITE

3.  Recompile with the STAT74 control option

4.  Recompile with the ANSI'74 entry point.

Mike Berkowitz
Guess? Inc.