EXECUTE IBEBLOCK (
  prm variant = 'A'
)
AS
BEGIN
  ibec_ShowMessage(prm);
END 

EXECUTE IBEBLOCK (
  prm variant = 'B'
)
AS
BEGIN
  ibec_ShowMessage(prm);
END 

EXECUTE IBEBLOCK
AS
BEGIN
  SELECT 1 FROM rdb$database AS DATASET ds;
END 

EXECUTE IBEBLOCK
AS
BEGIN
  SELECT
    CAST(1 AS BIGINT)
  FROM
    rdb$database db
  AS DATASET ds;

  val = NULL;
  IF (ibec_ds_GetField(ds, 0) < val) THEN
    ibec_ShowMessage('TRUE');
  ELSE
    ibec_ShowMessage('FALSE');
END

  res = 'Res: ';
  val = 5.6;
  res .= val;
  ibec_ShowMessage(res);

CREATE TABLE TEST (
    ID         INTEGER NOT NULL,
    NAME       VARCHAR(32) NOT NULL
);

ALTER TABLE TEST ADD CONSTRAINT PK_TEST PRIMARY KEY (ID);

EXECUTE IBEBLOCK
AS
BEGIN
  FOR
    SELECT
      t.id
    FROM
      test t
    AS CURSOR
      cur_tst
  DO
    UPDATE test t SET
      t.name = 'abc'
    WHERE
      CURRENT OF cur_tst;
END; 

EXECUTE IBEBLOCK
AS
BEGIN
  FOR
    SELECT
      t.id
    FROM
      test t
    AS CURSOR
      cur_tst
  DO BEGIN
    var = NULL;
    SELECT
      MIN(t.name)
    FROM
      test t
    WHERE
      t.id = cur_tst.id
    INTO
      :var;

    IF (:var IS NOT NULL) THEN
      UPDATE test t SET
        t.name = :var
      WHERE
        CURRENT OF cur_tst;
  END
END; 

IF (:var IS NOT NULL) THEN

EXECUTE IBEBLOCK
AS
BEGIN
  FOR
    SELECT
      1,
      CURRENT_TIMESTAMP AS datetime
    FROM
      rdb$database
    AS CURSOR
      cur
  DO
    var_t = DATEADD(DAY, 1, cur.datetime);
END;

EXECUTE PROCEDURE sp_d_log(cur.datetime);

EXECUTE IBEBLOCK
AS
BEGIN
  FOR
    SELECT
      t.id,
      t.datetime
    FROM
      test t
    AS CURSOR
      cur
  DO
    EXECUTE PROCEDURE sp_log(cur.datetime);
END;

EXECUTE IBEBLOCK
AS
BEGIN
  FOR
    SELECT
      1,
      CURRENT_TIMESTAMP AS datetime
    FROM
      rdb$database
    AS CURSOR
      cur
  DO
    EXECUTE PROCEDURE sp_d_log(cur.datetime);
END;

CREATE TABLE TEST (
    ID         INTEGER NOT NULL,
    DATETIME   TIMESTAMP
);

ibec_Cast(TRUE, __typeString);
ibec_Cast(FALSE, __typeString);

EXECUTE IBEBLOCK
AS
BEGIN
  IF (
    FALSE AND
    ibec_MessageDlg('Test', __mtWarning, __mbOK) = __mrYes
  ) THEN
    ibec_ShowMessage('Nothing');
END; 

execute ibeblock
as
begin
  IF ('a' <> 'c' OR 'b' <> 'd') THEN
    ibec_ShowMessage('OK');
end

execute ibeblock
as
begin
  a = 'a';
  b = 'b';
  IF (a <> 'c' OR b <> 'd') THEN
    ibec_ShowMessage('OK');
end