CREATE OR REPLACE procedure alert_mail_A
as
v_flag varchar2(10);
mesg varchar2(100);
c1 utl_smtp.connection; -- passing the datatype to a variable.
c varchar2 (1000);
B utl_file.file_type;
AB utl_file.file_type;
A varchar2(1000) := 'anatb_logA_29-OCT-2013log.LST';
v_checkA varchar2(1000);
v_check PLS_INTEGER;
v_output varchar2(2500);
v_output_msg varchar2(2500);
v_subject varchar2(250):= 'The ANATB is Ran Successfully by DC Support Team';
v_error_msg varchar2(2500);

begin
    B :=utl_file.fopen('ANATBLOG',A,'R',32000);
   loop
   begin
   utl_file.get_line(B,c,32000);
   EXCEPTION
         WHEN NO_DATA_FOUND THEN
            null;
         WHEN value_error THEN
            utl_file.fclose_all;
            RAISE_APPLICATION_ERROR
            ( -20001, 'line too long to store in buffer');
         WHEN utl_file.invalid_operation THEN
            utl_file.fclose_all;
            RAISE_APPLICATION_ERROR
            ( -20001, 'file is not open for reading');
         WHEN utl_file.read_error THEN
            utl_file.fclose_all;
            RAISE_APPLICATION_ERROR
            ( -20001, 'OS error occurred during read');
   end;
   
 begin
   --v_output :=   (substr(c,1,100));
   --dbms_output.put_line('The first line is' ||c);
 --IF INSTR(c, 'ORA-') >= 1
    if INSTR(c, 'ORA-') >= 1
        THEN
        v_output :=   (substr(c,1,100));
    dbms_output.put_line(v_output); 
     insert into anatb_alert
      values(v_output);
     commit;
    end if;
 exception
     when no_data_found then
     exit
 end;
 end loop;
   
    dbms_output.put_line('No more lines'); 
v_check:=INSTR(c,'SQL> spool off'); --this is case sensitive 
utl_file.fclose(B);
end;

loop
  begin
    utl_file.get_line(B,c,32000);
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      null;                --> here!