Is the file opened exclusively?

>Why the following syntax not working?
>

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

>Thank's in advance