Pack and reindex tables
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_PackReindex( aTables , lCheck )

 Arguments:

      aTables - Array of tables and indexes
      lCheck  - If .T. check for other users

 Returns:

      .T. If users were logged on

 Description:

      Packs and reindexes the tables in aTables

      Structure of aTables is { Element 1 , Element 2 , ... }

      where each element is { Table name , Index 1 , Index 2 , ... }

      Each table and index should be identified from the directory cDefault

      Warning - Closes all tables on exit

 Examples:



 Header File: H_LIB52.CH

 Source: PACKREIN.PRG

 Author:  Martin Colloby