home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug105.arc / MAILMEN.LQR / MAILDEL.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  34 lines
  1. * MAILDEL.PRG PROGRAM FOR PURGING RECORDS MARKED FOR DELETION IN MAILMEN
  2. * PROGRAM COPYRIGHT APRIL 26, 1984 BY PHILIP K. PERLMAN
  3. SET TALK OFF
  4. ERASE
  5. @ 10,20 SAY "...Examining Files..."
  6. USE &DBF1 INDEX &NDX1, &NDX2,&NDX3, &NDX4, &NDX5
  7. STORE 0 TO purg
  8. go top
  9. do while .not. eof
  10. if last = ' ' .and. first =' '.and. company =' '
  11. @ 10,20 say "...Purging..."
  12. dele
  13. store 1 to purg
  14. else
  15. @ 10,20 say "...Examining Files..."
  16. endif
  17. if *
  18. store 1 to purg
  19. endif
  20. skip
  21. enddo
  22. IF purg =1
  23. PACK
  24. ELSE
  25. ERASE
  26. @ 10,5 SAY "THERE ARE NO RECORDS TO BE PURGED."
  27. @ 12,5 SAY "PRESS ANY KEY TO RETURN TO THE MENU"
  28. SET CONSOLE OFF
  29. WAIT
  30. SET CONSOLE ON
  31. ENDIF
  32. RETURN
  33.  
  34.                                                                                                                                    STROBER BROTHERS              JACK                LEITNER                                                                         NYC                      NY        -   -       -   -       -   -