Yurttas/PL/DBL/oracle/F/02/PC/Laptop-def.sp

 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/