SQL Gateway Connection Wrapper Alloc statement Connect CloseCursor Disconnect vhLib.Macro 0 %RegisteredObject 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 1 %String 1 %String 1 %String 1 %Boolean 1 %String %Library.Status Line:%Library.String Method:%String,Melding:%String 1 Method:%String,Status:%Status 1 %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 ..AutoShowErrorMsg Do . 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