>hi,
>thank you,
>
>it is copy just one record(first record)only. i have more than 150 records at xldata.dbf.
>

>USE xldata
>SCATTER memvar MEMO
>USE nan
>*!* either append blank or seek correct record to update
>if eof("nan")
>    append blank
>endif
>&& i need to replace (delete all data replace new data)
>GATHER memvar field EXCEPT char28 MEMO
>

>thanks.
>best regards
>m.qasem

Yes, that code will only copy the first record from xldata

If you want to add 1 record to NAN for each record in XLDATA, this should do it. If you have existing records in NAN that you want to replace, YOU will have to locate the correct record before the GATHER command instead of using APPEND BLANK.

USE xldata in 0
USE nan in 0
select xldata
SCAN
   SCATTER memvar MEMO
   *!* either append blank or seek correct record to update
   SELECT NAN
   append blank
   && i need to replace (delete all data replace new data)
   GATHER memvar field EXCEPT char28 MEMO
ENDSCAN