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