/*-----------------------------------------------------------------------------

* Copyright 2017, 2020, Oracle and/or its affiliates. All rights reserved.

*---------------------------------------------------------------------------*/

/*-----------------------------------------------------------------------------

* setup_samples_exec.sql

* This script performs the actual work of creating and populating the

* schemas with the database objects used by the sample scripts. An edition

* is also created for the demonstration of PL/SQL editioning. It is called by

* the setup_samples.sql file after acquiring the necessary parameters and also

* by the Python script setup_samples.py.

*---------------------------------------------------------------------------*/

alter session set nls_date_format = 'YYYY-MM-DD HH24:MI:SS'

/

alter session set nls_numeric_characters='.,'

/

create user &main_user identified by &main_password

/

grant

create session,

create table,

create procedure,

create type,

select any dictionary,

change notification,

unlimited tablespace

to &main_user

/

grant aq_administrator_role to &main_user

/

begin

execute immediate 'begin dbms_session.sleep(0); end;';

exception

when others then

begin

execute immediate 'grant execute on dbms_lock to &main_user';

exception

when others then

raise_application_error(-20000,

'Ensure the following grant is made: ' ||

'grant execute on dbms_lock to ' || user ||

' with grant option');

end;

end;

/

begin

for r in

( select role

from dba_roles

where role in ('SODA_APP')

) loop

execute immediate 'grant ' || r.role || ' to &main_user';

end loop;

end;

/

create user &edition_user identified by &edition_password

/

grant

create session,

create procedure

to &edition_user

/

alter user &edition_user enable editions

/

create edition &edition_name

/

grant use on edition &edition_name to &edition_user

/

-- create types

create type &main_user..udt_SubObject as object (

SubNumberValue number,

SubStringValue varchar2(60)

);

/

create or replace type &main_user..udt_Building as object (

BuildingId number(9),

NumFloors number(3),

Description varchar2(60),

DateBuilt date

);

/

create or replace type &main_user..udt_Book as object (

Title varchar2(100),

Authors varchar2(100),

Price number(5,2)

);

/

-- create tables

create table &main_user..TestNumbers (

IntCol number(9) not null,

NumberCol number(9, 2) not null,

FloatCol float not null,

UnconstrainedCol number not null,

NullableCol number(38)

)

/

create table &main_user..TestStrings (

IntCol number(9) not null,

StringCol varchar2(20) not null,

RawCol raw(30) not null,

FixedCharCol char(40) not null,

NullableCol varchar2(50)

)

/

create table &main_user..TestCLOBs (

IntCol number(9) not null,

CLOBCol clob not null

)

/

create table &main_user..TestBLOBs (

IntCol number(9) not null,

BLOBCol blob not null

)

/

create table &main_user..TestTempTable (

IntCol number(9) not null,

StringCol varchar2(400),

constraint TestTempTable_pk primary key (IntCol)

)

/

create table &main_user..TestUniversalRowids (

IntCol number(9) not null,

StringCol varchar2(250) not null,

DateCol date not null,

constraint TestUniversalRowids_pk primary key (IntCol, StringCol, DateCol)

) organization index

/

create table &main_user..TestBuildings (

BuildingId number(9) not null,

BuildingObj &main_user..udt_Building not null

)

/

create table &main_user..BigTab (

mycol varchar2(20)

)

/

create table &main_user..SampleQueryTab (

id number not null,

name varchar2(20) not null

)

/

create table &main_user..MyTab (

id number,

data varchar2(20)

)

/

create table &main_user..ParentTable (

ParentId number(9) not null,

Description varchar2(60) not null,

constraint ParentTable_pk primary key (ParentId)

)

/

create table &main_user..ChildTable (

ChildId number(9) not null,

ParentId number(9) not null,

Description varchar2(60) not null,

constraint ChildTable_pk primary key (ChildId),

constraint ChildTable_fk foreign key (ParentId)

references &main_user..ParentTable

)

/

create table &main_user..Ptab (

myid number,

mydata varchar(20)

)

/

create table &main_user..PlsqlSessionCallbacks (

RequestedTag varchar2(250),

ActualTag varchar2(250),

FixupTimestamp timestamp

)

/

-- create queue table, queues and subscribers for demonstrating Advanced Queuing

begin

dbms_aqadm.create_queue_table('&main_user..BOOK_QUEUE_TAB',

'&main_user..UDT_BOOK');

dbms_aqadm.create_queue('&main_user..DEMO_BOOK_QUEUE',

'&main_user..BOOK_QUEUE_TAB');

dbms_aqadm.start_queue('&main_user..DEMO_BOOK_QUEUE');

dbms_aqadm.create_queue_table('&main_user..RAW_QUEUE_TAB', 'RAW');

dbms_aqadm.create_queue('&main_user..DEMO_RAW_QUEUE',

'&main_user..RAW_QUEUE_TAB');

dbms_aqadm.start_queue('&main_user..DEMO_RAW_QUEUE');

