MyFirstUDRKit/test/testudrkit.ddl

124 lines
2.9 KiB
Plaintext
Raw Normal View History

2023-01-25 14:54:48 +01:00
/*
create tables for test db
*/
--create sequence test_div_seq;
2023-01-25 14:54:48 +01:00
commit;
create domain D_ID as BIGINT;
2023-01-25 15:58:16 +01:00
create domain D_BIGINT as BIGINT;
2023-01-25 14:54:48 +01:00
create table test_div(
2023-01-28 10:40:15 +01:00
test_div_id D_ID generated always as identity
2023-01-25 15:58:16 +01:00
, numerator D_BIGINT
, denominator D_BIGINT
, result COMPUTED BY ( DIV(numerator, denominator) )
, constraint pk_test_div_id primary key (test_div_id) using index idx_test_div_id
2023-01-25 14:54:48 +01:00
);
2023-01-25 15:58:16 +01:00
commit;
2023-01-25 15:58:16 +01:00
-- create sequence test_blobs_seq;
create domain D_BLOB as BLOB;
create domain D_DESCRIPTION varchar(255) default 'No description entered' not null ;
create domain D_FILETYPE char(3) default 'BIN' not null check (value in ( 'BIN', 'TXT') );
create domain D_PATH as varchar(8189) default '' not null ;
create domain D_STATUS as CHAR(1) default 'U' not null check (VALUE IN ('U', 'F', 'L', 'W'));
comment on domain D_STATUS is 'unset, failed, loaded, written';
2023-02-02 16:11:52 +01:00
create exception E_BLOB_EXCEPTION '';
create table test_blobs(
2023-01-28 10:40:15 +01:00
test_blobs_id D_ID generated always as identity
, description D_DESCRIPTION
, file_type D_FILETYPE
, source_file D_PATH
, source_status D_STATUS
2023-01-28 10:40:15 +01:00
, source_bytes D_BIGINT
, target_file D_PATH
, target_status D_STATUS
2023-01-28 10:40:15 +01:00
, target_bytes D_BIGINT
, the_blob D_BLOB
, constraint pk_test_blobs_id primary key (test_blobs_id) using index idx_test_blobs_id
);
set term ^;
2023-01-28 10:40:15 +01:00
create or alter trigger t_iub_test_blobs for test_blobs before insert or update
as begin
new.file_type = upper(new.file_type);
new.source_status = upper(new.source_status);
new.target_status = upper(new.target_status);
end ^
2023-01-28 10:40:15 +01:00
set term ;^
set term ^;
create or alter procedure load_blob ( a_test_blob_id D_ID ) sql security definer
as
declare asource_file D_PATH;
2023-02-02 16:11:52 +01:00
declare oldblob D_BLOB;
declare newblob D_BLOB;
2023-01-28 10:40:15 +01:00
declare result D_BIGINT;
declare status D_STATUS;
begin
2023-02-02 16:11:52 +01:00
select source_file, the_blob from test_blobs where test_blobs_id = :a_test_blob_id into :asource_file, :oldblob;
select LoadBlobFromFile( :asource_file ) from rdb$database into :newblob;
if ( newblob is not null ) then
2023-01-28 10:40:15 +01:00
status = 'L';
2023-02-02 16:11:52 +01:00
else
2023-01-28 10:40:15 +01:00
status = 'F';
2023-01-28 10:40:15 +01:00
update test_blobs
2023-02-02 16:11:52 +01:00
set the_blob = :newblob
-- , source_bytes = :result
2023-01-28 10:40:15 +01:00
, source_status = :status
where test_blobs_id = :a_test_blob_id;
2023-02-02 16:11:52 +01:00
when any do begin
EXCEPTION E_BLOB_EXCEPTION 'Error updating test_blobs';
end
2023-01-28 10:40:15 +01:00
2023-02-03 11:43:15 +01:00
end ^
set term ;^
set term ^;
create or alter procedure save_blob ( a_test_blob_id D_ID, atarget_file D_PATH ) sql security definer
as
declare theblob D_BLOB;
declare result D_BIGINT;
declare status D_STATUS;
begin
select the_blob from test_blobs where test_blobs_id = :a_test_blob_id into :theblob;
select SaveBlobToFile( :atarget_file, :theblob ) from rdb$database into :result;
if ( result >= 0 ) then
status = 'W';
else
status = 'F';
update test_blobs
set target_file = :atarget_file
, target_bytes = :result
, target_status = :status
where test_blobs_id = :a_test_blob_id;
when any do begin
EXCEPTION E_BLOB_EXCEPTION 'Error updating test_blobs';
end
2023-01-28 10:40:15 +01:00
end ^
set term ;^