CREATE OR REPLACE procedure SYSTEM.sp_asm_check as
x number;
v_html varchar2(30000);
begin
select min(round((free_mb/total_mb)*100)) into x from gv$asm_diskgroup;
if x<30 then
v_html:='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" xmlns="http://www.w3.org/1999/xhtml">';
v_html:=v_html||'<head><meta http-equiv=Content-Type content=text/html;charset=gb2312></head>';
v_html:=v_html||'<body>';
v_html:=v_html||'<table style="border-collapse:collapse">';
v_html:=v_html||'<tr>';
v_html:=v_html||'<td style="border:1px solid black" >name</td><td style="border:1px solid black" >total_Gb</td><td style="border:1px solid black" >free_Gb</td><td style="border:1px solid black" >canuse</td>';
v_html:=v_html||'</tr>';
for mm in ( select name,round(total_mb/1024) total_Gb,round(free_mb/1024) free_Gb,round((free_mb/total_mb)*100) canuse from gv$asm_diskgroup) loop
v_html:=v_html||'<tr>';
v_html:=v_html||'<td style="border:1px solid black" >'||mm.name||'</td><td style="border:1px solid black" >'||mm.total_Gb||'</td><td style="border:1px solid black" >'||mm.free_Gb||'</td><td style="border:1px solid black" >'||mm.canuse||'%'||'</td>';
v_html:=v_html||'</tr>';
end loop;
v_html:=v_html||'</table>';
v_html:=v_html||'</body>';
v_html:=v_html||'</html>';
begin
SEND_EMAIL ('mdssysmail@mdsets.cn'
,'luxus.liao@mic.com.tw'
,'ASM CANUSE<30 from MIOADB'
,v_html
,'luxus.liao@mic.com.tw'
,'luxus.liao@mic.com.tw'
, 'text/html;charset=gb2312'
, '61.129.47.35'
, 25);
end;
end if;
exception when others then
dbms_output.put_line(sqlcode);
rollback;
end;
/
x number;
v_html varchar2(30000);
begin
select min(round((free_mb/total_mb)*100)) into x from gv$asm_diskgroup;
if x<30 then
v_html:='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" xmlns="http://www.w3.org/1999/xhtml">';
v_html:=v_html||'<head><meta http-equiv=Content-Type content=text/html;charset=gb2312></head>';
v_html:=v_html||'<body>';
v_html:=v_html||'<table style="border-collapse:collapse">';
v_html:=v_html||'<tr>';
v_html:=v_html||'<td style="border:1px solid black" >name</td><td style="border:1px solid black" >total_Gb</td><td style="border:1px solid black" >free_Gb</td><td style="border:1px solid black" >canuse</td>';
v_html:=v_html||'</tr>';
for mm in ( select name,round(total_mb/1024) total_Gb,round(free_mb/1024) free_Gb,round((free_mb/total_mb)*100) canuse from gv$asm_diskgroup) loop
v_html:=v_html||'<tr>';
v_html:=v_html||'<td style="border:1px solid black" >'||mm.name||'</td><td style="border:1px solid black" >'||mm.total_Gb||'</td><td style="border:1px solid black" >'||mm.free_Gb||'</td><td style="border:1px solid black" >'||mm.canuse||'%'||'</td>';
v_html:=v_html||'</tr>';
end loop;
v_html:=v_html||'</table>';
v_html:=v_html||'</body>';
v_html:=v_html||'</html>';
begin
SEND_EMAIL ('mdssysmail@mdsets.cn'
,'luxus.liao@mic.com.tw'
,'ASM CANUSE<30 from MIOADB'
,v_html
,'luxus.liao@mic.com.tw'
,'luxus.liao@mic.com.tw'
, 'text/html;charset=gb2312'
, '61.129.47.35'
, 25);
end;
end if;
exception when others then
dbms_output.put_line(sqlcode);
rollback;
end;
/
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/30126024/viewspace-2139888/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/30126024/viewspace-2139888/