Hi Jeffrey,

SET ORDER TO UniqKeysAs IN MF_158
SET ORDER TO UniqKeysAs IN Prob_158
SELECT TempAlias
SCAN FOR SEEK(TempAlias.UniqKeysAs,"MF_158") ;
 AND SEEK(TempAlias.UniqKeysAs,"Prob_158")
   
   REPLACE Prob_158.Del_DTime WITH MF_158.Date_In ;
       FOR Prob_158.UniqKeysAs = TempAlias.UniqKeysAs ;
       IN Prob_158

   DELETE IN TempAlias
ENDSCAN
PACK

SELECT MF_158
SET ORDER TO cdc_id

>Can anyone tell of an easier (faster) way to perform the following code?:
>
>SELECT TEMPALIAS
> SCAN
> SCATTER FIELD UNIQKEYSAS MEMVAR
> SELECT MF_158
> SEEK M.uniqkeysas
> IF FOUND()
> SELECT Prob_158
> SEEK M.uniqkeysas
> IF FOUND()
> REPLACE ALL DEL_DTime WITH MF_158.DATE_IN FOR Uniqkeysas = m.uniqkeysas
> ENDIF
> SELECT TEMPALIAS
> DELETE
> ENDIF
> SELE TEMPALIAS
> ENDSCAN
>
>RELEASE M.UNIQKEYSAS
>
>SELECT MF_158
>SET ORDER TO cdc_id
>
>SELECT TEMPALIAS
>PACK