home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / mail / maildb / maildupe.prg < prev    next >
Encoding:
Text File  |  1988-04-01  |  863 b   |  42 lines
  1. CLEAR
  2. TOPRINT = "N"
  3. @ 10,10 SAY "Send duplicates to printer? (Y/N)";
  4.     GET TOPRINT PICTURE "!"
  5.     READ
  6. @ 15,10 SAY "Pre-sorting for duplicates check...."
  7. SET TALK ON
  8. USE MAILDATA
  9. INDEX ON UPPER(ZIP+ADDRESS+LNAME) TO TEMP
  10. SET TALK OFF
  11. CLEAR
  12. IF TOPRINT = "Y"
  13.     SET PRINT ON
  14. ENDIF
  15. CLEAR
  16. ?DTOC(DATE())+SPACE(20)+"Possible Duplications"
  17. ?? SPACE(20)+ TIME()
  18. ?
  19. ?
  20. GO TOP
  21. DO WHILE .NOT. EOF()
  22.    Compare = UPPER(ZIP + ADDRESS + LNAME)
  23.     SKIP
  24.     IF UPPER(ZIP + ADDRESS + LNAME) = Compare
  25.       SKIP -1
  26.     LIST LNAME,ADDRESS,CITY WHILE;
  27.       UPPER(ZIP + ADDRESS+ LNAME) = Compare
  28.     ?
  29.     ?
  30.   ENDIF (upper zip +...)
  31. ENDDO (not eof)
  32. IF TOPRINT = "Y"
  33.     EJECT
  34.     SET PRINT OFF
  35. ELSE
  36.  @ 23,1
  37.     WAIT "Press a key to return to menu..."
  38. ENDIF (TOPRINT)
  39. CLOSE DATABASES
  40. ERASE TEMP.NDX
  41. USE MAILDATA INDEX LNAME,ZIP          
  42.