alct2.sql

来自「linux下c 编写的 某项目代理服务端部分的代码。其中包括网络通信」· SQL 代码 · 共 41 行

drop procedure alct2
/
create or replace procedure alct2
(
        iagency_no        IN char,
	ialarm_site_name  IN char,
     	icity_no          IN char,
     	tag              OUT number,
     	vvno             OUT number
)
as
     	vsite_count       number(2);
     	vno               number(10);
begin
        tag:=0;
	vvno:=1;
     	select nvl(count(city_no),0)
      	into vsite_count
      	from para_alarm_site_no
     	where name=ltrim(rtrim(ialarm_site_name));
     	if vsite_count=0 then
        	select seq_alarm_site_no.nextval into vno from dual;
          	insert into para_alarm_site_no (city_no,agency_no,alarm_site_no,name,bound)
          	values(ltrim(rtrim(icity_no)),ltrim(rtrim(iagency_no)),vno,ltrim(rtrim(ialarm_site_name)),60);
          	insert into alarm(city_no,agency_no,alarm_site_no,alarm_level_no,
           	alarm_status_no,alarm_name_no,alarm_time,cancel_time,bz)
           	select ltrim(rtrim(icity_no)),ltrim(rtrim(iagency_no)),vno,
           	ltrim(rtrim(alarm_level_no)),'2',ltrim(rtrim(alarm_name_no)),NULL,NULL,'0'
           	from para_alarm_name_no where alarm_name_no<>'0';
		tag:=2;
		vvno:=vno;
	else 
		tag:=1;
                select alarm_site_no into vvno
		from para_alarm_site_no
        	where name=ltrim(rtrim(ialarm_site_name));
	end if;
 	commit;
end alct2;
/