create or replace procedure copy_table ( 
  dest_schema varchar2,
  table_list  varchar2
) as
  hand number;
begin
  hand := dbms_datapump.open (
    operation   => 'IMPORT',
    job_mode    => 'TABLE',
    remote_link => 'DBS1'
  );

  dbms_datapump.add_file (
    handle    => hand,
    filename  => 'impdp_test.log',
    directory => 'TMP', 
    filetype  => dbms_datapump.ku$_file_type_log_file
  );

  dbms_datapump.metadata_filter (
    handle => hand,
    name   => 'NAME_LIST',
    value   => table_list
  );

  dbms_datapump.metadata_remap(
    handle    => hand, 
    name      => 'REMAP_SCHEMA', 
    old_value => user, 
    value     => upper ( dest_schema ) 
  ); 

  dbms_datapump.start_job ( hand );

end;
/ 

drop user u cascade;

grant unlimited tablespace to 
  u identified by u;

create table t (
  c1 int
);

insert into t values ( 1 );

create index i on t ( c1 );

exec copy_table ( 'U', '''T''' );

-- Wait a while
select object_name, object_type 
from   dba_objects
where  owner = 'U';

OBJECT_NAME   OBJECT_TYPE   
T             TABLE         
I             INDEX