Yurttas/PL/DBL/oracle/F/02/Movie/Studio-def.sql
Revision as of 23:27, 4 November 2013 by MassBot1 (talk | contribs) (Created page with "<syntaxhighlight lang="sql" line start="1" enclose="div"> ββREM REM REM Studio-def.sql REM REM: DECLARE cursor_handle INTEGER; BEGIN cursor_handle := DBMS_SQL.OPEN_...")
1/*
2REM
3REM
4REM Studio-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 Studio(name VARCHAR2(36) NOT NULL,
19 address VARCHAR2(24),
20 prescn NUMBER(4) NOT NULL,
21 PRIMARY KEY(name),
22 FOREIGN KEY(prescn) REFERENCES MovieExec(cn))',
23 DBMS_SQL.V7);
24
25 DBMS_SQL.CLOSE_CURSOR(cursor_handle);
26
27END;
28/