Pack and reindex tables from the Data Dictionary
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_PackDict( aTables , lCheck )

 Arguments:

      aTables - Array of tables from the Data Dictionary
      lCheck  - If .T. check for other users

 Returns:

      .T. If users were logged on

 Description:

      Each table specified in the array aTables is found in the Data
      Dictionary and opened exclusively.  The table is packed and reindexed
      and then closed.

      A moving bar on the screen indicates the progress of the operation.

      Each table in aTables must be closed before calling the routine.

      If lCheck is .T., the system first checks for the presence of other
      users on the system before proceeding.  If other users are found, the
      routine returns .T. and will not pack.

 Examples:



 Header File: H_LIB52.CH

 Source: PACKDICT.PRG

 Author:  Martin Colloby