存储过程,创建包,就不写了,只有包体
create or replace package body test is
procedure useType as
--声明变量
v_sql varchar2(1000);
begin
v_sql:='GRANT CREATE ANY TYPE TO PHONE';--授权,phone用户可以创建任何类型
execute immediate v_sql;
v_sql:='GRANT CREATE ANY TABLE TO PHONE';--授权,phone用户可以创建任何表
execute immediate v_sql;
--创建类型,相当于java中的javabean
v_sql:='CREATE OR REPLACE TYPE ARRAY_OBJ FORCE AS OBJECT(NAME NVARCHAR2(100),AGE NVARCHAR2(100),GENDER NVARCHAR2(100))';
execute immediate v_sql;
v_sql:='CREATE OR REPLACE TYPE ARRAY_LIST AS TABLE OF ARRAY_OBJ';
execute immediate v_sql;
/*
commit;
exception
when others then
rollback;
*/
end useType;
/*****************************************************************/
PROCEDURE testType(list_in in ARRAY_LIST,list_out out ARRAY_LIST) as
nodat