Доступные версии документации

Оператор цикла с предусловием

Назначение

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

Синтаксис
       
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
Заметили ошибку?
Выделите текст и нажмите Ctrl + Enter