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 = '0' || :mth;

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

end

调用方式： select * from get_batch; 

结果：