dbms_aqadm.create_queue_table('&main_user..RAW_QUEUE_MULTI_TAB', 'RAW',

multiple_consumers => true);

dbms_aqadm.create_queue('&main_user..DEMO_RAW_QUEUE_MULTI',

'&main_user..RAW_QUEUE_MULTI_TAB');

dbms_aqadm.start_queue('&main_user..DEMO_RAW_QUEUE_MULTI');

dbms_aqadm.add_subscriber('&main_user..DEMO_RAW_QUEUE_MULTI',

sys.aq$_agent('SUBSCRIBER_A', null, null));

dbms_aqadm.add_subscriber('&main_user..DEMO_RAW_QUEUE_MULTI',

sys.aq$_agent('SUBSCRIBER_B', null, null));

end;

/

-- populate tables

begin

for i in 1..20000 loop

insert into &main_user..BigTab (mycol)

values (dbms_random.string('A', 20));

end loop;

end;

/

begin

for i in 1..10 loop

insert into &main_user..TestNumbers

values (i, i + i * 0.25, i + i * .75, i * i * i + i *.5,

decode(mod(i, 2), 0, null, power(143, i)));

end loop;

end;

/

declare

t_RawValue raw(30);

function ConvertHexDigit(a_Value number) return varchar2 is

begin

if a_Value between 0 and 9 then

return to_char(a_Value);

end if;

return chr(ascii('A') + a_Value - 10);

end;

function ConvertToHex(a_Value varchar2) return varchar2 is

t_HexValue varchar2(60);

t_Digit number;

begin

for i in 1..length(a_Value) loop

t_Digit := ascii(substr(a_Value, i, 1));

t_HexValue := t_HexValue ||

ConvertHexDigit(trunc(t_Digit / 16)) ||

ConvertHexDigit(mod(t_Digit, 16));

end loop;

return t_HexValue;

end;

begin

for i in 1..10 loop

t_RawValue := hextoraw(ConvertToHex('Raw ' || to_char(i)));

insert into &main_user..TestStrings

values (i, 'String ' || to_char(i), t_RawValue,

'Fixed Char ' || to_char(i),

decode(mod(i, 2), 0, null, 'Nullable ' || to_char(i)));

end loop;

end;

/

insert into &main_user..ParentTable values (10, 'Parent 10')

/

insert into &main_user..ParentTable values (20, 'Parent 20')

/

insert into &main_user..ParentTable values (30, 'Parent 30')

/

insert into &main_user..ParentTable values (40, 'Parent 40')

/

insert into &main_user..ParentTable values (50, 'Parent 50')

/

insert into &main_user..ChildTable values (1001, 10, 'Child A of Parent 10')

/

insert into &main_user..ChildTable values (1002, 20, 'Child A of Parent 20')

/

insert into &main_user..ChildTable values (1003, 20, 'Child B of Parent 20')

/

insert into &main_user..ChildTable values (1004, 20, 'Child C of Parent 20')

/

insert into &main_user..ChildTable values (1005, 30, 'Child A of Parent 30')

/

insert into &main_user..ChildTable values (1006, 30, 'Child B of Parent 30')

/

insert into &main_user..ChildTable values (1007, 40, 'Child A of Parent 40')

/

insert into &main_user..ChildTable values (1008, 40, 'Child B of Parent 40')

/

insert into &main_user..ChildTable values (1009, 40, 'Child C of Parent 40')

/

insert into &main_user..ChildTable values (1010, 40, 'Child D of Parent 40')

/

insert into &main_user..ChildTable values (1011, 40, 'Child E of Parent 40')

/

insert into &main_user..ChildTable values (1012, 50, 'Child A of Parent 50')

/

insert into &main_user..ChildTable values (1013, 50, 'Child B of Parent 50')

/

insert into &main_user..ChildTable values (1014, 50, 'Child C of Parent 50')

/

insert into &main_user..ChildTable values (1015, 50, 'Child D of Parent 50')

/

insert into &main_user..SampleQueryTab values (1, 'Anthony')

/

insert into &main_user..SampleQueryTab values (2, 'Barbie')

/

insert into &main_user..SampleQueryTab values (3, 'Chris')

/

insert into &main_user..SampleQueryTab values (4, 'Dazza')

/

insert into &main_user..SampleQueryTab values (5, 'Erin')

/

insert into &main_user..SampleQueryTab values (6, 'Frankie')

/

insert into &main_user..SampleQueryTab values (7, 'Gerri')

/

commit

/

--

-- For PL/SQL Examples

--

create or replace function &main_user..myfunc (

a_Data varchar2,

a_Id number

) return number as

begin

insert into &main_user..ptab (mydata, myid) values (a_Data, a_Id);

return (a_Id * 2);

end;

/

create or replace procedure &main_user..myproc (

a_Value1 number,

a_Value2 out number

) as

begin

a_Value2 := a_Value1 * 2;

end;

/

create or replace procedure &main_user..myrefcursorproc (

a_StartingValue number,

a_EndingValue number,

a_RefCursor out sys_refcursor

) as

