Help to optimize file load (clobs involved) via pl/sql

Question

Hello.
I have written a procedure that loads a table from a file, this table has five clob columns and the file has 7024 rows (which means 5*7024 clobs are loaded in the table). Every record in the file ends in "\r\n\r\n" (I mean chr(13)||chr(10)||chr(13)||chr(10))
The complete load of the file has taken around 5 hours, I wonder if the procedure can be optimized as I am new to the dmbs_lob package.
The procuedure is called carga_t_pets_respuestas_emisor and belongs to a package called carga_tablas.
I load the whole file in a temporary clob and then I get every line into another temporary clob (I look for the end of record separator (chr(13)||chr(10)||chr(13)||chr(10)) for each line).
Here I post the whole body of tha package (the code is long because the table has 25 columns, but the treatement is the same for every column):
CREATE OR REPLACE PACKAGE BODY MAPV4_MIGRATION.carga_tablas
AS
   NAME:       CARGA_TABLAS
   PURPOSE:
   REVISIONS:
   Ver        Date        Author           Description
   1.0        07/12/2009             1. Created this package.
   PROCEDURE tratar_linea (
      p_lin     IN       CLOB,
      contlin   IN       INTEGER,
      p_log     IN       UTL_FILE.file_type,
      msg       IN OUT   VARCHAR2
   IS
      v_id_peticion                    t_peticiones_respuestas_emisor.id_peticion%TYPE;
      v_id_transaccion                 t_peticiones_respuestas_emisor.id_transaccion%TYPE;
      v_fecha_recepcion                VARCHAR2 (50);
      v_cod_certificado                t_peticiones_respuestas_emisor.cod_certificado%TYPE;
      v_cif_requirente                 t_peticiones_respuestas_emisor.cif_requirente%TYPE;
      v_num_elementos                  t_peticiones_respuestas_emisor.num_elementos%TYPE;
      v_fichero_peticion               t_peticiones_respuestas_emisor.fichero_peticion%TYPE;
      v_ter                            t_peticiones_respuestas_emisor.ter%TYPE;
      v_fecha_ini_proceso              VARCHAR2 (50);
      v_fecha_fin_proceso              VARCHAR2 (50);
      v_fichero_respuesta              t_peticiones_respuestas_emisor.fichero_respuesta%TYPE;
      v_cn                             t_peticiones_respuestas_emisor.cn%TYPE;
      v_contador_enviados              t_peticiones_respuestas_emisor.contador_enviados%TYPE;
      v_signature                      t_peticiones_respuestas_emisor.signature%TYPE;
      v_caducidad                      VARCHAR2 (50);
      v_descompuesta                   t_peticiones_respuestas_emisor.descompuesta%TYPE;
      v_estado                         t_peticiones_respuestas_emisor.estado%TYPE;
      v_error                          t_peticiones_respuestas_emisor.error%TYPE;
      v_cod_municipio_volante          t_peticiones_respuestas_emisor.cod_municipio_volante%TYPE;
      v_peticion_solicitud_respuesta   t_peticiones_respuestas_emisor.peticion_solicitud_respuesta%TYPE;
      v_id_fabricante_ve               t_peticiones_respuestas_emisor.id_fabricante_ve%TYPE;
      v_fecha_respuesta                VARCHAR2 (50);
      v_codigo_error                   t_peticiones_respuestas_emisor.codigo_error%TYPE;
      v_serial                         t_peticiones_respuestas_emisor.serial%TYPE;
      v_inicio_col                     INTEGER;
      v_fin_col                        INTEGER;
      v_timestamp_format               VARCHAR2 (50)
                                                   := 'yyyy-mm-dd hh24:mi:ss';
   BEGIN
      UTL_FILE.put_line (p_log, 'INICIO tratar_linea');
      -- Columna ID_PETICION
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', 1, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', 1, 1) - 1;
      UTL_FILE.put_line (p_log,
                            'v_inicio_col: '
                         || v_inicio_col
                         || '; v_fin_col: '
                         || v_fin_col
      UTL_FILE.fflush (p_log);
      v_id_peticion :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_id_peticion: ' || v_id_peticion);
      UTL_FILE.fflush (p_log);
      -- Columna ID_TRANSACCION
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_id_transaccion :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_id_transaccion: ' || v_id_transaccion);
      UTL_FILE.fflush (p_log);
      -- Columna FECHA_RECEPCION
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_fecha_recepcion :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_fecha_recepcion: ' || v_fecha_recepcion);
      UTL_FILE.fflush (p_log);
      -- Columna COD_CERTIFICADO
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_cod_certificado :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_cod_certificado: ' || v_cod_certificado);
      UTL_FILE.fflush (p_log);
      -- Columna CIF_REQUIRENTE
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_cif_requirente :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_cif_requirente: ' || v_cif_requirente);
      UTL_FILE.fflush (p_log);
      -- Columna NUM_ELEMENTOS
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_num_elementos :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_num_elementos: ' || v_num_elementos);
      UTL_FILE.fflush (p_log);
      -- Columna FICHERO_PETICION
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_fichero_peticion :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                            'Longitud v_fichero_peticion: '
                         || DBMS_LOB.getlength (v_fichero_peticion)
      UTL_FILE.fflush (p_log);
      --UTL_FILE.put_line (p_log, 'v_fichero_peticion: ' || v_fichero_peticion);
      -- Columna TER
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_ter :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_ter: ' || v_ter);
      UTL_FILE.fflush (p_log);
      -- Columna FECHA_INI_PROCESO
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_fecha_ini_proceso :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                         'v_fecha_ini_proceso: ' || v_fecha_ini_proceso);
      UTL_FILE.fflush (p_log);
      -- Columna FECHA_FIN_PROCESO
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_fecha_fin_proceso :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                         'v_fecha_fin_proceso: ' || v_fecha_fin_proceso);
      UTL_FILE.fflush (p_log);
      -- Columna FICHERO_RESPUESTA
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_fichero_respuesta :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                            'Longitud v_fichero_respuesta: '
                         || DBMS_LOB.getlength (v_fichero_respuesta)
      UTL_FILE.fflush (p_log);
      --UTL_FILE.put_line (p_log,
      --                   'v_fichero_respuesta: ' || v_fichero_respuesta);
      -- Columna CN
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_cn :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_cn: ' || v_cn);
      UTL_FILE.fflush (p_log);
      -- Columna CONTADOR_ENVIADOS
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_contador_enviados :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                         'v_CONTADOR_ENVIADOS: ' || v_contador_enviados);
      UTL_FILE.fflush (p_log);
      -- Columna SIGNATURE
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_signature :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                            'Longitud v_signature: '
                         || DBMS_LOB.getlength (v_signature)
      UTL_FILE.fflush (p_log);
      --UTL_FILE.put_line (p_log, 'v_SIGNATURE: ' || v_signature);
      -- Columna CADUCIDAD
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_caducidad :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_CADUCIDAD: ' || v_caducidad);
      UTL_FILE.fflush (p_log);
      -- Columna DESCOMPUESTA
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_descompuesta :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_DESCOMPUESTA: ' || v_descompuesta);
      UTL_FILE.fflush (p_log);
      -- Columna ESTADO
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_estado :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_ESTADO: ' || v_estado);
      UTL_FILE.fflush (p_log);
      -- Columna ERROR
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_error :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                         'Longitud v_ERROR: ' || DBMS_LOB.getlength (v_error)
      UTL_FILE.fflush (p_log);
      --UTL_FILE.put_line (p_log, 'v_ERROR: ' || v_error);
      -- Columna COD_MUNICIPIO_VOLANTE
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_cod_municipio_volante :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                         'v_COD_MUNICIPIO_VOLANTE: '
                         || v_cod_municipio_volante
      UTL_FILE.fflush (p_log);
      -- Columna PETICION_SOLICITUD_RESPUESTA
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_peticion_solicitud_respuesta :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log,
                            'Longitud v_PETICION_SOLICITUD_RESPUESTA: '
                         || DBMS_LOB.getlength (v_peticion_solicitud_respuesta)
      UTL_FILE.fflush (p_log);
      --UTL_FILE.put_line (p_log,
      --                      'v_PETICION_SOLICITUD_RESPUESTA: '
      --                   || v_peticion_solicitud_respuesta
      -- Columna ID_FABRICANTE_VE
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_id_fabricante_ve :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_ID_FABRICANTE_VE: ' || v_id_fabricante_ve);
      UTL_FILE.fflush (p_log);
      -- Columna FECHA_RESPUESTA
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_fecha_respuesta :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_FECHA_RESPUESTA: ' || v_fecha_respuesta);
      UTL_FILE.fflush (p_log);
      -- Columna CODIGO_ERROR
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_codigo_error :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_CODIGO_ERROR: ' || v_codigo_error);
      -- Columna SERIAL
      UTL_FILE.fflush (p_log);
      v_inicio_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 1) + 1;
      --La ultima columna puede no llevar '",' sino '"'
      --v_fin_col := DBMS_LOB.INSTR (p_lin, '",', v_fin_col + 2, 1) - 1;
      v_fin_col := DBMS_LOB.INSTR (p_lin, '"', v_fin_col + 2, 2) - 1;
      --DBMS_OUTPUT.put_line (   'v_inicio_col: '
      --                      || v_inicio_col
      --                      || '; v_fin_col: '
      --                      || v_fin_col
      v_serial :=
           DBMS_LOB.SUBSTR (p_lin, v_fin_col - v_inicio_col + 1, v_inicio_col);
      UTL_FILE.put_line (p_log, 'v_SERIAL: ' || v_serial);
      UTL_FILE.fflush (p_log);
      -- Insercion en tabla
      INSERT INTO t_histo_ptcions_rspstas_emisor
                  (id_peticion, id_transaccion,
                   fecha_recepcion,
                   cod_certificado, cif_requirente, num_elementos,
                   fichero_peticion, ter,
                   fecha_ini_proceso,
                   fecha_fin_proceso,
                   fichero_respuesta, cn, contador_enviados,
                   signature,
                   caducidad,
                   descompuesta, estado, error,
                   cod_municipio_volante, peticion_solicitud_respuesta,
                   id_fabricante_ve,
                   fecha_respuesta,
                   codigo_error, serial
           VALUES (v_id_peticion, v_id_transaccion,
                   TO_TIMESTAMP (v_fecha_recepcion, v_timestamp_format),
                   v_cod_certificado, v_cif_requirente, v_num_elementos,
                   v_fichero_peticion, v_ter,
                   TO_TIMESTAMP (v_fecha_ini_proceso, v_timestamp_format),
                   TO_TIMESTAMP (v_fecha_fin_proceso, v_timestamp_format),
                   v_fichero_respuesta, v_cn, v_contador_enviados,
                   v_signature,
                   TO_TIMESTAMP (v_caducidad, v_timestamp_format),
                   v_descompuesta, v_estado, v_error,
                   v_cod_municipio_volante, v_peticion_solicitud_respuesta,
                   v_id_fabricante_ve,
                   TO_TIMESTAMP (v_fecha_respuesta, v_timestamp_format),
                   v_codigo_error, v_serial
      -- Se valida la transaccion
      --COMMIT;
      UTL_FILE.put_line (p_log, 'FIN tratar_linea');
   EXCEPTION
      WHEN OTHERS
      THEN
         msg := SQLERRM;
         --ROLLBACK;
         RAISE;
   END;
   PROCEDURE carga_t_pets_respuestas_emisor (
      p_dir        IN       VARCHAR2,
      p_filename   IN       VARCHAR2,
      p_os         IN       VARCHAR2,
      msg          OUT      VARCHAR2
   IS
      no_fin_linea     EXCEPTION;
      v_srcfile        BFILE;
      v_tmpclob        CLOB;
      v_warning        INTEGER;
      v_dest_offset    INTEGER            := 1;
      v_src_offset     INTEGER            := 1;
      v_lang           INTEGER            := 0;
      posfinlinea      NUMBER;
      posiniciolinea   NUMBER;
      cad              VARCHAR2 (30000);
      v_lin            CLOB;
      v_tamfich        NUMBER;
      contlin          INTEGER            := 0;
      v_log            UTL_FILE.file_type;
   BEGIN
      msg := NULL;
      -- abrimos el log
      v_log :=
            UTL_FILE.fopen (p_dir, 'carga_t_pets_respuestas_emisor.log', 'w');
      UTL_FILE.put_line (v_log, 'INICIO carga_t_pets_respuestas_emisor');
      UTL_FILE.fflush (v_log);
      v_srcfile := BFILENAME (p_dir, p_filename);
      DBMS_LOB.createtemporary (v_tmpclob, TRUE, DBMS_LOB.CALL);
      DBMS_LOB.OPEN (v_srcfile);
      DBMS_LOB.loadclobfromfile (dest_lob          => v_tmpclob,
                                 src_bfile         => v_srcfile,
                                 amount            => DBMS_LOB.lobmaxsize,
                                 dest_offset       => v_dest_offset,
                                 src_offset        => v_src_offset,
                                 bfile_csid        => 0,
                                 lang_context      => v_lang,
                                 warning           => v_warning
      -- Una vez cargado el CLOB se puede cerrar el BFILE
      DBMS_LOB.CLOSE (v_srcfile);
      v_tamfich := DBMS_LOB.getlength (v_tmpclob);
      --DBMS_OUTPUT.put_line ('v_tamfich: ' || v_tamfich);
      UTL_FILE.put_line (v_log, 'v_tamfich: ' || v_tamfich);
      UTL_FILE.fflush (v_log);
      posfinlinea := 0;
      posiniciolinea := posfinlinea + 1;
      -- Despreciamos el último fin de linea (tiene que existir)
      IF (UPPER (p_os) = 'WINDOWS')
      THEN
         v_tamfich := v_tamfich - 4;
      ELSE
         v_tamfich := v_tamfich - 2;
      END IF;
      contlin := 1;
      WHILE (v_tamfich + 1 - posfinlinea > 0)
      LOOP
         --contlin := contlin + 1;
         IF (UPPER (p_os) = 'WINDOWS')
         THEN
            posfinlinea :=
               DBMS_LOB.INSTR (v_tmpclob,
                               CHR (13) || CHR (10) || CHR (13) || CHR (10),
                               posiniciolinea
         ELSE
            posfinlinea :=
               DBMS_LOB.INSTR (v_tmpclob, CHR (13) || CHR (13),
                               posiniciolinea);
         END IF;
         IF (posfinlinea = 0)
         THEN
            RAISE no_fin_linea;
         END IF;
         --DBMS_OUTPUT.put_line ('posfinlinea: ' || posfinlinea);
         UTL_FILE.put_line (v_log, 'posfinlinea: ' || posfinlinea);
         UTL_FILE.fflush (v_log);
         IF (DBMS_LOB.getlength (v_lin) != 0)
         THEN
            DBMS_LOB.freetemporary (v_lin);
            UTL_FILE.put_line (v_log,
                               'Se ha reinicializado el temporary clob v_lin'
            UTL_FILE.fflush (v_log);
         END IF;
         DBMS_LOB.createtemporary (v_lin, TRUE, DBMS_LOB.CALL);
         DBMS_LOB.COPY (dest_lob         => v_lin,
                        src_lob          => v_tmpclob,
                        amount           => posfinlinea,
                        dest_offset      => 1,
                        src_offset       => posiniciolinea
-- Tratamos la linea
--DBMS_OUTPUT.put_line
         UTL_FILE.put_line
            (v_log,
         UTL_FILE.fflush (v_log);
         tratar_linea (v_lin, contlin, v_log, msg);
         posiniciolinea := posfinlinea + 1;
         contlin := contlin + 1;
         --DBMS_OUTPUT.put_line ('posiniciolinea: ' || posiniciolinea);
         UTL_FILE.put_line (v_log, 'posiniciolinea: ' || posiniciolinea);
         UTL_FILE.fflush (v_log);
      END LOOP;
      -- Se valida la transaccion
      COMMIT;
      --Se cierra el fichero
      --DBMS_LOB.CLOSE (v_srcfile);
      DBMS_LOB.freetemporary (v_tmpclob);
      UTL_FILE.put_line (v_log, 'FIN carga_t_pets_respuestas_emisor');
      UTL_FILE.fclose (v_log);
   EXCEPTION
      WHEN no_fin_linea
      THEN
         ROLLBACK;
         msg := 'Fichero mal formateado, no se encuentra el fin de linea';
         IF (DBMS_LOB.ISOPEN (v_srcfile) = 1)
         THEN
            DBMS_LOB.fileclose (v_srcfile);
         END IF;
         IF UTL_FILE.is_open (v_log)
         THEN
            UTL_FILE.fclose (v_log);
         END IF;
      WHEN OTHERS
      THEN
         ROLLBACK;
         msg := SQLERRM;
         IF (DBMS_LOB.ISOPEN (v_srcfile) = 1)
         THEN
            DBMS_LOB.fileclose (v_srcfile);
         END IF;
         IF UTL_FILE.is_open (v_log)
         THEN
            UTL_FILE.fclose (v_log);
         END IF;
   END carga_t_pets_respuestas_emisor;
END carga_tablas;
/Thanks in advance.

Answer 1

Thank you again for answering.
I am reading from the file in the procedure carga_t_pets_respuestas_emisor I posted above (the procedure is able to load the whole file in the table but takes very long).
What I am doing is loading the whole file in a BFILE and then loading it in a CLOB variable using loadclobfromfile (it is not taking very long because I can see that early in the log):
      v_srcfile := BFILENAME (p_dir, p_filename);
      DBMS_LOB.createtemporary (v_tmpclob, TRUE, DBMS_LOB.CALL);
      DBMS_LOB.OPEN (v_srcfile);
      DBMS_LOB.loadclobfromfile (dest_lob          => v_tmpclob,
                                 src_bfile         => v_srcfile,
                                 amount            => DBMS_LOB.lobmaxsize,
                                 dest_offset       => v_dest_offset,
                                 src_offset        => v_src_offset,
                                 bfile_csid        => 0,
                                 lang_context      => v_lang,
                                 warning           => v_warning
                                );Then I read in a loop all the records (I cannot call them lines because the CLOB columns can contain line feeds) from the file and load them it in another CLOB variable:
WHILE (v_tamfich + 1 - posfinlinea > 0)
      LOOP
         --contlin := contlin + 1;
         IF (UPPER (p_os) = 'WINDOWS')
         THEN
            posfinlinea :=
               DBMS_LOB.INSTR (v_tmpclob,
                               CHR (13) || CHR (10) || CHR (13) || CHR (10),
                               posiniciolinea
         ELSE
            posfinlinea :=
               DBMS_LOB.INSTR (v_tmpclob, CHR (13) || CHR (13),
                               posiniciolinea);
         END IF;
         IF (posfinlinea = 0)
         THEN
            RAISE no_fin_linea;
         END IF;
         --DBMS_OUTPUT.put_line ('posfinlinea: ' || posfinlinea);
         UTL_FILE.put_line (v_log, 'posfinlinea: ' || posfinlinea);
         UTL_FILE.fflush (v_log);
         IF (DBMS_LOB.getlength (v_lin) != 0)
         THEN
            DBMS_LOB.freetemporary (v_lin);
            UTL_FILE.put_line (v_log,
                               'Se ha reinicializado el temporary clob v_lin'
            UTL_FILE.fflush (v_log);
         END IF;
         DBMS_LOB.createtemporary (v_lin, TRUE, DBMS_LOB.CALL);
         DBMS_LOB.COPY (dest_lob         => v_lin,
                        src_lob          => v_tmpclob,
                        amount           => posfinlinea,
                        dest_offset      => 1,
                        src_offset       => posiniciolinea
-- Tratamos la linea
--DBMS_OUTPUT.put_line
         UTL_FILE.put_line
            (v_log,
         UTL_FILE.fflush (v_log);
         tratar_linea (v_lin, contlin, v_log, msg);
         posiniciolinea := posfinlinea + 1;
         contlin := contlin + 1;
         --DBMS_OUTPUT.put_line ('posiniciolinea: ' || posiniciolinea);
         UTL_FILE.put_line (v_log, 'posiniciolinea: ' || posiniciolinea);
         UTL_FILE.fflush (v_log);
      END LOOP;(I have also loaded the whole file using sql*loader, but I have asked to try to do it with pl/sql)
Thanks again and regards.