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

 1/*
 2REM
 3REM
 4REM Suppliers-def.sp
 5REM
 6REM
 7*/
 8
 9DECLARE
10
11  cursor_handle INTEGER;
12
13  parts_created INTEGER;
14
15BEGIN
16  cursor_handle :=DBMS_SQL.OPEN_CURSOR;
17  DBMS_SQL.PARSE(cursor_handle,
18                 'CREATE TABLE Suppliers(sn VARCHAR2(4) NOT NULL,'||
19                                        'sname VARCHAR2(16),'||
20                                        'status INTEGER,'||
21                                        'city VARCHAR2(16),'||
22                            'PRIMARY KEY(sn))',
23                 DBMS_SQL.V7);
24
25  parts_created := DBMS_SQL.EXECUTE(cursor_handle);
26
27  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
28
29  DBMS_OUTPUT.PUT_LINE('Table ''Suppliers'' created Successfully');
30
31EXCEPTION
32  WHEN OTHERS THEN
33    DBMS_SQL.CLOSE_CURSOR(cursor_handle);
34    DBMS_OUTPUT.PUT_LINE('Table ''Suppliers'' cannot be created');
35    DBMS_OUTPUT.PUT_LINE('Table ''Suppliers'' might be already existing');
36
37END;
38/