CREATE OR REPLACE PROCEDURE sp_test_while_loop
AS
    i_counter   number := 10;
BEGIN
    WHILE(i_counter > 0) LOOP 
        dbms_output.put_line('In the loop i_counter is ' || to_number(i_counter) );
        i_counter := i_counter - 1;
    END LOOP;
    dbms_output.put_line('Out of the loop i_counter is ' || to_number(i_counter) );
EXCEPTION 
        NULL;   
END;
/
delimiter ;
obclient>
obclient> set serveroutput on;
Query OK, 0 rows affected (0.00 sec)
obclient> call sp_test_while_loop();
Query OK, 0 rows affected (0.04 sec)
In the loop i_counter is 10
In the loop i_counter is 9
In the loop i_counter is 8
In the loop i_counter is 7
In the loop i_counter is 6
In the loop i_counter is 5
In the loop i_counter is 4
In the loop i_counter is 3
In the loop i_counter is 2
In the loop i_counter is 1
Out of the loop i_counter is 0
obclient>