更新时间:2024-06-03 GMT+08:00

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 PACKAGEDROP PACKAGE