Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2018
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 0.44 KB | None | 0 0
  1. DECLARE
  2.   CURSOR CEgzaminy IS SELECT DISTINCT DATA_EGZ
  3.                       FROM EGZAMINY
  4.                       ORDER BY DATA_EGZ DESC;
  5.   vData CEgzaminy%ROWTYPE;
  6. BEGIN
  7.   OPEN CEgzaminy;
  8.   IF CEgzaminy%ISOPEN
  9.   THEN
  10.     FETCH CEgzaminy INTO vData;
  11.     WHILE CEgzaminy%FOUND AND CEgzaminy%ROWCOUNT <= 3 LOOP
  12.       DBMS_OUTPUT.PUT_LINE(vData.DATA_EGZ);
  13.       FETCH CEgzaminy INTO vData;
  14.     END LOOP;
  15.     CLOSE CEgzaminy;
  16.   END IF;
  17. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement