下面的PL/SQL將不會執行,只是簡單地返回'無效參數'作爲錯誤。我已經儘可能地逐條評論每一行,並且我可以改變我收到的錯誤,但是我無法讓proc運行,因爲我無法確定錯誤在哪裏,而且很可能存在於權限或執行用戶中,但是任何幫助將受到感謝。這裏的proc無法識別PL/SQL的問題
DECLARE ind NUMBER; - 環指數
h1 NUMBER; - 數據泵作業處理
percent_done NUMBER; - 完成作業的百分比
job_state VARCHAR2(30); - 跟蹤工作狀態
le ku $ _LogEntry; - WIP和錯誤信息
js ku $ _JobStatus; - 來自get_status的工作狀態 jd ku $ _JobDesc; - 來自get_status的職位描述
sts ku $ _Status; - 通過GET_STATUS
返回的狀態對象BEGIN
H1:= DBMS_DATAPUMP.OPEN ( '導出', 'SCHEMA',NULL, 'SQL_INSTALLER_01152009_1014', '最新'); DBMS_DATAPUMP.ADD_FILE (h1,'SQL_INSTALLER_01152009_1014.dmp','ORACLE_SCRIPT_RUNNER_BACKUP',NULL,1); DBMS_DATAPUMP.ADD_FILE (h1,'SQL_INSTALLER_01152009_1014.log','ORACLE_SCRIPT_RUNNER_BACKUP',NULL,3); DBMS_DATAPUMP.METADATA_FILTER(h1,'SCHEMA_LIST','''speccs_web_test''',NULL,NULL);
DBMS_DATAPUMP.START_JOB(h1);
percent_done:= 0;
job_state:='UNDEFINED';
而(job_state = '已完成'!)和(job_state = 'STOPPED'!)環
dbms_datapump.get_status(h1, dbms_datapump.ku$_status_job_error +
dbms_datapump.ku $ _status_job_status + dbms_datapump.ku $ _status_wip,-1,job_state,STS); js:= sts.job_status;
if js.percent_done != percent_done then
percent_done := js.percent_done;
end if;
if (bitand(sts.mask,dbms_datapump.ku$_status_wip) != 0) then
le := sts.wip;
else
if (bitand(sts.mask,dbms_datapump.ku$_status_job_error) != 0) then
le := sts.error;
else
le := null;
end if;
end if;
if le is not null then
ind := le.FIRST;
while ind is not null loop
ind := le.NEXT(ind);
end loop;
end if;
end loop;
dbms_datapump.detach(h1);
END;