oracle建空包,包变量_数据仓库服务 GaussDB(DWS)_工具指南_DSC SQL语法迁移工具_SQL语法迁移参考_Oracle语法迁移（至GaussDB A）_华为云...

最新推荐文章于 2023-05-17 15:17:43 发布
最新推荐文章于 2023-05-17 15:17:43 发布
阅读量350 收藏
点赞数
文章标签： oracle建空包

Oracle支持包变量，允许变量保留包中所有的函数/过程。DSC通过自定义函数实现DWS支持包变量。

214a581ec5b319cfae1cb61556080b08.png

前提条件：创建并使用MIG_ORA_EXT模式。

复制自定义脚本文件的内容，并在要执行迁移的所有目标数据库中执行此脚本。详情请参见迁移流程。

如果模式和包名称之间存在空格，或包规范或包体(二者之一)含有引号，则输出可能与预期不符。

输入：包变量CREATE

OR REPLACE PACKAGE scott.pkg_adm_util IS un_stand_value long := '`' ;

defaultdate date := sysdate ;

g_pkgname CONSTANT VARCHAR2 ( 255 ) DEFAULT 'pkg_adm_util' ;

procedure p1 ;

END pkg_adm_util ;

/

CREATE

OR REPLACE PACKAGE BODY scott.pkg_adm_util AS defaulttime timestamp := systimestamp ;

PROCEDURE P1 AS BEGIN

scott.pkg_adm_util.un_stand_value := 'A' ;

pkg_adm_util.un_stand_value := 'B' ;

un_stand_value := 'C' ;

DBMS_OUTPUT.PUT_LINE ( pkg_adm_util.defaultdate ) ;

DBMS_OUTPUT.PUT_LINE ( defaulttime ) ;

DBMS_OUTPUT.PUT_LINE ( scott.pkg_adm_util.un_stand_value ) ;

DBMS_OUTPUT.PUT_LINE ( pkg_adm_util.un_stand_value ) ;

DBMS_OUTPUT.PUT_LINE ( un_stand_value ) ;

END ;

END ;

/

输出

SCHEMA pkg_adm_util

;

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( SCHEMA_NAME ,PACKAGE_NAME ,SPEC_OR_BODY ,VARIABLE_NAME

,VARIABLE_TYPE ,CONSTANT_

I ,DEFAULT_VALUE ,EXPRESSION_I )

VALUES

