Назначение

Оператор цикла с предусловием предназначен для организации многократного выполнения фрагмента программы при выполнении некоторого условия, указанного перед его началом. Это условие проверяется до выполнения <​тела цикла​>, поэтому <​тело цикла​> может быть не выполнено ни разу (если условие с самого начала ложно).

Синтаксис

WHILE <​выражение​> LOOP
  <​тело цикла​>
ENDLOOP

Описание

<​выражение​> должно быть логического типа. Если его значение TRUE, выполняется <​тело цикла​> до ENDLOOP, после чего снова вычисляется <​выражение​> и принимается решение о продолжении (прекращении) цикла. Если значение <​выражения​> FALSE, управление передается на следующий после ENDLOOP оператор. Чтобы количество циклов было конечным, в <​теле цикла​> обязательно должно выполняться изменение переменных или условий, влияющих на <​выражение​>.

Пример

Классический перебор записей в выборке.

create or replace table tab1 (i int, j int, s int);
insert into tab1 (i,j) values (1, 50);
insert into tab1 (i,j) values (2, 30);
insert into tab1 (i,j) values (3, 60);
insert into tab1 (i,j) values (4, 40);

create or replace procedure proc1 () result int for debug
declare
  var sum int;//
  var CURS cursor (i int, j int, s int);//
code
  sum := 0;//
  open curs as "curs" for "select * from tab1;";//
  fetch curs first;//
  while not outofcursor(curs) loop
    sum := sum + curs.i + curs.j;//
    execute "update tab1 set s = ? where current of \"curs\";", itoa(sum);//
    fetch curs next;//
  endloop
  return sum;//
exceptions
  when all then resignal;//
end;
--
call proc1();
Результат 190

--
select * from tab1;
I   J   S
1  50  51
2  30  83
3  60  146
4  40  190