Yurttas/PL/DBL/oracle/F/02/SPJ/Projects-def.sp
Jump to navigation
Jump to search
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/