Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3MAIL.ZIP
Filename : SCHREC.PRG

******** Programer : M. Mak / NYC 1987 ******
************** All Rights Reserved **********
clear
use address index lnamedex
?
DO WHILE .T.
clear
? " SEARCH FOR : "
?
accept " Last Name : " to lastname
accept " First Name : " to firstname
locate for lname=lastname .and. fname=firstname
if eof()
? " THERE IS NO RECORD BY THIS NAME"
endif
?
? " Name : "+trim(title)+" "+trim(fname)+" "+lname
? " Street : "+street
? " City,State/Zip : "+trim(city)+", "+state,zip
? " Telephone : ("+area+") "+phone
? " "+replicate(chr(205),45)
? " [M] - Main Menu"
? " [P] - Print Mailing Label"
? " [S] - Search more Records"
? " "+replicate(chr(205),38)
wait " Please Input your choice : " to reply
DO CASE
case upper(reply)="M"
return
case upper(reply)="P"
clear
@ 8,10 say " "
input " How Many Leading Space : " to ns
set margin to ns
set console off
set print on
?
? trim(title)+" "+trim(fname)+" "+trim(lname)
? street
? trim(city)+", "+state+zip
?
?
set print off
set console on
endif
set margin to 0
wait " SEARCH MORE RECORDS (Y/N)? : " to yes
if upper(yes)="N"
return
endif
ENDCASE
ENDDO