Oracle PL/SQL-Tipps

 Tipp: 20
  Bereich: Cursor
  Versionsinfo: RDBMS 8.x
  Erstelldatum: 07.10.2019
  Letzte Überarbeitung: 09.08.2024

DECLARE
   CURSOR c1 (
       v_comm IN emp.comm%TYPE
   ) IS
   SELECT
       ename,
       sal,
       job
   FROM
       emp
   WHERE
       comm = v_comm
       OR ( comm IS NULL
            AND v_comm IS NULL );

   rec_c1 c1%rowtype; -- übernehme Spaltenstruktur des Cursor 
BEGIN
   OPEN c1(0); -- Parameter 0 in Cursor übergeben 
   LOOP
       FETCH c1 INTO rec_c1;
       EXIT WHEN c1%notfound;
       dbms_output.put_line(rec_c1.ename
                            || ' '
                            || rec_c1.sal
                            || ' '
                            || rec_c1.job);

   END LOOP;

   CLOSE c1;
END;
/