SQL Gateway Connection Wrapper Alloc statement Connect CloseCursor Disconnect %Const,vhLib.Macro %RegisteredObject 0 0 %String %String %String %String %String 1 1 %String "SQLGCLog" %String "txt" %Library.Boolean 0 %Library.Boolean 0 %Library.Integer $$$NULLOREF %Library.String 0 %Library.String %Library.String %Library.List %Library.Boolean 0 %Library.Boolean 0 %Library.Integer $$$NULLOREF %Library.Status 1 %String %Library.Status Line:%Library.String %Library.Boolean %Library.Boolean ManualCommit:%Library.Boolean=0 %Library.Boolean Off ]]> %Library.Boolean %Library.Boolean %Library.Boolean SQLGCWrapper:%Library.String,SQL:%Library.String %Library.Boolean %Library.Boolean Value:%Library.String %Library.Status 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 ]]> SQL:%Library.String %Library.Boolean Option:%Library.String,Value:%Library.String %Library.Boolean Number:%Library.Integer,Value:%Library.String %Library.Boolean Type:%Library.String %Library.Boolean %Library.Boolean