Yurttas/PL/DBL/oracle/F/02/Movie/Movie-def.sql
Revision as of 23:26, 4 November 2013 by MassBot1 (talk | contribs) (Created page with "<syntaxhighlight lang="sql" line start="1" enclose="div"> →REM REM REM Movie-def.sql REM REM: DECLARE cursor_handle INTEGER; BEGIN cursor_handle := DBMS_SQL.OPEN_C...")
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/