CREATE OR REPLACE PROCEDURE LoadFile
is
       V1 VARCHAR2(32767); --32767
       F1 UTL_FILE.FILE_TYPE; 
       vErr varchar2(1000);
BEGIN

  F1 := UTL_FILE.fopen('/nfs/om_backup/ShobFiles', 'a.txt', 'r');
  
   Loop 
   
  
        BEGIN
    
        UTL_FILE.GET_LINE(F1,V1);    
          insert into einat_temp
                             (label, text_part, a)
                           values
                             ('Test', 'Test', V1);
    
    COMMIT;
  
        EXCEPTION 
           WHEN others THEN 
        
           UTL_FILE.FCLOSE(F1); 
    vErr:=sqlerrm;
    insert into xen_log_tb (vdesc)
    values ( to_char ( sysdate  ,'dd/mm/yyyy hh24:ss' )  ||'; LoadFile1 :'||vErr); commit;
        
          exit;
     END;
   end loop;
 
        IF UTL_FILE.IS_OPEN(F1) THEN
             UTL_FILE.FCLOSE(F1); 
        end if;


EXCEPTION
  WHEN OTHERS THEN
  
    UTL_FILE.FCLOSE(F1); 
    vErr:=sqlerrm;
    insert into xen_log_tb (vdesc)
    values (  vErr); commit;

END;