火鸟数据库开发笔记

1、创建类似oralce的sys_guid()

SET TERM ^ ;


CREATE OR ALTER PROCEDURE SYS_GUID 
returns (
    hex_uuid varchar(32))
as
declare variable i integer;
declare variable c integer;
declare variable real_uuid char(16) character set octets;
BEGIN
 real_uuid = GEN_UUID();
 hex_uuid = '';
 i = 0;
 while (i < 16) do
 begin
 c = ascii_val(substring(real_uuid from i+1 for 1));
 if (c < 0) then c = 256 + c;
 hex_uuid = hex_uuid 
|| substring('0123456789abcdef' from bin_shr(c, 4) + 1 for 1) 
|| substring('0123456789abcdef' from bin_and(c, 15) + 1 for 1); 
i = i + 1;
 end
 suspend;
 END^


SET TERM ; ^


GRANT EXECUTE ON PROCEDURE SYS_GUID TO SYSDBA;

2、存储过程调用存储过程

SET TERM ^ ;


CREATE OR ALTER PROCEDURE SYS_GUID2 
returns (
    hex_uuid varchar(32))
as
BEGIN
 hex_uuid = '456777777777777777777777777';
 suspend;
 END^


SET TERM ; ^


GRANT EXECUTE ON PROCEDURE SYS_GUID2 TO SYSDBA;

SET TERM ^ ;


CREATE OR ALTER PROCEDURE SYS_GUID3 
returns (
    hex_uuid varchar(32))
as
declare variable real_uuid char(32) character set octets;
BEGIN
        select hex_uuid
        from sys_guid2
        into :real_uuid ;
 hex_uuid = real_uuid;
suspend ;
 end^


SET TERM ; ^


GRANT EXECUTE ON PROCEDURE SYS_GUID2 TO PROCEDURE SYS_GUID3;


GRANT EXECUTE ON PROCEDURE SYS_GUID3 TO SYSDBA;