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;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/7104/viewspace-133874/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/7104/viewspace-133874/