Advertisement
HenX

CUSTOMER_STATS

Feb 28th, 2012
179
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 0.68 KB | None | 0 0
  1. CREATE OR REPLACE
  2. PROCEDURE customerStats (
  3.                         v_email "User".email%TYPE
  4.                         ) AS
  5. CURSOR res IS SELECT * FROM Reservation;
  6. CURSOR train IS SELECT * FROM TrainRide;
  7.  
  8. counter INT;
  9. login INT;
  10. BEGIN
  11.  
  12. SELECT iduser INTO login FROM "User" WHERE email = v_email;
  13. DBMS_OUTPUT.PUT_LINE('USER: ' || v_email || 'HAS USED: ' );
  14.  
  15. FOR i IN train LOOP
  16. counter :=  0;
  17.   FOR j IN res LOOP
  18.     IF (j.idTrainRide = i.idTrainRide AND j.iduser = login) THEN
  19.     counter := counter + 1;  
  20.     END IF;
  21.   END LOOP;
  22.   IF (counter > 0) THEN
  23.   DBMS_OUTPUT.PUT_LINE('TRAIN: ' || i.idTrainRide || ': ' || counter || ' TIMES' );
  24.   END IF;
  25. END LOOP;
  26.  
  27.  
  28. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement