Random file not working with sub

[Psycho]

I have another problem that I'm not sure if it is a bug or not (but seems like it to me).
I have a program using a random access file for storing of data. I initially used a gosub routine to open the file but eventually programmed some subroutines that couldn't access it. I switched it to a sub for opening and a sub for closing and it would not work. I ended up leaving the gosub routine for opening it and writing a redundant sub that could be accessed by other subs. Another problem I had is some of the other subs won't properly access the random access file unless the gosub routine has been run sometime in the program first.

The following simple example should show the problem I'm having. This program works fine in Liberty Basic but gives the following error in RB:
Runtime Error in program 'untitled': put #subtest, x
Invalid handle: #subtest

[start]
   filepath$="" 'for testing locally
   
   call openfile
      for x = 1 to 3
         input "First Name ";name$
         input "Last Name ";name2$
         put #subtest, x
      next x
   call closefile

   call openfile
      for x = 1 to 3
         gettrim #subtest, x
         print name$;", ";name2$
      next x
   call closefile
     
[end]
   print
   print "Thanks, the program is complete."
   end


   sub openfile
       ' Open database
       open filepath$+"subtest.dat" for random as #subtest len = 20
       field #subtest, 10 as name$, 10 as name2$
   end sub

   sub closefile
       close #subtest
   end sub

Thanks for any help.

Psycho

[neal]

You will need to make #subtest a global so it can be accessed from the subroutines.

[neal]

Actually that just gives me a different error :

Runtime Error in program 'untitled': put #subtest, x
FIELD not found for handle: #subtest

It looks like there is a bug which doesn't allow the "field" command to work in a subroutine (I'm using beta 2 BTW).

[Psycho]

Yep, I tried the global command as well but get the same error.
I am also using beta 2 but I tried it in the released version with the same result

[carlgundel]

Sept 5, 2008 23:02:48 GMT -5 Psycho said:

Yep, I tried the global command as well but get the same error.
I am also using beta 2 but I tried it in the released version with the same result

Thanks for pointing this out, guys. I'll have a look.

-Carl

[Psycho]

Hi Carl,

Have you made any progress on this issue?

I've got another project started and it sure would make for cleaner code if I could open a random file with a subroutine rather than a gosub.

John "Psycho" Siejkowski

[Carl Gundel - admin]

I'm working on this now. The issue is that when I moved from global handles by default that there is a little too much baggage. The FIELD statement specs are stored outside of the file references themselves and are referenced by handle name. This doesn't work when these things are local. So I will be moving the FIELD specs into the object that manages the file, so then it doesn't matter what scope you're in. So then if you can see the file you will also be able to get the FIELD spec.

-Carl

[Psycho]

This is good news Carl

I'm looking forward to a fix for that one. Thanks!

John "Psycho" Siejkowski