>Why the following syntax not working?
>

packindex('table1')
>proc packindex
>lparameter cfile
>select cfile
>pack
>reindex
>endproc

>Thank's in advance

One more thing: for safety reasons, after changing to another work area, your functions should usually go back to the previous area. Like this:

packindex('table1')

proc packindex
lparameter cfile
local lnOldArea
lnOldArea = select() && This is the NUMBER of the work area
select (cfile)
pack
reindex
select (lnOldArea)
endproc

Also, I may be wrong, but I believe that if you do a PACK, a REINDEX is no longer necessary.

HTH,

Hilmar.