Need help to create export table procedure

Question

Hi,
I have created a procedure, which may use to do following things:
1. first create a duplicate table of sys.aud$ records
2. export that duplicate table
here I am enclosing my code:
1. create or replace procedure crt_tab
2. is
3. sqlstring varchar2(100);
4. tablename varchar2(100);
5. sys_date varchar2(100);
6. h1 number;
7. begin
8. select to_char(sysdate,'DDMMYYYY_HH12MISSAM') into sys_date from dual;
9. tablename :='AUDIT_RECORD_'||sys_date;
10. sqlstring := 'create table ' || tablename|| ' as select * from sys.aud$';
11. execute immediate sqlstring;
12. h1 := dbms_datapump.open(operation=>'EXPORT',job_mode=>'TABLE',job_name=>NULL,version=>'COMPATIBLE');
13. dbms_datapump.add_file(handle =>h1, filename =>tablename||'.dmp',directory =>'AUDIT_RECORD', filetype =>1);
14. dbms_datapump.add_file(handle =>h1,filename =>tablename||'.log',directory =>'AUDIT_RECORD',filetype =>3);
15. dbms_datapump.metadata_filter(h1,'NAME_LIST','(''tablename'')');
16. dbms_datapump.start_job(h1);
17. dbms_output.put_line('Data Pump job started successfully');
18. end;
Well, in line number 15. I am passing a variable tablename as a parameter to dbms_datapump.metadata_filter but it exporting an empty dump. Could you please let me know how to pass a variable value in this.
looking forward to your early response.
Regards,
M.A.Bamboat
[email protected]

Answer 1

SQL> ed
Wrote file afiedt.buf
  1  DECLARE
  2    l_dp_handle     NUMBER;
  3    l_last_job_state VARCHAR2(30) := 'UNDEFINED';
  4    l_job_state     VARCHAR2(30) := 'UNDEFINED';
  5    l_logfilename     VARCHAR2(20) := to_char(sysdate, 'DDMMRRRR') || '.log';
  6    l_expfilename     VARCHAR2(20) := to_char(sysdate, 'DDMMRRRR') || '.dmp';
  7    l_tbl_name     VARCHAR2(30) :='EMP';
  8  BEGIN
  9    l_dp_handle := DBMS_DATAPUMP.OPEN(operation   => 'EXPORT',
10                          job_mode    => 'TABLE',
11                          remote_link => NULL,
12                          job_name    => 'SAUBHIK_EXPORT',
13                          version     => 'COMPATIBLE');
14    DBMS_DATAPUMP.ADD_FILE(handle     => l_dp_handle,
15                     filename     => l_expfilename,
16                     directory => 'SAUBHIK',
17                     filetype     => DBMS_DATAPUMP.KU$_FILE_TYPE_DUMP_FILE);
18    DBMS_DATAPUMP.ADD_FILE(handle     => l_dp_handle,
19                     filename     => l_logfilename,
20                     directory => 'SAUBHIK',
21                     filetype     => DBMS_DATAPUMP.KU$_FILE_TYPE_LOG_FILE);
22    dbms_datapump.metadata_filter(handle => l_dp_handle,
23                         name   => 'NAME_EXPR',
24                         value  =>'= '||''''||l_tbl_name||'''');
25    dbms_datapump.start_job(l_dp_handle);
26    dbms_datapump.detach(l_dp_handle);
27  EXCEPTION
28    WHEN OTHERS THEN
29      dbms_datapump.stop_job(l_dp_handle);
30      RAISE;
31* END;
SQL> /
PL/SQL procedure successfully completed.
SQL> SELECT * FROM user_datapump_jobs;
JOB_NAME                 OPERATION                JOB_MODE                    STATE                    DEGREE ATTACHED_SESSIONS DATAPUMP_SESSIONS
SAUBHIK_EXPORT                 EXPORT                     TABLE                    EXECUTING                         1       0           2
SQL> /
JOB_NAME                 OPERATION                JOB_MODE                    STATE                    DEGREE ATTACHED_SESSIONS DATAPUMP_SESSIONS
SAUBHIK_EXPORT                 EXPORT                     TABLE                    NOT RUNNING                    0       0           0
SQL> /
no rows selected
SQL>
oracle@ubuntu-desktop:~/Documents$ pwd
/home/oracle/Documents
oracle@ubuntu-desktop:~/Documents$ ls -l 05092011*
-rw-r----- 1 oracle oinstall 98304 2011-09-05 15:07 05092011.dmp
-rw-r--r-- 1 oracle oinstall   928 2011-09-05 15:07 05092011.log
oracle@ubuntu-desktop:~/Documents$