CREATE PACKAGE

功能描述

创建一个新的PACKAGE。

注意事项

• 在package specification中声明过的函数或者存储过程，必须在package body中找到定义。
• 创建存储过程时，仅对CREATE的存储过程或PACKAGE本身加写锁，仅对执行过程中编译、执行会对函数和函数依赖的PACKAGE均加读锁。
• 在实例化中，无法调用带有commit/rollback的存储过程。
• 不能在Trigger中调用package函数。
• 不能在外部SQL中直接使用package当中的变量。
• 不允许在package外部调用package的私有变量和存储过程。
• 不支持存储过程不支持的用法，例如，在function中不允许调用commit/rollback，则package的function中同样无法调用commit/rollback。
• 不支持schema与package同名。
• 只支持A风格的存储过程和函数定义。
• 不支持package内有同名变量，包括包内同名参数。
• package的全局变量为session级，不同session之间package的变量不共享。
• package中调用自治事务的函数，不允许使用package中的cursor变量，以及不允许递归的使用package中cursor变量的函数。
• package中不支持声明ref cursor变量。
• package默认为SECURITY INVOKER权限，如果想将默认行为改为SECURITY DEFINER权限，需要设置guc参数behavior_compat_options='plsql_security_definer'。
• 被授予CREATE ANY PACKAGE权限的用户，可以在public模式和用户模式下创建PACKAGE。
• 如果需要创建带有特殊字符的package名，特殊字符中不能含有空格，并且设置GUC参数behavior_compat_options="skip_insert_gs_source"，否则可能引起报错。
• package创建时依赖未定义对象，如参数behavior_compat_options='plpgsql_dependency'打开，创建可执行，通过WARNING提示；如参数未打开，package创建不可执行。
• 如package中A风格函数已被视图直接依赖，且参数behavior_compat_options='plpgsql_dependency'打开，再次创建包体后视图可正常访问；如参数未打开，视图访问失败。
• 创建package函数时，其参数默认值支持含有package内变量，不支持跨package变量。
• package中函数复杂调用，如：func(x).a，函数调用返回复合类型，支持跨schema调用，不支持通过database.schema.package.func(x).b的方式调用。
• 在创建package内的存储过程时，如果存储过程名称为schema.func或package.func形式，只会获取func的名称，schema声明或package声明无效，如果需要默认禁止这种行为，可以设置GUC参数behavior_compat_options='forbid_package_function_with_prefix'。
• package内创建的带参数游标，可以跨package进行类型引用(%RowType)和打开使用，有以下限制：
  1. 暂不支持通过database.schema.package.cursor的方式调用游标。
  2. 当游标定义为函数参数时，需要提前设置参数behavior_compat_options='allow_procedure_compile_check'，以支持解析游标的具体类型。
  3. 当未设置参数behavior_compat_options='allow_procedure_compile_check'时，cursor%RowType处理成复合类型，即record。设置参数后，支持解析游标的具体类型。

语法格式

• CREATE PACKAGE SPECIFICATION语法格式。

  CREATE [ OR REPLACE ] PACKAGE [ schema ] package_name
      [ invoker_rights_clause ] { IS | AS } item_list_1 END package_name;

  

  • invoker_rights_clause可以被声明为AUTHID DEFINER或者AUTHID CURRENT_USER，分别为定义者权限和调用者权限。
  • item_list_1可以为声明的变量或者存储过程以及函数。

  PACKAGE SPECIFICATION（包头）声明了包内的公有变量、函数、异常等，可以被外部函数或者存储过程调用。在PACKAGE SPECIFICATION中只能声明存储过程、函数，不能定义存储过程或者函数。

• CREATE PACKAGE BODY语法格式。

  CREATE [ OR REPLACE ] PACKAGE BODY [ schema ] package_name
      { IS | AS } declare_section [ initialize_section ] END package_name;

  

  PACKAGE BODY(包体内)定义了包的私有变量、函数等。如果变量或者函数没有在PACKAGE SPECIFICATION中声明过，那么这个变量或者函数则为私有变量或者私有函数。

  PACKAGE BODY也可以声明实例化部分，用来初始化package，详见示例。

示例

• CREATE PACKAGE示例

  --创建测试表tbl_test。
  gaussdb=# CREATE TABLE tbl_test(uid varchar(6) PRIMARY KEY, area_id varchar(5), level int);
  
  --创建包头。
  gaussdb=# CREATE OR REPLACE PACKAGE pkg_test AS 
      --公有存储过程可以被外部调用。
      PROCEDURE proc_ist_tbl_test(v_uid in varchar, v_area_id varchar, v_level int);  
      PROCEDURE proc_del_tbl_test(v_uid in varchar);
      PROCEDURE proc_upd_tbl_test(v_uid in varchar, v_area_id varchar, v_level int);
  END pkg_test; 
  /
  
  --创建包体。
  gaussdb=# CREATE OR REPLACE PACKAGE BODY pkg_test AS 
      PROCEDURE proc_ist_tbl_test(v_uid in varchar, v_area_id varchar, v_level int) AS
      BEGIN
          INSERT INTO tbl_test VALUES (v_uid, v_area_id, v_level);
      END;    
      PROCEDURE proc_del_tbl_test(v_uid in varchar) AS 
      BEGIN 
          DELETE FROM tbl_test WHERE uid = v_uid;
      END;
      PROCEDURE proc_upd_tbl_test(v_uid in varchar, v_area_id varchar, v_level int) AS
      BEGIN 
          UPDATE tbl_test SET area_id = v_area_id, level = v_level WHERE uid = v_uid;
      END;
      var4 int := 10;
      --实例化开始。
  BEGIN 
      var4 := 10;
      dbe_output.print_line(var4);
  END pkg_test; 
  /

• 调用PACKAGE示例

  --使用CALL调用PACKAGE的存储过程。
  gaussdb=# CALL pkg_test.proc_ist_tbl_test('0A00B1','01001',24);
  gaussdb=# SELECT * FROM tbl_test;
    uid   | area_id | level 
  --------+---------+---------
   0A00B1 | 01001   |      24
  (1 row)
  
  --使用SELECT调用PACKAGE的存储过程。
  gaussdb=# SELECT pkg_test.proc_upd_tbl_test('0A00B1','01001','26');
  gaussdb=# SELECT * FROM tbl_test;
    uid   | area_id | level 
  --------+---------+-------
   0A00B1 | 01001   |    26
  (1 row)
  
  --匿名块调用PACKAGE的存储过程。
  gaussdb=# BEGIN 
  pkg_test.proc_del_tbl_test('0A00B1'); 
  END; 
  /
  gaussdb=# SELECT * FROM tbl_test;
   uid | area_id | level 
  -----+---------+-------
  (0 rows)
  
  --删除。
  gaussdb=# DROP TABLE tbl_test;
  gaussdb=# DROP PACKAGE pkg_test;

相关链接

ALTER PACKAGE，DROP PACKAGE