IF !USED("surv_sca")
USE \data\registry\surv_sca IN 0 SHARED
ENDIF
SELECT surv_sca
SET ORDER TO mast_id
USE \data\registry\master IN 0 SHARED
SELECT master
SET ORDER TO mast_id
SCAN FOR master.mast_id<>surv_sca.mast_id AND ;
!EMPTY(master.msca_close) AND ;
!EMPTY(master.msca_id) AND ;
!EMPTY(master.disto) AND ;
master.date+30 < DATE()
SELECT surv_sca
APPEND BLANK
REPLACE surv_sca.mast_id WITH master.mast_id
REPLACE surv_sca.run_num WITH master.incident
REPLACE surv_sca.run_date WITH master.date
REPLACE surv_sca.name_last WITH master.name_last
REPLACE surv_sca.name_first WITH master.name_first
REPLACE surv_sca.phone_num WITH master.phone
SELECT master
ENDSCAN
<\pre>Steve Kramer
Kramer & Kramer Design
"Home of Go Cartoons"
Web Site: www.stephenkramer.com
Would you believe Far Side Lite?
More than 270 original cartoons.