( UPPER( 'scott' ) ,UPPER( 'pkg_adm_util' ) ,'S' ,UPPER(

'un_stand_value' ) ,UPPE

R( 'TEXT' ) ,false ,'`' ,false ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( SCHEMA_NAME ,PACKAGE_NAME ,SPEC_OR_BODY ,VARIABLE_NAME

,VARIABLE_TYPE ,CONSTANT_

I ,DEFAULT_VALUE ,EXPRESSION_I )

VALUES

( UPPER( 'scott' ) ,UPPER( 'pkg_adm_util' ) ,'S' ,UPPER(

'defaultdate' ) ,UPPER( '

date' ) ,false ,$q$sysdate$q$ ,true ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( SCHEMA_NAME ,PACKAGE_NAME ,SPEC_OR_BODY ,VARIABLE_NAME

,VARIABLE_TYPE ,CONSTANT_

I ,DEFAULT_VALUE ,EXPRESSION_I )

VALUES

( UPPER( 'scott' ) ,UPPER( 'pkg_adm_util' ) ,'S' ,UPPER(

'g_pkgname' ) ,UPPER( 'VA

RCHAR2 ( 255 )' ) ,true ,'pkg_adm_util' ,false ) ;

END ;

/

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( SCHEMA_NAME ,PACKAGE_NAME ,SPEC_OR_BODY ,VARIABLE_NAME

,VARIABLE_TYPE ,CONSTANT_

I ,DEFAULT_VALUE ,EXPRESSION_I )

VALUES

( UPPER( 'scott' ) ,UPPER( 'pkg_adm_util' ) ,'B' ,UPPER(

'defaulttime' ) ,UPPER( '

timestamp' ) ,false ,$q$CURRENT_TIMESTAMP$q$ ,true ) ;

END ;

/

CREATE

OR REPLACE PROCEDURE pkg_adm_util.P1 AS

BEGIN

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( current_schema ( )

,'pkg_adm_util' ,'un_stand_value' ,( 'A' ) ::TEXT ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( current_schema ( )

,'pkg_adm_util' ,'un_stand_value' ,( 'B' ) ::TEXT ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( current_schema ( )

,'pkg_adm_util' ,'un_stand_value' ,( 'C' ) ::TEXT ) ;

DBMS_OUTPUT.PUT_LINE ( MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE

( 'scott' ,'pkg_adm_util' ,'defaultdate' ) :: date ) ;

DBMS_OUTPUT.PUT_LINE ( MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE(

'scott' ,'pkg_adm_util' ,'defaulttime' ) :: timestamp ) ;

DBMS_OUTPUT.PUT_LINE ( MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE(

'scott' ,'pkg_adm_util' ,'un_stand_value' ) :: TEXT ) ;

DBMS_OUTPUT.PUT_LINE ( MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE(

'scott' ,'pkg_adm_util' ,'un_stand_value' ) :: TEXT ) ;

DBMS_OUTPUT.PUT_LINE ( MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE(

'scott' ,'pkg_adm_util' ,'un_stand_value' ) :: TEXT ) ;

END ;

/

214a581ec5b319cfae1cb61556080b08.png

如果pkgSchemaNaming设置为true，

Oracle支持多个模式的包变量。如果不同的模式具有相同的包名和变量名，例如：schema1.mypackage.myvariable

schema2.mypackage.myvariable

则在迁移之后，模式名称将不会用于区分这两个包变量。由于模式名称被忽略，[any_schema] .mypackage.myvariable的最后一个数据类型声明或操作将覆盖schema1.mypackage.myvariable和schema2.mypackage.myvariable的类型和值。

输入：使用CONSTANT关键字在一个包中声明的默认值的包变量，并在另一个包中使用

在包规范中声明的全局变量可以在相同的包和其他包中被访问。

PACKAGE "SAD"."BAS_SUBTYPE_PKG" : (Declaring global variable)

-------------------------------------------------

g_header_waiting_split_status CONSTANT VARCHAR2(20) := 'Waiting_Distribute';

PACKAGE SAD.sad_lookup_stage_pkg: (Used global variable)

--------------------------------------------------

PROCEDURE calc_product_price(pi_contract_no IN VARCHAR2 DEFAULT NULL,

pi_stage_id IN NUMBER DEFAULT NULL,

pi_calc_category IN VARCHAR2 DEFAULT 'all',

pi_op_code IN NUMBER,

po_error_msg OUT VARCHAR2)

IS

CURSOR cur_contract IS

SELECT DISTINCT sdh.contract_number, sdh.stage_id

FROM sad_distribution_headers_t sdh

WHERE sdh.status = bas_subtype_pkg.g_header_waiting_split_status

AND sdh.contract_number = nvl(pi_contract_no, sdh.contract_number)

AND sdh.stage_id = nvl(pi_stage_id, sdh.stage_id);

v_ras_flag VARCHAR2 ( 1 ) ;

BEGIN

..

...

END calc_product_price;

/

输出

PROCEDURE calc_product_price(pi_contract_no IN VARCHAR2 DEFAULT NULL,

pi_stage_id IN NUMBER DEFAULT NULL,

pi_calc_category IN VARCHAR2 DEFAULT 'all',

pi_op_code IN NUMBER,

po_error_msg OUT VARCHAR2)

IS

MIG_PV_VAL_DUMMY_G_HEADER_WAITING_SPLIT_STATUS VARCHAR2 ( 20 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_subtype_pkg' ,'g_header_waiting_split_status' ) ::VARCHAR2 ( 20 ) ;

CURSOR cur_contract IS

SELECT DISTINCT sdh.contract_number, sdh.stage_id

FROM sad_distribution_headers_t sdh

WHERE sdh.status = MIG_PV_VAL_DUMMY_G_HEADER_WAITING_SPLIT_STATUS

AND sdh.contract_number = nvl(pi_contract_no, sdh.contract_number)

AND sdh.stage_id = nvl(pi_stage_id, sdh.stage_id);

v_ras_flag VARCHAR2 ( 1 ) ;

BEGIN

..

...

END;

/

214a581ec5b319cfae1cb61556080b08.png

包变量需要在CURSOR声明之前声明。

输入：EXCEPTION的变量

包变量是一种全局变量，可以通过声明一次在整个包中使用。

CREATE OR REPLACE PACKAGE BODY SAD.sad_lookup_stage_pkg IS

ex_prog_error EXCEPTION;

PROCEDURE assert_null ( pi_value IN VARCHAR2 )

IS

BEGIN

IF pi_value IS NOT NULL THEN

RAISE ex_prog_error ;

END IF ;

END assert_null;

END SAD.sad_lookup_stage_pkg

/

输出

CREATE

OR REPLACE PROCEDURE SAD.sad_lookup_stage_pkg#assert_null

( pi_value IN VARCHAR2 )

PACKAGE

IS

ex_prog_error EXCEPTION;

BEGIN

IF pi_value IS NOT NULL THEN

RAISE ex_prog_error ;

END IF ;

END ;

/

214a581ec5b319cfae1cb61556080b08.png

GaussDB没有软件包功能，因此包变量需要使用它的过程或函数中声明。

输入：若pkgSchemaNaming设置为false

包变量是一种全局变量，可以通过声明一次在整个包中使用。CREATE OR REPLACE PACKAGE BODY SAD.bas_lookup_misc_pkg IS

g_pkg_name CONSTANT VARCHAR2(30) := 'bas_lookup_misc_pkg';

g_func_name VARCHAR2(30);

FUNCTION func_name RETURN VARCHAR2 IS

l_func_name VARCHAR2(100);

BEGIN

l_func_name := g_pkg_name || '.' || g_func_name;

RETURN l_func_name;

END;

END SAD.bas_lookup_misc_pkg;

/

输出

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'bas_lookup_misc_pkg' )

,'B'

,UPPER( 'g_func_name' )

,UPPER( 'VARCHAR2(30)' )

,FALSE

,NULL

,FALSE ) ;

END ;

/

--********************************************************************

CREATE

OR REPLACE FUNCTION SAD.bas_lookup_misc_pkg#func_name

RETURN VARCHAR2

PACKAGE

IS

l_func_name VARCHAR2 ( 100 ) ;

MIG_PV_VAL_DUMMY_G_PKG_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_lookup_misc_pkg' ,'g_pkg_name' ) ::VARCHAR2 ( 30 ) ;

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_lookup_misc_pkg' ,'g_func_name' ) ::VARCHAR2 ( 30 ) ;

BEGIN

l_func_name := MIG_PV_VAL_DUMMY_G_PKG_NAME || '.' || MIG_PV_VAL_DUMMY_G_FUNC_NAME ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD','bas_lookup_misc_pkg','g_pkg_name',MIG_PV_VAL_DUMMY_G_PKG_NAME ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD','bas_lookup_misc_pkg','g_func_name',MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

RETURN l_func_name ;

END ;

/

214a581ec5b319cfae1cb61556080b08.png

如果配置参数pkgSchemaNaming设置为false，则包变量迁移在某些地方会出错(例如，GET获取默认值和SET分配最终值不会被添加)。但是，内核团队不建议使用此设置。请咨询内核团队。

输入：数据类型声明为包变量的表列%TYPE

如果数据类型被声明为变量的表列%TYPE，在表创建级别定义的数据类型被视为相应的列。

CREATE OR REPLACE PACKAGE BODY SAD.bas_lookup_misc_pkg IS

v_emp_name emp.ename%TYPE;

PROCEDURE save_emp_dtls ( v_empno IN VARCHAR2 )

IS

BEGIN

IF v_emp_name IS NULL THEN

v_emp_name := 'test';

END IF ;

END save_emp_dtls;

END bas_lookup_misc_pkg

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'bas_lookup_misc_pkg' )

,'B'

,UPPER( 'v_emp_name' )

,UPPER( 'VARCHAR2(30)' )

,FALSE

,NULL

,FALSE ) ;

END ;

/

--*********************************************************

CREATE

OR REPLACE PROCEDURE SAD.bas_lookup_misc_pkg#save_emp_dtls ( v_empno IN VARCHAR2 )

PACKAGE

IS

MIG_PV_VAL_DUMMY_EMP_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_lookup_misc_pkg' ,'v_emp_name' ) ::VARCHAR2 ( 30 ) ;

BEGIN

IF MIG_PV_VAL_DUMMY_EMP_NAME IS NULL THEN

MIG_PV_VAL_DUMMY_EMP_NAME := 'test';

END IF ;

END ;

/

214a581ec5b319cfae1cb61556080b08.png

使用数据类型作为表列％TYPE迁移包变量时，需要从表中获取实际数据类型，并且在声明变量时使用该数据类型，而不是使用％TYPE。

输入：若配置参数pkgSchemaNaming设置为false

如果一起指定PACKAGE名称和SCHEMA名称，则需要在GET()上使用SCHEMA名称来获取默认值，并使用SET()来指定最终值。

CREATE OR REPLACE PACKAGE BODY SAD.bas_lookup_misc_pkg IS

g_pkg_name CONSTANT VARCHAR2(30) := 'bas_lookup_misc_pkg';

g_func_name VARCHAR2(30);

FUNCTION func_name RETURN VARCHAR2 IS

l_func_name VARCHAR2(100);

BEGIN

l_func_name := g_pkg_name || '.' || g_func_name;

RETURN l_func_name;

END;

END SAD.bas_lookup_misc_pkg;

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'bas_lookup_misc_pkg' )

,'B'

,UPPER( 'g_pkg_name' )

,UPPER( 'VARCHAR2(30)' )

,TRUE

,'bas_lookup_misc_pkg'

,FALSE ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'bas_lookup_misc_pkg' )

,'B'

,UPPER( 'g_func_name' )

,UPPER( 'VARCHAR2(30)' )

,FALSE

,NULL

,FALSE ) ;

END ;

/

--********************************************************************

CREATE

OR REPLACE FUNCTION SAD.bas_lookup_misc_pkg#func_name

RETURN VARCHAR2

PACKAGE

IS

l_func_name VARCHAR2 ( 100 ) ;

MIG_PV_VAL_DUMMY_G_PKG_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_lookup_misc_pkg' ,'g_pkg_name' ) ::VARCHAR2 ( 30 ) ;

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_lookup_misc_pkg' ,'g_func_name' ) ::VARCHAR2 ( 30 ) ;

BEGIN

l_func_name := MIG_PV_VAL_DUMMY_G_PKG_NAME || '.' || MIG_PV_VAL_DUMMY_G_FUNC_NAME ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD','bas_lookup_misc_pkg','g_pkg_name',MIG_PV_VAL_DUMMY_G_PKG_NAME ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD','bas_lookup_misc_pkg','g_func_name',MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

RETURN l_func_name ;

END ;

/

输入：若配置参数pkgSchemaNaming设置为false

若配置参数pkgSchemaNaming设置为false

CREATE OR REPLACE PACKAGE BODY bas_lookup_misc_pkg IS

g_pkg_name CONSTANT VARCHAR2(30) := 'bas_lookup_misc_pkg';

g_func_name VARCHAR2(30);

FUNCTION func_name RETURN VARCHAR2 IS

l_func_name VARCHAR2(100);

BEGIN

l_func_name := g_pkg_name || '.' || g_func_name;

RETURN l_func_name;

END;

END SAD.bas_lookup_misc_pkg;

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'bas_lookup_misc_pkg' )

,'B'

,UPPER( 'g_pkg_name' )

,UPPER( 'VARCHAR2(30)' )

,TRUE

,'bas_lookup_misc_pkg'

,FALSE ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'bas_lookup_misc_pkg' )

