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
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 ;!!