Yurttas/PL/DBL/oracle/F/02/Bank/Client-q-all.sp

 1DECLARE
 2
 3 cN Client.Customername%TYPE;
 4 bN Client.Bankername%TYPE;
 5
 6 no_selection EXCEPTION;
 7
 8  CURSOR c1 IS
 9    SELECT *
10    FROM Client;
11
12BEGIN
13
14  DBMS_OUTPUT.PUT_LINE('The Client Table');
15  DBMS_OUTPUT.PUT_LINE('-------------------------');
16  DBMS_OUTPUT.PUT_LINE('CustomerName   '||'BankerName');
17  DBMS_OUTPUT.PUT_LINE('---------------'||'----------');
18   
19  OPEN c1;
20
21  LOOP
22    FETCH c1 INTO cN, bN;
23
24    IF c1%ROWCOUNT = 0 THEN
25      RAISE no_selection;
26    END IF;
27
28    IF c1%FOUND THEN
29      DBMS_OUTPUT.PUT_LINE(RPAD(cN,15,' ')||
30	                   RPAD(bN,12,' '));
31    ELSE
32      EXIT;
33    END IF;
34  END LOOP;
35    
36  CLOSE c1;
37
38EXCEPTION
39  WHEN no_selection THEN
40  DBMS_OUTPUT.PUT_LINE('Not a single tuple met the selection criteria.');
41
42END;
43/