SELECT field1, Field2, etc.., zip + zip_4 AS Zip ;
  FROM Table_a ;
  INTO CURSOR crs_a
SELECT Table_b
APPEND FROM ( DBF("crs_a"))

Assuming that Table B has the same field names as Table A.

>This is so simple i am missing something.
>I have a table A it has say 20 fields.
>I want to append all the records to another table B just not all the fields,
>and one field i need to make from two on the original table. A.zip + A.zip_4 to B.zip.
>Table B is a less field version of Table A, with the exception of the zip fields above.
>
>I have tried scan .. endscan do.. enddo
>with a scatter memvar
>then use B
>append blank
>then gather fields M.field1, M.field2, etc..
>skip
>
>This is not working.
>Is there a simpler way to do this?
>
>Thank you.