spinnt fb oder spinn ich?

[sancho1980]

hi

die sp erklären is ganz einfach; was sie machen soll ist:

SQL-Code:

pos = 0;
for select first 20 id from dicentries where (asterm = :asterm_in and id >= :id_in) or (asterm > :asterm_in) order by asterm ascending, id ascending into :id_out do
  begin
    suspend;
    pos = pos + 1;
  end

das problem ist, dass meine felder zuu groß sind - deswegen kann ich auf asterm, id keinen joint index kreiren.
das wiederum bedeutet, dass die prozedur so wie sie hier steht zu lange dauern würde; deswegen brauch ich eine andere sp, die mir genau das selbe ergebnis liefert - aber dabei schneller ist!

habe mittlerweile eine lösung gefunden, die funktioniert..bin immer noch der meinung, das was ich hier gepostet hab ist korrekt und firebird hat einen bug...sei's drum, so funktioniert's jetzt (indem ich das problem in zwei prizeduren aufteile):

SQL-Code:

CREATE PROCEDURE NEXT_20_AB_ASTERM_AUX (
    asterm_in varchar(240),
    id_in bigint)
returns (
    id_out bigint,
    pos integer)
as
declare variable cnt integer;
declare variable asterm_tmp varchar(240) character set unicode_fss;
declare variable asterm_prior varchar(240) character set unicode_fss;
begin
  pos = 0;
  cnt = 0;
  asterm_prior = asterm_in;
  for select asterm, id from dicentries where (asterm = :asterm_in and id >= :id_in) or (asterm > :asterm_in) order by asterm ascending into :asterm_tmp, :id_out do
    begin
      cnt = cnt + 1;
      if (asterm_tmp <> asterm_prior) then
        begin
          pos = pos + 1;
          asterm_prior = asterm_tmp;
        end
      suspend;
      if (cnt = 20) then
        exit;
    end
end

SQL-Code:

CREATE PROCEDURE NEXT_20_AB_ASTERM (
    asterm_in varchar(240),
    id_in bigint)
returns (
    id_out bigint,
    pos integer)
as
begin
  pos = 0;
  for select id_out from next_20_ab_asterm_aux(:asterm_in, :id_in) order by pos ascending, id_out ascending into :id_out do
    begin
      suspend;
      pos = pos + 1;
    end
end