Yurttas/PL/DBL/oracle/F/02/Movie/Movie-def.sql
Jump to navigation
Jump to search
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/