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

Listing 2 for Halpin's Tip


* NEWSURCH.PRG
*
USE SAMPLEDB
CLEAR
? "Type search criteria here: "
ACCEPT " " TO SURJCRIT
? "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="R"
SORTCRIT="REGION"
CASE SORTCRIT="S"
SORTCRIT="STATE"
OTHERWISE
SORTCRIT="SPACES"
ENDCASE
INDEX ON IIF(&SURJCRIT,"("+&SORTCRIT,"z") TO SURJNDEX
GOTO TOP
COUNT WHILE &SURJCRIT TO CNTRNAME
?
? CNTRNAME
?
GOTO TOP
WAIT "Output these records (Y/N) " TO OUTPUTIT
?
SET PRINT ON
DO WHILE UPPER(OUTPUTIT)="Y" .AND. &SURJCRIT
? FLDNAMEX
SKIP
ENDDO
SET PRINT OFF