| 1 |
create or alter function MyRowCount (
|
| 2 |
table_name varchar(31)
|
| 3 |
) returns integer
|
| 4 |
external name 'fbudrtests!row_count'
|
| 5 |
engine udr;
|
| 6 |
create or alter function BadRowCount (
|
| 7 |
table_name varchar(31)
|
| 8 |
) returns integer
|
| 9 |
external name 'fbudrtests!bad_row_count'
|
| 10 |
engine udr;
|
| 11 |
create or alter function UDRInfo (
|
| 12 |
) returns VarChar(31)
|
| 13 |
external name 'fbudrtests!return_info!Hello World'
|
| 14 |
engine udr;
|
| 15 |
create or alter procedure MyTestProc (
|
| 16 |
EMP_NO SMALLINT
|
| 17 |
) returns (Salary Numeric(10,2), FullName VarChar(36))
|
| 18 |
external name 'fbudrtests!test_proc'
|
| 19 |
engine udr;
|
| 20 |
Create or Alter procedure MyErrorProc (
|
| 21 |
ErrorCase Smallint)
|
| 22 |
external name 'fbudrtests!error_proc'
|
| 23 |
engine udr;
|
| 24 |
create or alter procedure MySelectProc ()
|
| 25 |
returns (FullName VarChar(36), Salary Numeric(10,2), AccSalary Numeric(10,2) )
|
| 26 |
external name 'fbudrtests!select_proc'
|
| 27 |
engine udr;
|
| 28 |
create or alter procedure MyReadText (
|
| 29 |
path varchar(200) not null /*relative to udr directory */
|
| 30 |
) returns (
|
| 31 |
text varchar(100) not null
|
| 32 |
)
|
| 33 |
external name 'fbudrtests!read_txt'
|
| 34 |
engine udr;
|
| 35 |
Alter Table EMPLOYEE Add PREVIOUS_PHONE_EXT VarChar(4);
|
| 36 |
Create or Alter Trigger MyEmployeeUpdate Active Before Update On EMPLOYEE
|
| 37 |
external name 'fbudrtests!my_employee_update'
|
| 38 |
engine udr;
|
| 39 |
create or alter procedure ShowAttachments (
|
| 40 |
user_name VarChar(32))
|
| 41 |
returns (
|
| 42 |
MON$ATTACHMENT_ID bigint ,
|
| 43 |
MON$ATTACHMENT_NAME varchar(255) ,
|
| 44 |
MON$USER char(63) ,
|
| 45 |
MON$ROLE char(63) ,
|
| 46 |
MON$REMOTE_HOST varchar(255)
|
| 47 |
)
|
| 48 |
external name 'fbudrtests!show_att'
|
| 49 |
engine udr;
|
| 50 |
create or alter procedure GetServerInfo
|
| 51 |
returns (ServerInfo VarChar(256))
|
| 52 |
external name 'fbudrtests!server_info'
|
| 53 |
engine udr;
|
| 54 |
create or alter user TESTER password 'testing';
|
| 55 |
grant Execute on function MyRowCount to TESTER;
|
| 56 |
grant Execute on function BadRowCount to TESTER;
|
| 57 |
grant Execute on function UDRInfo to TESTER;
|
| 58 |
grant Execute on Procedure MyTestProc to TESTER;
|
| 59 |
grant Execute on Procedure MyErrorProc to TESTER;
|
| 60 |
grant Execute on Procedure MySelectProc to TESTER;
|
| 61 |
grant Execute on Procedure MyReadText to TESTER;
|
| 62 |
grant Execute on Procedure ShowAttachments to TESTER;
|
| 63 |
grant Execute on Procedure GetServerInfo to TESTER;
|
| 64 |
|
| 65 |
|
| 66 |
|
