tratando erro

CREATE OR REPLACE PROCEDURE TEXTO_TABELA
  IS
   ARQ UTL_FILE.FILE_TYPE;
   LINHA VARCHAR2(50);
   R1 PRJATV¬ROWTYPE;
 BEGIN
  ARQ := UTL_FILE.FOPEN(´c:\teste´,´carga.sql´,´r´);
  LOOP
    UTL_FILE.GET_LINE(ARQ,LINHA);
    R1.CD_PROJ := SUBSTR(LINHA,1,6);
    R1.CD_ATIV := TO_NUMBER(SUBSTR(LINHA,7,3));
    R1.DT_INI  := TO_DATE(SUBSTR(LINHA,10,10),´DD/MM/YYYY´);
    R1.DT_FIM  := TO_DATE(SUBSTR(LINHA,20,10),´DD/MM/YYYY´);
    INSERT INTO PRJATV (CD_PROJ, CD_ATIV, DT_INI, DT_FIM) VALUES (R1.CD_PROJ, R1.CD_ATIV, R1.DT_INI, R1.DT_FIM);
  END LOOP;

   EXCEPTION

    WHEN UTL_FILE.INVALID_PATH THEN
      RAISE_APPLICATION_ERROR(-20000,´CAMINHO INVÁLIDO´);
    WHEN UTL_FILE.INVALID_MODE THEN
      RAISE_APPLICATION_ERROR(-20001,´MODO DE USO INVÁLIDO´);
    WHEN UTL_FILE.INVALID_OPERATION THEN
      RAISE_APPLICATION_ERROR(-20002,´OPERACAO INCOMPATÍVEL´);
    WHEN NO_DATA_FOUND THEN
      COMMIT;
      UTL_FILE.FCLOSE_ALL;
 END;
/