Copy Field values between different records

I often use record and rowset objects as in memory storage for complex PeopleCode programs. I will use record objects as function and method parameters which gives me some flexibility for future parameters additions without breaking all the calling code.

I often run across scenarios where I need to copy field values from one record to another. However, the delivered functionality only works between two like named records. So if you have two record objects based on the same record you could do something like this.

 &Record1.copyfieldsTo(&record2);

However, if &record1 and &record2 are not base on the same record type this is not supported. It is very easy to write a function that will copy like name fields between records that are not based on the same underlying record object.

Here is the code. The parameter names should be obvious.

Function copyLikeFieldNames (&FromRec As Record, &ToRec As Record)

local integer &i, &j;

For &1 = 1 To &FromRec.fieldcount

   &FromFld = &FromRec.getfield(&1);
   For &j = 1 To &ToRec.fieldcount
      If &ToRec.getfield(&j).NAME = &FromFld.name Then
           &ToRec.getfield(&j).value = &FromFld.value;
           Break;
       End-If;
     End-For;

End-For;

End-Function;