home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP23.EXE / CHP2301.PRG < prev    next >
Encoding:
Text File  |  1991-04-30  |  537 b   |  25 lines
  1. /*
  2.    Listing 23.1  Find_memos()
  3.    Author: Joe Booth
  4.    Excerpted from "Clipper 5: A Developer's Guide"
  5.    Copyright (c) 1991 M&T Books
  6.                       501 Galveston Drive
  7.                       Redwood City, CA 94063-4728
  8.                       (415) 366-3600
  9. */
  10.  
  11. //───── NOTE: must compile with the /N option!
  12.  
  13. function Find_memos(cString,nField)
  14. LOCAL arr_:={}
  15. go top
  16. while !eof()
  17.    if cString $ Fieldget(nField)
  18.       Aadd(arr_,recno())
  19.    endif
  20.    skip +1
  21. enddo
  22. return arr_
  23.  
  24. // end of file CHP2301.PRG
  25.