anchor.diff:      member val IndexName = defString with get, set
       member val ProfileName = defString with get, set
       member val MaxRecordsToScan = Int16.MaxValue with get, set
  +    member val NextId = new AtomicLong(0L) with get
       override this.Validate() = ok()
   
   [<AutoOpen>]
  
positive.code:     let sourceDisplayName = "sourcedisplayname"
      let totalDupesFound = "totaldupesfound"
      let sourceStatus = "sourcestatus"
      let targetRecordId = "targetrecordid"
      let targetDisplayName = "targetdisplayname"
      let targetScore = "targetscore"
  
negative.code:         index.Fields <- [| new Field.Dto(sessionId, FieldType.Dto.ExactText)
                             new Field.Dto(recordType, FieldType.Dto.ExactText)
                             // Source record
                             new Field.Dto(sourceId, FieldType.Dto.ExactText, AllowSort = true)
                             new Field.Dto(sourceRecordId, FieldType.Dto.ExactText)
                             new Field.Dto(sourceDisplayName, FieldType.Dto.Stored)
                             new Field.Dto(totalDupesFound, FieldType.Dto.Int)
                             new Field.Dto(sourceStatus, FieldType.Dto.Int, AllowSort = true)
                             new Field.Dto(targetRecords, FieldType.Dto.Text)
                             // Session related
                             new Field.Dto(sessionProperties, FieldType.Dto.Text)
                             new Field.Dto(misc, FieldType.Dto.Text) |]
  