home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / maildb3.zip / MAILEDIT.PRG < prev    next >
Text File  |  1988-04-04  |  868b  |  45 lines
  1. STILLATIT = .T.
  2. DO WHILE STILLATIT
  3.  
  4. CLEAR
  5. LOOKUP = SPACE(30)
  6. @ 10,12 SAY "Enter the exact name to edit"
  7. @ 12,12 SAY "or just press Return to exit";
  8.     GET LOOKUP
  9. READ
  10. IF LOOKUP= " "
  11.     STILLATIT = .F.
  12.     LOOP
  13. ENDIF (LOOKUP = " ")
  14.  
  15. LOOKUP = UPPER(LOOKUP)
  16. SEEK LOOKUP
  17. RECNUMB = RECNO()
  18. COUNT WHILE UPPER(LNAME)= LOOKUP TO HOWMANY
  19. IF HOWMANY = 0
  20.     @ 20,10 SAY "There is no &lookup"
  21.     @ 22,10 SAY "Press a key and try again. Make sure it is ì
  22. exact!"
  23.     ?CHR(7)
  24. WAIT " "
  25. RECNUMB = 0
  26. ENDIF (HOWMANY = 0)
  27. IF HOWMANY > 1
  28.     CLEAR
  29.     RECNUMB = 0
  30.     SEEK LOOKUP
  31.     LIST LNAME,ADDRESS,CITY;
  32.     WHILE UPPER(LNAME) = LOOKUP
  33. @ROW()+3,10 SAY "Edit which record #?";
  34. GET RECNUMB PICTURE "9999"
  35. READ
  36. ENDIF
  37. IF RECNUMB >0
  38.     GOTO RECNUMB
  39.     SET FORMAT TO MAILSCRN
  40.     READ
  41.     CLOSE FORMAT
  42. ENDIF
  43. ENDDO (WHILE STILLATIT)
  44. RETURN
  45.