Hi Denis,

Sometimes the PACK statement failed, but I don't know the reasons,
So I use the following code instead of the PACK statement:
=f_packdbf()

PROC f_packdbf

IF DBF()==""
RETU .F.
ENDI

IF !isexclusive()
RETU .F.
ENDI

PRIVATE m.q_alias
m.q_alias=ALIAS()

SELECT * FROM &q_alias WHERE !DELE() INTO CURSOR packdbf_tmp_&q_alias nofilter
SELE &q_alias
ZAP
APPEND FROM (DBF("packdbf_tmp_&q_alias"))
USE IN packdbf_tmp_&q_alias

RETU .T.

* END OF PROC F_PACKDBF.

Best regards.

Chen
2015.3.18