CREATE OR REPLACE PROCEDURE import_test_data (p_filename IN VARCHAR2) AS
   l_handle           NUMBER; 
   l_temp             NUMBER; 
   l_state            VARCHAR2(20);
   l_date             VARCHAR2(20);
   l_date_started     DATE;
   ind                NUMBER;       
   percent_done       NUMBER;       
   job_state          VARCHAR2(30);   
   le                 ku$_LogEntry;  
   js                 ku$_JobStatus;  
   jd                 ku$_JobDesc;    
   sts                ku$_Status;   

BEGIN

   l_date_started := SYSDATE;
   l_date := to_char(l_date_started,'YYYYMMDD-HH24MI');

   l_handle := DBMS_DATAPUMP.OPEN ('IMPORT','TABLE', NULL, 'TESTDATA'||l_date);   

   DBMS_DATAPUMP.ADD_FILE (l_handle, p_filename,'TESTDATA', NULL, DBMS_DATAPUMP.KU$_FILE_TYPE_DUMP_FILE);
   DBMS_DATAPUMP.ADD_FILE (l_handle, p_filename||'.log','TESTDATA', NULL, DBMS_DATAPUMP.KU$_FILE_TYPE_LOG_FILE);
   
   DBMS_DATAPUMP.SET_PARAMETER (l_handle, 'INCLUDE_METADATA', 0);
   DBMS_DATAPUMP.SET_PARAMETER (l_handle, 'TABLE_EXISTS_ACTION', 'APPEND');

   DBMS_DATAPUMP.METADATA_FILTER (l_handle,'NAME_LIST','''RT_MESSAGES''',NULL,'TABLE');
   
   DBMS_DATAPUMP.START_JOB (l_handle);
   DBMS_DATAPUMP.WAIT_FOR_JOB (l_handle, l_state);

END;

  PROCEDURE estimate_space(in_schema IN VARCHAR2, in_dblink IN VARCHAR2)
  IS
    v_handle NUMBER;
    v_job_state VARCHAR2(4000);
    v_status ku$_Status1010;
    v_logs ku$_LogEntry1010;
    v_row PLS_INTEGER;
  BEGIN
    ...
  EXCEPTION
    WHEN OTHERS THEN
      dbms_datapump.get_status(NULL, 8, 0, v_job_state, v_status);
      v_logs := v_status.error;
      
      v_row := v_logs.FIRST;
      LOOP
        EXIT WHEN v_row IS NULL;
        debugwriter('logLineNumber='||v_logs(v_row).logLineNumber);
        debugwriter('errorNumber='||v_logs(v_row).errorNumber);
        debugwriter('LogText='||v_logs(v_row).LogText);
        v_row := v_logs.NEXT (v_row);
      END LOOP;
  END;