I have what has become, over the course of time, a rather large and complex database application.
The production server runs Fedora Core 3 (http://fedora.redhat.com), dosemu (http://www.dosemu.org), and supports several simultaneous users.
This is what I use to open the main datafile:
sub openrandomfile(file.to.open$,filenumber) ^
| shared ad :
| on error goto open.random.file :
| open.random.file: :
| open file.to.open$ for random access read write lock read write as # :
| on error goto 0 :
|end sub
Sometimes if I get a collision the program crashes with an Error 75 Path/File access error, just like the on error statement wasn't present.
What am I doing wrong? As I see it, the on error statement should cause the program to keep retrying until it gets access to the file.
------------------
The production server runs Fedora Core 3 (http://fedora.redhat.com), dosemu (http://www.dosemu.org), and supports several simultaneous users.
This is what I use to open the main datafile:
sub openrandomfile(file.to.open$,filenumber) ^
| shared ad :
| on error goto open.random.file :
| open.random.file: :
| open file.to.open$ for random access read write lock read write as # :
| on error goto 0 :
|end sub
Sometimes if I get a collision the program crashes with an Error 75 Path/File access error, just like the on error statement wasn't present.
What am I doing wrong? As I see it, the on error statement should cause the program to keep retrying until it gets access to the file.
------------------
Comment