nokdata_cancel.sql

linux下c 编写的 某项目代理服务端部分的代码。其中包括网络通信

create or replace procedure nokdata_cancel
(
        v_consec_nbr    IN char,
        v_alarm_status  IN char,
        v_cancel_time   IN char,
        v_name          IN char,
        site_no         OUT char
)
as
BEGIN
        if ltrim(rtrim(v_cancel_time))<>'0' then 
        	update alarm set ALARM_STATUS_no=ltrim(rtrim(v_ALARM_STATUS)),
                                 CANCEL_TIME=to_date(v_cancel_time,'yyyymmddhh24miss'),UP_TIME=SYSDATE
        	where ALARM_CSN=ltrim(rtrim(v_consec_nbr));
        	commit;
        	delete from alarm where  agency_no='01' and cancel_time is not null;
        	commit;
        end if;
        select alarm_site_no into site_no 
        	from para_alarm_site_no
        	where name=ltrim(rtrim(v_name));
END;