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

 
Output of file : GAEDIT.PRO contained in archive : DB3SALES.ZIP
*
* GAEDIT.PRO from GAMAIN.PRO
*
DO WHILE .T.
SET CONSOLE OFF
STORE 'SET FORMAT TO ' to gaformat
STORE 'PROSPECTS' TO gafort
SET CONSOLE ON
&gaformat&gasysb&gafort
CLEAR
TEXT
EDITING MENU
--------------------------------------------------------------
This menu allows access to interactive working of the database.
It is possible for you to enter a field name or command which
has no meaning to the program. (In a paid custom application
extra code would be included to protect against this). If you
do enter such data, you will see the message TERMINATE Y/N.
Press N to return to the Menu and reenter data.
------------------------------------------------------------------

1. Call on accounts based on call back date.
2. Call on accounts based on location.
3. Call on accounts based on Data information.
RETURN exits

ENDTEXT
WAIT TO GAEDIT
DO CASE GAEDIT
CASE GAEDIT = '1'
ACCEPT 'Earliest call back date (mm/dd/yy)... ' to gaearly
ACCEPT 'Latest call back date (mm/dd/yy)... 'to galate
CHANGE ALL FOR DTOC(CALL) > '&gaearly' .AND. ;
DTOC(CALL) <= '&galate'

CASE GAEDIT = '2'
CLEAR
TEXT
Please note location names to pull from...
ADDRESS1, ADDRESS2, CITY, STATE, ZIP, COUNTRY

Enter your search command in the following format ->
FIELDNAME = "?????"

i.e.
STATE = "NY" (search for prospects in NY)
STATE <> "NY" (search for prospects not in NY)
ZIP > "01010" .AND. ZIP < "40503"
(search for zip codes within above range)
( > means greater than < means less than)

ENDTEXT
ACCEPT 'Search command ... ' to gasearch
IF gasearch < "!"
LOOP
ENDIF
CHANGE ALL FOR &gasearch
CASE GAEDIT = '3'
CLEAR
?' Search by one or more fields'
?' For &gadata1 use field name DATA1'
?' For &gadata2 use field name DATA2'
?' For &gadata3 use field name DATA3'
?' For &gadata4 use field name DATA4 '
?
?' Locations may be added to search conditions'
?' CITY, STATE, ZIP, COUNTRY'
?
?' RETURN alone exits.'
?'================================================='
?' FORMAT --> FIELD = "INFORMATION" '
?' Combine searches with .AND. .NOT. .OR.'
?' i.e. DATA1 = "$50,000" .AND. DATA3 < "XXXXX"'
?' (See dBASE manual for more)'
?
ACCEPT 'SEARCH COMMAND ... ' TO gasearch
IF gasearch < "!"
LOOP
ENDIF
CLEAR
CHANGE ALL FOR &gasearch
OTHERWISE
CLEAR
RETURN
ENDDCASE
ENDDO
CLEAR
RETURN
ENDCASE
ENDDO 

  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAEDIT.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/