Gather data from an array into a record in a table
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_Gather( cAlias , aArray , lAdd )

 Arguments:

      cAlias - File to gather into
      aArray - Array to gather from
      lAdd   - If .F., lock the current record
               If .T., add a new record

 Returns:

      NIL

 Description:

 Examples:



 Source: GATHER.PRG

 Author:  Martin Colloby