Expanded Description
| Topic |
Description |
| Name |
searchfiles |
| Synopsis |
/infobank/programs/dbase/misc/infobank/searchfiles.for |
| Description |
Subroutine to search files by keyword.
|
| AUTHOR |
Clint Steele 1/25/95
|
| Reads |
read (5, '(q,a)', end = 99)
* SaveLength,SaveOption(1:SaveLength)
read (5, '(q,a)', end = 99) KeyLength, KeyWord(1:KeyLength)
read (81, '(q,a)', end = 98)
* ALength, ALine(1:ALength)
|
| Writes |
write (FileFlag, 525)
write (FileName, 601) UserName(1:UserNameLength),
* KeyWord(1:KeyLength)
write (Suffix, '(i)', iostat = Oops)
* FileList(Loop)(DotSuffix+1:DotSuffix+1)
write (5, '(/,1x,a)')
* FileList(Loop)(Bracket+1:Length)
write (82, 602)
* FileList(Loop)(Bracket+1:Length)
write (5, '(1x,a)') ALine(1:ALength)
write (82, '(1x,a)') ALine(1:ALength)
|
| Opens |
open (unit = 82,
* file = FileName(1:FileLength),
* access = 'SEQUENTIAL',
* carriagecontrol = 'LIST',
* form = 'FORMATTED',
* status = 'NEW')
open (unit = 81,
* file = FileList(Loop)(3:BangLength),
* access = 'SEQUENTIAL',
* carriagecontrol = 'LIST',
* form = 'FORMATTED',
* status = 'OLD',
* readonly,
* shared)
|
| Calls |
call stringlen (SaveOption, SaveLength)
call changecase ('CAPITALS', SaveOption)
call helper ('SEARCHMENU','??')
call helper ('SEARCHMENU','?')
call commenter ('Search Menu')
call setcopyflags (SaveOption, FileFlag)
call makefilelist
* (Activity, KeepFlag,
* FileList, FileFlag, FileCount, 'SEARCH')
call changecase ('CAPITALS', KeyWord(1:KeyLength))
call stringlen (UserName, UserNameLength)
call stringlen (FileName, FileLength)
call stringlen (FileList(Loop), Length)
call stringlen (FileList(Loop)(1:Bang-1), BangLength)
call changecase ('CAPITALS', ALine(1:ALength))
call yesno ('[Y]N', Answer)
|
|
