[DobleSiete]

Hola Jachguate !!

...prove tu código y funcionó perfectamente !!! muchisimas gracias...

Ahora lo que no entiendo es porque mi humilde programita no solo no funciona, sino que ademas provoca un bloqueo que el IBConsole (tengo que terminar el proceso en el administrador de tareas de windows)... he aquí mi código:

Código SQL [-]
   SET TERM !!;
   CREATE PROCEDURE proc_rellenar
   RETURNS (cod_inf  CHAR(4),
            estado   CHAR(1),
            descri_1 CHAR(40))
   AS
   DECLARE VARIABLE cont INT;
   BEGIN
       cont = 1000;
       WHILE (cont <= 7000) DO
       BEGIN
           FOR
               SELECT   cod_inf, estado, descri_1
               FROM     scginf
               WHERE    cod_inf = :cont
                        AND estado = 6
               ORDER BY cod_inf
               INTO     :cod_inf, :estado, :descri_1
           DO
           BEGIN
               SUSPEND;
               cont = cont + 1;
           END
       END
   
       /* cuando la consulta no retorne resultados */
   
       WHEN SQLCODE 100 DO
       BEGIN
           cont = 1000;
           WHILE (cont <= 7000) DO
           BEGIN
               cod_inf  = cont;
               estado   = '';
               descri_1 = '';
               cont = cont + 1;
               SUSPEND;
           END
       END
   END!!
   SET TERM ;!!