Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAINDEX.PRO

 
Output of file : GAINDEX.PRO contained in archive : DB3SALES.ZIP
*
* GAINDEX.PRO from GAUPDATE.PRO from GAMAIN.PRO
*
DO WHILE .T.
CLEAR
? 'The follow index fields are in existence, &mname...'
SET DEFAULT TO &gasysb
DIR *.NDX
SET DEFAULT TO &gasysa
TEXT
The program automatically maintains KEY, COMPANY & NAME.

You may :
1. Create a new index
2. Reindex any one index
3. Reindex all program maintained indexes.
LEAVE - press return

ENDTEXT
WAIT TO GADEX
DO CASE GADEX
CASE GADEX = '1'
ACCEPT 'FIELD on which to index... ' to gafield
ACCEPT 'NAME of index (may match field name).. ' to gi
INDEX ON &gafield to &gi
CASE GADEX = '2'
ACCEPT 'Which index to reindex (do not use .NDX).. 'to gr
SET INDEX TO &gr
REINDEX &gr
CLOSE DATABASES
&gause1
CASE GADEX = '3'
REINDEX
CLOSE DATABASES
&gause1
OTHERWISE
CLEAR
RETURN

ENDCASE
ENDDO

  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAINDEX.PRO

  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/