begin
  sys.dbms_job.submit(job => :job,
                      what => 'p_apc;',
                      next_date => to_date('07-05-2005 16:38:33', 'dd-mm-yyyy hh24:mi:ss'),
                      interval => 'sysdate+1/144');
  commit;
end;
/

create or replace procedure P_APC as
       p_filedir varchar2(30);
       p_filename varchar2(20);
       v_filehandle utl_file.file_type;
       v_newline varchar2(100);
       v_apc number;
       i number;
       v_message varchar2(30);
begin
  enqueue_msg('ftp -s:e:scriptapc.bat');
  commit;
  p_filedir:='e:script';
  p_filename:='data.txt';
  v_filehandle:=utl_file.fopen(p_filedir,p_filename,'r');
  i:=0;
  loop
     i:=i+1;
     v_apc:=0;
     begin
       utl_file.get_line(v_filehandle,v_newline);
       exception
         when no_data_found then
           exit;
      end;
      if i>6 then
       v_apc:=substr(v_newline,28,2);
       if v_apc>27 then
         v_message:='主机房当前温度'||v_apc||'%'||',请检查';
         insert into gls_manual_msg_mb(msg,mobile,submit_date,msg_type,submit,receiver)
           values(v_message,'139**',sysdate,0,84,84);
         insert into gls_manual_msg_mb(msg,mobile,submit_date,msg_type,submit,receiver)
           values(v_message,'139**',sysdate,0,84,82);
         insert into gls_manual_msg_mb(msg,mobile,submit_date,msg_type,submit,receiver)
           values(v_message,'138**',sysdate,0,84,1900);
         insert into gls_manual_msg_mb(msg,mobile,submit_date,msg_type,submit,receiver)
           values(v_message,'139**',sysdate,0,84,2292);
       end if;
       
      end if;
  end loop;
  utl_file.fclose(v_filehandle);
end P_APC;