5fd2674dcf
【实现内容】: 修复创建package同时存在不同参数mode的同名重载proc和func，创建成功，但pg_proc中仅一条记录的问题. 【根因分析】: 此场景下之前没报错，当前直接报错处理. 【实现方案】: 此场景下直接报错处理 【关联需求或issue】: https://e.gitee.com/opengaussorg/dashboard?issue=IAROUT
736 lines
13 KiB
PL/PgSQL
736 lines
13 KiB
PL/PgSQL
-- test plsql's out param override
|
|
-- check compatibility --
|
|
show sql_compatibility; -- expect A --
|
|
drop schema if exists plpgsql_override_out;
|
|
create schema plpgsql_override_out;
|
|
set current_schema = plpgsql_override_out;
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
create or replace package pck1 is
|
|
procedure p1;
|
|
procedure p1(v1 in varchar2);
|
|
procedure p1(v1 in varchar2, v2 in varchar2);
|
|
procedure p1(v1 in varchar2, v2 in varchar2, v3 in varchar2);
|
|
|
|
procedure p1(v1 out int);
|
|
procedure p1(v1 out int, v2 out int);
|
|
procedure p1(v1 out int, v2 out int, v3 out int);
|
|
|
|
procedure p1(v1 in varchar2, v2 out int);
|
|
procedure p1(v1 in varchar2, v2 out int, v3 out int);
|
|
|
|
procedure p1(v1 out int, v2 in varchar2);
|
|
procedure p1(v1 out int, v2 in varchar2, v3 in varchar2);
|
|
|
|
procedure p1(v1 inout int, v2 inout int, v3 inout int, v4 inout int);
|
|
procedure p1(v1 inout int, v2 inout int, v3 inout varchar2, v4 inout varchar2);
|
|
|
|
procedure p;
|
|
end pck1;
|
|
/
|
|
|
|
create or replace package body pck1 is
|
|
|
|
procedure p1 is
|
|
begin
|
|
raise notice 'p1';
|
|
end;
|
|
|
|
procedure p1(v1 in varchar2) is
|
|
begin
|
|
raise notice 'p1_1_varchar2';
|
|
end;
|
|
|
|
procedure p1(v1 in varchar2, v2 in varchar2) is
|
|
begin
|
|
raise notice 'p1_2_varchar2';
|
|
end;
|
|
|
|
procedure p1(v1 in varchar2, v2 in varchar2, v3 in varchar2) is
|
|
begin
|
|
raise notice 'p1_3_varchar2';
|
|
end;
|
|
|
|
procedure p1(v1 out int) is
|
|
begin
|
|
raise notice 'p1_1_int';
|
|
end;
|
|
|
|
procedure p1(v1 out int, v2 out int) is
|
|
begin
|
|
raise notice 'p1_2_int';
|
|
end;
|
|
|
|
procedure p1(v1 out int, v2 out int, v3 out int) is
|
|
begin
|
|
raise notice 'p1_3_int';
|
|
end;
|
|
|
|
procedure p1(v1 in varchar2, v2 out int) is
|
|
begin
|
|
raise notice 'p1_1_varchar_1_int';
|
|
end;
|
|
|
|
procedure p1(v1 in varchar2, v2 out int, v3 out int) is
|
|
begin
|
|
raise notice 'p1_1_varchar_2_int';
|
|
end;
|
|
|
|
procedure p1(v1 out int, v2 in varchar2) is
|
|
begin
|
|
raise notice 'p1_1_int_1_varchar';
|
|
end;
|
|
|
|
procedure p1(v1 out int, v2 in varchar2, v3 in varchar2) is
|
|
begin
|
|
raise notice 'p1_1_int_2_varchar';
|
|
end;
|
|
|
|
procedure p1(v1 inout int, v2 inout int, v3 inout int, v4 inout int) is
|
|
begin
|
|
raise notice 'p1_4_inout_4_int';
|
|
end;
|
|
|
|
procedure p1(v1 inout int, v2 inout int, v3 inout varchar2, v4 inout varchar2) is
|
|
begin
|
|
raise notice 'p1_4_inout_2_int_2_varchar';
|
|
end;
|
|
|
|
procedure p is
|
|
a1 varchar2(10);
|
|
a2 varchar2(10);
|
|
a3 varchar2(10);
|
|
a4 varchar2(10);
|
|
b1 int;
|
|
b2 int;
|
|
b3 int;
|
|
b4 int;
|
|
begin
|
|
a1 := 'a1';
|
|
a2 := 'a2';
|
|
a3 := 'a3';
|
|
a4 := 'a4';
|
|
b1 := 1;
|
|
b2 := 2;
|
|
b3 := 3;
|
|
b4 := 4;
|
|
p1();
|
|
p1(a1);
|
|
p1(b1);
|
|
p1(a1, a2);
|
|
p1(a1, b1);
|
|
p1(b1, b2);
|
|
p1(b1, a1);
|
|
p1(a1, a2, a3);
|
|
p1(b1, b2, b3);
|
|
p1(a1, b1, b2);
|
|
p1(b1, a1, a2);
|
|
p1(b1, b2, b3, b4);
|
|
p1(b1, b2, a1, a2);
|
|
end;
|
|
end pck1;
|
|
/
|
|
-- test procedure override with out args before in args
|
|
CREATE OR REPLACE PROCEDURE test_in_out_in(a in int, b inout int, c out int, d in varchar(200), e out varchar2(200))
|
|
PACKAGE
|
|
AS
|
|
DECLARE
|
|
new_deptno NUMBER;
|
|
BEGIN
|
|
raise notice '%,%,%,%,%', a,b,c,d,e;
|
|
new_deptno :=10;
|
|
new_deptno := new_deptno+a+b;
|
|
END;
|
|
/
|
|
call test_in_out_in(1,2,3,'a','b');
|
|
begin;
|
|
CURSOR temp_cursor NO SCROLL FOR SELECT test_in_out_in(1,2,3,'a','b');
|
|
FETCH FORWARD 1 FROM temp_cursor;
|
|
end;
|
|
SELECT * from test_in_out_in(1,2,3,'a','b');
|
|
|
|
set behavior_compat_options = '';
|
|
call test_in_out_in(1,2,3,'a','b');
|
|
begin;
|
|
CURSOR temp_cursor NO SCROLL FOR SELECT test_in_out_in(1,2,'a');
|
|
FETCH FORWARD 1 FROM temp_cursor;
|
|
end;
|
|
SELECT * from test_in_out_in(1,2,'a');
|
|
|
|
----
|
|
-- test in/out/inout args
|
|
----
|
|
|
|
-- test procedure
|
|
CREATE OR REPLACE PROCEDURE iob_proc(a in int, b out int, c inout int)
|
|
AS
|
|
DECLARE
|
|
BEGIN
|
|
raise notice '%,%,%', a,b,c;
|
|
END;
|
|
/
|
|
set behavior_compat_options = '';
|
|
call iob_proc(1,2,3); -- ok
|
|
call iob_proc(1,2);
|
|
select * from iob_proc(1,2,3);
|
|
select * from iob_proc(1,2); -- ok
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
call iob_proc(1,2,3); -- ok
|
|
call iob_proc(1,2);
|
|
select * from iob_proc(1,2,3); -- ok
|
|
select * from iob_proc(1,2);
|
|
|
|
CREATE OR REPLACE PROCEDURE bio_proc(a inout int, b in int, c out int)
|
|
AS
|
|
DECLARE
|
|
BEGIN
|
|
raise notice '%,%,%', a,b,c;
|
|
END;
|
|
/
|
|
set behavior_compat_options = '';
|
|
call bio_proc(1,2,3); -- ok
|
|
call bio_proc(1,2);
|
|
select * from bio_proc(1,2,3);
|
|
select * from bio_proc(1,2); -- ok
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
call bio_proc(1,2,3); -- ok
|
|
call bio_proc(1,2);
|
|
select * from bio_proc(1,2,3); -- ok
|
|
select * from bio_proc(1,2);
|
|
|
|
CREATE OR REPLACE PROCEDURE obi_proc(a out int, b inout int, c in int)
|
|
AS
|
|
DECLARE
|
|
BEGIN
|
|
raise notice '%,%,%', a,b,c;
|
|
END;
|
|
/
|
|
set behavior_compat_options = '';
|
|
call obi_proc(1,2,3); -- ok
|
|
call obi_proc(1,2);
|
|
select * from obi_proc(1,2,3);
|
|
select * from obi_proc(1,2); -- ok
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
call obi_proc(1,2,3); -- ok
|
|
call obi_proc(1,2);
|
|
select * from obi_proc(1,2,3); -- ok
|
|
select * from obi_proc(1,2);
|
|
|
|
-- test function
|
|
CREATE OR REPLACE FUNCTION iob_func(a in int, b out int, c inout int) RETURNS SETOF RECORD
|
|
AS $$
|
|
DECLARE
|
|
BEGIN
|
|
raise notice '%,%,%', a,b,c;
|
|
return;
|
|
END
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
set behavior_compat_options = '';
|
|
call iob_func(1,2,3); --ok
|
|
call iob_func(1,2);
|
|
select * from iob_func(1,2,3);
|
|
select * from iob_func(1,2); -- ok
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
call iob_func(1,2,3);
|
|
call iob_func(1,2);
|
|
select * from iob_func(1,2,3);
|
|
select * from iob_func(1,2); -- ok
|
|
|
|
CREATE OR REPLACE FUNCTION bio_func(a inout int, b in int, c out int) RETURNS SETOF RECORD
|
|
AS $$
|
|
DECLARE
|
|
BEGIN
|
|
raise notice '%,%,%', a,b,c;
|
|
return;
|
|
END
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
set behavior_compat_options = '';
|
|
call bio_func(1,2,3); -- ok
|
|
call bio_func(1,2);
|
|
select * from bio_func(1,2,3);
|
|
select * from bio_func(1,2); -- ok
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
call bio_func(1,2,3);
|
|
call bio_func(1,2);
|
|
select * from bio_func(1,2,3);
|
|
select * from bio_func(1,2); -- ok
|
|
|
|
CREATE OR REPLACE FUNCTION obi_func(a out int, b inout int, c in int) RETURNS SETOF RECORD
|
|
AS $$
|
|
DECLARE
|
|
BEGIN
|
|
raise notice '%,%,%', a,b,c;
|
|
return;
|
|
END
|
|
$$
|
|
LANGUAGE plpgsql;
|
|
set behavior_compat_options = '';
|
|
call obi_func(1,2,3); -- ok
|
|
call obi_func(1,2);
|
|
select * from obi_func(1,2,3);
|
|
select * from obi_func(1,2); -- ok
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
call obi_func(1,2,3);
|
|
call obi_func(1,2);
|
|
select * from obi_func(1,2,3);
|
|
select * from obi_func(1,2); -- ok
|
|
|
|
drop procedure test_in_out_in;
|
|
drop package pck1;
|
|
|
|
-- test override procedure with error param
|
|
set behavior_compat_options='proc_outparam_override';
|
|
drop package if exists pck1;
|
|
create type o1_test as (v01 number, v03 varchar2, v02 number);
|
|
create or replace package pck1 is
|
|
procedure p1(a o1_test,b out varchar2);
|
|
procedure p1(a2 int[], b2 out varchar2);
|
|
end pck1;
|
|
/
|
|
|
|
create or replace package body pck1 is
|
|
procedure p1(a o1_test,b out varchar2) is
|
|
begin
|
|
b:=a.v01;
|
|
raise info 'b:%',b;
|
|
end;
|
|
procedure p1(a2 int[], b2 out varchar2) is
|
|
begin
|
|
b2:=a2(2);
|
|
raise info 'b2:%',b2;
|
|
end;
|
|
end pck1;
|
|
/
|
|
|
|
-- should error
|
|
declare
|
|
begin
|
|
pck1.p1((1,'b',2),'a');
|
|
end;
|
|
/
|
|
drop table if exists test_tb;
|
|
create table test_tb(c1 int,c2 varchar2);
|
|
insert into test_tb values(1,'a'),(2,'b'),(3,'c');
|
|
drop package if exists pck1;
|
|
create or replace package pck1 is
|
|
type tp1 is record(v01 int, v02 varchar2);
|
|
procedure p1(a inout tp1,b varchar2);
|
|
end pck1;
|
|
/
|
|
|
|
create or replace package body pck1 is
|
|
procedure p1(a inout tp1,b varchar2) is
|
|
begin
|
|
select * into a from test_tb where c2=b;
|
|
end;
|
|
end pck1;
|
|
/
|
|
declare
|
|
var pck1.tp1;
|
|
begin
|
|
perform pck1.p1(var,'a');
|
|
end;
|
|
/
|
|
set behavior_compat_options='proc_outparam_override';
|
|
create or replace procedure p2(a int,b out int) is
|
|
begin
|
|
raise info 'a:%', a+1;
|
|
end;
|
|
/
|
|
drop table if exists test_tb;
|
|
create table test_tb(c1 int,c2 varchar2);
|
|
insert into test_tb values(1,'a'),(2,'b'),(3,'c');
|
|
drop package if exists pck1;
|
|
create or replace package pck1 is
|
|
type tp1 is table of varchar2(1024) index by varchar2(4000);
|
|
procedure p1(out_var out tp1,in_var varchar2);
|
|
end pck1;
|
|
/
|
|
create or replace package body pck1 is
|
|
procedure p1(out_var out tp1,in_var varchar2) is
|
|
begin
|
|
select c1 into out_var(in_var) from test_tb limit 1;
|
|
out_var('aa'):='aa';
|
|
end;
|
|
end pck1;
|
|
/
|
|
declare
|
|
var pck1.tp1;
|
|
begin
|
|
perform pck1.p1(var,'a');--不支持，报错
|
|
end;
|
|
/
|
|
\df
|
|
drop package pck1;
|
|
drop type o1_test;
|
|
set behavior_compat_options = '';
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
work_date varchar2;
|
|
begin
|
|
work_date:='202208';
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
workZ varchar2;
|
|
begin
|
|
workZ:='202208';
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
read_1 varchar2;
|
|
begin
|
|
read_1:='202208';
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
transaction_1 varchar2;
|
|
begin
|
|
transaction_1:='202208';
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
isolation1 varchar2;
|
|
begin
|
|
isolation1:='202208';
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
deferrableZ varchar2;
|
|
begin
|
|
deferrableZ:='202208';
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
|
|
create or replace procedure proc_test
|
|
as
|
|
not_1 varchar2;
|
|
begin
|
|
not_1:='202208';
|
|
end;
|
|
/
|
|
|
|
|
|
create or replace function f1(a out text) return text
|
|
is
|
|
b text;
|
|
begin
|
|
return b;
|
|
end;
|
|
/
|
|
|
|
create or replace function f3() return text
|
|
as
|
|
declare
|
|
buf text;
|
|
ddd text;
|
|
b text;
|
|
begin
|
|
return buf;
|
|
end;
|
|
/
|
|
|
|
call f3();
|
|
|
|
create or replace function f1(a out text) return text
|
|
is
|
|
b text;
|
|
begin
|
|
a :='aaa';
|
|
return b;
|
|
end;
|
|
/
|
|
|
|
create or replace function f3() return text
|
|
as
|
|
declare
|
|
buf text;
|
|
ddd text;
|
|
b text;
|
|
begin
|
|
perform f1(buf);
|
|
return buf;
|
|
end;
|
|
/
|
|
|
|
call f3();
|
|
|
|
create or replace function f1(c int, a out text) return text
|
|
is
|
|
b text;
|
|
begin
|
|
c:=1;
|
|
a :='aaa';
|
|
return b;
|
|
end;
|
|
/
|
|
|
|
create or replace function f3() return text
|
|
as
|
|
declare
|
|
buf text;
|
|
ddd text;
|
|
b text;
|
|
begin
|
|
perform f1(1,buf);
|
|
return buf;
|
|
end;
|
|
/
|
|
|
|
call f3();
|
|
create or replace procedure pro2(i_col1 out int)
|
|
is
|
|
a int;
|
|
begin
|
|
a := 9;
|
|
end;
|
|
/
|
|
|
|
declare
|
|
a int;
|
|
begin
|
|
perform pro2(a);
|
|
end;
|
|
/
|
|
|
|
call proc_test();
|
|
drop procedure proc_test;
|
|
|
|
set behavior_compat_options='proc_outparam_override';
|
|
set plsql_compile_check_options='outparam';
|
|
create procedure p11(a out int) package is
|
|
begin
|
|
a:=12;
|
|
end;
|
|
/
|
|
create procedure p11(a out varchar2) package is
|
|
begin
|
|
a:='12aa';
|
|
end;
|
|
/
|
|
create procedure p11(a out int[]) package is
|
|
begin
|
|
a:=12;
|
|
end;
|
|
/
|
|
create procedure p11(a in int, b out int) package is
|
|
begin
|
|
a:=12;
|
|
b:=66;
|
|
end;
|
|
/
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
a varchar2;
|
|
begin
|
|
aa := p11(p11(p11('2aaa')));--常量报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
a varchar2;
|
|
begin
|
|
aa := p11(p11('2aaa'));--常量报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
a varchar2;
|
|
begin
|
|
aa := p11('2aaa');--常量报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
a varchar2;
|
|
begin
|
|
aa := p11(1+1);--常量报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
a varchar2;
|
|
begin
|
|
aa := p11(a);--常量不报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
a int[];
|
|
begin
|
|
aa := p11(a);--常量不报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
drop procedure if exists p112(out int);
|
|
create procedure p112(a out int) is
|
|
declare
|
|
aa varchar2;
|
|
bb int;
|
|
begin
|
|
aa := p11(p11('2aaa'),bb);--常量报错
|
|
raise info 'aa=%',aa;
|
|
end;
|
|
/
|
|
|
|
drop package if exists pck1;
|
|
create or replace package pck1 is
|
|
type tp_1 is record(v01 number, v03 varchar2, v02 number);
|
|
procedure p1(a out int);
|
|
procedure p1(b out tp_1);
|
|
end pck1;
|
|
/
|
|
|
|
create or replace package body pck1 is
|
|
procedure p1(a out int) is
|
|
begin
|
|
a:=12;
|
|
end;
|
|
procedure p1(b out tp_1) is
|
|
begin
|
|
b.v01:=13;
|
|
raise info 'b:%', b;
|
|
end;
|
|
end pck1;
|
|
/
|
|
|
|
declare
|
|
begin
|
|
perform pck1.p1(2);--常量报错
|
|
end;
|
|
/
|
|
|
|
drop package if exists pck1;
|
|
create or replace package pck1 is
|
|
type tp_1 is record(v01 number, v03 varchar2, v02 number);
|
|
type tp_2 is varray(10) of int;
|
|
procedure p1(a in tp_1,c inout tp_2,b out varchar2);
|
|
procedure p1(a in tp_2,c inout tp_1,b out tp_1);
|
|
end pck1;
|
|
/
|
|
|
|
create or replace package body pck1 is
|
|
procedure p1(a in tp_1,c inout tp_2,b out varchar2) is
|
|
begin
|
|
c(1):=a.v01;
|
|
b:=a.v03;
|
|
raise info 'b:%',b;
|
|
end;
|
|
procedure p1(a in tp_2,c inout tp_1,b out tp_1) is
|
|
begin
|
|
c.v03:=a(1);
|
|
b:=(a(1),c.v03,a(2));
|
|
raise info 'b:%',b;
|
|
end;
|
|
end pck1;
|
|
/
|
|
|
|
declare
|
|
var1 pck1.tp_2;
|
|
var2 varchar2;
|
|
begin
|
|
perform pck1.p1((1,'bb','11'),array[2,3,4],var2);--报错
|
|
end;
|
|
/
|
|
|
|
declare
|
|
var1 pck1.tp_2;
|
|
var2 varchar2;
|
|
begin
|
|
perform pck1.p1(a=>(1,'bb','11'),c=>var1,b=>'aa');--报错
|
|
end;
|
|
/
|
|
|
|
create table test_table2 (coll int,col2 text);
|
|
insert into test_table2 values (1, 'test');
|
|
create or replace function test_function2(out rl refcursor, out r2 refcursor)
|
|
returns refcursor as
|
|
$$
|
|
begin
|
|
open rl for select coll from test_table2;
|
|
open r2 for select col2 from test_table2;
|
|
return r2;
|
|
end;
|
|
$$
|
|
LANGUAGE 'plpgsql';
|
|
call test_function2('','');
|
|
|
|
set behavior_compat_options = 'proc_outparam_override';
|
|
create or replace package pck2 is
|
|
FUNCTION pkg_mem_case(a int,self1 int) RETURN VARCHAR2;
|
|
procedure pkg_mem_case(a int,self1 inout int);
|
|
end pck2;
|
|
/
|
|
|
|
set behavior_compat_options = '';
|
|
create or replace package pck2 is
|
|
FUNCTION pkg_mem_case(a int,self1 int) RETURN VARCHAR2;
|
|
procedure pkg_mem_case(a int,self1 inout int);
|
|
end pck2;
|
|
/
|
|
select count(*) from pg_proc where proname = 'pkg_mem_case';
|
|
drop package pck2;
|
|
|
|
set plsql_compile_check_options='';
|
|
drop package body if exists pck1;
|
|
drop package body pck1;
|
|
drop package body pck1;
|
|
drop package body if exists pck1;
|
|
drop package if exists pck1;
|
|
drop schema if exists plpgsql_override_out cascade;
|