Cacher is the code snippet organizer for pro developers

OdbcConnection                  connection;
LoginProperty                   loginProp;
Statement                       statement;
ResultSet                       result;
SqlStatementExecutePermission   permission;
str sqlStmt;

loginProp = new LoginProperty();
loginProp.setOther(SantaClara_Utils::getConnectionStringPrimus());

try
{
    connection = new OdbcConnection(loginProp);
}
catch
{
    error('You do not have access to the database specified');
    return;
}

sqlStmt = @"
    SELECT
        axi.UDF_BuildAccountNum(c.Cli_Cod) AS AccountNum,
        suf.Cli_EmpPdv AS Company,
        c.CLI_CONSEN AS Password
    FROM db2.CliCad c
        INNER JOIN db2.CliSuf suf
            ON c.Cli_Cod = suf.Cli_sufcod
    WHERE c.Cli_Tcv IN (4, 444)
        AND suf.Cli_EmpPdv > 0;
";


permission = new SqlStatementExecutePermission(sqlStmt);
permission.assert();

statement = connection.createStatement();

result = statement.executeQuery(sqlStmt);

ttsBegin;

while (result.next())
{
    info(result.getString(1));

}

ttsCommit;

result.close();
statement.close();

CodeAccessPermission::revertAssert();