Is there another way to write this code ?

[Reginald Bailly]

Is there another, more compact, more modern way to write the following code ?

select (xfile1)

select (xfile2)

do while !eof()

    assign  (some 60 ) fields to variables

    ...

    select  (xfile1)

    append blank

    replace data in xfile1

   select (xfile2)

   skip

enddo

[Paul]

See FieldGetArr() and FieldPutArr() in the FlagShip manual. It stores and writes whole database record in/from an array.

Best regards,
Paul