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