CREATE DEFINER=`root`@`localhost` PROCEDURE `addOrChangeRecord`( 
    v BIGINT, 
    _id BIGINT, 
    segmentId INT, 
    socialId VARCHAR( 25 ), 
    fullName VARCHAR( 50 ), 
    photoUrl TINYTEXT, 
    registrationTime DATETIME, 
    _level INT, 
    sectorName VARCHAR( 50 ), 
    x INT, 
    y INT, 
    caravanSpeed DOUBLE, 
    occupantUserId BIGINT, 
    sectorSkinTypeId BIGINT) 
BEGIN 
IF EXISTS (select  1  from `WarRules`.`sector` where id = _id) 
THEN UPDATE `WarRules`.`sector` SET 
    `v` = v, 
    `id` = _id, 
    `segmentId` = segmentId, 
    `socialId` = socialId, 
    `fullName` = fullName, 
    `photoUrl` = photoUrl, 
    `registrationTime` = registrationTime, 
    `level` = _level, 
    `sectorName` = sectorName, 
    `x` = x, 
    `y` = y, 
    `caravanSpeed` = caravanSpeed, 
    `occupantUserId` = occupantUserId, 
    `sectorSkinTypeId` = sectorSkinTypeId 
WHERE id=_id; 
select CONCAT('ID: ', _id , ' FullName: ', fullName , ' Запись обновлена.'); 
ELSE INSERT INTO `WarRules`.`sector` ( 
        `v`, 
        `id`, 
        `segmentId`, 
        `socialId`, 
        `fullName`, 
        `photoUrl`, 
        `registrationTime`, 
        `level`, 
        `sectorName`, 
        `x`, 
        `y`, 
        `caravanSpeed`, 
        `occupantUserId`, 
        `sectorSkinTypeId` 
    ) VALUES ( 
        v, 
        _id, 
        segmentId, 
        socialId, 
        fullName, 
        photoUrl, 
        registrationTime, 
        _level, 
        sectorName, 
        x, 
        y, 
        caravanSpeed, 
        occupantUserId, 
        sectorSkinTypeId 
    ); 
select CONCAT('ID: ', _id , ' FullName: ', fullName , ' Запись добавлена.'); 
END IF; 
END

create or alter procedure ADDORCHANGERECORD (
    "_V" bigint,
    "_ID" bigint,
    "_SEGMENTID" integer,
    "_SOCIALID" varchar( 25 ),
    "_FULLNAME" varchar( 50 ),
    "_PHOTOURL" blob sub_type  1  segment size  255 ,
    "_REGISTRATIONTIME" timestamp,
    "_LEVEL" integer,
    "_SECTORNAME" varchar( 50 ),
    "_X" integer,
    "_Y" integer,
    "_CARAVANSPEED" double precision,
    "_OCCUPANTUSERID" bigint,
    "_SECTORSKINTYPEID" bigint)
as
begin
if (EXISTS(select  1  from sector where id = "_ID"))
THEN
BEGIN
UPDATE sector SET
    v = "_V",
    id = "_ID",
    segmentId = "_SEGMENTID",
    socialId = "_SOCIALID",
    fullName = "_FULLNAME",
    photoUrl = "_PHOTOURL",
    registrationTime = "_REGISTRATIONTIME",
    level = "_LEVEL",
    sectorName = "_SECTORNAME",
    x = "_X",
    y = "_Y",
    caravanSpeed = "_CARAVANSPEED",
    occupantUserId = "_OCCUPANTUSERID",
    sectorSkinTypeId = "_SECTORSKINTYPEID"
WHERE id="_ID";
select CONCAT('ID: ', "_ID" , ' FullName: ', "_FULLNAME" , ' Запись обновлена.');
END
ELSE
BEGIN
INSERT INTO sector (
        v,
        id,
        segmentId,
        socialId,
        fullName,
        photoUrl,
        registrationTime,
        level,
        sectorName,
        x,
        y,
        caravanSpeed,
        occupantUserId,
        sectorSkinTypeId
    ) VALUES (
        "_V",
        "_ID",
        "_SEGMENTID",
        "_SOCIALID",
        "_FULLNAME",
        "_PHOTOURL",
        "_REGISTRATIONTIME",
        "_LEVEL",
        "_SECTORNAME",
        "_X",
        "_Y",
        "_CARAVANSPEED",
        "_OCCUPANTUSERID",
        "_SECTORSKINTYPEID"
    );
