Firebird Procedure 带返回的存储过程

火鸟定义带返回的存储过程是这样，先定义返回结果字段列表，然后为返回字段一一赋值，当你需要返回一行时，就suspend。

当需要返回多行时，就再次为返回字段变量赋值，suspend。

示例：

 create or alter procedure GET_BATCH
 returns (
     ADDR varchar(10),
     BATCH varchar(10))
 as
 declare variable MTH varchar(10);
 begin
   /* Procedure Text */
   :addr = 'Shang Hai';

   select extract(month from current_date) from rdb$database into :mth;
   if(char_length(:mth) = 1) then
     :mth = '' || :mth;

   select extract(year from current_date) || :mth || extract(day from current_date)
   from rdb$database into :batch;
   suspend;

 end

调用方式： select * from get_batch;

结果：