TECH.RegisteredObject Object:%XML.Adaptor,ReferenceObject:%XML.Adaptor %ListOfDataTypes " _ Stream2.Size) } #dim LineCounter As %Integer = 0 while $$$Not(Stream1.AtEnd && Stream2.AtEnd) { set LineCounter = LineCounter + 1 #dim Stream1Line As %String = ..GetLine(Stream1) #dim Stream2Line As %String = ..GetLine(Stream2) if $$$Not(Stream1Line = Stream2Line) { do ObjectDifferences.Insert("o1: " _ ##class(TECH.StringUtils).AlignRight(LineCounter,"0",4)_ ":" _ Stream1Line ) do ObjectDifferences.Insert("o2: " _ ##class(TECH.StringUtils).AlignRight(LineCounter,"0",4)_ ":" _ Stream2Line ) } } quit ObjectDifferences ]]> Stream:%Stream.Object %String