,'B'

,UPPER( 'g_func_name' )

,UPPER( 'VARCHAR2(30)' )

,FALSE

,NULL

,FALSE ) ;

END ;

/

--********************************************************************

CREATE

OR REPLACE FUNCTION bas_lookup_misc_pkg#func_name

RETURN VARCHAR2

PACKAGE

IS

l_func_name VARCHAR2 ( 100 ) ;

MIG_PV_VAL_DUMMY_G_PKG_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( CURRENT_SCHEMA() ,'bas_lookup_misc_pkg' ,'g_pkg_name' ) ::VARCHAR2 ( 30 ) ;

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( CURRENT_SCHEMA() ,'bas_lookup_misc_pkg' ,'g_func_name' ) ::VARCHAR2 ( 30 ) ;

BEGIN

l_func_name := MIG_PV_VAL_DUMMY_G_PKG_NAME || '.' || MIG_PV_VAL_DUMMY_G_FUNC_NAME ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( CURRENT_SCHEMA(),'bas_lookup_misc_pkg','g_pkg_name',MIG_PV_VAL_DUMMY_G_PKG_NAME ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( CURRENT_SCHEMA(),'bas_lookup_misc_pkg','g_func_name',MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

RETURN l_func_name ;

END ;

/

输入： 若pkgSchemaNaming设置为false，使用包变量

全局变量在包转换期间未正确转换，并在编译期间报错。如果配置参数pkgSchemaNaming设置为false，则某些位置不会进行包变量迁移。但是，内核团队不建议使用此设置，详情请咨询内核团队。

CREATE OR REPLACE PACKAGE BODY SAD.bas_dml_lookup_pkg IS

g_pkg_name CONSTANT VARCHAR2(30) := 'bas_dml_ic_price_rule_pkg' ;

g_func_name VARCHAR2 (100);

FUNCTION func_name

RETURN VARCHAR2

IS

l_func_name VARCHAR2(100) ;

BEGIN

l_func_name := g_pkg_name || '.' || g_func_name ;

RETURN l_func_name ;

END ;

END bas_dml_lookup_pkg ;

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

USER_NAME, PACKAGE_NAME, SPEC_OR_BODY

, VARIABLE_NAME, VARIABLE_TYPE

, CONSTANT_I, DEFAULT_VALUE, RUNTIME_EXEC_I

)

VALUES ( 'SAD', UPPER( 'bas_dml_lookup_pkg' ), 'B'

, UPPER( 'g_pkg_name' ), UPPER( 'VARCHAR2 ( 30 )' )

, TRUE, 'bas_dml_ic_price_rule_pkg', FALSE ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

USER_NAME, PACKAGE_NAME, SPEC_OR_BODY

, VARIABLE_NAME, VARIABLE_TYPE

, CONSTANT_I, DEFAULT_VALUE, RUNTIME_EXEC_I

)

VALUES ( 'SAD', UPPER( 'bas_dml_lookup_pkg' ), 'B'

, UPPER( 'g_func_name' ), UPPER( 'VARCHAR2(100)' )

, FALSE, NULL, FALSE ) ;

END ;

/

CREATE OR REPLACE FUNCTION SAD.bas_dml_lookup_pkg#func_name

RETURN VARCHAR2

IS

MIG_PV_VAL_DUMMY_G_PKG_NAME VARCHAR2(30) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD', 'BAS_DML_LOOKUP_PKG', 'G_PKG_NAME' )::VARCHAR2(30) ;

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2(100) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD', 'BAS_DML_LOOKUP_PKG', 'G_FUNC_NAME' )::VARCHAR2(100) ;

l_func_name VARCHAR2(100) ;

BEGIN

l_func_name := MIG_PV_VAL_DUMMY_G_PKG_NAME || '.' || MIG_PV_VAL_DUMMY_G_FUNC_NAME ;

RETURN l_func_name ;

END ;

/

输入：(%type)表中的表字段类型定义

包转换期间，模式定义不会被添加到(％type)表中的表字段类型定义中，并且在编译期间会报错。

CREATE TABLE CTP_BRANCH

( ID VARCHAR2(10)

, NAME VARCHAR2(100)

, DESCRIPTION VARCHAR2(500)

);

CREATE OR REPLACE PACKAGE BODY SAD.bas_dml_lookup_pkg IS

g_pkg_name CONSTANT VARCHAR2(30) := 'bas_dml_ic_price_rule_pkg' ;

g_func_name CTP_BRANCH.NAME%TYPE;

FUNCTION func_name

RETURN VARCHAR2

IS

l_func_name VARCHAR2(100) ;

BEGIN

l_func_name := g_pkg_name || '.' || g_func_name ;

RETURN l_func_name ;

END ;

END bas_dml_lookup_pkg ;

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

USER_NAME, PACKAGE_NAME, SPEC_OR_BODY

, VARIABLE_NAME, VARIABLE_TYPE

, CONSTANT_I, DEFAULT_VALUE, RUNTIME_EXEC_I

)

