SQLErrorInfo Class (Typed)

[TypesChangedAttribute]
 CLASS SQLErrorInfo INHERIT Error

[TypesChangedAttribute]
public class SQLErrorInfo : Error

 1LOCAL oSQLErrorInfo AS OBJECT
 2LOCAL oConnection AS OBJECT
 3LOCAL oSelect AS OBJECT
 4// Create the object for SQLConnection
 5oConnection := SQLConnection{"sample", "dba",;
 6"sql"}
 7// Create the object for SQLSelect
 8oSelect := SQLSelect{"SELECT * FROM lab",
 9oConnection}
10// Test for invalid argument
11IF SQLGetStmtOption(oSelect:StatementHandle,;
1230000, NULL_PTR) # SQLSuccess
13// Now, create SQLErrorInfo object to pick up
14// last error. The first two parameters are
15// optional, followed by the environment handle,
16// the connection handle, followed by the
17// statement handle from SQLSelect.
18oSQLErrorInfo := SQLErrorInfo{ , , ;
19oConnection:EnvHandle,;
20oConnection:ConnHandle,;
21oSelect:StatementHandle}
22ENDIF
23?oSQLErrorInfo:ErrorFlag
24?oSQLErrorInfo:ErrorMessage
25?oSQLErrorInfo:NativeError
26?oSQLErrorInfo:SQLState