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

 
Output of file : LISTREC.PRG contained in archive : DB3MAIL.ZIP

clear
use address index lnamedex
set unique off
set talk off
set echo off
do while .T.
?
? " "+replicate(chr(205),50)
TEXT
LIST BY :
[A] - Area-code [L] - Last Name
ENDTEXT
? " "
? " "+replicate(chr(205),50)
? " "
wait " Please input your choice :"to reply
?
DO CASE
case upper(reply)="L"
wait " First Letter : " to lastname
clear
LIST off LNAME,FNAME,STREET,STATE,ZIP,AREA,PHONE for lname=upper(lastname)
? " "+replicate(chr(205),40)
wait " LIST TO PRINTER (Y/N)? : " to yes
IF upper(yes)="Y"
set console off
set print on
list off LNAME,FNAME,STREET,STATE,ZIP,AREA,PHONE for lname=upper(lastname)
?
?
set print off
set console on
ENDIF
case upper(reply)="A"
accept " Area code :" to areacode
clear
list off LNAME,FNAME,STREET,STATE,ZIP,AREA,PHONE for area=areacode
? " "+replicate(chr(205),40)
wait " LIST TO PRINTER (Y/N)? : " to yes
IF upper(yes)="Y"
set console off
set print on
list off LNAME,FNAME,STREET,STATE,ZIP,AREA,PHONE for area=areacode
?
?
set print off
set console on
ENDIF
ENDCASE
? " "
? replicate(chr(205),79)
wait " DO YOU WANT TO LIST MORE RECORDS (Y/N)? " to answer
if upper(answer)="N"
return
endif
clear
enddo
RETURN