>Hi All,
>
>Anyone know the code to implement the SYS(2007) checksum calculation?

SYS(2007, cExpression, [, nSeed, [, nFlags]])

ENTER IN THE COMMAND WINDOW
HELP SYS(2007)

I use it to compare 2 values to see if they no longer match. Such as when updating a remote MySQL database. No need to send the update over the wire if no changes where made. Note that I am leaving out the flags, etc here to simplify but you should get the idea.

nOrgCkVal =  SYS(2007,CustName)
...user edits data here...
before save
if nOrgCkVal <> SYS(2007,CustName)
  update the server cause the data has changed
endif