konnexionsgmbh / oranif Goto Github PK

#!/user/bin/escript
%% -*- erlang -*-
%%! -pa _build/default/lib/oranif/ebin

-include_lib("eunit/include/eunit.hrl").
-define(DPI_MAJOR_VERSION, 3).
-define(DPI_MINOR_VERSION, 0).
-define(TNS, <<>>).

fetch_all(Stmt, Acc) ->
     io:format("Oassl.~n"),
    #{found := Found} = dpi:stmt_fetch(Stmt),
    io:format("Found ~p.~n", [Found]),
    case Found of true ->
        io:format("Oassl 1.~n"),
        #{data := Result, nativeTypeNum := Type} = dpi:stmt_getQueryValue(Stmt, 1),
        D1 = dpi:data_get(Result),
        io:format("Oassl 3. ~p~n", [D1]),
        fetch_all(Stmt, Acc ++ [D1]);
    %fetch_all(Stmt, Acc ++ [dpi:data_get(Result)] );
    _ -> Acc end.


main([]) ->
	dpi:load_unsafe(),
	Context = dpi:context_create(?DPI_MAJOR_VERSION, ?DPI_MINOR_VERSION),
    Conn = dpi:conn_create(
        Context, <<"foo">>, <<"bar">>, ?TNS,
        #{encoding => "AL32UTF8", nencoding => "AL32UTF8"}, #{}
    ),

    StmtD2 = dpi:conn_prepareStmt(Conn, false, <<"drop table lob_test">>, <<>>),
    catch dpi:stmt_execute(StmtD2, ['DPI_MODE_EXEC_COMMIT_ON_SUCCESS']),
    SqlCreation = <<"CREATE TABLE
                    lob_test (a clob)">>,
    StmtC = dpi:conn_prepareStmt(Conn, false, SqlCreation, <<>>),
    0 = dpi:stmt_execute(StmtC, ['DPI_MODE_EXEC_COMMIT_ON_SUCCESS']),
    SQLInsert = <<"INSERT INTO
                    lob_test
                    values (to_clob(dbms_random.string('x', 1000000)))">>,
    StmtI = dpi:conn_prepareStmt(Conn, false, SQLInsert, <<>>),
    0 = dpi:stmt_execute(StmtI, ['DPI_MODE_EXEC_COMMIT_ON_SUCCESS']),
    Sql = <<"select * from lob_test">>,

    Stmt = dpi:conn_prepareStmt(Conn, true, Sql, <<>>),

    1 = dpi:stmt_execute(Stmt, ['DPI_MODE_EXEC_COMMIT_ON_SUCCESS']),
    LobSize = 3,

    #{var := Var, data := Datas} = dpi:conn_newVar(Conn, 'DPI_ORACLE_TYPE_CLOB', 'DPI_NATIVE_TYPE_LOB', 100, LobSize, false, false, null),
    ok = dpi:stmt_define(Stmt, 1, Var), 
    #{found := Found, bufferRowIndex := BRI} = dpi:stmt_fetch(Stmt),

    D1 = dpi:data_get(lists:nth(1, Datas)),
    Bytes = dpi:lob_readBytes(D1, 1, LobSize),
    io:format("Got data: ~p~n", [binary_to_list(Bytes)]),
    %[io:format("got em ~p~n", [X]) || X <- fetch_all(Stmt, [])],
    StmtD = dpi:conn_prepareStmt(Conn, false, <<"drop table lob_test">>, <<>>),
    0 = dpi:stmt_execute(StmtD, ['DPI_MODE_EXEC_COMMIT_ON_SUCCESS']),
    io:format("Test successful.~n"),

    % cleanup
    ok = dpi:stmt_close(StmtC, <<>>),
    ok = dpi:stmt_close(Stmt, <<>>),
    ok = dpi:stmt_close(StmtI, <<>>),
    ok = dpi:stmt_close(StmtD, <<>>),
    ok = dpi:conn_close(Conn, [], <<>>),
    ok = dpi:context_destroy(Context),
    halt(1).

{slave_down,[
{dderlodpi,run_query,6,[{file,"dderl/src/dderlodpi.erl"},{line,402}]},
{dderlodpi,exec,4,[{file,"dderl/src/dderlodpi.erl"},{line,79}]},
{odpi_adapter,process_query,3,[{file,"dderl/src/odpi_adapter.erl"},{line,742}]},
{odpi_adapter,process_cmd,6,[{file,"dderl/src/odpi_adapter.erl"},{line,307}]},
{dderl_session,spawn_process_call,8,[{file,"dderl/src/dderl_session.erl"},{line,659}]}]}

2020-04-29 18:27:37.932 [error] [dderl<0.8637.6>@odpi_adapter:process_query:777]
 query error {error,slave_down} for
 <<"SELECT\r\n WHAT, JOB, SCHEMA_USER, LAST_DATE, THIS_DATE, NEXT_DATE, TOTAL_TIME, BROKEN,\r\n FAILURES\r\nFROM\r\n DBA_JOBS\r\nORDER BY\r\n WHAT">>
 whith bind values undefined

2020-04-29 18:28:33.417 [error] [dderl<0.9902.6>@dderlodpi:exec:81]
 run_query(select CON_ID, CON_ACID, CON_ESTID, CON_NAME, CON_ESID, CON_DATESTART, CON_DATEEND, CON_SHORTID, CON_PMID from contract where CON_PMID in ('0259630091', '0559477345') and CON_SHORTID like '6%' and CON_ESID = 'A' and CON_ETID = 'IPC',undefined,select CON_ID, CON_ACID, CON_ESTID, CON_NAME, CON_ESID, CON_DATESTART, CON_DATEEND, CON_SHORTID, CON_PMID, contract.ROWID from contract where CON_PMID in ('0259630091', '0559477345') and CON_SHORTID like '6%' and CON_ESID = 'A' and CON_ETID = 'IPC')
{slave_down,[
{dderlodpi,run_query,6,[{file,"dderl/src/dderlodpi.erl"},{line,402}]},
{dderlodpi,exec,4,[{file,"dderl/src/dderlodpi.erl"},{line,79}]},
{odpi_adapter,process_query,3,[{file,"dderl/src/odpi_adapter.erl"},{line,746}]},
{odpi_adapter,process_cmd,6,[{file,"dderl/src/odpi_adapter.erl"},{line,357}]},
{dderl_session,spawn_process_call,8,[{file,"dderl/src/dderl_session.erl"},{line,659}]}]}

2020-04-29 18:28:33.417 [error] [dderl<0.9902.6>@odpi_adapter:process_query:777]
 query error {error,slave_down} for <<"select CON_ID, CON_ACID, CON_ESTID, CON_NAME, CON_ESID, CON_DATESTART, CON_DATEEND, CON_SHORTID, CON_PMID from contract where CON_PMID in ('0259630091', '0559477345') and CON_SHORTID like '6%' and CON_ESID = 'A' and CON_ETID = 'IPC'">> whith bind values []