SQL Gateway Connection Wrapper Alloc statement Connect CloseCursor Disconnect %Const %Library.RegisteredObject 0 0 0 0 EWMS_STAT 0 0 sa 0 \\cache01\c$\vhlogs\ 0 txt 0 SQLGCLog %Library.Boolean 0 0 1 0 0 0 0 0 0 %Library.Boolean 0 0 0 0 0 0 0 0 0 %Library.Integer 0 0 $$$NULLOREF 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.List 0 0 0 0 0 0 0 0 %Library.Boolean 0 0 0 0 0 0 0 0 0 %Library.Boolean 0 0 0 0 0 0 0 0 0 %Library.Integer 0 0 $$$NULLOREF 0 0 0 0 0 0 0 0 code 0 %Library.Status 0 0 0 code 0 %Library.Status 0 0 0 code Line:%Library.String 0 0 0 0 code 0 %Library.Boolean 0 0 0 code 0 %Library.Boolean 0 0 0 code ManualCommit:%Library.Boolean=0 0 %Library.Boolean 0 Off ]]> 0 0 code 0 %Library.Boolean 0 0 0 code 0 %Library.Boolean 0 0 0 code 0 %Library.Boolean 0 0 0 code SQLGCWrapper:%Library.String,SQL:%Library.String 0 %Library.Boolean 0 0 0 code 0 %Library.Boolean 0 0 0 code Value:%Library.String 0 %Library.Status 0 0) Do .. Set i%LastErrorMsg=Value_$C(13,10,13,10)_"SQL Gateway Errorlist:"_$C(13,10)_$$LCVT^vhLib(ErrorList) Do ..AddToLog(..LastErrorMsg) ;If ..FLogFile'=$$$NULLOREF Do ;. Do ..FLogFile.Flush() ;. Do ##class(%File).CopyFile(..#logFileName,$P(..#logFileName,".",1)_" "_$zdt($h,2,2)_" Job "_$J_"."_$P(..#logFileName,".",2)) If ..AutoShowErrorMsg Do . If $D(MApplication) Do .. Do MApplication.MessageBox(..LastErrorMsg,"SQL Gateway",$$$MBICONERROR) . Else If $$IsTerminal^vhLib() Do .. Write ..LastErrorMsg,! Quit $$$OK ]]> 0 0 code SQL:%Library.String 0 %Library.Boolean 0 0 0 code Option:%Library.String,Value:%Library.String 0 %Library.Boolean 0 0 0 code Number:%Library.Integer,Value:%Library.String 0 %Library.Boolean 0 0 0 code Type:%Library.String 0 %Library.Boolean 0 0 0 code 0 %Library.Boolean 0