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
|
FUNCTION FCT_OUVRE_FICHIER(
p_vc_filepath IN VARCHAR2,
p_vc_filename IN VARCHAR2,
p_vc_mode IN VARCHAR2,
p_fh_fichier OUT UTL_FILE.FILE_TYPE)
RETURN BOOLEAN
IS
l_bo_ret BOOLEAN;
BEGIN
p_fh_fichier := UTL_FILE.FOPEN(p_vc_filepath, p_vc_filename, p_vc_mode);
-- Vérification de l'ouverture correcte du fichier
IF NOT UTL_FILE.IS_OPEN(p_fh_fichier) THEN
l_bo_ret := false;
DBMS_OUTPUT.PUT_LINE('ERREUR OUVERTURE FICHIER '||p_vc_filepath||' '||p_vc_filename);
ELSE
l_bo_ret := true;
END IF;
RETURN l_bo_ret;
EXCEPTION
WHEN ... THEN
...
RAISE;
END FCT_OUVRE_FICHIER; |
Partager