for each dictdb._file no-lock where not _file-name begins "_":
  find dictdb2._file no-lock where
    dictdb2._file._file-name = dictdb._file._file-name
  no-error.
  if not available dictdb2._file
  then message "New DB does not have table " dictdb._file._file-name.
  else if dictdb2._file._crc <> dictdb._file._crc
  then message "CRC different on table " dictdb._file._file-name.
end.