Hi Gnana,

You could try something like this ( with appropriate error checking of course ).

CLOSE DATA ALL

USE ????????.dbc

SCAN FOR UPPER(objecttype) = "TABLE"
    SELECT 0
    USE (aTableList[nLoop,1]) EXCLUSIVE
    PACK
    USE
ENDSCAN


Regards,
   Gavin...

>If I have to iterate through all the tables in the database and pack them all, is there a simple command to do it? If not, what command would I use to obtain the list of tables in a database, so I could iterate them.
>
>Thanx
>Gnana