1 files changed, 38 insertions, 10 deletions
diff --git a/lib/odbc/test/oracle.erl b/lib/odbc/test/oracle.erl
index d74863d8c1..98e0147744 100644
--- a/lib/odbc/test/oracle.erl
+++ b/lib/odbc/test/oracle.erl
@@ -1,18 +1,19 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2002-2011. All Rights Reserved.
+%% Copyright Ericsson AB 2002-2013. All Rights Reserved.
 %%
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
 %%
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
+%%     http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
 %%
 %% %CopyrightEnd%
 %%
@@ -240,3 +241,30 @@ describe_floating() ->
     {ok,[{"F",sql_double},{"R",sql_double},{"D",sql_double}]}.
 describe_dec_num() ->
     {ok,[{"MYDEC",{sql_decimal,9,3}},{"MYNUM",{sql_decimal,9,2}}]}.
+
+%-------------------------------------------------------------------------
+drop_proc() ->
+    "drop procedure test_proc1;".
+
+stored_proc_integer_out() ->
+    "create or replace PROCEDURE  test_proc1(" ++
+        "int_a OUT NUMBER, " ++
+        "int_b OUT NUMBER) " ++
+        "is " ++
+        "begin " ++
+        " int_a := 123; " ++
+        " int_b := 456; " ++
+        "exception " ++
+        "WHEN NO_DATA_FOUND THEN " ++
+        " int_a := 0; " ++
+        " int_b := 0; " ++
+        "end;".
+
+param_query(Ref) ->
+    odbc:param_query(Ref, "call test_proc1(?,?)",
+                     [{sql_integer, out, [0]},
+                      {sql_integer, out, [0]}]).
+
+
+query_result() ->
+    {executed, 2, [{123, 456}]}.