Move an entire PF record

List,

I've searched the archives for this, but all I could find
was involving SQL, which I am not using. Here is my problem: I have
restored a backup copy of ITEMASB (a Mapics file) to a user library
called JOHN, calling it JITEMASB. I need to write records to this file
from the live file.

I have tried many different variations of the code below
using data structures, renaming record formats, etc, with no luck. The
code looks like this:

0000.01 H Option(*nodebugio:*srcstmt)


0000.02 F***********************************************


0000.03 FFixcostp Ip E K DISK


0001.00 FItemasb If E K DISK


0001.03 FJitemasb UF A E K DISK rename(itemaseb:itemasec)


0001.06 F***********************************************


0006.02 *


0006.14 C Itemno Chain Itemasb


0006.15 C If %found


0006.16 C Eval ITEMASEC = ITEMASEB


0007.26 C Write Itemasec


0007.27 C endif




The compiler chokes on this saying the types in the eval statement do
not match. Is there a way to do this without EVALing each field in the
file? It seems such an easy and basic thing, but I can't figure it out.



Any suggestions are greatly appreciated.



Thanks,



John Furniss

Allied Machine & Engineering, Corp

Phone: 330-343-4283, ext. 8371

email: jfurniss@xxxxxxxxxxxxxxxxx