>Dear Hilmar,
>Thanks for ur answer. I shall try it. Thanks you again for your valuable advice which I have had earlier for my question. Your reply helped me lot in past. Now let me inform you that I am not much familiar with form,just trying it now for a couple of days.And for this printing, I am asking the user to enter account No. against which the user want to see the transaction details of a particular account.After geting the account no. I shall print the result in txt.And I was in a mind that for entering a single item this would be better. Yes, I may be wrong. But this type of error message is also unexpected to me.

I received your e-mail (by the way, spam suspition; the e-mail header was considered suspicious), and I did not get an error message.

I don't have the tables, so I have to ignore the error message (table not found). Anyway, after that, I don't get the fatal error you mention.

And, I don't see what the problem might be; the variable is obviously initialized to a numeric.

Since there is no obvious problem with your code, you may have a faulty VFP installation; you may want to try to reinstall it.

You may also consider my previous suggestion: use the debugger, and check everything you can. For example, if the variable is still equal to zero when you run the READ.

While I don't know if this solves your problem, in the meantime a few suggestions to improve your code:

1) Do not abbreviate commands. SELECT is easier to understand than SELE, CENTURY easier than CENT, etc.

2) Similarly, make your variable names clear. For example, variable "L" obviously refers to line, so you might just as well call it "line" (or, using the standard conventions, lnLine or lnLineNumber).

3) This part:

sele a
use as

sele b
use dep

sele c
use mbal

can be written much shorter as follows:

use as in 0
use dep in 0
use mbal in 0

You will also note that instead of specifying an area number (1, 2, 3; or the equivalent a, b, c), I let VFP select a free area; this is safer.

4) This part:

go top
do while not eof()
  (do something)
  skip
enddo

can be simplified with a SCAN loop:

scan
  (do something)
endscan