How do you provide pack database routine inside a program? I've tried following which doesn't seem to work.
CLOSE DATABASES ALL
OPEN DATABASE mydb EXCLUSIVE
PACK DATABASE
When I check after issuing the CLOSE DATABASES ALL using DBUSED(), the mydb database seems to be still open. Then, OPEN DATABASE mydb EXCLUSIVE seems to be ignored and finally an error message for PACK DATABASE shows up with "Database must be opened exclusively". Any suggestions?

TIA
John