PLSQL FOR - IN - LOOP.

FOR compteur IN [REVERSE] lower_bound..upper_bound LOOP
    instruction1;
    instruction2;
    instruction3;
    [EXIT WHEN condition];
END LOOP;

SQL> SET SERVEROUTPUT ON
SQL> BEGIN
  2    FOR i IN 1..5 LOOP
  3      CASE i
  4         WHEN 1 THEN DBMS_OUTPUT.PUT_LINE ('--               ');
  5         WHEN 2 THEN DBMS_OUTPUT.PUT_LINE ('-----            ');
  6         WHEN 3 THEN DBMS_OUTPUT.PUT_LINE ('---------        ');
  7         WHEN 4 THEN DBMS_OUTPUT.PUT_LINE ('--------------   ');
  8         WHEN 5 THEN DBMS_OUTPUT.PUT_LINE ('-----------------');
  9      END CASE;
 10    END LOOP;
 11  END;
 12  /
--
-----
---------
--------------
-----------------

Procédure PL/SQL terminée avec succès.

SQL>

SQL> SET SERVEROUTPUT ON
SQL> BEGIN
  2    FOR i IN REVERSE 1..5 LOOP
  3      CASE i
  4         WHEN 1 THEN DBMS_OUTPUT.PUT_LINE ('--               ');
  5         WHEN 2 THEN DBMS_OUTPUT.PUT_LINE ('-----            ');
  6         WHEN 3 THEN DBMS_OUTPUT.PUT_LINE ('---------        ');
  7         WHEN 4 THEN DBMS_OUTPUT.PUT_LINE ('--------------   ');
  8         WHEN 5 THEN DBMS_OUTPUT.PUT_LINE ('-----------------');
  9      END CASE;
 10    END LOOP;
 11  END;
 12  /
-----------------
--------------
---------
-----
--

Procédure PL/SQL terminée avec succès.

SQL>

SQL> SET SERVEROUTPUT ON
SQL> DECLARE
  2      employe scott.emp%rowtype;
  3  CURSOR Mon_Curseur IS
  4      SELECT ename, deptno
  5        FROM emp
  6       WHERE deptno = 10;
  7  BEGIN
  8       FOR employe IN Mon_Curseur LOOP
  9         dbms_output.put_line(' Nom : '||employe.ename);
 10       END LOOP;
 11  END;
 12  /
Nom : CLARK
Nom : KING
Nom : MILLER

Procédure PL/SQL terminée avec succès.

SQL>