This statement updates the current record. New field values may be assigned within the subtable block. Fields that are not assigned a value remain unchanged. If an error occurs, an error number is stored in the system workarea SysError.

This example applies a discount of 10% to all items in the current order. The ReplaceRecord statement is used to re-save each item record.

subtable item

FirstRecord

while Not syserror

ItemDiscount = ItemTotal * 0.1
ReplaceRecord
NextRecord

end while

end subtable | item