I am using the same subroutine to open and read unformatted files in two different programs, built on a Win2000 machine using CVF 6.6a. The files have been created on a VMS machine, with a fixed record length.
The following code, which is part of a subroutine, is used to examine the properties of the files and open them:
Open( Unit = FileLun, & ! try to open exisiting file File = FileName, & Form = 'UNFORMATTED', & IoStat = IoStat, & !dvf Recl = 512, ! VMS Recl = 128, & ! CVF RecordType = 'FIXED', & Shared, & Status = 'OLD')
The two programs report different properties for the same file:
Program A: exists=.True., recl=0, Recordtype=UNKNOWN and the Open command is successful.
Program B: exists=.True., recl=132, Recordtype=STREAM_LF and the Open command fails with IoStat=30
I looked carefully the compiler and linker options, but they look the same.
Any clue, where to look for a solution.