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
|
-- Codes erreurs Oracle pour quitter le programme des la premiere erreur rencontree
WHENEVER SQLERROR EXIT 61
WHENEVER OSERROR EXIT 62
SET SERVEROUTPUT ON
DECLARE
file_handle UTL_FILE.FILE_TYPE;
BEGIN
file_handle := UTL_FILE.FOPEN('/data/13asr2/files/data/FICH/PURGE/SQL','Rescpt.log','w');
DBMS_OUTPUT.PUT_LINE('Start essai');
UTL_FILE.PUT_LINE(file_handle,'Bonjour chez Vous!');
UTL_FILE.PUT_LINE(file_handle,'Nous sommes le ' || to_char(sysdate) || '.');
UTL_FILE.FFLUSH(file_handle);
UTL_FILE.FCLOSE(file_handle);
DBMS_OUTPUT.PUT_LINE('Fin essai!');
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('No_data_found');
UTL_FILE.FCLOSE(file_handle);
WHEN UTL_FILE.INVALID_PATH THEN
DBMS_OUTPUT.PUT_LINE('UTL_FILE.INVALID_PATH');
UTL_FILE.FCLOSE(file_handle);
WHEN UTL_FILE.READ_ERROR THEN
DBMS_OUTPUT.PUT_LINE('UTL_FILE.READ_ERROR');
UTL_FILE.FCLOSE(file_handle);
WHEN UTL_FILE.WRITE_ERROR THEN
DBMS_OUTPUT.PUT_LINE('UTL_FILE.WRITE_ERROR');
UTL_FILE.FCLOSE(file_handle);
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Autres erreurs');
UTL_FILE.FCLOSE(file_handle);
END;
/
QUIT |
Partager