select CONCAT('ID: ', "_ID" , ' FullName: ', "_FULLNAME" , ' Запись добавлена.');
END
end

create or alter procedure ADDORCHANGERECORD (
    V_ bigint,
    ID_ bigint,
    SEGMENTID_ integer,
    SOCIALID_ varchar( 25 ),
    FULLNAME_ varchar( 50 ),
    PHOTOURL_ varchar( 255 ),
    REGISTRATIONTIME_ timestamp,
    LEVEL_ integer,
    SECTORNAME_ varchar( 50 ),
    X_ integer,
    Y_ integer,
    CARAVANSPEED_ double precision,
    OCCUPANTUSERID_ bigint,
    SECTORSKINTYPEID_ bigint)
returns (
    OUT varchar( 255 ))
as
begin
if (EXISTS(select  1  from sector where id = :ID_))
THEN
BEGIN
UPDATE sector SET
    v = :V_,
    id = :ID_,
    segmentId = :SEGMENTID_,
    socialId = :SOCIALID_,
    fullName = :FULLNAME_,
    photoUrl = :PHOTOURL_,
    registrationTime = :REGISTRATIONTIME_,
    level = :LEVEL_,
    sectorName = :SECTORNAME_,
    x = :X_,
    y = :Y_,
    caravanSpeed = :CARAVANSPEED_,
    occupantUserId = :OCCUPANTUSERID_,
    sectorSkinTypeId = :SECTORSKINTYPEID_
WHERE id=:ID_;
OUT = ('ID: '||cast(:id_ as varchar( 15 ))||' FullName: '||:FullName_||' Запись обновлена');
suspend;
END
ELSE
BEGIN
INSERT INTO sector (
        v,
        id,
        segmentId,
        socialId,
        fullName,
        photoUrl,
        registrationTime,
        level,
        sectorName,
        x,
        y,
        caravanSpeed,
        occupantUserId,
        sectorSkinTypeId
    ) VALUES (
        :V_,
        :ID_,
        :SEGMENTID_,
        :SOCIALID_,
        :FULLNAME_,
        :PHOTOURL_,
        :REGISTRATIONTIME_,
        :LEVEL_,
        :SECTORNAME_,
        :X_,
        :Y_,
        :CARAVANSPEED_,
        :OCCUPANTUSERID_,
        :SECTORSKINTYPEID_
    );
OUT = ('ID: '||cast(:id_ as varchar( 15 ))||' FullName: '||:FullName_||' Запись добавлена');
suspend;
END
end

 package  test;

 import  java.sql.*;

 public   class  Main {

	 public   static   void  main(String[] args)  throws  Exception {
		 Class .forName("org.firebirdsql.jdbc.FBDriver");

		PreparedStatement prstmt =  null ;
		Connection cn = DriverManager.getConnection(
				"jdbc:firebirdsql:embedded:WARRULES.FDB",
				"SYSDBA", "masterkey");
                prstmt = cn.prepareStatement("EXECUTE PROCEDURE addOrChangeRecord"+
        		"(?,?,?,?,?,?,?,?,?,?,?,?,?,?);");
		prstmt.setLong( 1 , 25790L);
		prstmt.setLong( 2 , 1L);
		prstmt.setInt( 3 ,  1 );
		prstmt.setString( 4 , "One");
		prstmt.setString( 5 , "Два");
		prstmt.setString( 6 , "Three");
		prstmt.setString( 7 , "2011-02-16 12:02:09");
		prstmt.setInt( 8 ,  51 );
		prstmt.setString( 9 , "Четыре");
		prstmt.setInt( 10 ,  1 );
		prstmt.setInt( 11 ,  6 );
		prstmt.setDouble( 12 ,  10 .4D);
		prstmt.setNull( 13 , java.sql.Types.BIGINT);
		prstmt.setLong( 14 , 1050L);
		prstmt.execute();
		ResultSet rs = prstmt.getResultSet();
		 while (rs.next()){
			System.out.println(rs.getString( 1 ));
		}
	}
}

