home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / workdb.zip / DUPCHECK.PRG < prev    next >
Text File  |  1988-08-15  |  834b  |  28 lines
  1. *!!* dBASE CONVERT - dBASE III File Conversion Aid  v2.01  1/10/86
  2. *
  3. SET HEADING OFF
  4. SET SAFETY OFF
  5. * dupcheck.sig 08/18/83
  6. * this module checks to see if there are records with the same lastnames
  7. * you can make it a tighter test with relative ease.
  8. SAVE TO TEMP1
  9. RELEASE ALL
  10. GOTO TOP
  11. STORE .T. TO MORE
  12. DO WHILE more .AND. (.NOT. EOF())
  13.    * display something to read while searching for duplicates
  14.    CLEAR
  15.    @ 07,10 SAY 'SEARCHING FOR DUPLICATE LAST NAMES'
  16.    * save the current name, in upper case, for comparison
  17.    STORE UPPER(lname) TO oldlname
  18.    * move to the next record to compare
  19.    SKIP
  20.    * if match is found and eof has not been reached
  21.    * let user look at both and decide what to do
  22.    IF oldlname = UPPER(lname) .AND. (.NOT. EOF())
  23.       DO DUPREC.PRG
  24.    ENDIF
  25. ENDDO
  26. RESTORE FROM TEMP1
  27.  
  28.