Click above to get retro games delivered to your door ever month!

 FUNCTION DUPLOOK()

  Short:
  ------
  DUPLOOK() Locates possible duplicates based on user criteria

  Returns:
  --------
  nothing

  Syntax:
  -------
  DUPLOOK([cInfo],[aIndexes])

  Description:
  ------------
  Searches current dbf for exact duplicates of field(s)
  selected by user. User picks a field or fields, DUPLOOK()
  creates an index and prepares a possible duplicates report.

  [cInfo] is a character expression as additional info
  for each report line printed. (report normally only refers to
  record# and the fields selected )

  [aIndexes] is an array of currently open index files
  to be reopened on exit from duplook() (up to 10)

  Examples:
  ---------
   aIndexOpen := {"CUSTOMER","STATE","ZIPCODE"}
   DUPLOOK("Lastname+'  '+Firstname",aIndexOpen)
   * the fields the user picks to check duplicates
   * on,the LASTNAME and FIRSTNAME fields are also
   * printed on the report.
   Sample Output:
   Record #    FNAME
       1   GARRY
       2   GARRY

  Warnings:
  ----------
  THIS FUNCTION CLOSES ANY OPEN INDEXES YOU WILL NEED
  TO RE-OPEN INDEXES ON EXIT. (UNLESS YOU PASS AN ARRAY OF OPEN
  INDEXES AS ABOVE...)

  Source:
  -------
  S_DUP.PRG