Yurttas/PL/DBL/oracle/F/02/Bank/Branch-def.sp
Revision as of 23:20, 4 November 2013 by MassBot1 (talk | contribs) (Created page with "<syntaxhighlight lang="text" line start="1" enclose="div">→REM REM REM Branch-def.sp REM REM: DECLARE cursor_handle INTEGER; branch_created INTEGER; BEGIN curso...")
1/*
2REM
3REM
4REM Branch-def.sp
5REM
6REM
7*/
8
9DECLARE
10
11 cursor_handle INTEGER;
12
13 branch_created INTEGER;
14
15BEGIN
16
17 cursor_handle := DBMS_SQL.OPEN_CURSOR;
18
19 DBMS_SQL.PARSE(cursor_handle,
20 'CREATE TABLE Branch(branchname VARCHAR2(16) NOT NULL,'||
21 'assets NUMBER(8), '||
22 'branchcity VARCHAR2(16), '||
23 'PRIMARY KEY(branchname))',
24 DBMS_SQL.V7);
25
26 branch_created := DBMS_SQL.EXECUTE(cursor_handle);
27
28 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
29
30 DBMS_OUTPUT.PUT_LINE('Table ''Branch'' created Successfully');
31
32EXCEPTION
33 WHEN OTHERS
34 THEN
35 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
36 DBMS_OUTPUT.PUT_LINE('Table ''Branch'' cannot be created;');
37 DBMS_OUTPUT.PUT_LINE('Table ''Branch'' might be already existing.');
38
39END;
40/