1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
set serveroutput on
set verify off
set feedback off
DECLARE
p_dph NUMBER;
erreur NUMBER;
BEGIN
--Paramétrage du datapump
p_dph := DBMS_DATAPUMP.open( operation=>'EXPORT',
job_mode=>'TABLE',
job_name=>'dbms_data_pump_exp_resultat');
erreur := 1;
--Paramétrage du fichier log
DBMS_DATAPUMP.add_file( handle=>p_dph,
filename=>'exp_resultat.log',
directory=> 'dir_pump_resultat',
filetype=>DBMS_DATAPUMP.ku$_file_type_log_file);
erreur := 2;
--Paramétrage du fichier dump
DBMS_DATAPUMP.add_file( handle=>p_dph,
filename=>'exp_resultat.dmp',
directory=> 'dir_pump_resultat',
filetype=>dbms_datapump.ku$_file_type_dump_file);
erreur := 3;
DBMS_DATAPUMP.metadata_filter(handle=>p_dph,
name=> 'SCHEMA_LIST',
VALUE=> '''TP_WEB''');
erreur := 4;
-- Creation d'un filtre de metadonnes pour indiquer quelles tables seront exportees.
DBMS_DATAPUMP.METADATA_FILTER(handle=>p_dph,
name=>'NAME_LIST',
value=>'''RESULTAT_WEB'',''CARACTERISE_RESULTAT_WEB''');
erreur := 5;
-- Filtre sur les donnees de la table DEPT et EMP a exporter.
DBMS_DATAPUMP.DATA_FILTER(handle=>p_dph,
name=>'SUBQUERY',
value=>'WHERE ESS_ID=''15M85.1'' AND ADHE_ID != ''ADMIN_WEB'' AND ADHE_ID IN (SELECT ADHE_ID FROM TP_WEB.TRACABILITE_SAISIE WHERE ESS_ID=''15M85.1'')',
table_name=>'TP_WEB.RESULTAT_WEB');
erreur := 6;
DBMS_DATAPUMP.DATA_FILTER(handle=>p_dph,
name=>'SUBQUERY',
value=>'WHERE RESU_SEQ IN (SELECT RESU_SEQ FROM TP_WEB.RESULTAT_WEB WHERE ESS_ID=''15M85.1'' AND ADHE_ID != ''ADMIN_WEB'' AND ADHE_ID IN (SELECT ADHE_ID FROM TP_WEB.TRACABILITE_SAISIE WHERE ESS_ID=''15M85.1''))',
table_name=>'TP_WEB.CARACTERISE_RESULTAT_WEB');
--Exécution du job
erreur := 7;
DBMS_DATAPUMP.start_job(p_dph);
erreur := 8;
DBMS_DATAPUMP.detach(p_dph);
EXCEPTION
WHEN OTHERS THEN dbms_output.put_line('erreur:'||erreur||' '||sqlerrm||' Job-ID:'||p_dph);
END;
/ |
Partager