VALUES ( 'SAD', UPPER( 'bas_dml_lookup_pkg' ), 'B'

, UPPER( 'g_pkg_name' ), UPPER( 'VARCHAR2 ( 30 )' )

, TRUE, 'bas_dml_ic_price_rule_pkg', FALSE ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

USER_NAME, PACKAGE_NAME, SPEC_OR_BODY

, VARIABLE_NAME, VARIABLE_TYPE

, CONSTANT_I, DEFAULT_VALUE, RUNTIME_EXEC_I

)

VALUES ( 'SAD', UPPER( 'bas_dml_lookup_pkg' ), 'B'

, UPPER( 'g_func_name' ), UPPER( 'VARCHAR2(100)' )

, FALSE, NULL, FALSE ) ;

END ;

/

CREATE OR REPLACE FUNCTION SAD.bas_dml_lookup_pkg#func_name

RETURN VARCHAR2

IS

MIG_PV_VAL_DUMMY_G_PKG_NAME VARCHAR2(30) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD', 'BAS_DML_LOOKUP_PKG', 'G_PKG_NAME' )::VARCHAR2(30) ;

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2(100) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD', 'BAS_DML_LOOKUP_PKG', 'G_FUNC_NAME' )::VARCHAR2(100) ;

l_func_name VARCHAR2(100) ;

BEGIN

l_func_name := MIG_PV_VAL_DUMMY_G_PKG_NAME || '.' || MIG_PV_VAL_DUMMY_G_FUNC_NAME ;

RETURN l_func_name ;

END ;

/

EXCEPTION

包变量可以被添加为EXCEPTION，GaussDB不支持此功能。

输入

CREATE OR REPLACE PACKAGE BODY product_pkg IS

ex_prog_error EXCEPTION;

PROCEDURE assert_null(pi_value IN VARCHAR2) IS

BEGIN

IF pi_value IS NOT NULL

THEN

RAISE ex_prog_error;

END IF;

EXCEPTION

WHEN ex_prog_error THEN

RAISE ex_prog_error;

END assert_null;

END product_pkg;

/

输出

CREATE OR replace PROCEDURE product_pkg.Assert_null (pi_value IN VARCHAR2)

IS

ex_prog_error EXCEPTION;

BEGIN

IF pi_value IS NOT NULL THEN

RAISE ex_prog_error;

END IF;

EXCEPTION

WHEN ex_prog_error THEN

RAISE ex_prog_error;

END;

/

默认值

function被指定为包变量的默认值。

输入

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'PKG_REVN_ARPU' )

,'B'

,UPPER( 'imodel' )

,UPPER( 'log_table.ds_exec%TYPE' )

,FALSE

,pkg_etl.proc_set_chain ( 'DAILY ARPU' )

,FALSE ) ;

END ;

/

gSQL:PKG_REVN_ARPU_04.SQL:23: ERROR: function pkg_etl.proc_set_chain(unknown) does not exist

LINE 15: ,pkg_etl.proc_set_chain ( 'DAILY ARPU' )

^

HINT: No function matches the given name and argument types. You might need to add explicit type casts.

CREATE OR REPLACE PACKAGE BODY IC_STAGE.PKG_REVN_ARPU

AS

imodel log_table.ds_exec%TYPE := pkg_etl.proc_set_chain ('DAILY ARPU');

PROCEDURE AGGR_X_AGG00_REVN_DEALER (p_date PLS_INTEGER,

p_days PLS_INTEGER)

AS

v_start_date PLS_INTEGER;

v_curr_date PLS_INTEGER;

v_imodel VARCHAR2(100);

BEGIN

pkg_etl.proc_start (p_date, 'AGGR_X_AGG00_REVN_DEALER ');

v_start_date :=

TO_CHAR (TO_DATE (p_date, 'yyyymmdd') - (p_days - 1), 'yyyymmdd');

v_curr_date := p_date;

v_imodel := imodel;

END;

END PKG_REVN_ARPU;

/

输出

SET

package_name_list = 'PKG_REVN_ARPU' ;

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'PKG_REVN_ARPU' )

,'B'

,UPPER( 'imodel' )

,UPPER( 'log_table.ds_exec%TYPE' )

,FALSE

,$q$pkg_etl.proc_set_chain ('DAILY ARPU')$q$

,TRUE ) ;

END ;

/

CREATE

OR REPLACE PROCEDURE PKG_REVN_ARPU.AGGR_X_AGG00_REVN_DEALER ( p_date INTEGER

,p_days INTEGER )

AS

MIG_PV_VAL_DUMMY_IMODEL log_table.ds_exec%TYPE := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( CURRENT_USER,'PKG_REVN_ARPU','imodel' ) ::log_table.ds_exec%TYPE ;

v_start_date INTEGER ;

v_curr_date INTEGER ;

v_imodel VARCHAR2 ( 100 ) ;

BEGIN

pkg_etl.proc_start ( p_date ,'AGGR_X_AGG00_REVN_DEALER ' ) ;

v_start_date := TO_CHAR( TO_DATE( p_date ,'yyyymmdd' ) - ( p_days - 1 ),'yyyymmdd' ) ;

v_curr_date := p_date ;

