Advertisement
HenX

PRINTREPORT

Feb 26th, 2012
180
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 0.70 KB | None | 0 0
  1. CREATE OR REPLACE
  2. PROCEDURE PrintReport
  3. AS
  4.  
  5. counter INT;
  6. CURSOR dep IS SELECT * FROM Department;
  7. CURSOR tch IS SELECT * FROM Teacher;
  8. BEGIN
  9.  
  10.    
  11.   FOR cursdep IN dep LOOP
  12.   SELECT COUNT(*) INTO counter FROM Teacher WHERE department = cursdep.id;
  13.   DBMS_OUTPUT.PUT_LINE('ID: ' || cursdep.id || ' NAME: ' || cursdep.name || ' HEAD: ' || cursdep.head || ' NUMBER OF TEACHERS: ' || counter);
  14.     FOR curstch IN tch LOOP
  15.       IF cursdep.head <> curstch.login AND curstch.department = cursdep.id THEN
  16.         DBMS_OUTPUT.PUT_LINE('---- LOGIN: ' || curstch.login || ' FNAME: ' || curstch.fname || ' LNAME: ' || curstch.lname || ' EMAIL: ' || curstch.email);
  17.       END IF;
  18.     END LOOP;
  19.   END LOOP;
  20. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement