Category : Files from Magazines
Archive   : DBMS0690.ZIP
Filename : TECHTIP1

Listing 1 for Halpin's Tip


* SAMPLEDB.DBF

* Field Name Type Width Dec
* ---------- ---- ----- ---
* REGION C 7
* STATE C 2
* FLDNAMEX N 10 0
* SPACES C 1
*
* SURJSORT.PRG
*
USE SAMPLEDB
CLEAR
? "Type search criteria here: "
ACCEPT " " TO SURJCRIT
COUNT FOR &SURJCRIT TO CNTRNAME
?
? CNTRNAME
?
WAIT "Output these records? (Y/N) " TO OUTPUTIT
?
DO WHILE UPPER(OUTPUTIT) = "Y'
? "Choose the order in which the records should be presented."
? " N for record number; or"
? " R for region; or"
? " S for State."
WAIT "Type the letter of your choice: " TO SORTCRIT
SORTCRIT=UPPER(SORTCRIT)
DO CASE
CASE SORTCRIT="N"
EXIT
CASE SORTCRIT="R"
INDEX ON REGION TO SURJNDEX
CASE SORTCRIT="S"
INDEX ON STATE TO SURJNDEX
OTHERWISE
LOOP
ENDCASE
LOCATE FOR &SURJCRIT
SET PRINT ON
DO WHILE .NOT. EOF()
? FLDNAMEX
CONTINUE
ENDDO
SET PRINT OFF
EXIT
ENDDO