DB2 cursor problems

[Remi1]

Hi :

I had these procedure and when i try to execute it, it's only execute 100000 rows, any ideas.

CREATE PROCEDURE SATT.MIGRA_INTCTA_2005 ( )
SPECIFIC SATT.SQL060523130507007
LANGUAGE SQL
NOT DETERMINISTIC
CALLED ON NULL INPUT
EXTERNAL ACTION
OLD SAVEPOINT LEVEL
MODIFIES SQL DATA
INHERIT SPECIAL REGISTERS
BEGIN
DECLARE SQLCODE INTEGER DEFAULT 0;
DECLARE V_NO_DATA INT DEFAULT 0;
DECLARE VARSMLCUOTA SMALLINT;
DECLARE VARSMLTRICOD SMALLINT;
DECLARE VARINTPRECOD INTEGER;
DECLARE VARINTADMCOD INTEGER;
DECLARE VARSMLANO SMALLINT;
DECLARE VARINTCTANUM INTEGER;
DECLARE VARINTCTAAFE INTEGER;
DECLARE VARNUMREC DECIMAL (5,0);
DECLARE not_found CONDITION FOR '02000';
DECLARE CURGCUCTA CURSOR WITH RETURN FOR
SELECT INTCTANUMERO, SMLCTACUOTA,SMLTRICODIGO, INTPRECODIGO, INTADMCODIGO, SMLANOANIOPRO
FROM GCUCTACTE
WHERE SMLTRICODIGO in (1,2,5,6) AND SMLANOANIOPRO = 2005;
DECLARE CONTINUE HANDLER FOR NOT FOUND
-- DECLARE CONTINUE HANDLER FOR SQLEXCEPTION, SQLWARNING, NOT FOUND
SET V_NO_DATA = 1;
-- DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
-- SET VARCTLCUR = NULL;
SET VARNUMREC = 0;
OPEN CURGCUCTA;
FETCH CURGCUCTA INTO VARINTCTANUM, VARSMLCUOTA, VARSMLTRICOD, VARINTPRECOD, VARINTADMCOD, VARSMLANO;
WHILE (V_NO_DATA = 0 ) DO
IF VARSMLTRICOD = 1 THEN
SET VARINTCTAAFE = (SELECT INTBIPCORREL
FROM DJUBASEIMPONIBLEPREDIAL
WHERE INTADMCODIGO = VARINTADMCOD
AND SMLANOANIOPRO = VARSMLANO
AND VCHBIPESTADO = '1');
ELSE
SET VARINTCTAAFE = (SELECT intdarcorrel
FROM gcudeterminacionarbitrios
WHERE vchdarestado = '1'
AND smlctacuota = VARSMLCUOTA
AND smltricodigo = VARSMLTRICOD
AND smlanoaniopro = VARSMLANO
AND intadmcodigo = VARINTADMCOD
AND INTPRECODIGO = VARINTPRECOD);

END IF;
INSERT INTO TMP_MIGRA (INTCTANUMERO) VALUES (VARINTCTANUM);
IF (SQLCODE !=0 ) THEN
INSERT INTO TMP_MIGRA (INTCTANUMERO)
VALUES (VARINTCTANUM);
RETURN;
END IF;
IF (VARINTCTAAFE is not null) OR (VARINTCTAAFE != 0) THEN
UPDATE GCUCTACTE SET INTCTAAFECTA = VARINTCTAAFE WHERE INTCTANUMERO = VARINTCTANUM;
END IF;
SET VARNUMREC = VARNUMREC + 1;
FETCH CURGCUCTA INTO VARINTCTANUM, VARSMLCUOTA, VARSMLTRICOD, VARINTPRECOD, VARINTADMCOD, VARSMLANO;
END WHILE;
CLOSE CURGCUCTA;
commit;
END;