v_imodel := MIG_PV_VAL_DUMMY_IMODEL ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( CURRENT_USER,'PKG_REVN_ARPU','imodel',MIG_PV_VAL_DUMMY_IMODEL ) ;

END ;

/

reset package_name_list ;

PLS_INTEGER

PLS_INTEGER数据类型未转换为用于包变量的INTEGER，但对其他本地变量起作用，因此，包变量PLS_INTEGER应转换为INTEGER 数据类型，例如，varaible1 PLS_INTEGER ==> varaible1 INTEGER。

脚本：SAD_CALC_BPART_PRICE_PKG.SQL, SAD_CALC_ITEM_PKG_TEST_OB.SQL, SAD_CALC_ITEM_PRICE_TEST_OB.SQL, SAD_CALC_ITEM_PRI_TEST_OB.SQL, SAD_CALC_ITEM_TEST_OB.SQL

输入

CREATE OR REPLACE PACKAGE BODY "SAD"."SAD_CALC_BPART_PRICE_PKG" IS

g_max_number_of_entities PLS_INTEGER := 100;

FUNCTION split_warning(pi_contract_number IN VARCHAR2,

pi_stage_id IN NUMBER,

pi_quotation_id IN NUMBER,

pi_cfg_instance_id IN NUMBER) RETURN VARCHAR2 IS

BEGIN

---

l_item_list := items_no_cost(pi_contract_number => pi_contract_number,

pi_stage_id => pi_stage_id,

pi_quotation_id => pi_quotation_id,

pi_cfg_instance_id => pi_cfg_instance_id,

pi_max_number_of_entities => g_max_number_of_entities,

pi_sep_char => g_item_sep_char,

po_error_msg => po_error_msg);

---

END split_warning;

END SAD_CALC_BPART_PRICE_PKG;

输出

BEGIN

---

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'SAD_CALC_BPART_PRICE_PKG' )

,'B'

,UPPER( 'g_max_number_of_entities' )

,UPPER( 'PLS_INTEGER' )

,FALSE

,100

,FALSE ) ;

---

END;

/

CREATE

OR REPLACE FUNCTION SAD.SAD_CALC_BPART_PRICE_PKG#split_warning ( pi_contract_number IN VARCHAR2

,pi_stage_id IN NUMBER

,pi_quotation_id IN NUMBER

,pi_cfg_instance_id IN NUMBER )

RETURN VARCHAR2 IS

---

MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES PLS_INTEGER := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( current_schema ( )

,'SAD_CALC_BPART_PRICE_PKG'

,'g_max_number_of_entities' ) ::PLS_INTEGER ;

---

l_item_list := SAD.SAD_CALC_BPART_PRICE_PKG#items_no_cost ( pi_contract_number => pi_contract_number ,

pi_stage_id => pi_stage_id ,

pi_quotation_id => pi_quotation_id ,

pi_cfg_instance_id => pi_cfg_instance_id ,

pi_max_number_of_entities => MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES ,

pi_sep_char => MIG_PV_VAL_DUMMY_G_ITEM_SEP_CHAR ,

po_error_msg => po_error_msg ) ;

---

END;

输入

PLS_INTEGER datatype not converted into INTEGER for package variables but it's working fine for other local variables therefore for package variables also PLS_INTEGER should be converted to INTEGER datatype i.e varaible1 PLS_INTEGER ==> varaible1 INTEGER

SCRIPTS : SAD_CALC_BPART_PRICE_PKG.SQL, SAD_CALC_ITEM_PKG_TEST_OB.SQL, SAD_CALC_ITEM_PRICE_TEST_OB.SQL, SAD_CALC_ITEM_PRI_TEST_OB.SQL, SAD_CALC_ITEM_TEST_OB.SQL

INPUT :

CREATE OR REPLACE PACKAGE BODY "SAD"."SAD_CALC_BPART_PRICE_PKG" IS

g_max_number_of_entities PLS_INTEGER := 100;

FUNCTION split_warning(pi_contract_number IN VARCHAR2,

pi_stage_id IN NUMBER,

pi_quotation_id IN NUMBER,

pi_cfg_instance_id IN NUMBER) RETURN VARCHAR2 IS

BEGIN

---

l_item_list := items_no_cost(pi_contract_number => pi_contract_number,

pi_stage_id => pi_stage_id,

pi_quotation_id => pi_quotation_id,

pi_cfg_instance_id => pi_cfg_instance_id,

pi_max_number_of_entities => g_max_number_of_entities,

pi_sep_char => g_item_sep_char,

po_error_msg => po_error_msg);

---

END split_warning;

END SAD_CALC_BPART_PRICE_PKG;

OUTPUT :

BEGIN

---

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES (

PACKAGE_NAME

,SPEC_OR_BODY

,VARIABLE_NAME

,VARIABLE_TYPE

,CONSTANT_I

,DEFAULT_VALUE

,RUNTIME_EXEC_I

)

VALUES ( UPPER( 'SAD_CALC_BPART_PRICE_PKG' )

,'B'

,UPPER( 'g_max_number_of_entities' )

,UPPER( 'PLS_INTEGER' )

,FALSE

,100

,FALSE ) ;

---

END;

/

CREATE

OR REPLACE FUNCTION SAD.SAD_CALC_BPART_PRICE_PKG#split_warning ( pi_contract_number IN VARCHAR2

,pi_stage_id IN NUMBER

,pi_quotation_id IN NUMBER

,pi_cfg_instance_id IN NUMBER )

RETURN VARCHAR2 IS

---

MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES PLS_INTEGER := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( current_schema ( )

,'SAD_CALC_BPART_PRICE_PKG'

,'g_max_number_of_entities' ) ::PLS_INTEGER ;

---

l_item_list := SAD.SAD_CALC_BPART_PRICE_PKG#items_no_cost ( pi_contract_number => pi_contract_number ,

pi_stage_id => pi_stage_id ,

pi_quotation_id => pi_quotation_id ,

pi_cfg_instance_id => pi_cfg_instance_id ,

pi_max_number_of_entities => MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES ,

pi_sep_char => MIG_PV_VAL_DUMMY_G_ITEM_SEP_CHAR ,

po_error_msg => po_error_msg ) ;

---

END;

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( PACKAGE_NAME, SPEC_OR_BODY, VARIABLE_NAME

, VARIABLE_TYPE, CONSTANT_I, DEFAULT_VALUE

, RUNTIME_EXEC_I )

VALUES ( UPPER('SAD_CALC_BPART_PRICE_PKG')

, 'B', UPPER( 'g_max_number_of_entities' )

, UPPER( 'INTEGER' ),FALSE,100

, FALSE ) ;

