Yurttas/PL/DBL/oracle/F/02/Bank/u05.sp
Jump to navigation
Jump to search
1CREATE OR REPLACE
2PROCEDURE u05 IS
3
4 cursor_handle INTEGER;
5
6 balance_updated INTEGER;
7
8BEGIN
9
10 DBMS_OUTPUT.PUT('Increasing all balances by 5 percent...');
11
12 cursor_handle := DBMS_SQL.OPEN_CURSOR;
13
14 DBMS_SQL.PARSE(cursor_handle,
15 'UPDATE Depositor '||
16 'SET balance = balance*1.05',
17 DBMS_SQL.V7);
18
19 balance_updated := DBMS_SQL.EXECUTE(cursor_handle);
20
21 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
22
23 DBMS_OUTPUT.PUT_LINE('Done.');
24
25EXCEPTION
26 WHEN OTHERS
27 THEN
28 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
29 DBMS_OUTPUT.PUT_LINE('Error increasing all balances by 5 percent.');
30
31END;
32/