create or replace package PG_TEST as
function test(str varchar2)
/*******************************
* 程序名称: test
* 功能描述: 输入一个值并将其返回
* 作 者:
* 编写日期: 2011-10-12
* 输 入: str 传递字符串
* 输 出:
* 返 回 值:
* 修改历史:
* 修 改 人 日 期 修改说明
**********************************/
return varchar2;
end PG_TEST;
create or replace package body PG_TEST as
function test(str varchar2)
/*******************************
* 程序名称: test
* 功能描述: 输入一个值并将其返回
* 作 者:
* 编写日期: 2011-10-12
* 输 入: str 传递字符串
* 输 出:
* 返 回 值:
* 修改历史:
* 修 改 人 日 期 修改说明
**********************************/
return varchar2 is
b varchar2(20);
begin
b := str;
return b;
end;
end PG_TEST;
CREATE OR REPLACE PROCEDURE P_P(str IN VARCHAR2) IS
retu varchar2(20);
BEGIN
retu := dw.PG_TEST.test(str);
DBMS_OUTPUT.PUT_LINE(retu);
END P_P;
function test(str varchar2)
/*******************************
* 程序名称: test
* 功能描述: 输入一个值并将其返回
* 作 者:
* 编写日期: 2011-10-12
* 输 入: str 传递字符串
* 输 出:
* 返 回 值:
* 修改历史:
* 修 改 人 日 期 修改说明
**********************************/
return varchar2;
end PG_TEST;
create or replace package body PG_TEST as
function test(str varchar2)
/*******************************
* 程序名称: test
* 功能描述: 输入一个值并将其返回
* 作 者:
* 编写日期: 2011-10-12
* 输 入: str 传递字符串
* 输 出:
* 返 回 值:
* 修改历史:
* 修 改 人 日 期 修改说明
**********************************/
return varchar2 is
b varchar2(20);
begin
b := str;
return b;
end;
end PG_TEST;
CREATE OR REPLACE PROCEDURE P_P(str IN VARCHAR2) IS
retu varchar2(20);
BEGIN
retu := dw.PG_TEST.test(str);
DBMS_OUTPUT.PUT_LINE(retu);
END P_P;