Jacek Piskorz wrote in message <[log in to unmask]>...
>Hi
>You can try write: SETVAR COBRUNTIME '                W'
>--------------------
>Jacek Piskorz
>[log in to unmask]
>
>
>Charly Tango napisał(a) w wiadomości: <[log in to unmask]>...
>>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.
>>
>>
WRITE to a file opened for I-O is an HP extension to standard COBOL. This
extension has been removed in the later compiler.
--
Mark Undrill
Affirm Limited