MogDB/openGauss 数据库 package 关键字的两种用法
本文出处：https://www.modb.pro/db/237701
package 关键字在 MogDB 数据库里有两种用法：
package 包，分为 Package Specification 和 Package Body。 注意：需要在 Oracle 兼容下(dbcompatibility=‘A’)
package 属性，用于存储过程重载。
下面演示这两种用法。
一、package 包
创建一个员工表
create table emp(
empno bigserial,
name varchar,
job varchar,
mgr numeric,
hiredate timestamp without time zone,
sal numeric,
comm numeric,
deptno numeric
);
创建 package 包接口，用于客户端接口调用
create package employee_management as
c_empno numeric = 9999;
function hire_emp (name varchar, job varchar,
mgr numeric, hiredate timestamp,
sal numeric, comm numeric,
deptno numeric) return numeric;
procedure fire_emp (emp_id numeric);
end employee_management;
/
创建 package body 包实现，可用于后端修改
create package body employee_management as
function hire_emp (name varchar, job varchar,
mgr numeric, hiredate timestamp, sal numeric,
comm numeric, deptno numeric)
return numeric as
declare
new_empno numeric;
begin
select nextval('emp_empno_seq') into new_empno;
insert into emp values (new_empno, name, job,
mgr,hiredate, sal, comm, deptno);
return new_empno;
end;
procedure fire_emp(emp_id in number)
as
begin
delete from emp where empno = emp_id;
end;
end employee_management;
/
接下来我们可以通过员工管理接口来进行调用，命令如下。
call employee_management.hire_emp('tom','teacher',1,localtimestamp,1,1,1);
通过上面示例，我们可以看到第一种用法，创建 package 包接口，里面可以创建不同的程序体，包括变量、函数、存储过程等。
二、package 属性
PostgreSQL 测试
首先我们来看 PG 数据库里的这个测试
create or replace procedure myproc(
in p1 varchar,
in p2 varchar,
out p3 varchar)
as $$
begin
p3 = p1;
raise notice 'procedure parameter: %', p1 ;
end ;
$$
language plpgsql;
create or replace procedure myproc(
in p1 varchar,
in p2 varchar)
as $$
begin
raise notice 'procedure parameter: %', p1 ;
end ;
$$
language plpgsql;
第二个同名的 myproc 存储过程创建会失败，提示信息如下：
ERROR: cannot change whether a procedure has output parameters HINT: Use DROP PROCEDURE myproc(character varying,character varying) first.
测试截图如下
上面的测试在 MogDB 数据库里也是同样的效果，不能通过输出参数来对存储过程进行重载，上面第一个 myproc 是有输出参数，第二个 myproc 没有输出参数。
MogDB 测试
接下来我们在 MogDB 数据库里，不使用 out 输出参数，但我们改变 in 输入参数的类型，测试重载。
create or replace procedure myproc2(
in p1 varchar,
in p2 varchar)
as
begin
raise notice 'procedure parameter: %', p1 ;
end ;
/
create or replace procedure myproc2(
in p1 integer,
in p2 integer)
as
begin
raise notice 'procedure parameter: %', p1 ;
end ;
/
最终我们的结果是只能看到最后一个两个输入参数为 integer 类型的 myproc2，截图如下。
接下面我们对第一个输入参数为 varchar 类型的 myproc2 使用 package 属性进行重载(加到 as 关键字前面)
create or replace procedure myproc2(
in p1 varchar,
in p2 varchar)
package as
begin
raise notice 'procedure parameter: %', p1 ;
end ;
/
可以看到下面的提示：
ERROR: Do not allow package function overload not package function.
可以看出我们不能使用后加 package 属性的 myproc2(输入参数类型为 varchar)去重载非 package 属性的 myproc2(输入参数类型为 integer)。
最后测试正确的示例：
create or replace procedure myproc3(
in p1 varchar,
in p2 varchar)
package as
begin
raise notice 'procedure parameter: %', p1 ;
end ;
/
create or replace procedure myproc3(
in p1 integer,
in p2 integer)
package as
begin
raise notice 'procedure parameter: %', p1 ;
end ;
/
下面的截图可以看到符合我们的预期。
三、结论
MogDB 数据库里 package 关键字有两种用法，一种是 package 包，另一种 package 属性用于存储过程重载。函数的重载不需要使用 package 属性，存储过程重载需要显式使用 package 属性。