WHILE dentro de WHILE (firebird)

[anscelmo 0]

alguém poderia me ajudar a entender porque a rotina abaixo NÃO insere 25 registros na minha tabela ???

(insere somente 5)

 

obrigado.

 

 

CREATE PROCEDURE PROCTESTE
AS

DECLARE VARIABLE J INTEGER;
DECLARE VARIABLE B1 INTEGER;
DECLARE VARIABLE B2 INTEGER;

BEGIN

 J = 0;
 B1 = 1;
 B2 = 1;

 WHILE (B1 <= 5) DO
 BEGIN
   B1 = B1 + 1;
   WHILE (B2 <= 5) DO
   BEGIN
     B2 = B2 + 1;
     j = j + 1;
     INSERT INTO TABELATESTE (SEQUENCIA)
     VALUES (:j);
   END
 END

END;

[Daniel Hiromy 0]

Olá Anscelmo.

Você deve reinicializar sua variável B2:

...

...

WHILE (B1 <= 5) DO

BEGIN

B1 = B1 + 1;

B2 = 1;

WHILE (B2 <= 5) DO

...

...

 

Abraço!