for c as select * from TAB
do
     If (FLD=1) then 
         break;
     else
         continue;
     end if;
end for

create or replace function TMPFUNC (F_PAR integer)
returns integer
reads sql data
no external action
begin 
 declare f_retval integer default 0;
 for cond_ as (select * from MYTAB where COND=F_PAR)
 do
    if (FLD>0) then
    	goto next;
    else
    	goto exit;
    end if;
next:
 end for;
exit:
 return f_retval;
end

DB21034E  Данная команда обрабатывалась как оператор SQL, поскольку она не 
является допустимой командой процессора командной строки.  При обработке SQL 
было получено сообщение:
SQL0104N  Обнаружен неправильный элемент "end for; exit:" после текста ";     
end if; next: ".  Список возможных правильных элементов: "<space>".  LINE 
NUMBER=16.  SQLSTATE=42601