home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
maildb3.zip
/
MAILDUPE.PRG
< prev
next >
Wrap
Text File
|
1988-04-01
|
863b
|
42 lines
CLEAR
TOPRINT = "N"
@ 10,10 SAY "Send duplicates to printer? (Y/N)";
GET TOPRINT PICTURE "!"
READ
@ 15,10 SAY "Pre-sorting for duplicates check...."
SET TALK ON
USE MAILDATA
INDEX ON UPPER(ZIP+ADDRESS+LNAME) TO TEMP
SET TALK OFF
CLEAR
IF TOPRINT = "Y"
SET PRINT ON
ENDIF
CLEAR
?DTOC(DATE())+SPACE(20)+"Possible Duplications"
?? SPACE(20)+ TIME()
?
?
GO TOP
DO WHILE .NOT. EOF()
Compare = UPPER(ZIP + ADDRESS + LNAME)
SKIP
IF UPPER(ZIP + ADDRESS + LNAME) = Compare
SKIP -1
LIST LNAME,ADDRESS,CITY WHILE;
UPPER(ZIP + ADDRESS+ LNAME) = Compare
?
?
ENDIF (upper zip +...)
ENDDO (not eof)
IF TOPRINT = "Y"
EJECT
SET PRINT OFF
ELSE
@ 23,1
WAIT "Press a key to return to menu..."
ENDIF (TOPRINT)
CLOSE DATABASES
ERASE TEMP.NDX
USE MAILDATA INDEX LNAME,ZIP