CREATE PROCEDURE sp_setseed(n INTEGER)
         DEFINE GLOBAL seed DECIMAL(10) DEFAULT 1;
         LET seed = n;
 END PROCEDURE;CREATE PROCEDURE sp_random(n integer) RETURNING INTEGER;
         DEFINE GLOBAL seed DECIMAL(10) DEFAULT 1;
         DEFINE d DECIMAL(20,0);
         LET d = (seed * 1103515245) + 12345;
       
         LET seed = d - 4294967296 * TRUNC(d / 4294967296);
         RETURN MOD(TRUNC(seed / 65536), n); 
 END PROCEDURE;