Yurttas/PL/DBL/oracle/F/02/Movie/Movie-def.sql

 1/*
 2REM
 3REM
 4REM Movie-def.sql
 5REM
 6REM
 7*/
 8
 9DECLARE
10
11  cursor_handle INTEGER;
12
13BEGIN
14
15  cursor_handle := DBMS_SQL.OPEN_CURSOR;
16
17  DBMS_SQL.PARSE(cursor_handle,
18                 'CREATE TABLE Movie(title VARCHAR2(24) NOT NULL,
19                                     year NUMBER(4) NOT NULL,
20                                     length NUMBER(4),
21                                     filmtype VARCHAR2(5),
22                                     studioname VARCHAR2(36) NOT NULL,
23                                     producercn NUMBER(4) NOT NULL,
24                         PRIMARY KEY(title,year),
25                         FOREIGN KEY(studioname) REFERENCES Studio(name),
26                         FOREIGN KEY(producercn) REFERENCES MovieExec(cn))',
27                 DBMS_SQL.V7);
28
29  DBMS_SQL.CLOSE_CURSOR(cursor_handle);
30
31END;
32/