END ;

/

CREATE OR REPLACE FUNCTION SAD.SAD_CALC_BPART_PRICE_PKG#split_warning

( pi_contract_number IN VARCHAR2

, pi_stage_id IN NUMBER )

RETURN VARCHAR2

PACKAGE

IS

MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES INTEGER := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE('SAD', 'SAD_CALC_BPART_PRICE_PKG', 'g_max_number_of_entities') ::INTEGER ;

po_error_msg sad_products_t.exception_description%TYPE ;

BEGIN

l_item_list := items_no_cost ( pi_contract_number => pi_contract_number ,pi_stage_id => pi_stage_id

, pi_max_number_of_entities => MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES

, po_error_msg => po_error_msg ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ('SAD' ,'SAD_CALC_BPART_PRICE_PKG' ,'g_max_number_of_entities' ,MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES);

RETURN po_error_msg ;

EXCEPTION

WHEN OTHERS THEN

po_error_msg := 'Program Others abnormal, Fail to obtain the warning information.' || SQLERRM ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'SAD_CALC_BPART_PRICE_PKG' ,'g_max_number_of_entities' ,MIG_PV_VAL_DUMMY_G_MAX_NUMBER_OF_ENTITIES ) ;

RETURN po_error_msg ;

END ;

/

带有包变量的游标

SAD.sad_calc_product_price_pkg#calc_product_price中声明的游标包含包变量，并且需要被处理。

输入

CREATE OR REPLACE PACKAGE SAD.bas_subtype_pkg IS

g_header_waiting_split_status CONSTANT VARCHAR2(20) := 'Waiting_Distribute';

SUBTYPE error_msg IS sad_products_t.exception_description%TYPE;

END bas_subtype_pkg;

/

CREATE OR REPLACE PACKAGE BODY SAD.sad_calc_product_price_pkg IS

PROCEDURE calc_product_price(pi_contract_no IN VARCHAR2 DEFAULT NULL,

pi_stage_id IN NUMBER DEFAULT NULL,

po_error_msg OUT VARCHAR2) IS

CURSOR cur_contract IS

SELECT DISTINCT sdh.contract_number, sdh.stage_id

FROM sad_distribution_headers_t sdh

WHERE sdh.status = bas_subtype_pkg.g_header_waiting_split_status

AND sdh.contract_number = nvl(pi_contract_no, sdh.contract_number)

AND sdh.stage_id = nvl(pi_stage_id, sdh.stage_id);

lv_error_msg bas_subtype_pkg.error_msg;

BEGIN

FOR rec_contract IN cur_contract

LOOP

validate_process_status(rec_contract.contract_number,

rec_contract.stage_id,

lv_error_msg);

END LOOP;

po_error_msg := lv_error_msg;

END calc_product_price;

END sad_calc_product_price_pkg;

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( PACKAGE_NAME,SPEC_OR_BODY,VARIABLE_NAME

, VARIABLE_TYPE,CONSTANT_I,DEFAULT_VALUE

, RUNTIME_EXEC_I )

VALUES ( UPPER('bas_subtype_pkg'), 'S', UPPER('g_header_waiting_split_status')

, UPPER( 'VARCHAR2(20)' ), TRUE, 'Waiting_Distribute'

, FALSE ) ;

END ;

/

CREATE OR REPLACE PROCEDURE SAD.sad_calc_product_price_pkg#calc_product_price

( pi_contract_no IN VARCHAR2 DEFAULT NULL

, pi_stage_id IN NUMBER DEFAULT NULL

, po_error_msg OUT VARCHAR2 )

PACKAGE

IS

MIG_PV_VAL_DUMMY_G_HEADER_WAITING_SPLIT_STATUS VARCHAR2 ( 20 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_subtype_pkg'

,'g_header_waiting_split_status' ) ::VARCHAR2 ( 20 ) ;

CURSOR cur_contract IS

SELECT DISTINCT sdh.contract_number, sdh.stage_id

FROM sad_distribution_headers_t sdh

WHERE sdh.status = MIG_PV_VAL_DUMMY_G_HEADER_WAITING_SPLIT_STATUS

AND sdh.contract_number = nvl( pi_contract_no ,sdh.contract_number )

AND sdh.stage_id = nvl( pi_stage_id ,sdh.stage_id ) ;

lv_error_msg sad_products_t.exception_description%TYPE ;

BEGIN

FOR rec_contract IN cur_contract

LOOP

validate_process_status ( rec_contract.contract_number ,rec_contract.stage_id ,lv_error_msg ) ;

END LOOP ;

po_error_msg := lv_error_msg ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'bas_subtype_pkg' ,'g_header_waiting_split_status' ,MIG_PV_VAL_DUMMY_G_HEADER_WAITING_SPLIT_STATUS ) ;

END ;

/

RETURN后的SET VARIABLE函数

SET VARIABLE函数应在过程和函数中的RETURN语句前被调用。

输入

CREATE OR REPLACE PACKAGE BODY SAD.bas_dml_lookup_pkg IS

g_pkg_name CONSTANT VARCHAR2(30) := 'bas_dml_lookup_pkg' ;

g_func_name VARCHAR2(100);

FUNCTION func_name

RETURN VARCHAR2

IS

l_func_name VARCHAR2(100) ;

BEGIN

g_func_name := 'func_name';

l_func_name := g_pkg_name || '.' || g_func_name ;

RETURN l_func_name ;

END;

PROCEDURE data_change_logs ( pi_table_name IN VARCHAR2

, pi_table_key_columns IN VARCHAR2

, po_error_msg OUT VARCHAR2

)

IS

BEGIN

g_func_name := 'data_change_logs';

IF pi_table_name IS NULL

THEN

RETURN;

END IF;

INSERT INTO fnd_data_change_logs_t

( logid, table_name, table_key_columns )

VALUES

( fnd_data_change_logs_t_s.NEXTVAL

, pi_table_name, pi_table_key_columns );

EXCEPTION

WHEN OTHERS THEN

po_error_msg := 'Others Exception raise in ' || func_name || ',' || SQLERRM;

END data_change_logs;

END bas_dml_lookup_pkg;

/

输出

BEGIN

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( PACKAGE_NAME,SPEC_OR_BODY,VARIABLE_NAME

, VARIABLE_TYPE,CONSTANT_I,DEFAULT_VALUE

, RUNTIME_EXEC_I )

VALUES ( UPPER('bas_dml_lookup_pkg'), 'B', UPPER('g_pkg_name')

, UPPER( 'VARCHAR2(30)' ), TRUE, 'bas_dml_lookup_pkg'

, FALSE ) ;

