dhpack.sql

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

drop package Pack_noes;
/
CREATE OR REPLACE PACKAGE Pack_noes AS
   type City_no_cur_type is ref cursor ;
   type Alarm_Status_no_cur_type is ref cursor ;
   type Alarm_Name_no_cur_type is ref cursor ;
   type Alarm_Site_no_cur_type is ref cursor ;
    
   PROCEDURE Get_City_no(curs_City_no in out City_no_cur_type,City_num out number);
   PROCEDURE Get_Status_no(curs_Status_no in out Alarm_Status_no_cur_type,Status_num out number);
   PROCEDURE Get_Name_no(curs_Name_no in out Alarm_Name_no_cur_type,Name_num out number);
   PROCEDURE Get_Site_no(curs_Site_no in out Alarm_Site_no_cur_type,Site_num out number);
END Pack_noes;
/
CREATE OR REPLACE PACKAGE BODY Pack_noes AS
      PROCEDURE Get_City_no(curs_City_no in out City_no_cur_type,city_num out number) is
      BEGIN
         OPEN curs_City_no FOR SELECT City_no,name 
      FROM Para_City_no ;
         select count(*) into City_num 
      from Para_City_no;
      END ;
      PROCEDURE Get_Status_no(curs_Status_no in out Alarm_Status_no_cur_type,Status_num out number) is
      BEGIN
         OPEN curs_Status_no FOR SELECT Alarm_Status_NO,name              
      FROM Para_Alarm_Status_no;
         select count(*) into Status_num
      from Para_Alarm_Status_no;
      END ;
      PROCEDURE Get_Name_no(curs_Name_no in out Alarm_Name_no_cur_type,Name_num out number) is
      BEGIN
         OPEN curs_Name_no FOR SELECT Alarm_name_No,Name,Alarm_Sort_No,Alarm_Level_NO              
      FROM Para_Alarm_name_NO;
         select count(*) into Name_num
      from Para_Alarm_name_NO;
      END ;

      PROCEDURE get_Site_no(curs_Site_no in out Alarm_Site_no_cur_type,Site_num out number) is
      BEGIN
         OPEN curs_Site_no FOR SELECT Alarm_Site_No,Name              
      FROM Para_Alarm_Site_no ;
         select count(*) into Site_num
      from Para_Alarm_Site_no;
      END ;
end Pack_noes;
/