Yurttas/PL/DBL/oracle/F/02/Bank/Client-q-all.sp
Jump to navigation
Jump to search
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/