begin

open a_RefCursor for

select *

from TestStrings

where IntCol between a_StartingValue and a_EndingValue;

end;

/

create procedure &main_user..myrefcursorproc2 (

a_RefCursor out sys_refcursor

) as

begin

open a_RefCursor for

select *

from TestTempTable;

end;

/

--

-- Create package for demoing PL/SQL collections and records.

--

create or replace package &main_user..pkg_Demo as

type udt_StringList is table of varchar2(100) index by binary_integer;

type udt_DemoRecord is record (

NumberValue number,

StringValue varchar2(30),

DateValue date,

BooleanValue boolean

);

procedure DemoCollectionOut (

a_Value out nocopy udt_StringList

);

procedure DemoRecordsInOut (

a_Value in out nocopy udt_DemoRecord

);

end;

/

create or replace package body &main_user..pkg_Demo as

procedure DemoCollectionOut (

a_Value out nocopy udt_StringList

) is

begin

a_Value(-1048576) := 'First element';

a_Value(-576) := 'Second element';

a_Value(284) := 'Third element';

a_Value(8388608) := 'Fourth element';

end;

procedure DemoRecordsInOut (

a_Value in out nocopy udt_DemoRecord

) is

begin

a_Value.NumberValue := a_Value.NumberValue * 2;

a_Value.StringValue := a_Value.StringValue || ' (Modified)';

a_Value.DateValue := a_Value.DateValue + 5;

a_Value.BooleanValue := not a_Value.BooleanValue;

end;

end;

/

--

-- Create package for demoing PL/SQL session callback

--

create or replace package &main_user..pkg_SessionCallback as

procedure TheCallback (

a_RequestedTag varchar2,

a_ActualTag varchar2

);

end;

/

create or replace package body &main_user..pkg_SessionCallback as

type udt_Properties is table of varchar2(64) index by varchar2(64);

procedure LogCall (

a_RequestedTag varchar2,

a_ActualTag varchar2

) is

pragma autonomous_transaction;

begin

insert into PlsqlSessionCallbacks

values (a_RequestedTag, a_ActualTag, systimestamp);

commit;

end;

procedure ParseProperty (

a_Property varchar2,

a_Name out nocopy varchar2,

a_Value out nocopy varchar2

) is

t_Pos number;

begin

t_Pos := instr(a_Property, '=');

if t_Pos = 0 then

raise_application_error(-20000, 'Tag must contain key=value pairs');

end if;

a_Name := substr(a_Property, 1, t_Pos - 1);

a_Value := substr(a_Property, t_Pos + 1);

end;

procedure SetProperty (

a_Name varchar2,

a_Value varchar2

) is

t_ValidValues udt_Properties;

begin

if a_Name = 'TIME_ZONE' then

t_ValidValues('UTC') := 'UTC';

t_ValidValues('MST') := '-07:00';

elsif a_Name = 'NLS_DATE_FORMAT' then

t_ValidValues('SIMPLE') := 'YYYY-MM-DD HH24:MI';

t_ValidValues('FULL') := 'YYYY-MM-DD HH24:MI:SS';

else

raise_application_error(-20000, 'Unsupported session setting');

end if;

if not t_ValidValues.exists(a_Value) then

raise_application_error(-20000, 'Unsupported session setting');

end if;

execute immediate

'ALTER SESSION SET ' || a_Name || '=''' ||

t_ValidValues(a_Value) || '''';

end;

procedure ParseTag (

a_Tag varchar2,

a_Properties out nocopy udt_Properties

) is

t_PropertyName varchar2(64);

t_PropertyValue varchar2(64);

t_StartPos number;

t_EndPos number;

begin

t_StartPos := 1;

while t_StartPos < length(a_Tag) loop

t_EndPos := instr(a_Tag, ';', t_StartPos);

if t_EndPos = 0 then

t_EndPos := length(a_Tag) + 1;

end if;

ParseProperty(substr(a_Tag, t_StartPos, t_EndPos - t_StartPos),

t_PropertyName, t_PropertyValue);

a_Properties(t_PropertyName) := t_PropertyValue;

t_StartPos := t_EndPos + 1;

end loop;

end;

procedure TheCallback (

a_RequestedTag varchar2,

a_ActualTag varchar2

) is

t_RequestedProps udt_Properties;

t_ActualProps udt_Properties;

t_PropertyName varchar2(64);

begin

LogCall(a_RequestedTag, a_ActualTag);

ParseTag(a_RequestedTag, t_RequestedProps);

ParseTag(a_ActualTag, t_ActualProps);

t_PropertyName := t_RequestedProps.first;

while t_PropertyName is not null loop

if not t_ActualProps.exists(t_PropertyName) or

t_ActualProps(t_PropertyName) !=

t_RequestedProps(t_PropertyName) then

SetProperty(t_PropertyName, t_RequestedProps(t_PropertyName));

end if;

t_PropertyName := t_RequestedProps.next(t_PropertyName);

end loop;

end;

end;

/