create procedure veid_seq()
define _max int8;
on exception  in (- 8300 )
end exception with resume
drop sequence seq_iesn_dok;
Let _max=(select max(id_iesndok) from iesn_dok); EXECUTE IMMEDIATE 'create sequence seq_iesn_dok start ' || _max+ 1000  ;
end procedure ;
execute procedure veid_seq();
drop procedure veid_seq;

create procedure seq_gen(tabula varchar( 31 ))
returning dec( 12 , 0 );
define n dec( 12 , 0 );
define tabok varchar( 31 );
let tabok = UPPER(TRIM(tabula));
if tabok = 'IESN_DOK' THEN select seq_iesn_dok.nextval INTO n FROM SYSTABLES WHERE tabid= 1 ; 
end if;
return n;
end procedure;