Yurttas/PL/DBL/oracle/F/02/PC/d-all.sp

 1/*
 2REM
 3REM
 4REM d-all.sp
 5REM
 6REM
 7*/
 8
 9DECLARE
10
11  cursor_handle INTEGER;
12 
13BEGIN
14
15  cursor_handle := DBMS_SQL.OPEN_CURSOR;
16  DBMS_SQL.PARSE(cursor_handle,
17                'DROP TABLE Laptop',
18                 DBMS_SQL.V7);
19  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
20
21  cursor_handle := DBMS_SQL.OPEN_CURSOR;
22  DBMS_SQL.PARSE(cursor_handle,
23                'DROP TABLE Product',
24                 DBMS_SQL.V7);
25  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
26
27  cursor_handle := DBMS_SQL.OPEN_CURSOR;
28  DBMS_SQL.PARSE(cursor_handle,
29                'DROP TABLE PC',
30                 DBMS_SQL.V7);
31  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
32
33  cursor_handle := DBMS_SQL.OPEN_CURSOR;
34  DBMS_SQL.PARSE(cursor_handle,
35                'DROP TABLE Printer',
36                 DBMS_SQL.V7);
37  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
38
39  cursor_handle := DBMS_SQL.OPEN_CURSOR;
40  DBMS_SQL.PARSE(cursor_handle,
41                'DROP VIEW Prodspeed',
42                 DBMS_SQL.V7);
43  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
44  
45  cursor_handle := DBMS_SQL.OPEN_CURSOR;
46  DBMS_SQL.PARSE(cursor_handle,
47                'DROP VIEW SmallRam',
48                 DBMS_SQL.V7);
49  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
50
51END;
52/