Advertisement
Guest User

Untitled

a guest
Sep 25th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 1.30 KB | None | 0 0
  1. SET SERVEROUTPUT ON
  2.     DECLARE
  3.         CURSOR cursorInternaute IS (SELECT i_nom, i_id, MAX(t_date) AS dateLastT  FROM internaute inner join telechargement ON t_i_id = i_id GROUP BY i_nom,  i_id HAVING sysdate-MAX(t_date) >60);
  4.         rowInternaute cursorInternaute%ROWTYPE;
  5.     BEGIN
  6.         OPEN cursorInternaute;
  7.        
  8.         FETCH cursorInternaute INTO rowInternaute;          
  9.        
  10.         WHILE cursorInternaute%FOUND LOOP      
  11.             DBMS_OUTPUT.PUT_LINE('Lettre d’invitation');
  12.             DBMS_OUTPUT.PUT_LINE('A internaute : '|| rowInternaute.i_nom || '   Adresse email :' || rowInternaute.i_id);
  13.             DBMS_OUTPUT.PUT_LINE('Cher(e) internaute, ');
  14.             DBMS_OUTPUT.PUT_LINE('Vous n’avez plus téléchargé de film depuis la date :'|| rowInternaute.dateLastT || '.');
  15.             DBMS_OUTPUT.PUT_LINE('Notre compagnie vous invite à visiter à nouveau notre site et vous offre 100 points bonus pour votre prochain téléchargement depuis notre site. Cette offre est valable jusqu’au : ' || TO_CHAR(SYSDATE+15) || '.');
  16.             DBMS_OUTPUT.PUT_LINE('Nous vous souhaitons une excellente visite sur notre site. Cordialement.');
  17.             DBMS_OUTPUT.PUT_LINE('----------------------');
  18.            
  19.             FETCH cursorInternaute INTO rowInternaute;          
  20.         END LOOP;
  21.         CLOSE cursorInternaute;
  22.     END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement