CREATE PROCEDURE SP_PRUEBA
as
declare variable conteo integer;
declare variable resultado double precision;
begin
conteo = 0;
while (:conteo <= 1000) do
begin
resultado = cast(100 as double precision)/3;
insert into test (conteo, valor) values(:conteo, :resultado);
conteo = :conteo+1;
end
end