BEGIN
DECLARE TOT INTEGER DEFAULT 0;
DECLARE NUM INTEGER DEFAULT 0;

DECLARE X INTERVAL SECOND TO MSECOND 
      DEFAULT INTERVAL '00.00' SECOND TO MSECOND;
DECLARE ASTART TIME DEFAULT TIME '00:00:00.00';
DECLARE AEND TIME DEFAULT TIME '00:00:00.00';

DECLARE CRSR CURSOR FOR STMT;
DECLARE ATABLE VARCHAR(50) DEFAULT '';

SET ASTART = CURRENT_TIME;
PREPARE STMT FROM 'SELECT NAME FROM INFORMATION.TABLES';

OPEN CRSR;
SET TOT = ROWCOUNT(CRSR);

FETCH FIRST FROM CRSR ('NAME') INTO ATABLE;

WHILE NOT EOF(CRSR) DO

  EXECUTE IMMEDIATE 'OPTIMIZE TABLE "' + ATABLE + '" ';

  FETCH NEXT FROM CRSR INTO ATABLE;
  SET NUM = NUM + 1;
  SET PROGRESS TO TRUNC((NUM/TOT)*100);
  SET STATUS MESSAGE TO 'Ottimizz. ' + CAST(NUM,VARCHAR(3)) + '/' +
                      CAST(TOT,VARCHAR(3));
END WHILE;
SET AEND = CURRENT_TIME;

CLOSE CRSR;
UNPREPARE STMT;

SET X = (AEND - ASTART) SECOND TO MSECOND;

SET MSG = CAST(X AS VARCHAR(15));
SET MSG = 'Eseguito in ' + MSG + ' sec.';

END