Pack a table
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_Pack( cTable , lExclusive )

 Arguments:

      cTable     - Table to pack
      lExclusive - If .T. leave table open in exclusive mode

 Returns:

      NIL

 Description:

      Packs cTable

 Examples:



 Header File: H_LIB52.CH

 Source: PACK.PRG

 Author:  Martin Colloby