>Hi All:
>
>As part of my Clipper conversion to VFP project:
>
>I want to inform the user of progress while indexing, like so:
>
>
>public llFirstTime
>llFirstTime = .t.
>use test
>index on field_1 + ind_di() to Index1
>return
>
>FUNCTION IND_DI
>IF llFirstTime
> llFirstTime= .F.
>ELSE
> @12,20 SAY STR(RECNO() / RECCOUNT() * 100, 4)
>ENDIF
>
>RETURN ''
>
>
>The trouble is that when I execute
>
>
>set index to index1
>
>
>it tries to execute the function, which I do not want. (The function may in a separate procedure, and may not be available).
>
>Is there a better way?
>
>Thanks,
>
>Yossi
Not really. How often does the user need to reindex? Don't put a lot of energy into this. Define a new window and set notify to send output into that window.