create table test(
  id integer not null primary key,
  data date,
  str varchar(10)
);

insert into test(id, data, str) values(1, '01.01.2015', 'string 1');
insert into test(id, data, str) values(2, '04.03.2015', 'string 2');
insert into test(id, data, str) values(3, '17.06.2015', 'string 3');
insert into test(id, data, str) values(4, '09.03.2015', 'string 4');
insert into test(id, data, str) values(5, '25.04.2015', 'string 5');
insert into test(id, data, str) values(6, '25.03.2015', 'string 6');

create procedure test1
returns (
  data date,
  str  varchar(10),
  m    integer,
  r    integer
)
as
declare variable mc integer;
begin

  mc = 0; -- "текущий" месяц

  for select
   test.data,
   test.str,
   extract(month from data) as m
  from test
  order by 3
  into :data, :str, :m
  do begin
     if (:m <> :mc) then begin
       mc = m;
       r = 1;
     end else begin
       r = r + 1;
     end
     suspend;
     end
end

execute block
returns (
  r   integer,  -- номер строки
  m01 varchar(10),
  m02 varchar(10),
  m03 varchar(10),
  m04 varchar(10),
  m05 varchar(10),
  m06 varchar(10),
  m07 varchar(10),
  m08 varchar(10),
  m09 varchar(10),
  m10 varchar(10),
  m11 varchar(10),
  m12 varchar(10)
)
as
declare variable vr integer;
declare variable vm integer;
declare variable vstr varchar(10);
begin
  r = 0; -- начальная строка

  for select
    r, m, str
  from test1
  order by r, m
  into :vr, :vm, :vstr
  do begin
     -- если в данных пошла новая строка - заведем новую запись и зачистим поля данных
     if (:vr > :r) then begin
       if (:r > 0) then suspend; -- вытолкнем предыдущую строку если она была
       r = vr;
       m01 = '';
       m02 = '';
       m03 = '';
       m04 = '';
       m05 = '';
       m06 = '';
       m07 = '';
       m08 = '';
       m09 = '';
       m10 = '';
       m11 = '';
       m12 = '';
     end
     -- раскидаем значения по полям месяцев
     if (:vm =  1) then m01 = vstr;
     if (:vm =  2) then m02 = vstr;
     if (:vm =  3) then m03 = vstr;
     if (:vm =  4) then m04 = vstr;
     if (:vm =  5) then m05 = vstr;
     if (:vm =  6) then m06 = vstr;
     if (:vm =  7) then m07 = vstr;
     if (:vm =  8) then m08 = vstr;
     if (:vm =  9) then m09 = vstr;
     if (:vm = 10) then m10 = vstr;
     if (:vm = 11) then m11 = vstr;
     if (:vm = 12) then m12 = vstr;
     end -- for select
  if (:r > 0) then suspend; -- вытолкнем последнюю строку если вообще были данные
end