IBSQL1.SQL.Clear;
IBSQL1.SQL.Add('EXECUTE PROCEDURE TEST');  
IBSQL1.ExecQuery;
ShowMessage(IBSQL1.Current[ 0 ].asString);

CallableStatement cst =  null ;
Connection cn = DriverManager.getConnection(
		"jdbc:firebirdsql:embedded:WARRULES.FDB",
		"SYSDBA", "masterkey");
cst = cn.prepareCall("EXECUTE PROCEDURE addOrChangeRecord"+
	"(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);");
cst.setLong( 1 , 25790L);
cst.setLong( 2 , 1L);
cst.setInt( 3 ,  1 );
cst.setString( 4 , "One");
cst.setString( 5 , "Два");
cst.setString( 6 , "Three");
cst.setString( 7 , "2011-02-16 12:02:09");
cst.setInt( 8 ,  51 );
cst.setString( 9 , "Четыре");
cst.setInt( 10 ,  1 );
cst.setInt( 11 ,  6 );
cst.setDouble( 12 ,  10 .4D);
cst.setNull( 13 , java.sql.Types.BIGINT);
cst.setLong( 14 , 1050L);
cst.registerOutParameter( 15 , java.sql.Types.VARCHAR);
cst.execute();
System.out.println(cst.getString( 15 ));

create or alter procedure GETDIFF (
    X_ integer,
    Y_ integer,
    R_ integer,
    DIFF_ integer,
    PERIOD_ integer,
    LEVEL_ integer)
as
declare variable MIN_ integer;
declare variable MAX_ integer;
begin
    SELECT s.id,
        s.x,
        s.y,
        ROUND(SQRT(ABS(:x_-s.x)*ABS(:x_-s.x) + ABS(:y_-s.y)*ABS(:y_-s.y)), 2 ) as Rasst,
        s.fullName,
        s.sectorName,
        s."LEVEL",
        (select MIN(e1.experience) into :min_ from experience as e1 where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp)) as MIN,
        (select MAX(e2.experience) into :max_ from experience as e2 where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp)) as MAX,
        :max_-:min_ as DIFF
    FROM experience AS e, sector as s
    WHERE s.id=e.id AND s.x >= :x_-:r_ AND s.x <= _x+_r AND s.y >= :y_-:r_ AND s.y >= :y_+:r_
    AND ((select MAX(e2.experience) from experience as e2 where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp))-
        (select MIN(e1.experience) from experience as e1 where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp)))<:diff_
    AND s."LEVEL" >=  15  AND  s."LEVEL" <= :level_
    GROUP BY e.id
    ORDER BY s."LEVEL", Rasst;
    suspend;
end

Invalid token.
Dynamic SQL Error.
SQL error code = - 104 .
Token unknown - line  19 , column  36 .
into.

min_ = (select MIN(e1.experience) from experience as e1 where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp)) as MIN,
max_ = (select MAX(e2.experience) from experience as e2 where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp)) as MAX,
:max_-:min_ as DIFF

(select MIN(e1.experience) from experience as e1 where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp) into :min_) as MIN,
(select MAX(e2.experience) from experience as e2 where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp) into :max_) as MAX,
:max_-:min_ as DIFF

create or alter procedure GETDIFF (
    X_ integer,
    Y_ integer,
    R_ integer,
    DIFF_ integer,
    PERIOD_ integer,
    LEVEL_ integer)
returns (
    OUT_ID_ integer,
    OUT_X_ integer,
    OUT_Y_ integer,
    OUT_RASST_ integer,
    OUT_FN_ integer,
    OUT_SN_ integer,
    OUT_LVL_ integer,
    OUT_MIN_ integer,
    OUT_MAX_ integer,
    OUT_DIFF_ integer)
