函式名：Fun_GetProText

作用： 取得oracle的儲存過程指令碼

select Fun_GetProText('pro_test') from dual;

函式Fun_GetProText如下：

create or replace function Fun_GetProText(pro_name varchar2) return clob is
  v_text clob;
  cursor c_job is
    SELECT text as SQLTEXT
      FROM user_source
     where lower(name) = lower(pro_name)
       and type = 'PROCEDURE';
  c_row c_job%rowtype;
begin
  v_text := 'CREATE OR REPLACE ';
for c_row in c_job loop
       v_text := v_text ||  c_row.SQLTEXT; 
       end loop;
  return v_text;
end Fun_GetProText;
 

作用：編譯儲存過程到資料庫:

引數 ： pscript clob型別.
        儲存過程指令碼。
用法：
 call SP_CreatePro('CREATE OR REPLACE PROCEDURE Pro_Test IS BEGIN  delete from stusers where 1<>1;   END Pro_Test;');

create or replace procedure SP_CreatePro(pscript in clob)
is
begin

  execute immediate pscript;

end SP_CreatePro;