Yurttas/PL/DBL/oracle/F/02/SPJ/Parts-def.sp

 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/