SELECT * FROM master ;
        WHERE !EMPTY(master.msca_close) AND ;
        !EMPTY(master.msca_id) AND ;
        !EMPTY(master.disto) AND ;
        master.date+30 < DATE() AND ;
        master.mast_id not in ;
        (SELECT MAST_ID FROM SURV_CA) ;
        INTO CURSOR crsMaster
if notused('crsMaster') or reccount('crsMaster' = 0
   return
endif
select crsMaster
scan
   insert into surv_ca ...
endscan