---创建包
 create or replace package test_pkg is
  g_public_flag varchar2(1);
 
  function test_function(p_param1 varchar2,
                          p_param2 varchar2) return varchar2;
  function  hello_function(p_param3 varchar2) return varchar2;
  procedure ff(p1 varchar2);                   
  end;
 

 --包体
  create or replace package body test_pkg is
  g_private_flag varchar2(1) := 'Y';
 

  function test_function(p_param1 varchar2,
                          p_param2 varchar2) return varchar2
    is
      val varchar2(10):='hello';
   
    begin
      dbms_output.put_line('helo');
      return val;
    end ;
   
  function hello_function(p_param3 varchar2) --参数与包头中必须保持一致
    return varchar2 is
    val varchar2(10):='hello';
  begin
      dbms_output.put_line('world');
      return val;
  end;
  procedure ff(p1 varchar2) is
    flag number;
    pp1  VARCHAR2(10):='p'; 
    p2  VARCHAR2(10):='p';
    p3  VARCHAR2(10):='p';
    p4  VARCHAR2(10):='p';
  begin
        select count(*)into flag from  all_all_tables where table_name='LOGTABLE1';
        dbms_output.put_line(flag);
        if(flag = 0) then
        execute immediate
        'CREATE TABLE logtable1 (userid VARCHAR2(10), logdate VARCHAR2(10),exception_id VARCHAR2(10),exception_msg VARCHAR2(10))';
        end if; 
        execute immediate 'insert into logtable1 values (:1,:2,:3,:4)' using '1','1','2','3';
  end;
  end; 

----测试
 declare
 begin
    dbms_output.put_line(test_pkg.test_function('1','1'));
    dbms_output.put_line(test_pkg.hello_function('1'));
    test_pkg.ff('dd');
 end;
 select * from logtable1;
 drop table logtable1

您可能感兴趣的文章: