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