File open problems on Netware

[hendrixf]

I have had a couple of instances of users complaining of file open problems from software loaded on Netware servers. The run time library reports Error 30 during either an INQUIRE or OPEN statement. The calls that are invoked during the error are listed below. I am unsure if the error is invoked by either the INQUIRE or OPEN statement.

INQUIRE (FILE=FILEPATH, EXIST=LEXST)
IF (LEXST .EQV. FALSE.) THEN
STOP
ENIDF

OPEN(UNIT=2, FILE=FILEPATH, ACCESS='DIRECT', STATUS='OLD',
+ SHARE='DENYWR', SHARED, RECL=1, FORM='BINARY')

The file is read by multiple modules so I want to allow shared access. This problem has only been reported by users that load the program on NetWare file servers. As soon as the software is moved off of the server, the problem goes away.

Any ideas?

Thanks,
Fred

[Steven_L_Intel1]

We've seen a number of similar complaints over the years. It's always been Netware... Our best guess is that Netware isn't properly implementing some of the file service calls or, perhaps in your case, doesn't support sharing. Visual Fortran simply calls Win32 API routines to open files - it doesn't know what's on the other end. Sorry we don't have a better answer for you.

Steve