2 dmitr, hvlad: Возможно баги FB2

EXECUTE BLOCK
RETURNS (STR BLOB SUB_TYPE TEXT)
AS
BEGIN
  STR = '';
  SUSPEND;
END

EXECUTE BLOCK (B BLOB = :B)
RETURNS (STR BLOB SUB_TYPE TEXT)
AS
BEGIN
  STR = B;
  SUSPEND;
END

EXECUTE BLOCK (B BLOB = :B)
RETURNS (
  STR BLOB SUB_TYPE TEXT,
  LEN1 INTEGER,
  LEN2 INTEGER,
  SUBSTR1 VARCHAR(100),
  SUBSTR2 VARCHAR(100),
  SUBBLB1 BLOB,
  SUBBLB2 BLOB SUB_TYPE TEXT)
AS
BEGIN
  STR = B;

  LEN1 = CHAR_LENGTH(B);
  LEN2 = CHAR_LENGTH(STR);
  SUBSTR1 = SUBSTRING(B FROM 2 FOR 2);
  SUBSTR2 = SUBSTRING(STR FROM 2 FOR 2);
  SUBBLB1 = SUBSTRING(B FROM 2 FOR 2);
  SUBBLB2 = SUBSTRING(STR FROM 2 FOR 2);

  SUSPEND;
END