Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : TN8911.ZIP
Filename : KEYWORD.PRG

 
Output of file : KEYWORD.PRG contained in archive : TN8911.ZIP
Listing 2 KeyWord.PRG

* Program...: KeyWord.PRG
* Date......: 9/5/89
* Author....: Mina Nichols
* Notes.....: Searches the notes memo field for data.

SET HEAD OFF
@ 10,1 CLEAR
m_KeyWord = SPACE(15)
@ 10, 15 SAY "What keyword shall we search for?";
GET m_KeyWord
READ
m_KeyWord = TRIM(m_KeyWord)

SELECT Patient
GO TOP
SCAN
m_Case = Case
m_KeyWord_Found = .F.
SELECT Session
SET FILTER TO Case = m_Case
GO TOP

SCAN
IF AT(m_KeyWord,Notes) > 0
m_KeyWord_Found = .T.
EXIT
ENDIF
ENDSCAN

SELECT Patient
IF m_KeyWord_Found
REPLACE &m_Field_Name WITH "x"
ENDIF

ENDSCAN
SELECT Session
SET FILTER TO
RETURN
*EOP: KeyWord.PRG



  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : TN8911.ZIP
Filename : KEYWORD.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/