CREATE PROCEDURE sp_random( ) RETURNING INTEGER; 
    DEFINE GLOBAL seed DEC(  10  ) DEFAULT - 1 ;
    DEFINE d DEC(  20 ,  0  ); 
    if seed = - 1  then
      let seed = trunc(to_char(current, '%Y')+to_char(current, '%m')+
                to_char(current, '%d')+to_char(current, '%H')+
                to_char(current, '%M')+to_char(current, '%S')); 
    end if;
    LET d = seed *  1103515245  +  12345 ; 
    LET seed = d -  4294967296  * TRUNC( d /  4294967296  ); 
    RETURN MOD( TRUNC( seed /  65536  ),  32768  ); 
END PROCEDURE;