Invalid token.
invalid request BLR at offset  59 .
function IB_CASE is not defined.
module name or entrypoint could not be found.

DECLARE EXTERNAL FUNCTION CASE
    CSTRING( 30 ),
    CSTRING( 30 ),
    DOUBLE PRECISION,
    DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'IB_CASE' MODULE_NAME 'ib_dll'

library ib_dll;
uses
  SysUtils,
  Classes;
{$R *.res}
function IB_CASE(MainStr, LikeStr: PChar; OK, NotOK: double): double; cdecl; {export; }
begin
  if pos(String(LikeStr),String(MainStr))> 0  then Result:=double(OK)
  else Result:=double(NotOK);
end;
exports
  IB_CASE;
begin
end.

SELECT CASE( BAG_TYPES.NAME, 'А',  1 . 2 ,  4 . 5  ) CASE_OF_NAME
FROM BAG_TYPES

CREATE PROCEDURE NEW_PROCEDURE (
    A VARCHAR( 10 ) CHARACTER SET WIN1251,
    S VARCHAR( 10 ) CHARACTER SET WIN1251)
RETURNS (
    D INTEGER)
AS
begin
  D=case(:A,:S,  11 ,  1 );
  suspend;
end