EXECUTE BLOCK RETURNS (ID INTEGER) AS
  DECLARE SQL BLOB SUB_TYPE TEXT;
BEGIN
  FOR SELECT ID, SQL FROM SQLS INTO :ID, :SQL DO
    IF (PREPARE_SQL(:SQL) <> 1) THEN
      SUSPEND;
END

CREATE TABLE SERVERS (ID INTEGER, LIB VARCHAR(100), CONNSTRING VARCHAR(200))

INSERT INTO SERVERS (ID, LIB, CONNSTRING) (1, 'fb\2.5.6\fbembed.dll', 'db\2.5.6\data.fdb');
INSERT INTO SERVERS (ID, LIB, CONNSTRING) (2, 'fb\3.0.0\fbclient.dll', 'db\3.0.0\data.fdb');
INSERT INTO SERVERS (ID, LIB, CONNSTRING) (3, 'fb\3.0.1\fbclient.dll', 'db\3.0.1\data.fdb');
INSERT INTO SERVERS (ID, LIB, CONNSTRING) (4, 'fb\4.0.0.snapshot\fbclient.dll', 'db\4.0.0.snapshot\data.fdb');

EXECUTE BLOCK RETURNS (ID INTEGER, SERVERID INTEGER) AS
  DECLARE SQL BLOB SUB_TYPE TEXT;
  DECLARE LIB VARCHAR(100);
  DECLARE CONNSTRING VARCHAR(200);
BEGIN
  FOR SELECT ID, SQL FROM SQLS INTO :ID, :SQL DO
    FOR SELECT ID, LIB, CONNSTRING FROM SERVERS INTO :SERVERID, :LIB, :CONNSTRING DO
      IF (PREPARE_SQL2(:LIB, :CONNSTRING, 'SYSDBA', 'masterkey', :SQL) <> 1) THEN
        SUSPEND;
END