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

 1/*
 2REM
 3REM
 4REM Projects-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 Projects(jn VARCHAR2(4) NOT NULL,'||
21                                       'jname VARCHAR2(16),'||
22                                       'city VARCHAR2(16),'||
23                           'PRIMARY KEY(jn))',
24                 DBMS_SQL.V7);
25
26  parts_created := DBMS_SQL.EXECUTE(cursor_handle);
27
28  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
29
30  DBMS_OUTPUT.PUT_LINE('Table ''Projects'' created Successfully');
31
32EXCEPTION
33  WHEN OTHERS THEN
34    DBMS_SQL.CLOSE_CURSOR(cursor_handle);
35    DBMS_OUTPUT.PUT_LINE('Table ''Projects'' cannot be created');
36    DBMS_OUTPUT.PUT_LINE('Table ''Projects'' might be already existing');
37
38END;
39/