>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>Mark McCasland
Midlothian, TX USA