INSERT INTO MIG_ORA_EXT.MIG_PKG_VARIABLES

( PACKAGE_NAME,SPEC_OR_BODY,VARIABLE_NAME

, VARIABLE_TYPE,CONSTANT_I,DEFAULT_VALUE

, RUNTIME_EXEC_I )

VALUES ( UPPER('bas_dml_lookup_pkg'), 'B', UPPER('g_func_name')

, UPPER( 'VARCHAR2(100)' ), FALSE, NULL, FALSE ) ;

END ;

/

CREATE OR REPLACE FUNCTION SAD.bas_dml_lookup_pkg#func_name

RETURN VARCHAR2

PACKAGE

IS

MIG_PV_VAL_DUMMY_G_PKG_NAME VARCHAR2 ( 30 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_pkg_name' ) ::VARCHAR2 ( 30 ) ;

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2 ( 100 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_func_name' ) ::VARCHAR2 ( 100 ) ;

l_func_name VARCHAR2 ( 100 ) ;

BEGIN

MIG_PV_VAL_DUMMY_G_FUNC_NAME := 'func_name' ;

l_func_name := MIG_PV_VAL_DUMMY_G_PKG_NAME || '.' || MIG_PV_VAL_DUMMY_G_FUNC_NAME ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_func_name' ,MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_pkg_name' ,MIG_PV_VAL_DUMMY_G_PKG_NAME ) ;

RETURN l_func_name ;

END ;

/

CREATE OR REPLACE PROCEDURE SAD.bas_dml_lookup_pkg#data_change_logs

( pi_table_name IN VARCHAR2

, pi_table_key_columns IN VARCHAR2

, po_error_msg OUT VARCHAR2 )

PACKAGE

IS

MIG_PV_VAL_DUMMY_G_FUNC_NAME VARCHAR2 ( 100 ) := MIG_ORA_EXT.MIG_FN_GET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_func_name' ) ::VARCHAR2 ( 100 ) ;

BEGIN

MIG_PV_VAL_DUMMY_G_FUNC_NAME := 'data_change_logs' ;

IF pi_table_name IS NULL THEN

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_func_name' ,MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

RETURN ;

END IF ;

INSERT INTO fnd_data_change_logs_t ( logid, table_name, table_key_columns )

VALUES ( NEXTVAL ( 'fnd_data_change_logs_t_s' ), pi_table_name, pi_table_key_columns ) ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_func_name' ,MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

EXCEPTION

WHEN OTHERS THEN

po_error_msg := 'Others Exception raise in ' || SAD.bas_dml_lookup_pkg#func_name ( ) || ',' || SQLERRM ;

MIG_ORA_EXT.MIG_FN_SET_PKG_VARIABLE ( 'SAD' ,'bas_dml_lookup_pkg' ,'g_func_name' ,MIG_PV_VAL_DUMMY_G_FUNC_NAME ) ;

END ;

/

空包

无需迁移空包体。

输入

CREATE OR REPLACE PACKAGE BODY SAD.bas_subtype_pkg IS

BEGIN

NULL;

END bas_subtype_pkg;

/

输出文件为空。

郁林成森
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
华为云原生之数据仓库服务GaussDB(DWS)的深度使用与应用实践
╰つ栺尖篴夢ゞ
06-09 9582
华为云原生数据仓服务GaussDB(DWS)是什么？它有什么功能和特点？相对于传统的数据库，它的优势是什么？如何使用GaussDB(DWS)？它的使用流程是怎样的？GaussDB(DWS)的基本用法有哪些？如何运用GaussDB(DWS)来进行数据模拟分析以及工作负载管理？带着这些疑问，我们一起去GaussDB(DWS)的世界里一探究竟，玩转GaussDB(DWS)！！......
Oracle进阶（六）包（Package）和包体
一二山人的博客
04-27 6493
包（Package）是用来存储相关程序结构的对象，它存储于数据字典中。包由两部分组成：包规范(PACKAGE)和包体(PACKAGE BODY)。 包规范是包的说明部分，是对外的操作接口（类似java接口），对应用是可见的。 包体是包的代码和实现部分（类似java实现类），对应用来说是不可见的。
Oracle Package中的包变量的使用(转)
weixin_30765505的博客
12-23 267
转自：http://hi.baidu.com/andyloolu/blog/item/a64f0ed12cc10738960a165a.html 在Oracle中，可以定义包变量。 关于包变量的使用，不少的人不是很清楚。首先我们看如下的例子： CREATE OR REPLACE PACKAGE ds_test AS procedure proc1...
Oracle包变量
weixin_34218579的博客
03-22 121
2019独角兽企业重金招聘Python工程师标准>>> ...
oracle中的包变量
sxdtzhp的专栏
05-15 5237
<br />在CS结构系统开发中，oracle中的包变量常用来做为session的全局变量使用，在操作员登录时给包变量赋值，在本次登录后一直都可以随时取值。减少传递参数的个数，如操作员姓名、子系统名称等变量。  <br />　　而在三层结构系统或oracle启用了共享服务器模式时，就不能这样使用了。因在三层结构中，客户端并不与数据库直接连接，而是通过中间层访问数据库。客户端每次与数据库的连接并不一定是同一个sesson,因此不能把包变量做为全局变量使用。
Oracle 包变量的一种使用
weixin_30614587的博客
08-10 66
Oracle 包变量的一种使用 http://blog.csdn.net/happy_robin/archive/2008/04/16/2295785.aspx 转载于:https://www.cnblogs.com/zzj8704/archive/2008/07/09/1238783.html
oracle 中的cast函数,其他函数_数据仓库服务 GaussDB(DWS)_工具指南_DSC SQL语法迁移工具_SQL语法迁移参考_Oracle语法迁移（至GaussDB A）_华为云...
weixin_33043471的博客
04-06 830
本节介绍如下函数：类型转换Oracle/PLSQL的CAST函数用于转换数据类型。CAST ( AS TEXT)一般情况下，静态值迁移为CAST AS TEXT。但是，在 PL/SQL存储过程和函数中 ，SELECT INTO子句中包的含静态值不迁移，静态值输入和输出完全相同。输入： CAST(AS TEXT)BEGINIFV_DETAILSTATUS = '002'THENmeta.p_mt_s...
oracle 表语法,表（Oracle）_数据仓库服务 GaussDB(DWS)_工具指南_DSC SQL语法迁移工具_SQL语法迁移参考_Oracle语法迁移（至GaussDB A）_华为云...
weixin_36484814的博客
04-03 1200
CREATE TABLEOracle的CREATE TABLE语句用于创建表。GaussDB直接支持该语句，无需迁移ALTER TABLEOracle的ALTER TABLE语句用于新增、重命名、修改或删除表列。GaussDB直接支持该语句，无需迁移。PRIMARY KEYOracle中如果存在两张表具有相同的主键字段，则在执行ALTER TABLE时需加上表名进行区分。输入：PRIMARY KE...
oracle迁移至gaussdb,GaussDB for DWS 数据融合系列第九期：Oracle数据迁移到GaussDB(DWS)...
weixin_27224119的博客
04-09 2060
当客户选择切换到GaussDB(DWS)数据库后可能会面临数据库的迁移任务，数据库迁移包括用户数据迁移和应用程序sql脚本迁移，其中，应用程序sql脚本迁移是一个复杂、高风险且耗时的过程。DSC(Database Schema Convertor)是一款运行在Linux或Windows操作系统上的命令行工具，致力于向客户提供简单、快速、可靠的应用程序sql脚本迁移服务，通过内置的语法迁移逻辑解析源...
华为数据仓库-GaussDB（DWS）入门教程
最新发布
07-20
### 华为数据仓库-GaussDB（DWS）入门教程 #### 一、从这里开始：初识GaussDB（DWS） 华为高斯数据仓库（GaussDB Distributed Warehouse Service，简称DWS）是一款高性能、高可靠的企业级分布式数据仓库解决方案。...
openGauss数据库Package原理分析FAQ
InternalsOf
05-17 827
FAQ的形式分析OpenGauss中package实现基础关键逻辑。 下面四个问题基本将市面上基于postgresql实现package的方法分成了几类。 例如问题一： - openGauss使用包所在的namespace作为包函数的namespace。 - IvorySQL使用包本身的oid作为包函数的namespace。 - 还有db创建一个新的namespace作为包函数的namespace。 > 这里对openGauss的实现做一些分析和记录。
oracle lob函数,LOB函数_数据仓库服务 GaussDB(DWS)_工具指南_DSC SQL语法迁移工具_SQL语法迁移参考_Oracle语法迁移（至GaussDB A）_华为云...
weixin_29762229的博客
04-05 405
本节介绍如下LOB函数：DBMS_LOB.APPENDDBMS_LOB.APPEND函数将源LOB的内容追加到指定的LOB。输入：DBMS_LOB.APPEND[sys.]dbms_lob.append(o_menuxml, to_clob('DSJKSDAJKSFDA'));输出o_menuxml := CONCAT(o_menuxml, CAST('DSJKSDAJKSFDA' AS CLOB...
postgresql 循环插入数据
热门推荐
Talk is cheap
01-09 1万+
plsql直接循环插数据当然比代码里循环插要快很多，只是PL/SQL的语法不怎么统一，不同的数据库语法上有些细微的差异，很头疼 -------  postgresql 循环插入数据  ------------- do $$ declare v_idx integer := 1; begin   while v_idx   v_idx = v_idx+1; insert into
VirtualBox下虚拟机Oracle 19C RAC与达梦8 DSC同机共存系列之达梦8 DSC推送安装
curating的博客
11-01 745
在使用国产数据库DM8的过程中，学习、测试、部署的过程，对于熟悉Oracle 19c RAC的架构的工程师，搭建一套共存的环境， 使用相同的2个节点，使用绑定共享磁盘，都使用ASM ，都使用集群架构。借鉴Oracle学习Dameng，同环境性能测试，部署测试，对比差异（两种ASM、两种数据库）等比异机更准确有效。
DMDSC实现原理
君逸天下
08-05 543
DMDSC实现原理 DMDSC是一个共享存储的数据库集群系统。多个数据库实例同时访问、修改同一个数据库，因此必然带来了全局并发问题。DMDSC集群基于单节点数据库管理系统之上，改造了Buffer缓冲区、事务系统、封锁系统和日志系统等，来适应共享存储集群节点间的全局并发访问控制要求。同时，引入缓存交换技术，提升数据在节点间的传递效率。 一、事务管理 多版本并发控制（MVCC）可以确保数据库的读操作与写操作不会相互阻塞，大幅度提升数据库的并发度以及使用体验，大多数主流商用数据库管理系统都实现了MVCC。D
oracle包体全局变量赋值,package中全局变量特性
weixin_36057489的博客
04-08 1541
Oracle中的package对象是其他数据库中所不存在的特性之一,这是oracle面向对象编程的一种体现.我们可以像定义面向对象语言的对象一样定义oracle的package.并为package定义对应的属性(全局变量)全局变量(可以定义在包头，也可以在包体，赋值一定在包体)和方法(function,procedure).package的全局变量在oracle编程过程中有很多有趣并非常实用的作用...
plsql select into 赋值异常问题详解
鱼丸丶粗面
01-20 2792
文章目录问题1：报错：未找到任何数据原因分析解决办法问题2：数据同步前后数据不匹配原因分析解决办法 问题1：报错：未找到任何数据 错误截图： 基础数据准备： declare v_dname scott.dept.dname%type; begin SELECT t.dname into v_dname from dept t where t.deptno = 50; -- 不存在 deptno=50 的记录 dbms_output.put_line(v_dna
读书笔记 《精通Oracle PL/SQL》
edwzhang的专栏
12-15 1285
Mastering Oracle PL/SQL Practical Solutions 五位作者： Connnor MaDonald Chaim Katz Christopher Beck Joel R. Kallman David C. Knox   安装   一、高效能的PL/SQL 这里故意避开术语“性能”，因为效能不只是性能。   效能是指什么呢？假定你的代码符合
oracle 数据存储迁移,某单位Oracle数据库系统存储迁移方案
weixin_31953847的博客
04-04 390
第一次写博客，主要是想留点东西一方面可以自己回顾，另一方面可以分享给正在学习oracle的朋友一起共同进步。一下是我摘自自己做的一个实施方案，我直接从做出来的word文档方案中复制粘贴出来的。数据库迁移计划书概述篇硬件环境：SunV890,EMC存储,华为存储软件环境：solaris10,oracle10gIP地址：192.168.22.40问题描述：由于资源整理，欲将SunV890使用的EMC存...
华为GaussDB(DWS)资源监控实战指南：提升性能与维护效率
本篇文档提供了一套实用的GaussDB(DWS)资源监控指南，涵盖了并发数、连接数、内存使用和SQL状态监控，为DWS OLAP集群的维护和性能调优提供了基础支持。熟练掌握这些监控技巧，有助于确保系统的稳定性和效率。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值