DO WHILE !EMPTY(SYS(16,lnCount)) IF SYS(16,lnCount) != 'ON.' REPLACE mCallChain WITH mCallChain + SYS(16,lnCount) + ; CHR(10) IN ErrorLog ELSE EXIT ENDIF lnCount = lnCount + 1 ENDDO lcAlias = This.ErrorMgrObj.GetAlias() This.ErrorMgrObj.New()Change to:
lcAlias = This.ErrorMgrObj.GetAlias() This.ErrorMgrObj.New() DO WHILE !EMPTY(SYS(16,lnCount)) IF SYS(16,lnCount) != 'ON.' REPLACE mCallChain WITH mCallChain + SYS(16,lnCount) + ; CHR(10) IN ErrorLog ELSE EXIT ENDIF lnCount = lnCount + 1 ENDDOEssentially, it was adding all the call chain information to the first record in the errorlog table. Don't worry, as part of Kevin's "mea culpa" on this one, he agreed to Riverdance for all of us at Whilfest and DevCon. The critics agree, it's better than Cats... you'll want to see it again and again.