as
declare variable MIN_ integer;
declare variable MAX_ integer;
begin
    SELECT s.id,
        s.x,
        s.y,
        ROUND(SQRT(ABS(:x_-s.x)*ABS(:x_-s.x) + ABS(:y_-s.y)*ABS(:y_-s.y)), 2 ) as Rasst,
        s.fullName,
        s.sectorName,
        s."LEVEL",
        (select MIN(e1.experience) from experience as e1 where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp)) as "MIN",
        (select MAX(e2.experience) from experience as e2 where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp)) as "MAX",
        ((select MAX(e2.experience) from experience as e2 where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp))-
        (select MIN(e1.experience) from experience as e1 where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp))) as DIFF
    FROM experience AS e, sector as s
    WHERE s.id=e.id AND s.x >= :x_-:r_ AND s.x <= :x_+:r_ AND s.y >= :y_-:r_ AND s.y >= :y_+:r_
    AND ((select MAX(e2.experience) from experience as e2  where e2.id=e.id AND e2."TIME">DATEADD(DAY, -(:period_), current_timestamp))-
        (select MIN(e1.experience) from experience as e1  where e1.id=e.id AND e1."TIME">DATEADD(DAY, -(:period_), current_timestamp)))<:diff_
    AND s."LEVEL" >=  15  AND  s."LEVEL" <= :level_
    GROUP BY e.id
    ORDER BY  7 ,  4 
    INTO :out_id_, :out_x_, :out_y_, :out_rasst_, :out_fn_, :out_sn_, :out_lvl_, :out_min_, :out_max_, :out_diff_;
    suspend;
end

GROUP BY s.id, s.x, s.y, s.fullName, s.sectorName, s."LEVEL", "MIN", "MAX", DIFF

GROUP BY s.id, s.x, s.y, Rasst, s.fullName, s.sectorName, s."LEVEL"

(s.y >= :y_-:r_) AND 
(s.y >= :y_+:r_)

create or alter procedure GETDIFF (
    X_ integer,
    Y_ integer,
    R_ integer,
    DIFF_ integer,
    PERIOD_ integer,
    LEVEL_ integer)
returns (
    OUT_ID_ integer,
    OUT_X_ integer,
    OUT_Y_ integer,
    OUT_RASST_ integer,
    OUT_FN_ integer,
    OUT_SN_ integer,
    OUT_LVL_ integer,
    OUT_MIN_ integer,
    OUT_MAX_ integer,
    OUT_DIFF_ integer)
as
declare variable MIN_ integer;
declare variable MAX_ integer;
begin
    FOR SELECT 
            s.id,
            s.x,
            s.y,
            ROUND(SQRT(ABS(:x_-s.x)*ABS(:x_-s.x) + ABS(:y_-s.y)*ABS(:y_-s.y)), 2 ) as Rasst,
            s.fullName,
            s.sectorName,
            s."LEVEL",
            MIN(e.experience) AS "MIN",
            MAX(e.experience) AS "MAX",
            (MAX(e.experience) - MIN(e.experience)) AS DIFF
        FROM experience e 
                INNER JOIN sector s ON e.id = s.id
        WHERE (s.x >= :x_-:r_) AND
              (s.x <= :x_+:r_) AND
              (s.y >= :y_-:r_) AND
              (s.y <= :y_+:r_) AND
              (s."LEVEL" >=  15 ) AND
              (s."LEVEL" <= :level_) AND
              (e."TIME">DATEADD(DAY, -(:period_), current_timestamp)
        GROUP BY  1 ,  2 ,  3 ,  4 ,  5 ,  6 ,  7 
        HAVING MAX(e.experience) - MIN(e.experience) < :diff_
        ORDER BY  7 ,  4 
        INTO :out_id_, :out_x_, :out_y_, :out_rasst_, :out_fn_, :out_sn_, :out_lvl_, :out_min_, :out_max_, :out_diff_
    DO
    suspend;
end

Invalid token.
Dynamic SQL Error.
SQL error code = - 104 .
Token unknown - line  43 , column  9 .
GROUP.