errormessage.sql

来自「网通网关Cngp」· SQL 代码 · 共 27 行

Create table ErrorMessage(reportdate    date not null,
						  content       varchar2(300) 
						  );
create index indx_errormessage on ErrorMessage (reportdate,content);

create or replace procedure procedure_ErrorMessage( 
													incontent    varchar2
												 )
as
  errName       varchar2(20);
  errCode       varchar2(100);
  errContent    varchar2(100);

begin
  
  insert into ErrorMessage (reportdate,content) 
    values(sysdate,incontent);
  commit;
exception
  when others then
    errName:='Procedure_ErrorMessage';
    errCode:=to_char(sqlcode);
    errContent:=substr(sqlerrm,1,100);
    insert into zx2t_moerrorlog values(errName,errCode,errContent,sysdate);
    commit;
end;
/