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

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