* MAILDEL.PRG PROGRAM FOR PURGING RECORDS MARKED FOR DELETION IN MAILMEN
* PROGRAM COPYRIGHT APRIL 26, 1984 BY PHILIP K. PERLMAN
SET TALK OFF
ERASE
@ 10,20 SAY "...Examining Files..."
USE &DBF1 INDEX &NDX1, &NDX2,&NDX3, &NDX4, &NDX5
STORE 0 TO purg
go top
do while .not. eof
if last = ' ' .and. first =' '.and. company =' '
@ 10,20 say "...Purging..."
dele
store 1 to purg
else
@ 10,20 say "...Examining Files..."
endif
if *
store 1 to purg
endif
skip
enddo
IF purg =1
PACK
ELSE
ERASE
@ 10,5 SAY "THERE ARE NO RECORDS TO BE PURGED."
@ 12,5 SAY "PRESS ANY KEY TO RETURN TO THE MENU"
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ENDIF
RETURN

                                                                                                                                   STROBER BROTHERS              JACK                LEITNER                                                                         NYC                      NY        -   -       -   -       -   -