Yurttas/PL/DBL/oracle/F/02/PC/Laptop-def.sp
Jump to navigation
Jump to search
1/*
2REM
3REM
4REM Laptop-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 Laptop(model VARCHAR2(6) NOT NULL, '||
21 'speed NUMBER (4) NOT NULL, '||
22 'ram NUMBER(2) NOT NULL, '||
23 'hd NUMBER(4,2) NOT NULL, '||
24 'screen NUMBER(3,1) NOT NULL, '||
25 'price NUMBER(4) NOT NULL, '||
26 'PRIMARY KEY(model))',
27 DBMS_SQL.V7);
28
29 parts_created := DBMS_SQL.EXECUTE(cursor_handle);
30
31 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
32
33 DBMS_OUTPUT.PUT_LINE('Table ''Laptop'' created successfully');
34
35EXCEPTION
36 WHEN OTHERS
37 THEN
38 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
39 DBMS_OUTPUT.PUT_LINE('Table ''Laptop'' cannot be created');
40 DBMS_OUTPUT.PUT_LINE('Table ''Laptop'' may already exist');
41
42END;
43/