home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
moss
/
report.prg
< prev
next >
Wrap
Text File
|
1986-11-09
|
873b
|
47 lines
? "current database = "+dbf()
set talk off
public donn
clear
?" Select records for processing.... This program will move the selected "
?" records to the file SELECT for later use. Would you like to:"
?
?"1. Select individual records"
?"2. Select all records that match a certain condition"
?"3. Select ALL records"
wait to c
if c="3"
filt="all "
set filter to
endif
if c="1"
?" Eliminate old selection?"
WAIT TO YN
IF UPPER(YN)="Y"
replace mark with .f. FOR MARK
endif
donn=0
do while donn=0
do find
if donn=0
replace mark with .t.
endif
FILT="SELECTED "
COND="MARK"
if donn=1
exit
endif
enddo
endif
clear
if c="2"
do search
endif
set filter to &cond
goto top
?" These are the records you have selected: "
?" Hit control End when finished reviewing)."
browse FREEZE MARK noappend
set talk on
return