statusreport.sql

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

Create table StatusReport(reportdate    date not null,
						  mobileid      varchar2(15) not null,
						  content       varchar2(300) ,
						  messageid     varchar2(15)
						  );
create index indx_status_report on statusreport (reportdate,mobileid,content);

create or replace procedure procedure_report(inmobileid   varchar2,
											 incontent    varchar2,
											 inmessageid  varchar2
											 )
as
  errName       varchar2(20);
  errCode       varchar2(100);
  errContent    varchar2(100);

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

--------------------------------------------------------------------------------
Create table SubmitResp(submitdate   date not null,
						mobileid     varchar2(15) not null,
						serviceid    varchar2(10) ,
						msgcontent   varchar2(200),
						msgid        varchar2(15)
						);
Create index inx_submitresp on submitresp(submitdate,mobileid,serviceid,msgcontent,msgid);

Create or replace procedure procedure_submitresp(inmobileid   varchar2,
												 inserviceid   varchar2,
												 inmsgcontent   varchar2,
												 inmsgid       varchar2
												 )
as
  errName       varchar2(20);
  errCode       varchar2(100);
  errContent    varchar2(100);
begin
   insert into submitResp(submitdate,mobileid,serviceid,msgcontent,msgid)
     values(sysdate,inmobileid,inserviceid,inmsgcontent,inmsgid);
   commit;

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